TPaintBox in OSX

[maxbafh]

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;

[Bernhard Geyer]

Du solltest mit Invalidate und das Zeichen in der entsprechenden Paint-Routine machen.

Das es unter Windows funktioniert ist ehr nur der "Tolleranz" manchmal was zu machen was eigentlich so nicht richtig ist geschultet.

[maxbafh]

Zitat von Bernhard Geyer:

Du solltest mit Invalidate und das Zeichen in der entsprechenden Paint-Routine machen.

Das es unter Windows funktioniert ist ehr nur der "Tolleranz" manchmal was zu machen was eigentlich so nicht richtig ist geschultet.

Okay, bin bis jetzt also immer der Tolleranz von Windows zum opfer gefallen. Danke.

[TiGü]

Tolleranz <> Toleranz