UniGui und TShape

[Dumpfbacke]

So mache ich es normal unter Delphi beimTImage

Delphi-Quellcode:

Shape ist ein TShape;

OnMouseDown

Shape.Left := X;
Shape.Top := Y;
Shape.Width := 0;
Shape.Height := 0;

OnMouseMove

Shape.Width := X - Shape.Left;
Shape.Height := Y - Shape.Top;

OnMouseUP
Shape.Width := X - Shape.Left;
Shape.Height := Y - Shape.Top;
Repaint;