Hallo,
Hab eine TPainBox in eine FMX-HD Form gesetzt und darauf im OnMouseDown Event eine Zeichenaktion ausgelöst:
Beim ersten mal speichert er die Mausposition, beim zweiten mal sollte er zeichnen. Unter Windows klappt das ganze ja auch perfekt, aber unter OSX zeichnet er gar nix.
Code:
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
var
pt1 : TPoint;
begin
if not bStartPt then
begin
bStartPt := true;
ptStartPt.X := Round(x);
ptStartPt.Y := Round(Y);
end
else
begin
PaintBox1.BeginUpdate;
PaintBox1.Canvas.BeginScene();
pt1.X := Round(X);
pt1.Y := Round(Y);
Canvas.Stroke.Kind := TBrushKind.bkSolid;
Canvas.Stroke.Color := claRed;
PaintBox1.Canvas.DrawLine(ptStartPt, pt1, 1);
PaintBox1.Canvas.EndScene;
PaintBox1.EndUpdate;
bStartPt := false;
end;
end;