diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-24 14:53:07 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-04-24 14:53:07 +0000 |
commit | 26cf9713599d0d798b4d254140dc778b04f9f0be (patch) | |
tree | c869a5c97e355e7ca94f487367b94b7ff9c63e98 /src/corelib/gdi/gfx_gdi.pas | |
parent | 05e0c788f2e59cfe03651c1a356442f304c81317 (diff) | |
download | fpGUI-26cf9713599d0d798b4d254140dc778b04f9f0be.tar.xz |
* TfpgApplicationBase now descends from TObject instead of TComponent.
* TfpgApplication now has a FormCount property.
* TfpgApplication now has a Forms array property.
* TfpgApplication.CreateForm now works correctly and NO memory leaks occur.
Diffstat (limited to 'src/corelib/gdi/gfx_gdi.pas')
-rw-r--r-- | src/corelib/gdi/gfx_gdi.pas | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/corelib/gdi/gfx_gdi.pas b/src/corelib/gdi/gfx_gdi.pas index 26dd3eae..09f5c7fa 100644 --- a/src/corelib/gdi/gfx_gdi.pas +++ b/src/corelib/gdi/gfx_gdi.pas @@ -188,7 +188,7 @@ type FFocusedWindow: THANDLE; function DoGetFontFaceList: TStringList; override; public - constructor Create(const aparams: string); override; + constructor Create(const AParams: string); override; function DoMessagesPending: boolean; procedure DoWaitWindowMessage(atimeoutms: integer); procedure DoFlush; @@ -903,8 +903,9 @@ begin Result.Sort; end; -constructor TfpgApplicationImpl.Create(const aparams: string); +constructor TfpgApplicationImpl.Create(const AParams: string); begin + inherited Create(AParam); FIsInitialized := False; FDisplay := Windows.GetDC(0); Terminated := False; |