Просмотр исходного кода

* updated version and copyright
* removed Alt-X shortcut, non working and makes no sense, resolves #6529

git-svn-id: trunk@10871 -

florian 17 лет назад
Родитель
Сommit
0919c1112f
1 измененных файлов с 19 добавлено и 2 удалено
  1. 19 2
      installer/install.pas

+ 19 - 2
installer/install.pas

@@ -93,8 +93,8 @@ program install;
      WHTMLScn,insthelp;
 
   const
-     installerversion='2.1.2';
-     installercopyright='Copyright (c) 1993-2007 Florian Klaempfl';
+     installerversion='2.2.0';
+     installercopyright='Copyright (c) 1993-2008 Florian Klaempfl';
 
 
      maxpacks=30;
@@ -201,6 +201,7 @@ program install;
 
      tapp = object(tapplication)
          procedure initmenubar;virtual;
+         procedure initstatusline;virtual;
          procedure handleevent(var event : tevent);virtual;
          procedure do_installdialog;
          procedure readcfg(const fn:string);
@@ -1807,6 +1808,22 @@ end;
     end;
 
 
+  procedure tapp.initstatusline;
+    var
+       R: TRect;
+    begin
+      GetExtent(R);
+      R.A.Y := R.B.Y - 1;
+      R.B.X := R.B.X - 12;
+      New(StatusLine,
+        Init(R,
+          NewStatusDef(0, $EFFF,nil,nil
+          )
+        )
+      );
+    end;
+
+
   procedure tapp.handleevent(var event : tevent);
     begin
        inherited handleevent(event);