anchor.diff:    sl.Free;
   end;
   
  -constructor TMainForm.Create(aowner: TComponent);
  -begin
  -  inherited Create(aowner);
  -  // Place button in bottom right corner.
  -  btnClose := CreateButton(self, Width-90, Height-35, 75, 'Quit', @btnCloseClick);
  -  btnClose.ImageName := 'stdimg.quit';
  -//  btnClose.Focusable := False;
  -  btnClose.Anchors := [anRight, anBottom];
  -end;
  -
   procedure MainProc;
   var
     frm : TMainForm;
  
positive.code: begin
    SetPosition(100,100,700,500);
    WindowTitle := 'fpGUI Standard Image Listing';
  end;
  
  procedure TMainForm.btnCloseClick(Sender: TObject);
  
negative.code:   protected
      procedure   HandlePaint; override;
    public
      procedure   AfterCreate; override;
    end;
  
  