VCL-Styles bei Delphi 10.4

[michiww]

Hi miteinander,

ich hab gestern Abend Delphi 10.4 mit Patch 1,2,3 deinstalliert und Delphi 10.4.1 installiert.
Problem ist weg, alles geht mit den Styles wie zuvor mit 10.3

LG Michi

[TurboMagic]

Super!

[t2000]

Ich häng mich hier mal dran.
Ich habe einen fast identischen Fehler.

Beim Setzen des Styles eine Exception. Aber das genaue Umfeld ist jetzt hier nicht so wichtig.
Abstürzen tut das Programm an dieser Stelle in der Datei ...21.0\source\vcl\StyleAPI.inc Zeile 10948

neuste Version: Delphi 10.4.1 inkl. Patches

Dort ist eine solche Abfrage:

if StyleObject <> nil then
begin
... mach was
end
else
StyleObject.Draw( ...) !!! Das Objekt ist doch NIL !!

Hier der Original Sourcecode

Delphi-Quellcode:

  if StyleObject <> nil then
  begin
    StyleObject.Active := kwdsActive in AWindow.State;
    StyleObject.BoundsRect := AWindow.Rect;
    if (ADPI > DPI_DEFAULT) and (AObject = 'Title') then
    begin
      StyleObject := StyleObject.FindObjectByName('Image');
      if StyleObject <> nil then
      begin
        StyleObject := StyleObject.FindObjectByName('Title');
        if StyleObject <> nil then
        begin
          R := StyleObject.BoundsRect;
          R.Bottom := MulDiv(AWindow.ClipRect.Bottom, ADPI, DPI_DEFAULT);
          SaveBoundsRect := StyleObject.BoundsRect;
          StyleObject.BoundsRect := R;
          StyleObject.FStopDrawChilds := True;
          if (StyleObject.MarginLeft + StyleObject.MarginRight = 0) or
             (StyleObject.MarginTop + StyleObject.MarginBottom = 0) then
          begin
            Buffer := TBitmap.Create;
            try
              Buffer.SetSize(R.Width, AWindow.ClipRect.Height);
              R := Rect(0, 0, Buffer.Width, Buffer.Height);
              StyleObject.BoundsRect := R;
              StyleObject.Draw(Buffer.Canvas, R);
              R := AWindow.ClipRect;
              R.Bottom := MulDiv(R.Bottom, ADPI, DPI_DEFAULT);
              DrawStretchBitmap(Buffer, Canvas, R);
            finally
              Buffer.Free;
            end;
          end
          else
            StyleObject.Draw(Canvas, R, ADPI);
          StyleObject.FStopDrawChilds := False;
          StyleObject.BoundsRect := SaveBoundsRect;
        end
        else
          StyleObject.Draw(Canvas, AWindow.ClipRect, ADPI);    //  Hier der Absturz. Bzw. steht hier der Cursor bei der Exception, wenn ich "Anhalten" drücke. StyleObject = nil
      end
      else
        StyleObject.Draw(Canvas, AWindow.ClipRect, ADPI);
    end
    else
      StyleObject.Draw(Canvas, AWindow.ClipRect, ADPI);
  end;

Hab ich gerade einen Aussetzer oder läuft hier was falsch.
Es ist ja nicht nur eine Stelle im Sourcecode, die genau so geschrieben ist.

.

[t2000]

Der Auslöser ist gefunden.
In dem Style gibt es nicht den Eintrag: Objects - Form - Image - Title (siehe Bitmap-Stil-Designer)
Diese Feld fehlt bei allen "Windows modern" Stilen. Und die setze ich ein.

Inzwischen kann ich auch zur Laufzeit den Stil nicht mehr wechseln. Bis gestern lief noch alles einwandfrei.
Es laufen alle Stile, die das besagte Feld haben, aber alle anderen nicht. Aber das auch erst seit heute. (habe nur die Mainform ausgetauscht.)
Teste jetzt nochmal ein Mini-Programm.

Aber der merkwürdige Quelltext dort oben ist mir weiterhin suspekt.

[Uwe Raabe]

Der Code ist definitiv falsch und er ist auch erst in 10.4 reingekommen, wo die Styles High-DPI unterstützen. Das ist doch einen QP-Eintrag wert.

[Uwe Raabe]

Und bitte gib den betreffenden Style exakt an. "Windows modern" kommt in einer Standard-Installation offenbar nicht vor.

[KodeZwerg]

Habe mit den rruz style units auch viele Probleme. Da weiß ich nicht mal wo ich anfangen sollte mich zu beschweren... zu viel geht schief bzw an Windows vorbei... was der so alles intercepted... da gestalte ich mir lieber mein eigenes style von Null auf und weiß worauf ich mich einlasse... mfg