Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by idontknow,
2. Nov 2020
Nach langem Rumgefummel und erfolglosem googeln habe ich die Lösung selbst rausgefunden, vielleicht hilft es ja jemandem mit demselben Problem in Zukunft:
Die ScrollBox ruft, getriggert durch Skalieren ihres Inhalts, TScrollBox.OnCalcContentBounds() auf.
Mit
procedure TForm1.FormCreate(Sender: TObject);
begin
ScrollBox1.OnCalcContentBounds := CalcContentBounds;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by idontknow,
2. Nov 2020
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:
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);
...