Was bewirkt dieser Code in der Prozedur ListViewAdvancedCustomDrawSubItem?

[Popov]

Hier ein Beispiel das ich in einem Unterverzeichnis fand. Das hat irgendwer geschrieben und anscheinend habe ich es mal genutzt. Es geht um das Zeichnen in ListView Zellen. Jetzt habe ich es wiedergefunden und verstehe zwei Zeilen nicht. Zuerst der Code

Delphi-Quellcode:

procedure TForm1.ListView1AdvancedCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
var
  R: TRect;
begin
  if Stage = cdPrePaint then
    case SubItem of
      1:
      begin
        DefaultDraw:= false;
        CommCtrl.ListView_GetSubItemRect(Sender.Handle, Item.Index, SubItem, LVIR_BOUNDS, @R);
        Sender.Canvas.Brush.Color := clRed;
        Sender.Canvas.Rectangle(r.Left + 20 + Item.Index* 10, r.Top + 2, r.Right, r.Bottom - 2);
      end;
      2..10:
      begin
        Sender.Canvas.Brush.Color:= Sender.Canvas.Brush.Color + 1;
        Sender.Canvas.Brush.Color:= Sender.Canvas.Brush.Color - 1;
      end;
    end;
end;

Den Sinn verstehe ich nicht bei:

Delphi-Quellcode:

        Sender.Canvas.Brush.Color:= Sender.Canvas.Brush.Color + 1;
        Sender.Canvas.Brush.Color:= Sender.Canvas.Brush.Color - 1;

Ich weiß was es bewirkt. Ohne die Zeilen wird der Canvas, also Font und Farben für die nachfolgenden SubItems verändert. Mit den Zeilen bleiben die Einstellungen bestehen.

Was bewirken also diese Zeilen nun intern?

[DeddyH]

Das kann ich mir nur so erklären, dass aus irgendwelchen Gründen der Setter von TBrush.Color durchlaufen werden soll.

[mkinzler]

Da hoffen wir mal nicht, dass dann irgendwann eine Optimierung im Compiler kommt, welche die beiden Zeilen dann wegoptimiert ;)

[himitsu]

Vielleicht wusste da jemand nicht, wie man ein Repaint auslöst?

Oftmals werden Zuweisungen ignoriert, wenn der Wert gleich ist. [edit] siehe DeddyH
Und der Code ändert den Farbwert mal ganz kurz, ein winziges bissl.

[DeddyH]

Das ist dann Pech. Ich habe vor einiger Zeit einen Source von mir aus 1999 gefunden, da hatte ich auch so eine bekloppte Zeile drin, weil ich mir damals nicht anders zu helfen wusste.

[himitsu]

Ach was, das schafft der nie. Er optimiert ja nichtmal ein

Delphi-Quellcode:

if i = 0 then ;

weg. :stupid:

[mkinzler]

Aber vielleicht der next-next gen

[himitsu]

Ist das nicht der Gedankengesteuerte, der das macht, was man wirklich will und nicht was man sich denkt wie es gemacht werden soll?

[mkinzler]

Nein der, der genau das macht, wass er nicht soll :stupid:

[Daniel]

Bei der Menge an Code, die hinter TBrush.SetColor() hängt, kann man nichts wegoptimieren. Zumindest nicht allein auf Basis der o.g. zwei Zeilen.