Resize event example for Delphi

This example demonstates the Resize event.

procedure TForm1.LEADRasterView1Resize (Sender: TObject);
begin
   //Before using this example you must add a text box to your form.
   //Then, you can exercise this example by coding a command button that
   //changes the width and height of the LEADRasterView1 control
   Edit1.Text:= 'Control size: ' + IntToStr(LEADRasterView1.Width)
                 + ' x ' + IntToStr(LEADRasterView1.Height);
   Edit1.Refresh( ) ;
end;