Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

PageControl   Найти похожие ветки 

 
ATLANTIDO ©   (2002-04-17 19:05) [0]

Как исовать на панелях и закладках PаgeControl ? Например, окрасить в черный цвет ?


 
ATLANTIDO ©   (2002-04-17 19:10) [1]

P.S. "рисовать"


 
Song ©   (2002-04-17 19:12) [2]

Через Canvas или Handle


 
ATLANTIDO ©   (2002-04-17 19:16) [3]


procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
PageControl1.Canvas.Brush.Color:=$00ffabcd;
PageControl1.Canvas.FillRect(Rect);
end;

Приведеный выше код не дает результата


 
Song ©   (2002-04-17 19:19) [4]

А что Вы хотите этим кодом добиться?


 
ATLANTIDO ©   (2002-04-17 19:41) [5]

Закрашивать панели


 
ATLANTIDO ©   (2002-04-17 23:24) [6]

Так как на закладках рисовать ?


 
ATLANTIDO ©   (2002-04-18 20:27) [7]

Ладно, с панелями tabsheet еще можно подумать , размещать на них Image. А как с самими закладками быть ?


 
unfam   (2002-04-19 01:43) [8]

Свойство OwnerDraw выставляешь в True. Затем что-то вроде:

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
if Active then
begin
Control.Canvas.Brush.Color:=clRed;
Control.Canvas.FillRect(Rect);
end
else
begin
Control.Canvas.Brush.Color:=clBlack;
Control.Canvas.FillRect(Rect);
end
end;


 
Andrey007   (2002-04-19 09:10) [9]

Изменение цвета панели:
TabSheet.Brush.Color := xxx;
TabSheet.Refresh;

Рисование на закладке:

PageControl.OwnerDraw := True;
PageControl.OnDrawTab:=PageControlDrawTab;

procedure TForm1.PageControlDrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
lpRect: TRect;
begin
lpRect := Rect;
if TabIndex = n then
begin
Control.Canvas.Brush.Color := 255;
Control.Canvas.FillRect(Rect);
end;
DrawText(Control.Canvas.Handle, PChar(TPageControl(Control).Pages[TabIndex].Caption),
-1, lpRect, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;


 
ATLANTIDO ©   (2002-04-19 21:22) [10]

Большое спасибо !



Страницы: 1 вся ветка

Текущий архив: 2002.05.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
3-2473
Dorosh
2002-04-10 08:02
2002.05.02
ADOTable (не удается найти строку для обновления)


1-2582
Дмитрий_Ч
2002-04-19 16:55
2002.05.02
Что-то не получается.


3-2479
Vitek_m
2002-04-11 12:09
2002.05.02
DLL + DB


6-2643
SerfX
2002-02-16 14:46
2002.05.02
Какими ф-ми в clx библиотеке можно обратиться к канальному уровню?


14-2660
aus
2002-03-26 22:19
2002.05.02
Редактирование анкеты