Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
2. Aug 2005
Welche 4 Tabs?
Das Ereigniss OnDrawTab wir für jedes vorhandene Tab aufgerufen (egal wie viele es gibt). Über Aktive prüfe ich ob das eben zu zeichnende Tab das aktive ist.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
2. Aug 2005
Hmmm... bei mir geht es.
Aber mal eine andere Frage ;-)
Wenn ich mir die Farben ansehe die Du haben möchtest so sieht das ganz nach einem XP-Style aus. Wenn es also auf einem XP-System so aussehen soll binde doch einfach ein XP-Manifest ein.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
2. Aug 2005
Hau Sascha,
dieser Code sollte die Tabs so einfärben wie Du es möchtest:
procedure TForm1.FormCreate(Sender: TObject);
begin
PageControl1.OwnerDraw := True;
end;
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;