Tokyo, Android, TViewPort3D => Black Screen

[Rollo62]

Versuche doch mal mit deiner Orginalfunktion (die ja MakeScreensot entspricht)
die Scalings und Rect Width/Height von Hand anzupassen.
Ich hatte damals ähnliche Probleme, nicht mit 3D, aber auch da musste ich iOS und Android von Hand anpassen bis PaintTo und Bitmap richtig gepasst haben.

Delphi-Quellcode:

function TControl.MakeScreenshot: TBitmap;
var
  SceneScale: Single;
begin
  if Scene <> nil then
    SceneScale := Scene.GetSceneScale
  else
    SceneScale := 1;
  Result := TBitmap.Create(Round(Width * SceneScale), Round(Height * SceneScale));
  Result.BitmapScale := SceneScale;
  Result.Clear(0);
  if Result.Canvas.BeginScene then
  try
    PaintTo(Result.Canvas, TRectF.Create(0, 0, Result.Width / SceneScale, Result.Height / SceneScale));
  finally
    Result.Canvas.EndScene;
  end;
end;

Ich stelle übrigens bei mir mit Entsetzen beim Debuggen in iOS fest das mein Modul in FMC.Contols out-of-sync ist, also die blauen Breakpointpunkte passen nicht zum Code.
Ich habe aber nichts geändert/kompiliert, etc., nur das letzte Hotfix eingespielt.
Muss ich checken, ist das bei dir womöglich auch so ?

Rollo

[Der schöne Günther]

Zitat von Rollo62:

Ich stelle übrigens bei mir mit Entsetzen beim Debuggen in iOS fest das mein Modul in FMC.Contols out-of-sync ist, also die blauen Breakpointpunkte passen nicht zum Code.
Ich habe aber nichts geändert/kompiliert, etc., nur das letzte Hotfix eingespielt.

Ich habe die ganzen Hotfixes nicht verfolgt, aber wenn ich das richtig sehe:

Zitat:

Note: For Update Subscription customers, we have also updated the library source code of the units touched by this patch which you can access in an additional optional download.

(Quelle: http://cc.embarcadero.com/item/30781)


Ob es das ist?

[Rollo62]

Hallo Günther,

ja das hatte ich vor dem Einspielen auch gelesen (und wieder verdrängt) ...
Könnte sein, aber warum liefern die dann nicht die aktuellen Sources mit aus ?

Zu dem 3D-Problem:
Ich weiss nicht genau was das passieren soll, jedenfalls ist das 3D Bild unten abgeschnitten.
Es sieht bei mir so aus als wäre der Viewport nach oben verschoben.

Vielleicht versuchst du mal das Ganze in ein Layout zu legen, mit Align = Client.

Jedenfalls scheint der Makescreenshot zu funktionieren (schwer zu sagen weil das Viewport abgeschnitten ist).
Aber das Bmp hat den ganzen Sphere drin, also mehr als ich im Phone Display sehen kann.

Rollo

[CHackbart]

Ich habe angefangen die Tabcontrol zu entfernen. War sowieso eine blöde Idee das alles in einem Form zu machen. Ich hoffe danach geht es bei mir, aber ich denke der Bug liegt in der Tabcontrol. Ich hab mit Winmerge mal die TViewport3D mit der von Berlin verglichen und außer der Zeile mit dem Copyright wurde da nix geändert.

[Rollo62]

Habs nochmal probiert, mit TLayout als Zwischenschicht und die Spere.Align = Client.
Macht mit dem TLayout direkt unter der Form als auch im TTabItem das was ich erwarten würde.
Ich bleibe dabei, ich denke die Darstellungsfehler kommen von dem Align.Top.
Im linken Bild wird eine kleine Version (je nachdem wie der Splitter steht) gezeichnet.

Rollo