Rysowanie

0

Chciałbym, żeby narysować kółko tak jak w Windosowskim Paint-cie.
Da sie tak zrobić w Delphi ??

0

%Delphi%\Demos\Doc\Graphex oraz Canvas.Ellipse+F1

0

var down, up : TPoint;

on mouse down :
down.x := X;
down.y := Y;

on mouse up :
up.x := X;
up.y := Y;

canvas.Ellipse(rect(down,up));

// no i Dryo jak zwykle prędzej.. ;)

1 użytkowników online, w tym zalogowanych: 0, gości: 1