paintbox

[steck]

Всем привет,такая штука,,на paintbox'е вирисовывается скажем некая картинка,но после перерисовки картинка исчезает,,как зделать так что-бы она не исчезала?

[_Dmitry]

Использовать вместо PaintBox Image

[mihali4]

Например:

procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1.Canvas do
begin
Brush.Color:=clGray; //задаем цвет фона
FillRect(ClipRect); //заливаем фон
Pen.Color:=clRed; //задаем цвет кисти для рисования линии
Pen.Width:=3; //ширина линии
MoveTo(10,10); //начальная точка
LineTo(100,30); //конечная точка
end;
end;

[AlDelta]

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

Всем привет,такая штука,,на paintbox'е вирисовывается скажем некая картинка,но после перерисовки картинка исчезает,,как зделать так что-бы она не исчезала?

Перерисовка несколько отличается от понятия "рисование". Когда окну необходимо перерисоваться, то Windows посылает определённое сообщение. Это сообщение поступает в обработчик Событие "OnPaint". Любой код, который поместить в обработчик OnPaint будет вызван каждый раз, когда форме необходимо обновиться.

Помести отрисовку своего рисунка в OnPaint PaintBox'a и все будет в лучшем виде.

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

[steck]

с onpaint непойдёт,в моей проге короче нужно нарисовать фигуру,,т.е. используются обработчики ommousedown,up,move ,,,и как тут использовать онпаинт...может ещё что есть??

[mihali4]

А чем не устраивает имеющийся в комплекте дельфи пример?
Borland\Delphi7\Demos\Doc\Graphex
Или привыкли ждать, чтобы добрый дядя за вас все искал?