Получение ввода от мыши. Рисование в форме

[Татьяна Макеева]

Добрый вечер! Помогите, пожалуйста, выполнить л/р в Delphi:
Напишите код программы, если не сложно)))
Поместить в форму меню Color (на странице Standart Палитры Компонентов есть объект MainMenu) c командами PenColor и BrushColor,
которые будут соответственно изменять цвет пера и кисти с помощью стандартной диалоговой панели (рис. 5.1).image002.jpg
Реализовать рисование так, чтобы по нажатию мыши (щелкая левой кнопкой и, удерживая ее при перемещении мыши по горизонтали и вертикали) рисовалась окружность произвольного радиуса и цвета, а используя туже технологию и удерживая клавишу ALT, можно было рисовать отрезки различной длины и цвета.

[Stilet]

Даю подсказку:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormPaint(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var mp,mr:TPoint; r:double;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  mp.x:=x;mp.y:=y;
  tag:=1;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 mr.x:=x; mr.y:=y;
 Repaint;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //tag:=2;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  if Tag=1 then Canvas.Ellipse(mp.x,mp.y,mr.x,mr.y);
end;

end.

[Татьяна Макеева]

Stilet привет,спасибо за ответ!!! Но, извини за мою наглость, не мог бы ты скинуть полностью проект, просто я "чайник" в данной программе и для меня сложновато самой все сделать))). Спасибо!!!!

[Vanta11a]

Девушка(?), а девушка(?), Вы учитесь или штаны просиживаете? Если первое - делайте сами, выкладывайте наработки, мы поможем с исправлением косяков. Если второе - а не пойти бы Вам во фриланс, оплачивать труд других людей?

[Stilet]

не мог бы ты скинуть полностью проект

Он тебе не поможет
Я в делфи не пишу уже давно. Представленный выше код из Лазаруса, он хоть и схож на 99% с Делфи, но Делфи его не откроет.

Создавать на форме события умеешь? Открывай в инспекторе обьектов вкладку Events и кликай там на событиях что представлены в моем примере - появятся процедуры-пустышки. Их и наполняй по примеру.