Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c