Controls im PageControl verschwinden unkontrolliert

[Adrian Z.]

Ich habe das VCLFixPack 1.2 gefunden und als Unit eingebunden. Leider wird das Problem dadurch noch nicht behoben.
Oder muss ich das IDEFixpack nehmen. Aber das ist doch gar nicht für D2005, oder? Außerdem stand da, dass es die eigenen Projekte nicht verändert.

Was kann ich noch tun?

[jbg]

Folgender Code muss in Controls.pas::TWinControl.WndProc nach dem "inherited WndProc(Message);" Aufruf.

Delphi-Quellcode:

if Message.Msg = WM_UPDATEUISTATE then
  Invalidate; // Ensure control is repainted

[himitsu]

Da es etwas "schwer" ist, die VCL-Cuellcodes zu ändern, könnte man es auch so versuchen:

Delphi-Quellcode:

uses Controls;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
  C: TWinControl;
begin
  if Msg.message = WM_UPDATEUISTATE then begin
    C := FindControl(Msg.hwnd);
    if Assigned(C) then
      C.Invalidate;
  end;
end;

Application.OnMessage := ApplicationEvents1Message;
// Wenn schon vorhanden, dann TApplicationEvents auf die Form pappen und dort OnMessage verwenden
// Auf einer Form reicht, da es für alle Controls verwendet wird.

Aber es könnte auch sein, daß es so zu früh ausgelöst wird ... wenn's nicht klappt, dann würd ich da noch was dran verändern.

[Adrian Z.]

Danke für eure Mühen.
Ich verzweifel langsam.

Die procedure von himitsu wird bei mir zwar aufgerufen, allerdings ist die Message nie WM_UPDATEUISTATE.
Dadurch wird invalidate nicht aufgerufen und die Controls bleiben verschollen. Die Controls.pas kann ich leider nicht ändern, da ich D2005 Personal habe und da sind ja nur die dcu's und nicht die pas-Dateien enthalten.

Noch Ideen?

[Aphton]

Ich bin auch an der Lösung dieses Problems interessiert, da dass nicht nur bei (sehr viel) älteren Delphi Versionen vorhanden ist!

[jbg]

Zitat von Aphton:

Ich bin auch an der Lösung dieses Problems interessiert

Das Abfangen von WM_UPDATEUISTATE, das die VCL sich selbst schickt (der Code fehlt noch oben) ist eigentlich nichts anderes als ein Workaround für ein viel tiefer liegendes Theming Problem. Ich bin gerade dabei zu analsysien, warum alle nicht-Delphi Programme mit CheckBoxen keine Probleme habe. Und meine ersten Nachforschungen ergeben, dass TButtonControl.CNCtlColorStatic die CheckBoxen übermalt, und Windows nur die Unterstriche zeichnet, womit vom Control nicht viel übrig bleibt.
Das ganze Problem beginnt aber schon in TWinControl.DefaultHandler, bei dem CN_CTLCOLORMSGBOX..CN_CTLCOLORSTATIC die Hintergrundfarbe auf den Brush ändern, was bei nicht-gethemeten Anwendungen in Ordnung ist, aber Windows weiß bei gethemeten Anwendungen besser, was wie zu zeichnen ist als die VCL.

[Gollum]

Hallo,

hier der entsprechende QC-Eintrag bei Emba.

Um Dein beschriebenes Problem zu lösen, gibt es hier einen Workaround.