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?
--
Dave Coventry
Tel: +27(0)31 3092301
Fax: +27(0)31 3092301
Cell: +27(0)82 3685983
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
