Dave Coventry schreef:
Hi,
I have a TImage, Image1 on my form.
I have the following code:
//================ snip =========================
procedure TForm1.FormResize(Sender: TObject);
begin
Image1.Width:=Form1.Width;
Image1.Height:=Form1.Height-98;
Image1.Canvas.Brush.Color:=clBlack;
Image1.Canvas.FillRect(0,0,Image1.Width,Image1.Height);
showmessage('Image width:'+inttostr(Image1.Width)); end;
//================ snip =========================
The Image1.Width does change size, but the area painted black remains at
the Width specified at design time.
Can anyone help?
I cannot help, but this sounds familiar:
http://www.freepascal.org/mantis/view.php?id=7192
Vincent
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
