fix, reset top splitter position before locking it

src/ce_main.lfm

@@ -5,6 +5,8 @@ object CEMainForm: TCEMainForm
   Width = 745
   AllowDropFiles = True
   Caption = 'Coedit'
+  ClientHeight = 49
+  ClientWidth = 745
   Icon.Data = {
     F1B500000000010001000000000001002000DBB500001600000089504E470D0A
     1A0A0000000D49484452000001000000010008060000005C72A8660000B5A249
@@ -1469,6 +1471,7 @@ object CEMainForm: TCEMainForm
   OnDropFiles = FormDropFiles
   ShowHint = True
   LCLVersion = '1.6.0.2'
+  Visible = False
   object mainMenu: TMainMenu
     Images = imgList
     top = 1

src/ce_main.pas

@@ -935,14 +935,20 @@ begin
     end;
   end;
 
-  // lock space wetween the menu and the widgets
+  // lock space between the menu and the widgets
   if GetDockSplitterOrParent(DockMaster.GetSite(fEditWidg), akTop, topsite) then
   begin
     if topsite is TAnchorDockHostSite then
       if TAnchorDockHostSite(topsite).BoundSplitter.isNotNil then
+      begin
+        TAnchorDockHostSite(topsite).BoundSplitter.MoveSplitter(-500);
         TAnchorDockHostSite(topsite).BoundSplitter.OnCanOffset:= @LockTopWindow;
+      end;
   end else if GetDockSplitter(DockMaster.GetSite(fEditWidg), akTop, topsplt) then
+  begin
+    topsplt.MoveSplitter(-500);
     topsplt.OnCanOffset:= @LockTopWindow;
+  end;
 
 end;