FMX: Wann wird ein Style geladen? / Tests für FMX-Workarounds

[Der schöne Günther]

Ich habe mit FMX noch keine Erfahrung. Ich möchte ein Memo-Feld mit der gleichen Hintergrundfarbe wie das Formular darstellen.

Der einzige Weg den ich gefunden habe ist über das OnApplyStyleLookup -Event:

Delphi-Quellcode:

procedure TTextBox.MemoApplyStyleLookup(Sender: TObject);
var
   styleObj: TActiveStyleObject;
begin
   styleObj := (Sender as TControl).FindStyleResource('background') as TActiveStyleObject;
   if not Assigned(memoStyleSource) then
      memoStyleSource := styleObj.Source;

   if isReadOnly then
      styleObj.Source := nil
   else
      styleObj.Source := memoStyleSource;
end;

Da mir niemand garantiert dass Embarcadero z.B. "background" eines Tages nicht mal umbenennt wollte ich einen Test dafür schreiben. Wenn ich in einem DUnit-Testprogramm ein FMX.Memo.TMemo erstelle liefert FindStyleResource(..) nach dem Erstellen des Memos immer nil . Ich kann das Ding auch repainten wie ich will, das OnApplyStyleLookup wird nie aufgerufen.

Wie kann ich das richtig testen?

[Rollo62]

Bin gerade unterwegs,kann nicht selber nachsehen.
Hat das Memo ein ApplyStyleLookuphttp://docwiki.embarcadero.com/Libra...plyStyleLookup vorher aufzurufen .

[Harry Stahl]

Also hier- auch unter Seattle - findet FindStyleResource das Object.

Hast Du evtl. etwas an den Namen der Styleresource im Style-Editor geändert?

ApplyStyleLookUp wird nur einmal zum Programmstart aufgerufen oder wenn Du später einen anderen Style lädst.

Den direkten Aufruf von

styleObj := (Sender as TControl).FindStyleResource('background') as TActiveStyleObject; halte ich mit dem sofortigen Cast auf TActiveStyleobject für problematisch, würde das gefundene Control immer zuerst mit "is" prüfen...

Ansonsten: Lad ein Beispiel hier hoch, sonst können wir nur raten warum es hier, aber nicht bei Dir funktioniert...

[Der schöne Günther]

Richtig, hier ein komplettes Beispiel:

https://gist.github.com/JensMertelme...0d6c75523b6f92

Im Endeffekt ist es nur ein DUnit-Projekt in welchem ich ein FMX-Formular anlege:

Delphi-Quellcode:

   testForm := TForm.CreateNew(nil);
   TStyleManager.UpdateScenes();

.

Mein Memo lege ich einfach an mit TMemo.Create(testForm) und die Geschichte mit dem background/ActiveStyleObject:

Delphi-Quellcode:

procedure TestTextBox.TestBackgroundStyle();
var
   obj: TFmxObject;
begin
   cut.Parent := testForm;
   cut.ApplyStyleLookup();
   obj := cut.FindStyleResource('background');
   CheckNotNull(obj);
   CheckIs(obj, TActiveStyleObject);
end;

Was soll man sagen? Es funktioniert, danke für den Tipp mit TStyleManager.UpdateScenes();


Es verbleiben zwei Problem:

Die DUnit-Testanwendung stürzt beim Schließen mit einem Runtime-Error 216 ab. Da macht es keinen Unterschied ob es eine DUnit-Konsolenanwendung oder mit grafischer Oberfläche ist. Im Degbugger sieht man dass er bei der Finalisierung der Unit FMX.Forms abstürzt wenn er TStyleManager.UnInitialize() aufruft. Habe ich hier noch etwas vergessen?
(Kompletter Stack)


Der zweite Punkt ist dass ich beim Erzeugen des Projekts nun immer folgende Warnungen bekomme:

Code:

[dcc32 Hinweis] H2161 Warning: Duplicate resource:  Type 12 (CURSOR GROUP), ID 32761; File c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\release\FMX.Controls.Win.res resource kept; file c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\release\controls.res resource discarded.
[dcc32 Hinweis] H2161 Warning: Duplicate resource:  Type 12 (CURSOR GROUP), ID 32762; File c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\release\FMX.Controls.Win.res resource kept; file c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\release\controls.res resource discarded.
[dcc32 Hinweis] H2161 Warning: Duplicate resource:  Type 12 (CURSOR GROUP), ID 32763; File c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\release\FMX.Controls.Win.res resource kept; file c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\release\controls.res resource discarded.
[dcc32 Hinweis] H2161 Warning: Duplicate resource:  Type 12 (CURSOR GROUP), ID 32766; File c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\release\FMX.Controls.Win.res resource kept; file c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\release\controls.res resource discarded.
[dcc32 Hinweis] H2161 Warning: Duplicate resource:  Type 12 (CURSOR GROUP), ID 32767; File c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\release\FMX.Controls.Win.res resource kept; file c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\release\controls.res resource discarded.

Was muss ich hier tun?