im TabControl die Buttonfarbe ändern

[SilverMoonGirl]

Hi@ all

mit

Delphi-Quellcode:

 Tabcontrol1.Brush.Color:= clblack;

ändere ich ja schonmal die Farbe, allerdings behalten die Buttons die "Windowsfarbe". :wall:

Ich bin der Meinung, dass man das so

Delphi-Quellcode:

TabControl1.Perform(Botschaft, 0, clBlack);

könnte.

Weiß jemand, welche Botschaft man dazu braucht?

Vielen Dank :)

[Sharky]

Hai silbernes Mondmädchen.

Du könntest auch OwnerDraw := True einstellung dann die Tabs selber zeichnen:

Delphi-Quellcode:

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[TabIndex]);
end;

[SilverMoonGirl]

Super :)
vielen Dank Sharky :) :) :) :)

[toms]

Zitat:

Zitat von Sharky

Hai silbernes Mondmädchen.

Du könntest auch OwnerDraw := True einstellung dann die Tabs selber zeichnen:

Delphi-Quellcode:

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[TabIndex]);
end;

Ist eine einfache Moeglichkeit, wobei das optisch nicht schön aussieht.

[SilverMoonGirl]

Zitat:

Zitat von toms

Ist eine einfache Moeglichkeit, wobei das optisch nicht schön aussieht.

mag sein :wink: , aber erstmal reicht das

[Sharky]

Zitat:

Zitat von toms

Ist eine einfache Moeglichkeit, wobei das optisch nicht schön aussieht.

Hai toms,

lasse mir doch das Vergügen dem silbernen Mond-Mädchen helfen zu können! ****blubb****