ListView-Eintrag wird bei Windows 7 schwarz

[Deep-Sea]

Zitat von Bummi:

mit Deinem ursprünglichen Code und Ownerdraw=true sieht es bai mir aber halbwegs brauchbar aus, auch ohne zusätzlicuen Code.

Sofern man keine SubItems nutzt, denn diese werden dann nicht mehr automatisch gezeichnet.

[Deep-Sea]

So, noch mal ein kleiner push ...
Vielleicht hat ja heute jemand einen Geistesblitz?!
Denn der Fehler ist doof und alles selber Zeichnen ist auch net schön ...

[ChrisE]

Hallo,

versuch doch mal bitte folgendes:

Delphi-Quellcode:

procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
var
  lv: TListView;
  ACanvas: TCanvas;
begin
  if (Sender is TListView) and (Stage = cdPostPaint) then
  begin
    lv := Sender as TListView;
    ACanvas := TCanvas.Create;
    ACanvas.Handle := GetWindowDC(Item.Handle);
    try
      Button1.PaintTo(ACanvas, lv.Columns[0].Width, Item.DisplayRect(drBounds).Top);
    finally
      ReleaseDC(Item.Handle, ACanvas.Handle);
      ACanvas.Free;
    end;
  end;
end;

Funktioniert bei mir. Aber eben nur unter D2007 und Vista ohne Groups.

Greez, Chris

[Deep-Sea]

Wenn man einen TControlCanvas nimmt klappt es wunderbar (sonst gibt es Grafikfehler etc.). DoubleBuffered kann man dann zwar nicht mehr benutzen aber das ist erst mal egal.
Danke

[ChrisE]

Hallo,

ich hole diesen Thread nochmal hoch. Ich habe ganz konkret dieses Problem (also von diesem Thread) und brauch aber DoubleBuffered.

Das Problem ist: Reagiert man auf OnAdvancedDrawItem und OnAdvancedDrawSubItem (OwnerDraw = FALSE) um quasi noch etwas zu ergänzen, dann bekommt man diesen Schwarz-Effekt, sobald man auf die Canvas von Listview zeichnet. Zeichnet man auf eine ACanvas deren Handle man per GetWindowDC holt, wird die Zeichenaktion nicht / selten sichtbar.
Es muss irgendetwas mit dem DoubleBuffered-Mechanismus zu tun haben - aber da steig ich irgendwie nicht durch

Kennt jemand eine Lösung?

Gruß, Chris

P.S.: System Win 7 / Applikation mit Themes

[CCRDude]

Wenn ich jetzt sage, daß ich das Problem auch schon hatte, aber irgendwie gelöst habe, ohne mich daran erinnern zu können, hilft das auch nicht weiter, oder?

Also habe ich nochmal gesucht und den von mir gefundenen Workaround im Embarcadero-Forum gefunden

Auch wenn der Schwarz-Effekt dort nicht explizit steht, mit SetBkMode plus Font-Anpassung waren bei mir beide Probleme verschwunden.

[ChrisE]

Hallo,

danke, das hat geklappt.

Gruß, Chris