From 0ab570aaaaf6abb6cb2392c7852af1981eed14a4 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Sat, 28 Jun 2008 17:43:12 +0000
Subject: * Fixed the dialog size issue reported by Jean-Marc.

---
 src/gui/gui_form.pas | 14 --------------
 1 file changed, 14 deletions(-)

(limited to 'src/gui')

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
-- 
cgit v1.2.3-70-g09d2