Рисование эллипса удержанием кнопки на любом месте TImage

Posted by obzor under Delphi

Мне нужно нарисовать эллипс на TImage.
Проблема в том,что мне нужно сделать так,чтобы эллипс рисовался удержанием кнопки на любом месте TImage.

newerow1989

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x0,y0,x1,y1:integer;
  Down:boolean;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Down:=true;
   x0:=X;
   y0:=Y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   If Down then
   begin
      Image1.Canvas.Pen.Color:=clWhite;
      Image1.Canvas.Ellipse(x0,y0,x1,y1);
      x1:=X;
      y1:=Y;
      Image1.Canvas.Pen.Color:=clBlack;
      Image1.Canvas.Ellipse(x0,y0,x1,y1);
   end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Down:=false;
end;

begin
   Down:=false;
end.

тема на форуме

Похожие статьи

• Перенести программу из Delphi в Lazarus
• Компонент ShortPathEdit в lazarus
• Определить количество заданных точек (x,y)
• Открыть указанную папку в проводнике
• Выгрузить данные из DBGrid в txt-файл
• Заливка замкнутого контура, как в Paint
• Вращение шестиугольника в Делфи 7
• Нарисовать стрелку на Делфи
• Удаление записей из таблицы в Lazarus-е
• Закруглить углы image