anchor.diff:  begin
     SetPosition(100,100,700,500);
     WindowTitle := 'fpGUI Standard Image Listing';
  +  WindowPosition := wpOneThirdDown;
  +  MinWidth := 200;
  +  MinHeight := 100;
  +
  +  btnClose := CreateButton(self, Width-90, Height-35, 75, 'Quit', @btnCloseClick);
  +  btnClose.ImageName := 'stdimg.quit';
  +  btnClose.Anchors := [anRight, anBottom];
   end;
   
   procedure TMainForm.btnCloseClick(Sender: TObject);
  
positive.code:   protected
      procedure   HandlePaint; override;
    public
      constructor Create(aowner: TComponent); override;
      procedure   AfterCreate; override;
    end;
  
  
negative.code:   sl.Free;
  end;
  
  procedure MainProc;
  var
    frm : TMainForm;
  