Draw to a persistent TBitmap and in the OnPaint event just draw this Bitmap:

MyFormOnCreate:
being
  MyBitmap := TBitmap.Create;
  // set bitmap size
end

MyFormDoWhatever:
begin
  //Paint to MyBitmap.Canvas
end

MyFormOrControlOnPaint:
begin
  Canvas.Draw(0, 0, MyBitmap);
end

Hope it's clear enough.

-- 
Felipe Monteiro de Carvalho

--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to