Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by extrem,
29. Jul 2008
Du könntest dich damit behelfen, dass du bei den SubItems dahinter den TBrush oder TFont kurz änderst und dann gleich wieder zurücksetzt. Dann ist die fette Schrift auch weg (siehe Anhang).
Bei mir ging es auch mit bsSolid.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by extrem,
28. Jul 2008
Du könntest ansonsten auch das Ereignis onAdvancedCustomDrawSubItem anstatt onCustomDrawSubItem verwenden, da hast du dann wenigstens nicht die Probleme mit dem fetten Text und der falschen Darstellung.
Da hast du aber auch in jeder Spalte DefaultDraw auf False gesetzt, auch in denen du das Rechteck nicht zeichnen möchtest oder nicht?
Nicht der erste Beitrag solcher Art von ihm :stupid:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by extrem,
27. Jul 2008
Für die erste 3 brauchst du doch eigentlich nicht auf dem TCanvas zeichnen, sondern nur die Farbe vom Hintergrund ändern.
if SubItem = 4 then
Sender.Canvas.Brush.Color:= clBlue
else
Sender.Canvas.Brush.Color:= graphics.clBtnHighlight
Nur beim 4. Beispiel müsstest du wegen dem Rahmen auf dem TCanvas zeichnen. Außerdem müsstest du doch auch dann die Subitems abfragen und je nach...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by extrem,
27. Jul 2008
Welche Delphiversion hast du?
Das Phänomen tritt anscheinend nur bei Versionen kleiner Delphi 10 auf, wenn man versucht auf dem Canvas des TListView zu zeichnen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by extrem,
25. Jul 2008
Eine Möglichkeit wäre mit ListView_GetSubItemRect.
...
var
SubItemRect: TRect;
begin
if CommCtrl.ListView_GetSubItemRect(Sender.Handle, item.Index, 1, LVIR_LABEL, @SubItemRect) then
...