Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
3-2443
Бульбаш
2002-04-05 19:22
2002.05.02
Как заполнить список ListBox-а значениями двух полей...???


7-2690
saviola
2002-02-06 16:24
2002.05.02
Как узнать название мамки


3-2483
Arril
2002-04-11 00:42
2002.05.02
Глюки с LoginPromt?


6-2633
VID
2002-02-16 19:30
2002.05.02
Отлов появления коннекта


6-2638
cypher
2002-02-19 00:49
2002.05.02
HOST - IP





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский