Hallo!
Um die tabs vom Pagecontrol einzufärben verwende ich folgenden code (hier im Board gefunden), klappt auch super, nur wenn ich Typisierte Kunstanten verwende Meckert der Compiler.
Was mach ich falsch??
Das alles, weil ich zur Laufzeit die farben durch den anwender ändern lassen möchte.
Delphi-Quellcode:
const
{ hier bekomme ich die Fehlermeldung}
farbe11 :integer=44444;
farbe12 :integer=44444;
farbe13 :integer=44444;
farbe14 :integer=44444;
farbe15 :integer=44444;
Delphi-Quellcode:
const {FUNZT}
farbe11 = 44444;
farbe12 = 44444;
farbe13 = 444487;
farbe14 = 44254;
farbe15 = 44444;
Delphi-Quellcode:
procedure TForm1.PageControlDrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
const
_clTabColors : array [0..4] of TColor = (farbe11,farbe12,farbe13,farbe14,farbe15);
_sTabCaptions : array [0..4] of string = (' Hauptansicht',' Einzelans.- Kunde',' Best. Waren ges.',' Warenlager',' Eigene Umsätze');
begin
Control.Canvas.Brush.Color := _clTabColors[TabIndex];
Control.Canvas.FillRect(Rect);
Control.Canvas.TextOut(Rect.Left+5,Rect.Top+3,_sTabCaptions[TabIndex]);
end;
mfg schniede
[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]