[Delphi] Zakładki w komponencie TPageControl (ich kolor)

0

Jak w temacie tyle że konkretnie to chodzi mi o kolor samej zakladki a nie tla miejsca gdzie umieszcza sie komponenty.

Jeżeli trzeba korzystać z innego komponentu to prosze o podanie komponentów tylko zgodnych zarówno z windowsem jak i linuxem.

0

OwnerDraw

0

Może coś wiecej. Albo przykład.

0

Czytałeś moją wypowiedź w poscie Lofixa??
http://4programmers.net/Forum/viewtopic.php?id=39079
Wiecej to jest w artykule o OwnerDraw.

Możesz też poszukać na Torry komponentów.

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
Var P:Tpoint;
begin
Control.Canvas.Brush.Color:=clRed;
Control.Canvas.FillRect(Rect);
If Active Then P:=Point(4,2) Else P:=Point(5,3);
Control.Canvas.Textout(Rect.Left+P.X,Rect.Top+P.Y,PageControl1.ActivePage.Caption);end;
end.

0

Tak czytalem i zwyczajnie sie spiesze i nie chcialo mi sie szukac.

[dopisane]
Znalazlem to, ale problem w tym, że u mnie nie było od początku tego zdarzenia więc zrobiłem własny komponent. Jak go trochę dopracuję to może wrzucę go na serwer 4P.

1 użytkowników online, w tym zalogowanych: 0, gości: 1