aloha
ich habe ein programm in dem ich über ShowModal eine weitere form anzeigen lassen kann...
in dieser form habe ich ein TPageControl... im OnDrawTab ereignis würde ich gern die farben der tab reiter von grau in weiß ändern hierfür verwende ich folgenden source:
Delphi-Quellcode:
With TPageControl(Control).Canvas Do
Begin
Brush.Color := clWhite;
FillRect(Rect);
TabText := TPageControl(Control).Pages[TabIndex].Caption;
With Control.Canvas Do
Begin
APoint.x := (Rect.Right - Rect.Left) Div 2 - TextWidth(TabText) Div 2;
APoint.y := (Rect.Bottom - Rect.Top) Div 2 - TextHeight(TabText) Div 2;
TextRect(Rect, Rect.Left + APoint.x, Rect.Top + APoint.y, TabText);
End;
End;
wenn ich die form dann im programm anzeigen lasse sind die tab reiter immer noch grau...
ich vermute mal das es daran liegt das er nie ins OnDrawTab ereignis kommt, aber ich weiß nicht warum...
hat hier jemand eine idee woran das liegen könnte?