Помогите кто-нибудь сделать правельной прорисовку изображения, иначе когда запускаеш программу и если провести другим окошком по ней всё исчезает.
Ето всё пишется вот сдесь
procedure TForm1.PaintBoxPaint(Sender: TObject);
begin
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.CopyMode:=cmSrcAnd;
Canvas.CopyRect(Image.BoundsRect,Image.Canvas,Image.ClientRect);
end;
И добавь перед
Application.ProcessMessages; // даем поработать другим
следующую строку:
FormPaint(Sender);