anchor.diff:  
       Description:
         Defines a push button control.
  +
  +    TODO:
  +      * multi-line button text. It must take into account image position as well.
   }
   
   unit fpg_button;
  
positive.code:       Canvas.DrawImage(ix + pofs, iy + pofs, img);
        img.Free;
      end;
    end;
    fpgStyle.DrawString(Canvas, tx+pofs, ty+pofs, Text, Enabled);
  end;
  
  procedure TfpgBaseButton.DoPush;
  
negative.code:     FFont: TfpgFont;
      FDefault: boolean;
      FState: integer;  // 0 - normal  // 1 - hover
      FAllowMultiLineText: boolean;
      procedure   SetShowImage(AValue: Boolean);
      procedure   HandlePaint; override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
  