dws2mfziplibmodule.pas

script language

end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteAddCompLevelEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  (ExtObject as TZipMaster).AddCompLevel := Info['Value'];
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadAddRecurseDirsEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := AddRecurseDirs in (ExtObject as TZipMaster).AddOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteAddRecurseDirsEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    if Info['Value'] then
      AddOptions := AddOptions + [AddRecurseDirs]
    else
      AddOptions := AddOptions - [AddRecurseDirs];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadAddEncryptEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := AddEncrypt in (ExtObject as TZipMaster).AddOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteAddEncryptEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    if Info['Value'] then
      AddOptions := AddOptions + [AddEncrypt]
    else
      AddOptions := AddOptions - [AddEncrypt];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadPasswordEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).Password;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWritePasswordEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  (ExtObject as TZipMaster).Password := Info['Value'];
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadExtrDirNamesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := ExtrDirNames in (ExtObject as TZipMaster).ExtrOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteExtrDirNamesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    if Info['Value'] then
      ExtrOptions := ExtrOptions + [ExtrDirNames]
    else
      ExtrOptions := ExtrOptions - [ExtrDirNames];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadExtrOverwriteEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := ExtrOverWrite in (ExtObject as TZipMaster).ExtrOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteExtrOverwriteEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    if Info['Value'] then
      ExtrOptions := ExtrOptions + [ExtrOverWrite]
    else
      ExtrOptions := ExtrOptions - [ExtrOverWrite];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadConfirmEraseEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).ConfirmErase;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteConfirmEraseEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  (ExtObject as TZipMaster).ConfirmErase := Info['Value'];
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadHowToDeleteEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).HowToDelete;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteHowToDeleteEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  (ExtObject as TZipMaster).HowToDelete := Info['Value'];
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadAddDiskSpanEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := AddDiskSpan in (ExtObject as TZipMaster).AddOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteAddDiskSpanEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    AddOptions := AddOptions - [AddDiskSpanErase];
    if Info['Value'] then
      AddOptions := AddOptions + [AddDiskSpan]
    else
      AddOptions := AddOptions - [AddDiskSpan];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadAddDiskSpanEraseEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := AddDiskSpanErase in (ExtObject as TZipMaster).AddOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteAddDiskSpanEraseEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    AddOptions := AddOptions - [AddDiskSpan];
    if Info['Value'] then
      AddOptions := AddOptions + [AddDiskSpanErase]
    else
      AddOptions := AddOptions - [AddDiskSpanErase];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadMaxVolumeSizeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).MaxVolumeSize;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteMaxVolumeSizeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  (ExtObject as TZipMaster).MaxVolumeSize := Info['Value'];
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadMinFreeVolumeSizeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).MinFreeVolumeSize;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteMinFreeVolumeSizeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  (ExtObject as TZipMaster).MinFreeVolumeSize := Info['Value'];
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadKeepFreeOnDisk1Eval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).KeepFreeOnDisk1;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteKeepFreeOnDisk1Eval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  (ExtObject as TZipMaster).KeepFreeOnDisk1 := Info['Value'];
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadSFXCaptionEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).SFXCaption;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteSFXCaptionEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  (ExtObject as TZipMaster).SFXCaption := Info['Value'];
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadSFXCommandLineEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).SFXCommandLine;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteSFXCommandLineEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  (ExtObject as TZipMaster).SFXCommandLine := Info['Value'];
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadSFXDefaultDirEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).SFXDefaultDir;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteSFXDefaultDirEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  (ExtObject as TZipMaster).SFXDefaultDir := Info['Value'];
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadSFXAskCmdLineEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := SFXAskCmdLine in (ExtObject as TZipMaster).SFXOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteSFXAskCmdLineEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    if Info['Value'] then
      SFXOptions := SFXOptions + [SFXAskCmdLine]
    else
      SFXOptions := SFXOptions - [SFXAskCmdLine];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadSFXAskFilesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := SFXAskFiles in (ExtObject as TZipMaster).SFXOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteSFXAskFilesEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    if Info['Value'] then
      SFXOptions := SFXOptions + [SFXAskFiles]
    else
      SFXOptions := SFXOptions - [SFXAskFiles];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadSFXHideOverwriteBoxEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := SFXHideOverWriteBox in (ExtObject as TZipMaster).SFXOptions;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteSFXHideOverwriteBoxEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  with (ExtObject as TZipMaster) do
  begin
    if Info['Value'] then
      SFXOptions := SFXOptions + [SFXHideOverWriteBox]
    else
      SFXOptions := SFXOptions - [SFXHideOverWriteBox];
  end;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadSFXOverwriteModeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).SFXOverWriteMode;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteSFXOverwriteModeEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  (ExtObject as TZipMaster).SFXOverWriteMode := Info['Value'];
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsReadTempEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  Info['Result'] := (ExtObject as TZipMaster).TempDir;
end;

procedure Tdws2MFZipLib.dws2UnitZipClassesTZipMethodsWriteTempEval(
  Info: TProgramInfo; ExtObject: TObject);
begin
  (ExtObject as TZipMaster).TempDir := Info['Value'];
end;

end.