Как писать графический редактор в Delphi 7

[Vladya]

Всем привет! У меня такая проблема, нужно написать графический редактор на подобии паинта, но проблема в том что я никогда раньше даже чуть-чуть не работал с графикой, а надо срочно, так вот о чем я: как написать процедуру что бы на паинт боксе рисовался квадрат, эллипс, ну короче разные фигурки, для линии я как то с горем пополам сделал, а вот на остальное не могу сообразить. Вот то что я написал для линии подскажите как и куда написать для других фигур пожалуйста.

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if SpeedButton1.Down then PaintBox1.Canvas.MoveTo(X, Y);
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if SpeedButton1.Down then PaintBox1.Canvas.LineTo(X, Y);
end;

Да вот еще меня интересует такая вещь: на форуме нашёл пример программы (то что мне нужно) так там для рисования различных фигур использовали какой то Driwing и присваивали ему фигуру которая должна прорисовываться, можете обьяснить что это, этот дривинг, и почему у меня такое не пашет.

Следующая тема с подобным ("Графика в Delphi 7") не несущим смысловой нагрузки названием будет молча удалена

[Роман Радер]

http://www.delphisources.ru/pages/fa...int_brush.html
посмотрите такое

[Vladya]

Дело в том что именно это я и смотрел, только я ж говорю что там все фигуры строятся с помощью какого то Drawing'а а что это такое я не могу въехать...

[Роман Радер]

DrawingTool - это просто флаг - означает какую фигуру сейчас рисуем.
нажали на кнопку "Линии" - DrawingTool стал значением dtLine, и так далее.
Используется при отрисовке - узнаем что именно сейчас рисуем.

[Феска]

Если срочно нужна программка для рисования, могу прислать на мыло мой редактор, однако там все фигуры подгружаются через ddl, если тебе такое подходит, мыло в студию=)

[Vladya]

мне конечно не очень срочно нужно но все же, если можно то скинь посмотрю... я те в личку напишу.

[soonner]

Хм я не пойму почему бы не работать через case и на TImage. Намного удобней.
....Canvas.Ellipse(x0,y0,x1,y1)
....Canvas.Rectangle(x0,y0,x1,y1)
или по кнопками завести переменный типа boolean
и уже на имаге при моусдовн
if paint_krug= true then ....

[Vladya]

Ребята, кто нить мне подскажет как в этом редакторе замутить что бы можно было рисовать все что угодно, ну по типу как в стандартном виндосовском паинте, береш карандаш и рисуеш?
А с фигурами я уже разобрался, спасибо всем большое, за помощь, там оказываеться все просто, и даже очень...

[lexaltd]

var
  Form1: TForm1;
  Flag : boolean = false;
implementation

{$R *.dfm}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Flag := true;
  Image1.Canvas.MoveTo(X, Y);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Flag then
   Image1.Canvas.LineTo(X,Y);
end;

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

[Роман Радер]

Вот, вчера написал статью
http://www.delphisources.ru/pages/ar...-19-03-09.html