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...