Tegn i Canvas ved OnCreate?

Hej Tokelil´

da du alligevel tegner direkte på en canvas skal du også selv holde den opdateret ....

Derfir vil jeg anbefale dig at ekklære en Bitmap af Typen TBitmap privat i din form oog så gøre sådan her :

procedure TForm1.FormCreate(Sender: TObject);
begin
  BitMap:=TBitMap.Create;
  BitMap.LoadFromFile(\'Task.bmp\');
Canvas.Brush.Color := clBlack;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  Rect : TRect;
begin
  Rect := GetClientRect;
  StretchBlt(Canvas.Handle,0,0,Width,Height,Bitmap.Canvas.Handle,0,0,Bitmap.Width, Bitmap.Height,SRCCOPY);
  InvalidateRect(Handle,@Rect,False);
end;


Et bedere og nemmer forslga vil være at bruge et TImage komponent. Sætte det på din form, bede det om at fylde hele formem (align to client), og loade dit billede der ind i (dobbelt click på komponentet), der efter sætter du stretch til true og vupti så er det i luften.

Jens B

Hmmm.. Har vidst droppet det med at tegne på formen igen! Der er vidst lidt lettere med TImage komponenten, selvom jeg havde besluttet jég ville prøve uden! :-)
Anyway, takker... :)