Einzelnen Beitrag anzeigen

idontknow

Registriert seit: 21. Apr 2008
Ort: Schleswig-Holstein
60 Beiträge
 
Delphi 11 Alexandria
 
#1

Firemonkey: Scrollbox mit skaliertem Inhalt (Paintbox)

  Alt 2. Nov 2020, 12:58
Hallo Community,

ich stehe gerade etwas auf dem Schlauch. Ich habe ein FMX-Projekt mit einer Scrollbox, in der eine Paintbox liegt (1000 x 1000 Pixel).
In die Paintbox male ich ein Rechteck und ein Kreuz:

Delphi-Quellcode:
procedure TForm1.PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
begin
  Canvas.Stroke.Kind := TBrushKind.Solid;
  Canvas.DrawRect(RectF(10, 10, 990, 990), 0.0, 0.0, [], 1.0);
  Canvas.DrawLine(PointF(10, 10), PointF(990, 990), 1.0);
  Canvas.DrawLine(PointF(10, 990), PointF(990, 10), 1.0);
end;
Das ist nach dem Start sichtbar und kann prima gescrollt werden. Jetzt skaliere ich den Inhalt, indem ich

PaintBox1.Scale.Point := PointF(2.0, 2.0); ausführe. Prima. Der Inhalt wird doppelt so groß, die Scrollbars verändern sich jedoch nicht und ich kann nur noch bis zur Mitte scrollen.

Das geht doch aber sicher irgendwie, oder?

Ich hoffe, jemand hat einen Tipp für mich, schon mal vielen Dank im voraus...
Oliver

Geändert von idontknow ( 2. Nov 2020 um 12:59 Uhr) Grund: Firemonkey in Überschrift nachgetragen
  Mit Zitat antworten Zitat