Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.01.01;
Скачать: [xml.tar.bz2];

Вниз

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

 
Eric   (2005-12-14 08:29) [0]

Уважаемые,мастера.
Скажите, как перерисовать TabControl в зависимости,
если все в стиле FlatButtons, когда нажата кнопка, то эта кнопка
перерисосывает шрифт жирным, а не нажатые - остаются с нормальным
стилем шрифта.

Я пытался сделать, но не совсем знаю как.

procedure TMain_f.TabsDrawTab(Control: TCustomTabControl;
 TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
 AText: string;
 r:Trect;
begin
with Control.Canvas do
begin
Control.Canvas.Brush.Color:=clbtnface;
Control.Canvas.FillRect(rect);
AText:=TTabControl(Control).Tabs[TabIndex];
{textout(rect.Left+2,rect.Top+2,atext);  }
end;
with (Control as TCustomTabControl).Canvas do
begin
AText:=TTabControl(Control).Tabs[TabIndex];
(Control as TCustomTabControl).Canvas.Font.Style:=[];
textout(rect.Left+2,rect.Top+2,atext);    
DrawTextEx(Control.Canvas.Handle, pchar(Atext),
  length(atext), r, DT_WORD_ELLIPSIS, nil);
end;
if TabIndex < Tabs.Tabs.Count then
if Active = true then
if (Control as TCustomTabControl).Focused = true then
begin
if Application.MainForm.MDIChildCount > 0 then
AText:=TTabControl(Control).Tabs[TabIndex];
with (Control as TCustomTabControl).Canvas do
begin
(Control as TCustomTabControl).Canvas.Font.Style:=[fsbold];
AText:=TTabControl(Control).Tabs[TabIndex];
textout(rect.Left+2,rect.Top+2,atext);
DrawTextEx(Control.Canvas.Handle, pchar(Atext),
length(atext), r, DT_WORD_ELLIPSIS, nil);
end;
end;


 
umbra ©   (2005-12-14 10:11) [1]

а чего добиться то надо?


 
Eric   (2005-12-14 20:55) [2]

надо чтобы нажатое состояние для одного tab выделяло кнопку жирным,
а для остальных tab кнопки в ненажатом состоянии были с обыкновенным шрифтом,
как в 1С Бухгалтерии.



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

Форум: "Начинающим";
Текущий архив: 2006.01.01;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.012 c
5-1120549619
Mutex
2005-07-05 11:46
2006.01.01
Найти название свойства для csSubComponent через OpenToolsAPI


14-1134077651
Вовяик
2005-12-09 00:34
2006.01.01
FastReport 2.4


2-1134482574
Катерина
2005-12-13 17:02
2006.01.01
Небольшая проблемка с функцией.


14-1133774290
REA
2005-12-05 12:18
2006.01.01
Семинар D2006


1-1133450767
Creater
2005-12-01 18:26
2006.01.01
Есть ли MS Access





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский