Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schwedenbitter,
14. Sep 2013
Dein Hinweis brachte mich aber auf die richtige Spur!
Es liegt am FontStyle, der aus unerfindlichen Gründen nicht (zurückgesetzt?) wird. Unerfindlich deshalb, weil er durch den Code - für mich ersichtlich - überhaupt nicht angefasst wurde. Folgender Code funktioniert jetzt bei mir jedenfalls:Procedure ...
Var
tmpRect : TRect;
iWidth, i : Integer;
tmpTextOut : String;
begin...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schwedenbitter,
14. Sep 2013
Erstmal Danke für die Antwort. Wenn ich das richtig verstanden habe, hätte dann folgender Code das Problem beseitigen müssen:Procedure ...
Var
tmpRect : TRect;
iWidth, i : Integer;
tmpTextOut : String;
Begin
If (SubItem = 2) Then
Begin
tmpRect:=Item.DisplayRect(drBounds);
If (cdsFocused In State) And (cdsSelected In State) Then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Schwedenbitter,
14. Sep 2013
Ich bitte gleich um Entschuldigung, dass ich dieses Thema wieder aufwärmen muss:
Der Code funktioniert tatsächlich prima. Allerdings hat er - zumindest bei mir - "Nebenwirkungen". Die Zeichen aller Spalten nach der zu versternenden Spalte werden mit fehlerhafter Schriftart/Größe dargestellt. Ich habe dazu mal ein Bild angefügt.
Gibt es dafür auch noch eine Lösung?
Gruß, Alex