FIX: Default column set identifier

(cherry picked from commit f4da7688ba)
This commit is contained in:
Alexander Koblov 2024-04-08 20:19:07 +03:00
commit aedb718da4

View file

@ -883,6 +883,7 @@ end;
procedure TPanelColumnsClass.AddDefaultEverything;
begin
AddDefaultColumns;
Unique := EmptyStr;
FCustomView := False;
FCursorBorder := gUseCursorBorder;
FCursorBorderColor := gColors.FilePanel^.CursorBorderColor;
@ -1628,7 +1629,7 @@ begin
if fset.Count = 0 then
begin
Result:= TPanelColumnsClass.Create;
Result.AddDefaultColumns;
Result.AddDefaultEverything;
Add(Result);
end;
Result := TPanelColumnsClass(Fset.Objects[0]);