|
Платные хостинги
Раскрутка сайта
Книги по программированию
Градиентная заливка TPanel?, Как залить???
- Для этого придуман компонент, TImage...Кинь его на панель и залевай...
- Код DC := GetDC(Panel1.Handle);//Заливаешь сколько влезетReleaseDC(Panel1.Handle, DC);highlightSyntax('delphiTExYzA','delphi');
- <Spawn>, причем здесь хэндл панели и канва? Как можно через хэндл залить панель?
- -Сергей-Ну не глупыйже вроде!!!Код procedure TForm1.Button1Click(Sender: TObject);var sbCanvas: TCanvas;begin try sbCanvas := TCanvas.Create; sbCanvas.Handle := GetDC(Panel1.Handle); sbCanvas.Ellipse(Rect(10, 10, 30, 30)); finally FreeAndNil(sbCanvas); end;end;highlightSyntax('delphiNWJjNG','delphi');2KORNОстальное так же как и с формой.Только вместо Canvas.Brush.Color := RGB (R, G, B); надо sbCanvas.Brush.Color := RGB (R, G, B); Это сообщение отредактировал ~FoX~ - 23.11.2004, 12:46
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
