Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by madtom,
6. Mai 2011
Hallo Z4ppy,
schau mal: http://www.delphipraxis.net/118613-tabcontrol-mit-ownerdraw-klappt-nicht-unter-vista-64-bit.html
ich habe ein 32bit Window 7. Vielleicht liegt es daran.
Gruß Thomas :-D
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by madtom,
6. Mai 2011
Hallo Z4ppy,
ich bin dann auch mit meinem Latein am Ende. Bei mir hatte alles auf Anhieb geklappt: Neues Projekt, OwnerDraw auf True, den obigen Code reinkopiert... und FARBIG. Fängst Du irgendwo im Programm Botschaften ab, so daß bei Control nichts ankommt?
Thomas :)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by madtom,
6. Mai 2011
Hallo Z4ppy,
Hast Du die Eigenschaft "OwnerDraw" der Komponente auf True gesetzt? Sonst kann natürlich OnDrawTab nicht funtionieren.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by madtom,
6. Mai 2011
Hallo Z4ppy,
hast Du den Code mal ausprobiert? Ich habe es getestet und der Text wird in meinem Falle weiß auf Maroon ausgegeben. Warum Dein OnDrawTab Ereignis nicht ausgelöst
wird, kann ich aber auch nur mutmaßen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by madtom,
6. Mai 2011
Hallo,
folgender Code sollte den Zweck erfüllen:
(Quelle: http://www.delphi-treff.de/)
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
CaptionX: Integer;