mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Open with dialog position

Browse source
This commit is contained in:
Alexander Koblov 2018-05-15 19:58:39 +00:00
commit c8a14d2cb4
4 changed files with 9 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/fopenwith.lfm
View file

@ -9,6 +9,7 @@ object frmOpenWith: TfrmOpenWith
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poOwnerFormCenter
LCLVersion = '1.8.2.0'
object lblMimeType: TLabel
Left = 6

8
src/fopenwith.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
Open with other application dialog
Copyright (C) 2012 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2012-2018 Alexander Koblov (alexx2000@mail.ru)
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@ -74,7 +74,7 @@ type
constructor Create(TheOwner: TComponent; AFileList: TStringList); reintroduce;
end;
procedure ShowOpenWithDlg(const FileList: TStringList);
procedure ShowOpenWithDlg(TheOwner: TComponent; const FileList: TStringList);
implementation
@ -106,9 +106,9 @@ const
'Utility'
);
procedure ShowOpenWithDlg(const FileList: TStringList);
procedure ShowOpenWithDlg(TheOwner: TComponent; const FileList: TStringList);
begin
with TfrmOpenWith.Create(Application, FileList) do
with TfrmOpenWith.Create(TheOwner, FileList) do
begin
Show;
end;

2
src/platform/unix/ushellcontextmenu.pas
View file

@ -291,7 +291,7 @@ begin
FileNames := TStringList.Create;
for I := 0 to FFiles.Count - 1 do
FileNames.Add(FFiles[I].FullPath);
ShowOpenWithDialog(FileNames);
ShowOpenWithDialog(frmMain, FileNames);
{$ENDIF}
end;

6
src/platform/uosforms.pas
View file

@ -117,7 +117,7 @@ function ShowOpenIconDialog(Owner: TCustomControl; var sFileName : String) : Boo
Show open with dialog
@param(FileList List of files to open with)
}
procedure ShowOpenWithDialog(const FileList: TStringList);
procedure ShowOpenWithDialog(TheOwner: TComponent; const FileList: TStringList);
{$ENDIF}
implementation
@ -770,10 +770,10 @@ begin
end;
{$IF DEFINED(UNIX) AND NOT DEFINED(DARWIN)}
procedure ShowOpenWithDialog(const FileList: TStringList);
procedure ShowOpenWithDialog(TheOwner: TComponent; const FileList: TStringList);
begin
if not (UseKde and uKde.ShowOpenWithDialog(FileList)) then begin
fOpenWith.ShowOpenWithDlg(FileList);
fOpenWith.ShowOpenWithDlg(TheOwner, FileList);
end;
end;
{$ENDIF}