Crash beim VCL Stil Wechsel zur Laufzeit

[TurboMagic]

Hallo,

ich konnte jetzt so einen Crash nachstellen. Wenn ich mit der Tastatur in der Listbox navigiere,
wechselt das Fenster auf den dann selektierten Stil.

Anbei ein Stacktrace und wenn ich meine Fehlermeldung wegklicke und danach zum Windows Stil
wechseln will (evtl. aber auch zu anderen), kommt FastMM um die Ecke und hat noch einen ungültigen
Speicherzugriff.

Habe das mal als Textdateien angehängt. Soweit ich das sehe hat es wohl mit dem Tastaturhandling
zu tun und tritt nicht immer gleich auf.

Die FastMM Meldung scheint nur in Verbindung mit dem zurück wechseln auf den Windows Stil per Tastatur aufzutreten,
wenn vorher der andere Crash passiert ist.

Anbei auch ein Screenshot des Dissasemblies wenn der Crash auftritt.

Der Dialog zur Stilwahl hat eine ListBox mit den Stilen drin und die hat nur dieses OnClick Ereignis:

Delphi-Quellcode:

  Application.MainForm.ActiveControl := nil;
  ActiveControl := nil;
  StyleName     := lb_Styles.Items[lb_Styles.ItemIndex];
  Repaint;
  ActiveControl := lb_Styles;

Grüße

TurboMagic

[jaenicke]

Versuche einmal das Setzen des Styles von dem OnClick abzukoppeln:

Delphi-Quellcode:

  TThread.ForceQueue(nil, procedure
    begin
      TStyleManager.TrySetStyle(lb_Styles.Items[lb_Styles.ItemIndex]);
    end);

[TurboMagic]

Zitat:

Zitat von jaenicke (Beitrag 1517317)

Versuche einmal das Setzen des Styles von dem OnClick abzukoppeln:

Delphi-Quellcode:

  TThread.ForceQueue(nil, procedure
    begin
      TStyleManager.TrySetStyle(lb_Styles.Items[lb_Styles.ItemIndex]);
    end);

Danke für den Tipp, ist heute Abend einen Versuch wert!

[TiGü]

Das mit den Repaint sieht komisch aus, brauchst du das zum aktualisieren?

Magst du uns nicht ein kleines Testprogramm stricken und als ZIP-Archiv anhängen?

[TurboMagic]

Zitat:

Zitat von TurboMagic (Beitrag 1517322)

Zitat:

Zitat von jaenicke (Beitrag 1517317)

Versuche einmal das Setzen des Styles von dem OnClick abzukoppeln:

Delphi-Quellcode:

  TThread.ForceQueue(nil, procedure
    begin
      TStyleManager.TrySetStyle(lb_Styles.Items[lb_Styles.ItemIndex]);
    end);

Danke für den Tipp, ist heute Abend einen Versuch wert!

Versuch erstmal am Compiler gescheitert :(
Der sagt E2003 Undeclared identyfier bei TThread.
Ich kann auch nicht Cltr-Click auf ForceQueue machen.
Unit System.CLasses ist aber eingebunden.
Rufe ich das fully quallyfied mittels System-CLasses.TThread auf, meint
der Compiler E2003 zu System, aber Ctrl-Click auf ForceQueue springt zu
deren Implementierung.

Kommentiere ich diese 3 Zeilen aus, gibt's kein Gemecker mehr...

Was nun?

Anbei mal das kleine Testprojekt. Wenn's dumm läuft hab' ich da ein paar Stile reingenommen die
ich aus GetIt nachinstalliert habe, aber über Projektoptionen/Erscheinung kann man beliebige
Stile wählen, das Problem tritt denke ich trotzdem auf.

[mytbo]

Zitat:

Zitat von TurboMagic

Was nun?

Delphi-Quellcode:

const
  WM_FORMSTYLECHANGED = WM_USER + 779;

  Tf_SelectStyle = class(TForm)
  private
    procedure WMFormStyleChanged(var pmvMessage: TMessage);
      message WM_FORMSTYLECHANGED;

procedure Tf_SelectStyle.WMFormStyleChanged(var pmvMessage: TMessage);
begin
  StyleName := lb_Styles.Items[pmvMessage.LParam];
end;

procedure Tf_SelectStyle.lb_StylesClick(Sender: TObject);
begin
  PostMessage(Handle, WM_FORMSTYLECHANGED, 0, lb_Styles.ItemIndex);
end;

Sehen aufgestylte Oberflächen alle so gewöhnungsbedürftig aus? Da bleibe ich lieber bei der Windows Klötzchen-Optik.

Bis bald...
Thomas

[Uwe Raabe]

Zitat:

Zitat von TurboMagic (Beitrag 1517343)

Versuch erstmal am Compiler gescheitert :(
Der sagt E2003 Undeclared identyfier bei TThread.

Anstatt den Code per Copy-Paste aus dem Forum zu nehmen, gib ihn doch besser mal von Hand ein. Manchmal kommt irgendwelcher Müll aus dem Browser. Alternativ kannst du auch die führenden Leerzeichen löschen.

[jaenicke]

Zitat:

Zitat von TurboMagic (Beitrag 1517343)

Der sagt E2003 Undeclared identyfier bei TThread.

Du hast da Leerzeichen, die keine sind. ;-)
Schau mal im Hexeditor:
Anhang 55735

Ach ja, und wegen dem cChangeInThread:
ForceQueue sorgt dafür, dass der Code wie aus einem Thread kommend in die Warteschlange kommt und abgekoppelt abgearbeitet wird, obwohl man schon im Hauptthread ist. Es wird also nichts in einem anderen Thread gemacht.

[himitsu]

Ja, aktuelle Browser (z.B. Firefox) kopieren Tabulatoren und NonBreakingSpaces seit einer Weile nicht mehr als Leerzeichen, sondern als das was sie sind. (obwohl sie immernoch als Leerzeichen im Browser angezeigt werden)

Leider muß das Forum aber die mit diesem Zeichen auffüllen, da der Browser sonst mehrere Leerzeichen wie EINES behandelt und dann die Einrückung hier nicht mehr stimmt.


Bissl blöd das Ganze, wenn man es direkt aus dem Thread kopiert.
Zitieren (nicht absenden) und daraus kopieren geht aber.

Zitat:

Ich kann auch nicht Cltr-Click auf ForceQueue machen.

Natürlich nicht,

Wenn bereits die Klasse/Namespace nicht gefunden wurde, woher soll jemand dann wissen worin ForceQueue gesucht werden soll?

Wenn, dann auf TThread klicken, was aber auch nicht geht weil er kennt es ja nicht.
* z.B. weil die nötige Unit nicht im USES steht
* oder weil durch blöde unsichtbare Sonderzeichen, welche zufällig als "Buchstabe" behandelt werden, es nicht 'TThread' heißt, sondern #160'TThread' und das gibt es natürlich nicht, selbst wenn die vermeintlich richtige Unit eingebunden ist

[TurboMagic]

Zitat:

Zitat von mytbo (Beitrag 1517347)

Zitat:

Zitat von TurboMagic

Was nun?

Sehen aufgestylte Oberflächen alle so gewöhnungsbedürftig aus? Da bleibe ich lieber bei der Windows Klötzchen-Optik.

Bis bald...
Thomas

Die Bemerkung verstehe ich noch nicht ganz, speziell nicht ohne Screenshot.
Von welchem Stil redest du? Hast du verschiedene angeschaut? Was ist daran gewöhnungsbedürftig?

Gräüße
TurboMagic