ADD: enable iCloud options frame

This commit is contained in:
rich2014 2025-03-04 18:06:47 +08:00
commit 13893bdd1e
5 changed files with 653 additions and 604 deletions

View file

@ -311,7 +311,7 @@ end;"/>
<PackageName Value="Image32"/>
</Item13>
</RequiredPackages>
<Units Count="286">
<Units Count="288">
<Unit0>
<Filename Value="doublecmd.lpr"/>
<IsPartOfProject Value="True"/>
@ -1109,6 +1109,7 @@ end;"/>
<Unit118>
<Filename Value="filesources\ufilesourcemoveoperation.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uFileSourceMoveOperation"/>
</Unit118>
<Unit119>
<Filename Value="filesources\ufilesourceoperation.pas"/>
@ -1159,6 +1160,7 @@ end;"/>
<Unit128>
<Filename Value="filesources\ufilesourcesplitoperation.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uFileSourceSplitOperation"/>
</Unit128>
<Unit129>
<Filename Value="filesources\ufilesourcetestarchiveoperation.pas"/>
@ -1386,6 +1388,7 @@ end;"/>
<Unit174>
<Filename Value="filesources\wcxarchive\uwcxarchiveexecuteoperation.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uWcxArchiveExecuteOperation"/>
</Unit174>
<Unit175>
<Filename Value="filesources\wcxarchive\uwcxarchivefilesource.pas"/>
@ -2062,6 +2065,20 @@ end;"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uDarwinFileView"/>
</Unit285>
<Unit286>
<Filename Value="frames\foptionsicloud.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmOptionsiCloud"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="fOptionsiCloud"/>
</Unit286>
<Unit287>
<Filename Value="platform\unix\darwin\uiclouddriverutil.pas"/>
<IsPartOfProject Value="True"/>
<HasResources Value="True"/>
<UnitName Value="uiCloudDriverUtil"/>
</Unit287>
</Units>
</ProjectOptions>
<CompilerOptions>

File diff suppressed because it is too large Load diff

View file

@ -1,8 +1,8 @@
{"version":1,"strings":[
{"hash":108725763,"name":"tfrmoptions.caption","sourcebytes":[79,112,116,105,111,110,115],"value":"Options"},
{"hash":80592254,"name":"tfrmoptions.lblemptyeditor.caption","sourcebytes":[80,108,101,97,115,101,32,115,101,108,101,99,116,32,111,110,101,32,111,102,32,116,104,101,32,115,117,98,112,97,103,101,115,44,32,116,104,105,115,32,112,97,103,101,32,100,111,101,115,32,110,111,116,32,99,111,110,116,97,105,110,32,97,110,121,32,115,101,116,116,105,110,103,115,46],"value":"Please select one of the subpages, this page does not contain any settings."},
{"hash":2812976,"name":"tfrmoptions.btnhelp.caption","sourcebytes":[38,72,101,108,112],"value":"&Help"},
{"hash":11067,"name":"tfrmoptions.btnok.caption","sourcebytes":[38,79,75],"value":"&OK"},
{"hash":177752476,"name":"tfrmoptions.btncancel.caption","sourcebytes":[38,67,97,110,99,101,108],"value":"&Cancel"},
{"hash":44595001,"name":"tfrmoptions.btnapply.caption","sourcebytes":[38,65,112,112,108,121],"value":"&Apply"}
]}
{"version":1,"strings":[
{"hash":108725763,"name":"tfrmoptions.caption","sourcebytes":[79,112,116,105,111,110,115],"value":"Options"},
{"hash":80592254,"name":"tfrmoptions.lblemptyeditor.caption","sourcebytes":[80,108,101,97,115,101,32,115,101,108,101,99,116,32,111,110,101,32,111,102,32,116,104,101,32,115,117,98,112,97,103,101,115,44,32,116,104,105,115,32,112,97,103,101,32,100,111,101,115,32,110,111,116,32,99,111,110,116,97,105,110,32,97,110,121,32,115,101,116,116,105,110,103,115,46],"value":"Please select one of the subpages, this page does not contain any settings."},
{"hash":2812976,"name":"tfrmoptions.btnhelp.caption","sourcebytes":[38,72,101,108,112],"value":"&Help"},
{"hash":11067,"name":"tfrmoptions.btnok.caption","sourcebytes":[38,79,75],"value":"&OK"},
{"hash":177752476,"name":"tfrmoptions.btncancel.caption","sourcebytes":[38,67,97,110,99,101,108],"value":"&Cancel"},
{"hash":44595001,"name":"tfrmoptions.btnapply.caption","sourcebytes":[38,65,112,112,108,121],"value":"&Apply"}
]}

View file

@ -155,6 +155,9 @@ uses
fOptionsFonts,
fOptionsGroups,
fOptionsHotkeys,
{$IFDEF DARWIN}
fOptionsiCloud,
{$ENDIF}
fOptionsIcons,
fOptionsIgnoreList,
fOptionsKeyboard,
@ -407,6 +410,9 @@ begin
Main.Add(TfrmOptionsQuickSearchFilter);
Main.Add(TfrmOptionsMisc);
Main.Add(TfrmOptionsAutoRefresh);
{$IFDEF DARWIN}
Main.Add(TfrmOptionsiCloud);
{$ENDIF}
Main.Add(TfrmOptionsIcons);
Main.Add(TfrmOptionsIgnoreList);
Main.Add(TfrmOptionsArchivers);

View file

@ -127,6 +127,18 @@ begin
end;
end;
'TListView':
begin
if TListView(aComponent).Checkboxes then begin
for iIndex:=0 to TListView(aComponent).Items.Count-1 do begin
iSampleValue := 0;
if TListView(aComponent).Items[iIndex].Checked then
iSampleValue:= iIndex + 1;
Result := crc32(Result, @iSampleValue, sizeof(iSampleValue));
end;
end;
end;
'TMemo':
begin
SampleValue := TMemo(aComponent).Lines.Count;