Применение canvas и т.д.

[АлексейАБ]

Здравствуйте

Команды:
.....
MainForm.Canvas.Rectangle(X1,Y1,X2, Y2);
MainForm.Repaint;
написанные обработчике Click кнопки не дают видимого результата.

Команды:
....
MainForm.Canvas.Rectangle(X1,Y1,X2, Y2);

записанные в обработчик события OnPaint ожидаемый результат выдают.

Объясните, пожалуйста, в чем дело?
Спасибо.

[Leo08]

Добавьте к вару юнита

var
oldx1,oldy1,odx2,oldy2:integer;

и напишите такую процедуру:

procedure TMainForm.Draw(X1,Y1,X2,Y2,NewColor:integer);
var
tempcolor:integer;
begin
tempcolor:=Self.Canvas.Pen.Color;
Self.Canvas.Rectangle(oldX1,oldY1,oldX2, oldY2);
Self.Canvas.Pen.Color:=NewColor;
Self.Canvas.Rectangle(X1,Y1,X2, Y2);
oldX1:=X1;
oldY1:=Y1;
oldX2:=X2;
oldY2:=Y2;
Self.Canvas.Pen.Color:=tempcolor;
end;

И через неё рисуйте!

[ReportCube]

// Рисуем на канве
MainForm.Canvas.Rectangle(X1,Y1,X2, Y2);
// Обновляем канву - и затираем Ваш рисунок
MainForm.Repaint;
// Генерируем событие OnPaint

[АлексейАБ]

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

// Рисуем на канве
MainForm.Canvas.Rectangle(X1,Y1,X2, Y2);
// Обновляем канву - и затираем Ваш рисунок
MainForm.Repaint;
// Генерируем событие OnPaint

Дело в том, что я не увидел результата команды
MainForm.Canvas.Rectangle(X1,Y1,X2, Y2).
Предположил, что результат будет виден после
MainForm.Repaint.
По аналогии, с присвоением неких свойств визуальным компонентам. Результат часто можно видеть только после Refresh().

В общем, вопрос остается.
Почему отсутствует видимый результат команды
MainForm.Canvas.Rectangle(X1,Y1,X2, Y2);
выполненной в обработчике ONCLICK кнопки?

Координаты были указаны правильно. Та же команда с теми же параметрами, вызванная в обработчике события ONPAINT формы сработала.

[veniside]

> вопрос остается

ну так вам же написали, что Repaint затирает ваш рисунок, какие ещё вопросы могут быть.

[evg_m]

В общем, вопрос остается.
Почему отсутствует видимый результат команды
MainForm.Canvas.Rectangle(X1,Y1,X2, Y2);
выполненной в обработчике ONCLICK кнопки?

после выполнения этих команд (после клика) система посчитала что неплохо было бы перерисовать форму (например перерисовать вид кнопки нажата/отжата) и соответственно этому отправила сообщение WM_PAINT. Результат восстановлен исходный вид.

[veniside]

> система посчитала

тут прикол в том, что Repaint() вызывает сам программист )

[ReportCube]

При наступлении события OnPaint виден результат команды... Вопрос: почему? Ставим в событие OnPaint точку останова, допустим на Sleep(0), выполняем первую команду и... оказываемся на точке останова... Почему? Смотрим исходники...

[АлексейАБ]

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

после выполнения этих команд (после клика) система посчитала что неплохо было бы перерисовать форму (например перерисовать вид кнопки нажата/отжата) и соответственно этому отправила сообщение WM_PAINT. Результат восстановлен исходный вид.

Теперь понятно в чем дело.
Спасибо огромное!

[АлексейАБ]

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

после выполнения этих команд (после клика) система посчитала что неплохо было бы перерисовать форму (например перерисовать вид кнопки нажата/отжата) и соответственно этому отправила сообщение WM_PAINT. Результат восстановлен исходный вид.

Теперь видимо понятно в чем дело.
Объект Canvas не хранит изображение! Перерисовка формы восстанавливает изображение визуальных компонент на форме потому что эти компоненты фактически прорисовывают себя заново на основе текущих своих свойств. А вот нанесенное на CANVAS изображение не перерисовывается. Следовательно, для видимости рисунка по CANVAS необходимо выполнять рисование в обработчике ONPAINT. Для изменения изображения надо менять описывающие изображение параметры и отправлять WM_PAINT для перерисовки с новыми параметрами.
Спасибо огромное!