Tabcontrol farver

slå Ownerdraw til True og under DrawTab eventen skriver du:

Control.Canvas.Brush.Style := bsSolid;
Control.Canvas.Brush.Color := clGreen;
Control.Canvas.FillRect(Rect);

Hey Shafh,
det er ikke overdrevet svært

Mirakelkuren hedder OwnerDraw

Har kodet et lille eksempel på brugen af det, skriv endeligt hvis det ikke er nok

TabControl.OwnerDraw:= True;

procedure TabControlDrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  case TabIndex of
    0: Control.Canvas.Brush.Color:= ClRed;
    1: Control.Canvas.Brush.Color:= ClWhite;
    2: Control.Canvas.Brush.Color:= ClGreen;
    3: Control.Canvas.Brush.Color:= CLInfoBk;
  end;
  Control.Canvas.FillRect(rect);
  Control.Canvas.TextOut(Rect.Left,Rect.Top,TabControl.Tabs.Strings[TabIndex]);
end;

Koden kan også findes her
http://peecee.dk/?id=42576

Hej Ken...

ved du hvad man gør hvis der ikke er Ownerdraw i componenten?

Hey Morten,
hvilken udgave af Delphi bruger du?

Der er ownerdraw muligheder i stort set alle standard controls, da de nedstammer fra Windows' Controls som indeholder ownerdraw

jeg bruger Delphi 6 PE...

og hvordan kan jeg fx. ændre en button?

Det er faktisk et ret godt spørgsmål,
har aldrig rigtig tænkt på det..

hmm, men der må findes en måde. evt. kan du jo skrive dit eget komponent

det er det jeg er i gang med

jeg tilføjer Office 2007 style til stadard komponenterne, men ikke alle har Ownerdraw så det er lidt svært.

http://udvikleren.dk/Thread.aspx?f=2&t=16772&tech=2


Håber du kan hjælpe lidt mere ud fra min kode selv om det er med ownerdraw

Får denne fejl hved at gøre som ken og morten siger:
[Error] Unit1.pas(236): There is no overloaded version of 'Rect' that can be called with these arguments

Får denne fejl hved at gøre som ken og morten siger:
[Error] Unit1.pas(236): There is no overloaded version of 'Rect' that can be called with these arguments

Kan du ikke poste koden direkte her?
Har du prøvet at downloade mit eksempel via linket?
Hvilken Delphi udgave bruger du?

Hmm fedt. Nu har jeg fået det til at virke. Hved ikke lige hvad fejlen var. Men brugte eksemplet

Men som du nok har set i dit eksempel står teksten pludselig helt oppe i toppen i venstre side. Det er selvfølgelig ikke meningen. Nogen der hved hvordan jeg bør ordne det problem?

Ja det farvede tabben, men ville enlig også gerne havde farvet baggrunden, men det har jeg fundet ud af. Der skulle du bare skifte bgen på det der er under kompoet!