anchor.diff:    gfx_command_intf;
   
   type
  -
  -  { TfpgButton }
   
     TfpgButton = class(TfpgWidget, ICommandHolder)
     private
  
positive.code:   gui_form; {$Note Try and remove this gui_form dependency.}
  
  function CreateButton(AOwner: TComponent; x, y, w: TfpgCoord; AText: string;
    AOnClickEvent: TNotifyEvent): TfpgButton;
  begin
    Result         := TfpgButton.Create(AOwner);
    Result.Text    := AText;
    Result.SetPosition(x, y, w, Result.Height); // font was used to calculate height.
    Result.OnClick := AOnClickEvent;
  end;
  
  { TfpgButton }
  
negative.code: 
  
  function CreateButton(AOwner: TComponent; x, y, w: TfpgCoord; AText: string;
    AOnClickEvent: TNotifyEvent; AImage: string = ''): TfpgButton;
  
  
  implementation
  