Combo resize patch applied from Luiz Americo.

1 files changed, 0 insertions, 16 deletions

diff --git a/src/gui/gui_combobox.pas b/src/gui/gui_combobox.pas
index 4737ced2..e0dc5ea5 100644
--- a/src/gui/gui_combobox.pas
+++ b/src/gui/gui_combobox.pas
@@ -99,7 +99,6 @@ type
   public
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
-    procedure   SetPosition(aleft, atop, awidth, aheight: TfpgCoord); override;
     property    Font: TfpgFont read FFont;
   end;
   
@@ -120,7 +119,6 @@ type
     procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
     procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
     procedure   HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override;
-    procedure   HandleResize(awidth, aheight: TfpgCoord); override;
     procedure   HandlePaint; override;
     property    Text: string read GetText write SetText;
   public
@@ -371,12 +369,6 @@ begin
   inherited Destroy;
 end;
 
-procedure TfpgBaseComboBox.SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
-begin
-  inherited SetPosition(aleft, atop, awidth, aheight);
-  CalculateInternalButtonRect
-end;
-
 { TComboboxDropdownWindow }
 
 procedure TComboboxDropdownWindow.SetFirstItem;
@@ -551,7 +543,6 @@ procedure TfpgBaseStaticCombo.SetWidth(const AValue: TfpgCoord);
 begin
   inherited SetWidth(AValue);
   CalculateInternalButtonRect;
-  RePaint;
 end;
 
 procedure TfpgBaseStaticCombo.HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean);
@@ -565,7 +556,6 @@ procedure TfpgBaseStaticCombo.SetHeight(const AValue: TfpgCoord);
 begin
   inherited SetHeight(AValue);
   CalculateInternalButtonRect;
-  RePaint;
 end;
 
 procedure TfpgBaseStaticCombo.HandleLMouseDown(x, y: integer; shiftstate: TShiftState);
@@ -609,12 +599,6 @@ begin
   end;
 end;
 
-procedure TfpgBaseStaticCombo.HandleResize(awidth, aheight: TfpgCoord);
-begin
-  inherited HandleResize(awidth, aheight);
-  CalculateInternalButtonRect;
-end;
-
 procedure TfpgBaseStaticCombo.HandlePaint;
 var
   r: TfpgRect;