Problem mit FMX.TImage

[Kai_in_HH]

Guten Abend zusammen,

ich arbeite mich gerade in die Erstellung "geräteunabhängiger Anwendungen" ein um am Ende mal eine Android App erstellen zu können. Soweit klappt das auch recht gut, aber die Komponenten TImage (Firemonkey, nicht VCL) gibt mir dann doch Rätsel auf.

Ich habe in meinem Form ein TImage mit 337 Höhe und 329 Breite.

Wenn ich nun aber zwei Punkte definiere und eine Linie zeichne, erscheint das "Gemalte" unglaublich gezoomt.

Delphi-Quellcode:

  Image1.Bitmap.Canvas.BeginScene;
  p1 := TPointF.Create(1,1);
  p2 := TPointF.Create(10,1);
  Image1.Bitmap.Canvas.DrawLine(p1, p2, 1);
  p1 := TPointF.Create(30,30);
  p2 := TPointF.Create(30,100);
  Image1.Bitmap.Canvas.DrawLine(p1, p2, 1);

Obiger Code gibt mir zwei Linien aus und die zweite dürfte niemals über die Mitte hinaus gehen. Tut sie aber, wie man am Bild sieht.


Ich habe schon http://docwiki.embarcadero.com/ durchgewühlt, finde aber keinen Ansatz dafür.

Vermutlich irgendein Denkfehler meinerseits (da neu in Firemonkey).

Danke schon mal.

Kai

[Rollo62]

Es gibt verschiedene Scales im FMX System (ohne jetzt exakt recherchiert zu haben, um diese Zeit).
SceneScale
CanvasScale
BitmapScale

Die stehen heutzutage auch x2 bis x3 bei den hochauflösenden Displays (Retina).
Das muss man mit berücksichtigen, da solltest Du mal suchen.

FMX arbeitet auch mit MultiResolutionBitmaps, bei denen mehrere Bitmaps für ein Bild verwendet werden,
und das passende wir je nach Größe verwendet.
So kann FMX von 640x480 bis 8K Alles abdecken.
Das Thema Bitmaps ist jedenfalls nicht trivial, und unterscheidet sich deutlich von VCL.

[Harry Stahl]

wie groß ist denn Dein Bitmap? Wenn TImage und Bitmap unerschiedliche Ausmaße haben und Image z.B. auf stretched steht, dann kann sowas durchaus so wie gezeigt aussehen.

[Kai_in_HH]

Danke für die bisherigen Antworten.

Eins vorweg

Zitat von Rollo62:

Es gibt verschiedene Scales im FMX System (ohne jetzt exakt recherchiert zu haben, um diese Zeit).
Das Thema Bitmaps ist jedenfalls nicht trivial, und unterscheidet sich deutlich von VCL.

...ja, das merke ich gerade auch.

Was gestern bzw. heute passiert ist zeigt übrigens, dass das ein Layer-8-Problem war.

Auf meinem Desktop funktioniert alles astrein.
Aber mein Tablet mit einer Wahnsinnsauflösung hat in der Anzeigeneinstellung "Skalierung 200%". Ups.....und schon haben wir den Salat.....

Was also das Thema mit der Skalierungen anbelangt, da werde ich mich wohl erst noch reinfuchsen müssen.

Hat da jemand irgendwo eine gute Einführung im Internet gesehen?

[Kai_in_HH]

Sodale, so weit (vermutlich nicht nur) mich Firemonkey nervt....ich habe es hinbekommen.

Meine App läuft unter Windows auf dem Desktop und dem Tablet jetzt richtig (ja, die Skalierung ist es) und sogar nach dem Umstellen auf Android auf meinem S10+.

Dazu ermittel ich die Skalierung vom OS, skaliere meine TImage-Instanz entsprechend im Form und leite auch einen Faktor davon ab, mit dem ich dann hinterher im Image male.

Meine Übungsanwendung ist der Klassiker: Biorhythmusberechnung.

Anbei mal mein Code mit Kommentaren an den entsprechenden Stellen.

Es funktioniert wie gesagt unter Win10 als auch Android, aber ich weiß nicht, ob das der richtige Weg ist.

[Rollo62]

Richtig, bei mir sieht es ähnlich aus
Wollte immer mal richtig aufräumen.

Du könntest versuchen am TBitmap.BitmapScale zu drehen,
vieleicht bekommst Du es ja abgestimmt.

Ich habe am Ende noch Text mit Matrix skalieren müssen, nur schonmal als Vorwarnung,
aber es gibt da mittlerweile ein paar Dinge die es leichter machen können.
Wie gesagt, Aufräumen vs. NeverChangeRunningSystem ...

[Kai_in_HH]

Dummerweise sagt docwiki.embarcadero nichts darüber.

Also mal ausprobiert und .... äh .... ja ne is klar. Wieso nicht gleich so?

Also in meinem Programm nehme ich ja die Screenskalierung (bei meinem Tablet 200%, Wert ist 2) und für die Bitmapskalierung rechne 1 / 2 = 0,5.
Meine Grafik, von der vorher nur der obere linke Quadrant zu sehen war (also doppelt so groß und hoch als ich es will), wird dann richtig angezeigt, wenn ich in den Formeln diesen Faktor (0,5) mit hinzuziehe.

Nehme ich den Faktor raus und verwende dafür BitmapScale, setze die Property schlicht und einfach 1 kommt es auch richtig.

Ich vermute also, dass der Wert BitmapScale aussagt in welchem Verhältnis die Bitmap innerhalb des TImage "gezoomt" werden soll. Aber eben nur gültig für Windows.

Bei Android? Vergiss es.
Hier muss mein alter Faktor in den Berechnungen immer noch vorher berechnet und gesetzt werden.

Also mal ganz ehrlich, was ist denn das für ein Mist! Da macht doch die geräteübergreifende Entwicklung keinen Spaß mehr.
Von einem Framework erwarte ich, dass es mir genau diese Pixelschubserei abnimmt.

Aber nein, da muss ich folgenden Code einbauen (anstatt einer IfDef-Orgie)

Delphi-Quellcode:

case TOSVersion.Platform of
  pfWindows: Begin
    Image1.Bitmap.BitmapScale := 1;
    PaintingScale := 1;
  End;
  pfAndroid: Begin
    PaintingScale := 1 / ScreenScaling;
  End;
end;

Zwei mal kompilieren muss ich ja sowieso, aber dann auch noch Gedanken machen müssen über Bildschirmauflösung, Skalierung etc.....ne ne ne.

Oh, wie einfach war da (ca 1986) noch die Programmierung mit TurboPascal für Windows 1.0 (ja, sogar da war ich schon bei Borland, war der erste Supporter dafür) unter Win 3.11.....OK, man musste alle Fensterhandles selber erzeugen und hatte ne Menge Pointer-Gefriggel....aber man wusste wenigstens was passiert.
Hier mit FMX weiß man vorher ja nicht mehr was passiert und wo ist denn da die Erleichterung? Boah ey...ich bin zu alt für so ne Scheiße.

Sorry, aber jetzt gehts mir besser.

Und ich werde weiter mit D10.3 und FMX rumspielen.
Und weiterhin nicht jugendfreie verbale Auswürfe von mir geben....

[Rollo62]

Das Gute ist, man muss es nur einmal fixen bis es läuft wie gewünscht, danach geht es dann auch.