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

FIX: Find files - load encodings from search template

Browse source
This commit is contained in:
Alexander Koblov 2025-05-11 12:24:37 +03:00
commit 0b21444c15
1 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/fFindDlg.pas
View file

@ -1460,6 +1460,10 @@ begin
end;
end;
if Length(Result) > 0 then begin
Delete(Result, High(Result), 1);
end;
if Length(Result) = 0 then Result:= AList.Text;
end;
@ -1470,7 +1474,12 @@ var
I, Index, ACount: Integer;
begin
ACount:= 0;
S:= SplitString(AEncodings, '|');
S:= AEncodings.Split(['|'], TStringSplitOptions.ExcludeEmpty);
for I:= 0 to AList.Items.Count - 1 do
begin
AList.Items.Objects[I]:= TObject(PtrInt(False));
end;
for Index:= 0 to High(S) do
begin
@ -1481,6 +1490,14 @@ begin
AList.Items.Objects[I]:= TObject(PtrInt(True));
end;
end;
if ACount = 0 then
begin
I:= 0;
ACount:= 1;
AList.Items.Objects[I]:= TObject(PtrInt(True));
end;
AList.Tag:= ACount;
if ACount = 1 then AList.ItemIndex:= I;
end;