Два вопроса новичка по графике.

[grey]

1.Если рисовать прямо на форме, то после перекрытия окна программы другим окном, нарисованное пропадает, это происходит из-за обновления окна.
Как раз этим свойством я и хочу воспользоваться.(Хочу реализовать прохождение пунктирной линии поверх изображения Image).
Можно ли нажатием кнопки вызвать обновление окна?

2. (Не знаю, реально ли это) Возможно, ли зная координаты Y, узнать координаты X уже нарисованной на Image линии?

[AlDelta]

1. http://programmersforum.ru/showthrea...%E8%E5+OnPaint смотри пост №4

2. Может и возможно, я об этом ничего не знаю. Но скорее всего нет.

[grey]

Спасибо.

2. Может и возможно, я об этом ничего не знаю. Но скорее всего нет.

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

[bill]

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

2. (Не знаю, реально ли это) Возможно, ли зная координаты Y, узнать координаты X уже нарисованной на Image линии?

Думаю можно. Надо будет тока попиксельно все смотреть. Цвета пикселей там сравнивать.

[Alex21]

Случайно не этот принцип нужен?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    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);

  private
    { Private declarations }
    procedure XORLine;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  X,Y,x0,y0,lx,ly:integer;

implementation

{$R *.dfm}

procedure TForm1.XORLine;
begin
  Form1.Canvas.MoveTo(x0,y0);
  Form1.Canvas.LineTo(lx,ly);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Color:=clWhite;
  Form1.Canvas.Pen.Color:=clRed;
  Form1.Canvas.Pen.Width:=3;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Form1.Tag:=1;
  x0:=X;
  y0:=Y;
  lx:=X;
  ly:=Y;
    //Form1.Canvas.Pen.Color:=clRed;
    Randomize;
    Form1.Canvas.Pen.Color:=RGB(Random(256),Random(256),Random(256));
  Form1.Canvas.Pen.Mode:=pmNotXor;
  XORLine;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then begin
    XORLine;
    lx:=X;
    ly:=Y;

    XORLine;
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Form1.Canvas.Pen.Mode:=pmCopy;
  Form1.Canvas.MoveTo(x0,y0);
  Form1.Canvas.LineTo(X,Y);
end;

end.

[grey]

Случайно не этот принцип нужен?

Спасибо, я уже "выкрутился", дело в том, что график рисую я сам, просто теперь заношу необходимые данные в переменные во время построения.
Думаю, что не стоит усложнять там, где и так не очень разбираюсь.

Но вот по первому вопросу я так и не догнал. По ссылке от AlDelta проходил:

1. http://programmersforum.ru/showthrea...EE%E1%FB%F2%E8 %E5+OnPaint смотри пост №4

Тут почти слово в слово написано, что и вот здесь:
GDI: графика в Delphi - Часть I.
Но как это на практике сделать?, опыта нехватает.
Как при нажатии на кнопку вызвать обновление окна?

[AlDelta]

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Canvas.Brush.Color:=clYellow;
Form1.Canvas.Rectangle(10,10,200,200);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Refresh;
end;

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

[grey]

Если я правильно тебя понял ...

oK.
Просто два дня бьюсь: необходимо вывести движущуюся по нажатию кнопки пунктирную линию поверх Image1. Чего только на чего не накладывал. Стираю линию - стирается или перекрашивается график и на Image.

Подошло. Спасибо :)