Invalidate, Repaint, Refresh, Update, Paint... ?

[Medium]

Ich hab bislang keine eingebaute Lösung dafür gefunden (weder in Delphi noch der WinAPI), und habe mir nun mit einem kleinen "Hack" geholfen. Für den Fall dass es mal jemand brauchen kann:

Delphi-Quellcode:

procedure TMyGraphObject.RepaintOverlapping;
var
  i, selfIndex: Integer;
  Bottom, Right: Integer;
  PBottom, PRight: Integer;
begin
  Bottom := Top+Height;
  Right  := Left+Width;
  selfIndex := High(Integer);
  for i := 0 to Parent.ControlCount-1 do
  begin
    PBottom := Parent.Controls[i].Top+Parent.Controls[i].Height;
    PRight  := Parent.Controls[i].Left+Parent.Controls[i].Width;
    if ((Bottom >= Parent.Controls[i].Top) and (Top <= PBottom) and
      (Right >= Parent.Controls[i].Left) and (Left <= PRight)) then
    begin
      if (Parent.Controls[i] = self) then selfIndex := i;
      if (i>selfIndex) and (Parent.Controls[i].Visible) then
        TMyGraphObject(Parent.Controls[i]).Paint;
    end;
  end;
end;

Das rufe ich nun nach jedem Paint innerhalb meiner Komponente auf. Es jodelt durch alle Komponenten des Parents, und veranlasst ein Neuzeichnen überlappender Controls wenn diese sichtbar sichtbar sind, und in der Z-Order über dem eigenen liegen.
Der "Hack" hierbei besteht in dem harten Cast auf TMyGraphObject. Da Paint protected ist, und ein Repaint das selbe Problem hervorruft wie oben beschrieben, nötige ich zum Aufruf von Paint. Das klappt weil Paint virtuell ist, und eigentlich sollte diese Methode wohl jede visuelle Komponente implementieren. Wenn es mal eine nicht tut knallt es natürlich, aber was nutzt eine Kompo ohne Darstellung - und sei es nur das Designtime-Icon

Das klappt natürlich nicht mehr, wenn eine "dritte Schicht" dazu kommt und die "zweite Schicht" eine fremde Kompo ist, die dies so nicht implementiert hat. Kommt in meinem Fall jedoch nicht vor, daher bleibt das mal offen. Auch mit teildurchsichtigen Controls wird es Probleme geben, so diese sich nicht hart über Regions begrenzen (im Falle von WinControls - GraphicControls wie TLabel mit Transparent = true sind da z.B. unproblematisch).

Schönen Gruß,
Medium

Edit: Hmm, okay. So ganz rund ist das echt nicht, da damit u.U. trotzdem die Darstellung nicht mehr der Z-Order entspricht. Das zu Lösen würde entweder eine Endlosschleife oder doch wieder einen verhältnismäßig aufwendigen Prozess nach sich ziehen, in dem zunächst erst alle potenziell betroffenen Controls gesammelt werden müssten, und dann anhand ihrer Z-Order neugezeichnet. Fies ist, dass man sich durch entsprechende Überlappungsketten ganz schöne Rattenschwänze an Graphen einhandeln kann
Für meine Anwendung ist das nicht weiter schlimm, aber SO allgemeingültig ist o.g. Workaround dann wohl leider nicht.