lazde: allow open multiple files, patch #27263 from Simon Ameis

git-svn-id: trunk@47315 -

doceditor/frmmain.lfm

@@ -14,7 +14,7 @@ object MainForm: TMainForm
   OnCreate = MainFormCreate
   OnDestroy = MainFormDestroy
   Position = poScreenCenter
-  LCLVersion = '1.1'
+  LCLVersion = '1.3'
   object TBMain: TToolBar
     Left = 0
     Height = 26
@@ -49,6 +49,7 @@ object MainForm: TMainForm
     end
     object ToolButton5: TToolButton
       Left = 198
+      Height = 24
       Top = 2
       Width = 5
       Caption = 'ToolButton5'
@@ -112,6 +113,7 @@ object MainForm: TMainForm
     end
     object ToolButton13: TToolButton
       Left = 97
+      Height = 24
       Top = 2
       Width = 5
       Caption = 'ToolButton13'
@@ -134,6 +136,7 @@ object MainForm: TMainForm
     end
     object ToolButton1: TToolButton
       Left = 395
+      Height = 24
       Top = 2
       Width = 5
       Caption = 'ToolButton1'
@@ -1297,7 +1300,7 @@ object MainForm: TMainForm
     DefaultExt = '.xml'
     Filter = 'XML files|*.xml|All files|*.*'
     FilterIndex = 0
-    Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
+    Options = [ofAllowMultiSelect, ofFileMustExist, ofEnableSizing, ofViewDetail]
     left = 224
     top = 64
   end

doceditor/frmmain.pp

@@ -281,9 +281,14 @@ begin
 end;
 
 procedure TMainForm.AOpenExecute(Sender: TObject);
+var
+  i: SizeInt;
 begin
   if ODMain.Execute then
-    OpenFile(ODMain.FileName);
+  begin
+    for i := 0 to ODMain.Files.Count - 1 do
+      OpenFile(ODMain.Files.Strings[i]);
+  end;
 end;
 
 procedure TMainForm.AExitExecute(Sender: TObject);

doceditor/lazdeopts.pp

@@ -142,6 +142,8 @@ procedure TranslateResStrings;
 var
   Lang, FallbackLang, S: String;
 begin
+  FallbackLang:='';
+  Lang:='';
   GetLanguageIDs(Lang,FallbackLang); // in unit gettext
   S:=AppendPathDelim(AppendPathDelim(ExtractFileDir(ParamStr(0))) + 'languages');
   TranslateUnitResourceStrings('LazDEMsg',S+'lazde.%s.po', Lang,FallbackLang);