1 files changed, 5 insertions, 4 deletions
diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas
index 1e7984ed..ade4d74e 100644
--- a/src/corelib/gfxbase.pas
+++ b/src/corelib/gfxbase.pas
@@ -380,13 +380,11 @@ type
   end;
 
 
-  { TfpgApplicationBase }
-
   TfpgApplicationBase = class(TComponent)
   private
     FMainForm: TfpgWindowBase;
     FTerminated: boolean;
-    function GetTopModalForm: TfpgWindowBase;
+    function    GetTopModalForm: TfpgWindowBase;
   protected
     FIsInitialized: Boolean;
     FModalFormStack: TList;
@@ -421,9 +419,11 @@ type
     property    Text: string read DoGetText write DoSetText;
   end;
   
+  
   TFileEntryType = (etFile, etDir);
   TFileListSortOrder = (soNone, soFileName, soCSFileName, soFileExt, soSize, soTime);
 
+
   // A simple data object
   TFileEntry = class(TObject)
   private
@@ -453,7 +453,6 @@ type
     property    LinkTarget: string read FLinkTarget write FLinkTarget;
   end;
 
-  { TfpgFileListBase }
 
   TfpgFileListBase = class(TObject)
   private
@@ -941,6 +940,8 @@ end;
 
 procedure TfpgWindowBase.MoveWindow(const x: TfpgCoord; const y: TfpgCoord);
 begin
+  Left  := x;
+  Top   := y;
   DoMoveWindow(x, y);
 end;