TListView.Color Bug?

[himitsu]

Jupp, WM_STYLECHANGED gehört zu SetWindowLong für GWL_STYLE und GWL_EXSTYLE.

Was im Windows den Delphi-Styles ähnlich kommt, sind die Themes, also eher WM_THEMECHANGED, aber da VCL-Style eher was Eigenes ist, hilft es diesbezüglich nicht.
Diesbezüglich schaue man in die Winapi.UxTheme rein.

VCL-Style siehe Vcl.Themes und Vcl.Styles
dort mal nach Register und Notification umschauen (z.B. TStyleEngineNotification) und die "message" an Methoden dort,
oder eben da reinsehen, wo man den Style umschaltet, denn wenn/falls da was gemacht wird, dann findet man es da

Delphi-Quellcode:

procedure TStyleManager.SetStyle(Style: TCustomStyleServices);
...
begin
  ...
    for I := 0 to Screen.FormCount - 1 do
      if Screen.Forms[I].HandleAllocated then
        if IsWindowVisible(Screen.Forms[I].Handle) then
          PostMessage(Screen.Forms[I].Handle, CM_CUSTOMSTYLECHANGED, 0, 0)
        else
          SendMessage(Screen.Forms[I].Handle, CM_CUSTOMSTYLECHANGED, 0, 0);

Und natürlich kannst du auch die WndProc deiner Komponente und der Form überschreiben und schauen, welche Messages beim Ändern des Styles dort ankommen.

TApplicationEvents.OnMessage liefert nur PostMessage und PostThreadMessage. SendMessage wird direkt verarbeitet und nicht rausgegeben. (bissl blöd, denn siehe den Code da oben )
Dafür muß man die gewünschte Klasse hooken (z.B. indem man sich in WndProc reinhängt), oder einen globalen MessageHook registrieren.

[BigAl]

Hallo himutsu,

danke für Deine ausführliche Antwort. Das hilft mir auf jeden Fall und ich werde da bei Gelegenheit nochmal forschen!

Mit den Styles hatte / habe ich noch Kämpfe an anderen Fronten. Z.B. sorge ich dafür, dass ActiveControl des Hauptformulars nil ist ehe ich den Style wechsle. Ansonsten gibt's manchmal Exceptions. Dann habe ich ein paar Styles die auch nicht so stabil sind wie andere (alle original Emba). Aber optisch finde ich sie halt schon recht cool...

[TurboMagic]

Was bedeutet nicht so stabil? Abstürze oder Darstellungsfehler? Und die Exception wenn MainForm.ActiveControl nicht nil ist, hast du da Mal in QP nachgeschaut ob das schon erfasst ist? Falls nicht bitte erfassen und hier die Report Nummer melden, ich bin an dem Absturz auch interessiert.

[BigAl]

Zitat von TurboMagic:

Was bedeutet nicht so stabil? Abstürze oder Darstellungsfehler? Und die Exception wenn MainForm.ActiveControl nicht nil ist, hast du da Mal in QP nachgeschaut ob das schon erfasst ist? Falls nicht bitte erfassen und hier die Report Nummer melden, ich bin an dem Absturz auch interessiert.

Ja, manche Styles neigen eher zu exceptions als andere. Aber grundsätzlich laufen die Styles noch nicht so stabil wie sie sollten. Speziell wenn zur Laufzeit der Style umgeschaltet wurde kommt es immer mal wieder zu Exceptions. Ich habe eben einen Kandidaten, welchen ich nun schon öfter hatte, im QP reported (RSP-38928). Das Problem dabei ist, dass die Fehler nicht immer auftreten und daher nicht reproduzierbar sind

Das mit dem "ActiveControl := nil;" hängt wohl damit zusammen, dass beim Umschalten der Styles einiges neu initialisiert wird. Formualare erhalten neue Handles usw. Wird nach dem Umschalten dann versucht alles wieder so aufzubauen wie es war knallt es gerne - auch nicht immer. Dabei kommt dann "Cannot focus a diasabled or invissible control" oder so ähnlich...