Графический редактор

[mopmuk]

Подскажите пл3, как решить такую проблему:
Имеем простенькую рисовалку растровых изображений. При прорисовке изображения из памяти в PaintBox за фигурой (эллипс или прямоугольник, не важно какая) остается след, если использовать в памяти 2 изображения, то всё норм, но мне так нельзя делать.
Препод сказал, что надо в процедуре MouseMove брать только координаты будущей фигуры, а процедуре OnPaint уже рисовать, я что-то запутался, помогите плиз всё это реализовать.

Исходники естессно вот.

[Stilet]

Хм... Я бы на твоем месте делал бы по другому...
Создал бы массив в который вписывал элементы которые рисую, а потом бы по данным из этогомассива отрисовывал сами элементы, без всякого второго изображения.
Но раз уж хозяин - барин то могу предложить что-то типа:
Создай переменки:

  public           oldxy,oldxy0:TPoint;

которые будут хранить координаты старого эллипса пока мышка нажата
Далее перед отрисовкой эллипса рисуй элиипс цветом фона в этих координатах:

...
        sEllipse:begin
         if dwn then begin
                img.Canvas.Pen.Color:=clWhite;
                Img.Canvas.Ellipse(oldxy0.X,oldxy0.y,oldxy.X,oldxy.y);
                img.Canvas.Pen.Color:=clBlack;
                Img.Canvas.Ellipse(x0,y0,x,y);
         end;
                 end;
    end;
     if dwn then begin
       oldxy.X:=x;            oldxy.Y:=y;
       oldxy0.X:=x0;            oldxy0.Y:=y0;
     end else begin
       oldxy.X:=0;            oldxy.Y:=0;
       oldxy0.X:=0;            oldxy0.Y:=0;
     end;

Естесственно это нуждается в доработке.

В догонку на засыпку прикладываю свой вариант рисовалки:

unit Unit1;

interface

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

type
 Tfigure=record
  name:string;
  a,b:TPoint;
 end;
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    PaintBox1: TPaintBox;
    procedure PaintBox1Paint(Sender: TObject);
    procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public   fig:array of Tfigure;  figa:Tfigure;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PaintBox1Paint(Sender: TObject);
var i:integer;
begin
 PaintBox1.Canvas.Brush.Style:=bsClear;
 for i:=low(fig) to high(fig) do begin
  if fig[i].name='e' then   PaintBox1.Canvas.Ellipse(fig[i].a.X,fig[i].a.y,fig[i].b.X,fig[i].b.y);
  if fig[i].name='r' then   PaintBox1.Canvas.Rectangle(fig[i].a.X,fig[i].a.y,fig[i].b.X,fig[i].b.y);
  if fig[i].name='l' then begin
    PaintBox1.Canvas.MoveTo(fig[i].a.X,fig[i].a.y);
    PaintBox1.Canvas.LineTo(fig[i].b.X,fig[i].b.y);
  end
 end;
  if figa.name='e' then   PaintBox1.Canvas.Ellipse(figa.a.X,figa.a.y,figa.b.X,figa.b.y);
  if figa.name='r' then   PaintBox1.Canvas.Rectangle(figa.a.X,figa.a.y,figa.b.X,figa.b.y);
  if figa.name='l' then begin
    PaintBox1.Canvas.MoveTo(figa.a.X,figa.a.y);
    PaintBox1.Canvas.LineTo(figa.b.X,figa.b.y);
  end

end;

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Form1.Tag:=1;
 case RadioGroup1.ItemIndex of
   0:figa.name:='e' ;   1:figa.name:='r'; 2:figa.name:='l';
 end;
 figa.a.X:=x;figa.a.Y:=y;
end;

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Form1.Tag:=0;
  Setlength(fig,length(fig)+1);
  fig[high(fig)]:=figa;
  PaintBox1.Repaint;
end;

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Form1.Tag=1 then begin
  // figa.name:='e';
   figa.b.X:=x;figa.b.Y:=y;
   PaintBox1.Repaint;
  end;
end;

end.

Можешь его за основу взять

[mopmuk]

может я чего то недопонял, но получилось тоже самое что и у меня, попробуйте рисовать белым цветом...

мне весь код уже изменять нельзя, так что Ваш код я использовать не могу.

[Stilet]

но получилось тоже самое что и у меня, попробуйте рисовать белым цветом...

Ты избрал тернии. Механизм твоей стратегии не то что не оптимален но и весьмя сложен. Именно поэтому я предложил более простой путь, который специально Дядьки из Борланда упростили.

Я не вижу другого выходя для тебя кроме как при изменении габаритов эллипса (когда ты мышкой двинул) зарисовывать предидущий эллипс цветом фона, а для этого нужно хранить предидущие координаты отрисовки.
Но можешь мне поверить - такая разработка будущего не имеет, если это прихоть твоего преподавателя то учти что в дальнейшем он тебя ничему хорошему не научит, особенно учитывая то что ты рисуя фмгуру затираешь часть уже имеющихся рисункой на канве. Так ни один графический редактор не работает.

Препод сказал, что надо в процедуре MouseMove брать только координаты будущей фигуры

Покажи мой пример преподу, думаю он именно так имел ввиду, а ты просто его недопонял.

[mopmuk]

скорей всего я что-то недопонял, всеравно, большое спасибо за совет
просто я стал писать прогу, мало что зная о делфи...я писал так, как понимал весь алгоритм рисования) извините уж, я только учусь)))