paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-30 19:21:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@47315 -
This commit is contained in:
mattias 2015-01-07 10:18:23 +00:00
parent 5148d091ff
commit 256d569d55
3 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
doceditor/frmmain.lfm
View File

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

7
doceditor/frmmain.pp
View File

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

2
doceditor/lazdeopts.pp
View File

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