diff options
Diffstat (limited to 'src/gui')
| -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 |