Графика: линия ступенькой

[Danilka]

Здравствуйте!
прошу помочь с сабжем. чтобы было понятней о чем речь:


желательно чтобы во время рисования этой линии бегала за курсором пока не произойдет событие MouseUp (как в паинте при рисовании линии)
сижу уже 2й день и ничего не получается =( выкладывать то что уже написал не буду, тк там ничего толком и нет

ЗЫ если есть пример програмки с исходником поделитесь ею со мной плз или мануалом

[BOBAH13]

Mouse Move событие > Get Mouse Position -> расчет целевого пикселя -> отрисовка нужным цветом

[Danilka]

Сообщение от BOBAH13

Mouse Move событие > Get Mouse Position -> расчет целевого пикселя -> отрисовка нужным цветом

Кэп, я немного другое прошу. я знаю что весь раcчет координат происходит в процедуре события MouseMove...

Перечитайте мой пост еще раз

[_SERGEYX_]

Если не ошибаюсь, в Demo-примерах Delphi есть исходник (кажется, называется Graphex). Посмотри там как линия рисуется.

[ImmortalAlexSan]

Кэп, я немного другое прошу. я знаю что весь рачет координат происходит в процедуре события MouseMove...

Перечитайте мой пост еще раз

Вы прочитали только первую фразу из поста Вована13? Там все понятно написано... при передвижении мыши рассчитываете координату курсора, когда кнопку отпускаете, то у вас уже есть начальная координата и конечная, имея эти координаты, легко построить прямую линию по алгоритму Брезенхэма... http://ru.wikipedia.org/wiki/Алгоритм_Брезенхема Можно и канвасом и LineTo.

[Danilka]

Сообщение от _SERGEYX_

Если не ошибаюсь, в Demo-примерах Delphi есть исходник (кажется, называется Graphex). Посмотри там как линия рисуется.

к сожалению в моей версии нет такого исходника =( но всеравно спасибо

Вы прочитали только первую фразу из поста Вована13? Там все понятно написано... при передвижении мыши рассчитываете координату курсора, когда кнопку отпускаете, то у вас уже есть начальная координата и конечная, имея эти координаты, легко построить прямую линию по алгоритму Брезенхэма...

желательно чтобы во время рисования этой линии бегала за курсором пока не произойдет событие MouseUp (как в паинте при рисовании линии)

вы разницу чувствуете между тем что я прошу и что советуете вы? то что советуете вы я и так с легкостью смогу сделать. но мне нужно чтобы было видно как эта линия будет выглядеть после MouseUp.

а за ссылку на алгоритм огромное спасибо

[x128]

как-то так:

var
  Draw: boolean;
  p1,p2: TPoint;
...
procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Draw:=true;
  p1:=Point(X, Y);
  p2:=p1;
  with Canvas do begin
    Pen.Color:=Color;
    Pen.Mode:=pmXor;
    MoveTo(p1.X, p1.Y);
    LineTo(p2.X, p2.Y);
  end;
end;

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if not Draw then exit;
  with Canvas do begin
    MoveTo(p1.X, p1.Y);
    LineTo(p2.X, p2.Y);
    p2:=Point(X, Y);
    MoveTo(p1.X, p1.Y);
    LineTo(p2.X, p2.Y);
  end;
end;

procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Draw:=false;
  with Canvas do begin
    MoveTo(p1.X, p1.Y);
    LineTo(p2.X, p2.Y);
    Pen.Color:=clBlack;
    Pen.Mode:=pmCopy;
    MoveTo(p1.X, p1.Y);
    LineTo(X, Y);
  end;
end;

[Danilka]

x128, спасибо. но это немного не то

[Selestis]

Заменить в предыдущем коде в OnMouseMove:

  if not Draw then exit;
  Refresh;
  with Canvas do begin
    MoveTo(p1.X, p1.Y);
    LineTo((p2.X+p1.X)div 2 , p1.Y);
    LineTo((p2.X+p1.X)div 2 , p2.Y);
    LineTo(p2.X, p2.Y);
    p2:=Point(X,Y);
  end;

[ImmortalAlexSan]

Вот почти самый примитивный вариант

unit Unit1;

interface

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

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

type
  Tf3p=array [0..2] of byte;
  Pf3p=^Tf3p;

var
  Form1: TForm1;
  MDown:Boolean;
  StartXY,EndXY:TPoint;
  Fillings:TRect;
  aBMP,ebmp:TBitmap;
  f3p,f3p2:Pf3p;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Fillings.Left:=0;
  Fillings.Top:=0;
  Fillings.Right:=Form1.Width;
  Fillings.Bottom:=Form1.Height;
  aBMP:=TBitmap.Create;
  ebmp:=TBitmap.Create;
  abmp.PixelFormat:=pf24bit;
  ebmp.PixelFormat:=pf24bit;
  aBmp.Width:=Form1.Width;
  aBMp.Height:=Form1.Height;
  eBmp.Width:=Form1.Width;
  eBMp.Height:=Form1.Height;
  eBMP.Canvas.Brush.Color:=Form1.Color;
  eBMP.Canvas.FillRect(Fillings);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  MDown:=true;
  StartXY.X:=X;
  StartXY.Y:=Y;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var
  i,j:Integer;
begin
  aBMP.Canvas.MoveTo(StartXY.X,StartXY.Y);
  if MDown then
  begin
    aBMP.Canvas.Brush.Color:=Form1.Color;
    aBMP.Canvas.FillRect(Fillings);
    aBMP.Canvas.Brush.Color:=clBlack;
    aBMP.Canvas.LineTo(X,Y);
    for i:=0 to pred(ebmp.Height) do
    begin
      f3p:=ebmp.ScanLine[i];
      f3p2:=abmp.ScanLine[i];
      for j:=0 to pred(ebmp.Width) do
      begin
        if f3p^[0]=0 then
        begin
          f3p2[0]:=0;
          f3p2[1]:=0;
          f3p2[2]:=0;
        end;
        if j<pred(ebmp.Width) then
        begin
          inc(f3p);
          inc(f3p2);
        end;
      end;
    end;
    Form1.Canvas.CopyRect(Fillings,abmp.Canvas,Fillings);
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
i,j:Integer;
begin
  MDown:=false;
  for i:=0 to pred(ebmp.Height) do
  begin
    f3p:=ebmp.ScanLine[i];
    f3p2:=abmp.ScanLine[i];
    for j:=0 to pred(ebmp.Width) do
    begin
      if f3p2^[0]=0 then
      begin
        f3p[0]:=0;
        f3p[1]:=0;
        f3p[2]:=0;
      end;
      if j<pred(ebmp.Width) then
      begin
        inc(f3p);
        inc(f3p2);
      end;
    end;
  end;
  Form1.Canvas.CopyRect(Fillings,ebmp.Canvas,Fillings);
end;


begin
  MDown:=false;
end.

Делает то что вам надо. Вам осталось только скопировать и вставить вместо вашего проекта всё это.