FIX: some File Dialog Filter format error

This commit is contained in:
rich2014 2026-01-14 21:57:17 +08:00
commit 624384091f
3 changed files with 5 additions and 5 deletions

View file

@ -491,7 +491,7 @@ end;
procedure TfrmDiffer.actOpenLeftExecute(Sender: TObject);
begin
dmComData.OpenDialog.FileName:= edtFileNameLeft.Text;
dmComData.OpenDialog.Filter:= AllFilesMask;
dmComData.OpenDialog.Filter:= EmptyStr;
if dmComData.OpenDialog.Execute then
begin
edtFileNameLeft.Text:= dmComData.OpenDialog.FileName;
@ -502,7 +502,7 @@ end;
procedure TfrmDiffer.actOpenRightExecute(Sender: TObject);
begin
dmComData.OpenDialog.FileName:= edtFileNameRight.Text;
dmComData.OpenDialog.Filter:= AllFilesMask;
dmComData.OpenDialog.Filter:= EmptyStr;
if dmComData.OpenDialog.Execute then
begin
edtFileNameRight.Text:= dmComData.OpenDialog.FileName;

View file

@ -1040,7 +1040,7 @@ var
begin
FormCloseQuery(Self, CanClose);
if not CanClose then Exit;
dmComData.OpenDialog.Filter:= AllFilesMask;
dmComData.OpenDialog.Filter:= EmptyStr;
if not dmComData.OpenDialog.Execute then Exit;
if OpenFile(dmComData.OpenDialog.FileName) then
UpdateStatus;
@ -1068,7 +1068,7 @@ var
Highlighter: TSynCustomHighlighter;
begin
dmComData.SaveDialog.FileName := FileName;
dmComData.SaveDialog.Filter:= AllFilesMask; // rewrite for highlighter
dmComData.SaveDialog.Filter:= EmptyStr; // rewrite for highlighter
if not dmComData.SaveDialog.Execute then
Exit;

View file

@ -2381,7 +2381,7 @@ end;
procedure TfrmMultiRename.cm_LoadNamesFromFile(const {%H-}Params: array of string);
begin
dmComData.OpenDialog.FileName := EmptyStr;
dmComData.OpenDialog.Filter := AllFilesMask;
dmComData.OpenDialog.Filter := EmptyStr;
if dmComData.OpenDialog.Execute then
LoadNamesFromFile(dmComData.OpenDialog.FileName);
end;