On Fri, 29 Dec 2006, Dave Coventry wrote:
> Hi, > > If I set the size of the TBitmap in the FormCreate procedure rather than the > FormResize procedure, then the error does not arise. > > In other words, if I have the following: > //~~~~~~~~~~~~~~~~~~~~~~~ snip ~~~~~~~~~~~~~~~~~~~~~~~ > BufferBitMap:=TBitMap.Create; > BufferBitMap.Width:=Image1.Width; > BufferBitMap.Height:=Image1.Height; > //~~~~~~~~~~~~~~~~~~~~~~~ snip ~~~~~~~~~~~~~~~~~~~~~~~ > in the same procedure rather than splitting it up over 2 different procedures, > then I don't get the SIGSEGV error. That's because the OnResize method is called before OnCreate. Michael. > > Dave Coventry wrote: > > Marc Weustink wrote: > > > Can you give us a little code sample ? > > > > > > Marc > > Yes, certainly: > > //~~~~~~~~~~~~~~~~~~~~~~~ snip ~~~~~~~~~~~~~~~~~~~~~~~ > > var > > BufferBitMap:TBitmap; > > > > procedure TForm1.FormCreate(Sender: TObject); > > begin > > BufferBitMap:=TBitMap.Create; > > end; > > > > procedure TForm1.FormResize(Sender: TObject); > > begin > > BufferBitMap.Width:=Image1.Width; > > BufferBitMap.Height:=Image1.Height; > > end; > > //~~~~~~~~~~~~~~~~~~~~~~~ snip ~~~~~~~~~~~~~~~~~~~~~~~ > > > > > -- > 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 > > _________________________________________________________________ To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe" as the Subject archives at http://www.lazarus.freepascal.org/mailarchives
