Forum: Win32/Win64 API (native code)
Delphi
by Sharky,
27. Jan 2005
Hai toms,
lasse mir doch das Vergügen dem silbernen Mond-Mädchen helfen zu können! :kugelhai:
Forum: Win32/Win64 API (native code)
Delphi
by Sharky,
27. Jan 2005
Hai silbernes Mondmädchen.
Du könntest auch OwnerDraw := True einstellung dann die Tabs selber zeichnen:
procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
Control.Canvas.Brush.Color := clGreen;
Control.Canvas.FillRect(Rect);
Control.Canvas.TextOut(rect.Left+2,Rect.Top+2,TabControl1.Tabs);
end;