diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-06-28 17:43:12 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-06-28 17:43:12 +0000 |
| commit | 0ab570aaaaf6abb6cb2392c7852af1981eed14a4 (patch) | |
| tree | 0a05f7f46c9a4761861392fa4ba61792d388f65a | |
| parent | 9a8dcf889bca0f15db0b3bd8ac96e1d5f3ca2a9a (diff) | |
| download | fpGUI-0ab570aaaaf6abb6cb2392c7852af1981eed14a4.tar.xz | |
* Fixed the dialog size issue reported by Jean-Marc.
| -rw-r--r-- | src/gui/gui_form.pas | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas index 3227deef..e2d2c6d9 100644 --- a/src/gui/gui_form.pas +++ b/src/gui/gui_form.pas @@ -55,8 +55,6 @@ type procedure AdjustWindowStyle; override; procedure SetWindowParameters; override; procedure SetWindowTitle(const ATitle: string); override; - procedure SetHeight(const AValue: TfpgCoord); override; - procedure SetWidth(const AValue: TfpgCoord); override; procedure MsgActivate(var msg: TfpgMessageRec); message FPGM_ACTIVATE; procedure MsgDeActivate(var msg: TfpgMessageRec); message FPGM_DEACTIVATE; procedure MsgClose(var msg: TfpgMessageRec); message FPGM_CLOSE; @@ -159,18 +157,6 @@ begin inherited SetWindowTitle(ATitle); end; -procedure TfpgBaseForm.SetHeight(const AValue: TfpgCoord); -begin - if Sizeable then - inherited SetHeight(AValue); -end; - -procedure TfpgBaseForm.SetWidth(const AValue: TfpgCoord); -begin - if Sizeable then - inherited SetWidth(AValue); -end; - procedure TfpgBaseForm.MsgActivate(var msg: TfpgMessageRec); begin if (fpgApplication.TopModalForm = nil) or (fpgApplication.TopModalForm = self) then |