diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-18 08:26:10 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-18 08:26:10 +0000 |
commit | 0af8a64c03213270d6932a56d48783f6e7e4740a (patch) | |
tree | 91f1989160ed6555d4c464c0fb0e117714a605bc /src/gui/gui_editcombo.pas | |
parent | 60420d5e337bbd62fe05613c269e9ebecca6aad8 (diff) | |
download | fpGUI-0af8a64c03213270d6932a56d48783f6e7e4740a.tar.xz |
* Removed unnecessary parameters from DoUpdateWindowPosition.
Diffstat (limited to 'src/gui/gui_editcombo.pas')
-rw-r--r-- | src/gui/gui_editcombo.pas | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/gui/gui_editcombo.pas b/src/gui/gui_editcombo.pas index 3ed30a4c..28c0b526 100644 --- a/src/gui/gui_editcombo.pas +++ b/src/gui/gui_editcombo.pas @@ -90,7 +90,7 @@ type function GetText: string; virtual; function HasText: boolean; virtual; procedure SetText(const AValue: string); virtual; - procedure DoUpdateWindowPosition(aleft, atop, awidth, aheight: TfpgCoord); override; + procedure DoUpdateWindowPosition; override; procedure HandleResize(AWidth, AHeight: TfpgCoord); override; procedure HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); override; procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: Boolean); override; @@ -399,13 +399,12 @@ begin end; end; -procedure TfpgBaseEditCombo.DoUpdateWindowPosition(aleft, atop, awidth, - aheight: TfpgCoord); +procedure TfpgBaseEditCombo.DoUpdateWindowPosition; begin //This does not work because is not called before handle create if FDirty then CalculateInternalButtonRect; - inherited DoUpdateWindowPosition(aleft, atop, awidth, aheight); + inherited DoUpdateWindowPosition; end; procedure TfpgBaseEditCombo.HandleResize(AWidth, AHeight: TfpgCoord); |