[Properties] ArraySize_Value=0 FilePrefix_Text=X509DBAccount FontDialog_FontColor=0 FontDialog_FontHeight=-11 FontDialog_FontName=Courier New FontDialog_FontPitch=0 FontDialog_FontSize=8 FontDialog_FontStyles=xxxx OutDir_Text=C:\Magdelp\ssltest [Properties.CodeMasks_Lines] Item0=CCBoolean - $comp := false ; Item1=CCDouble - $comp := 0 ; Item2=CCInteger - $comp := 0 ; Item3=CCString - $comp := '' ; Item4=CCTCheckBoxState - $comp := cbUnchecked ; Item5=CCTFont - $comp := LoadFont ('x') ; Item6=CCTStringList - $comp.Clear ; Item7=CVBoolean - $var := false ; Item8=CVDouble - $var := 0 ; Item9=CVInteger - $var := 0 ; Item10=CVString - $var := '' ; Item11=CVTCheckBoxState - $var := cbUnchecked ; Item12=CVTFont - $var := LoadFont ('x') ; Item13=CVTStringList - $var.Clear ; Item14=DVBoolean - $var: $type ; Item15=DVDouble - $var: $type ; Item16=DVInteger - $var: $type ; Item17=DVString - $var: $type ; Item18=DVTFont - $var: $type ; Item19=DVTStringList - $var: $type ; Item20=RCBoolean - if ReadString (SectionData, '$lit', 'False') = 'True' then $comp := true else $comp := false ; Item21=RCDouble - $comp := ReadFloat (SectionData, '$lit', $comp) ; Item22=RCInteger - $comp := ReadInteger (SectionData, '$lit', $comp) ; Item23=RCString - $comp := ReadString (SectionData, '$lit', $comp) ; Item24=RCTCheckBoxState - $comp := TCheckBoxState (ReadInteger (SectionData, '$lit', Ord (cbUnchecked))) ; Item25=RCTFont - $comp := LoadFont ('$lit') ; Item26=RCTStringList - $comp.CommaText := ReadString (SectionData, '$lit', '') ; Item27=RVBoolean - if ReadString (SectionData, '$lit', 'False') = 'True' then $var := true else $var := false ; Item28=RVDouble - $var := ReadFloat (SectionData, '$lit', 0) ; Item29=RVInteger - $var := ReadInteger (SectionData, '$lit', 0) ; Item30=RVString - $var := ReadString (SectionData, '$lit', '') ; Item31=RVTCheckBoxState - $var := TCheckBoxState (ReadInteger (SectionData, '$lit', Ord (cbUnchecked))) ; Item32=RVTFont - $var := LoadFont ('$lit') ; Item33=RVTStringList - $comp.CommaText := ReadString (SectionData, '$lit', '') ; Item34=WCBoolean - if $comp then temp := 'True' else temp := 'False' ; WriteString (SectionData, '$lit', temp) ; Item35=WCDouble - WriteFloat (SectionData, '$lit', $comp) ; Item36=WCInteger - WriteInteger (SectionData, '$lit', $comp) ; Item37=WCString - WriteString (SectionData, '$lit', $comp) ; Item38=WCTCheckBoxState - WriteInteger (SectionData, '$lit', Ord ($comp)) ; Item39=WCTFont - SaveFont ('$lit', $comp) ; Item40=WCTStringList - WriteString (SectionData, '$lit', $comp.CommaText) ; Item41=WVBoolean - if $var then temp := 'True' else temp := 'False' ; WriteString (SectionData, '$lit', temp) ; Item42=WVDouble - WriteFloat (SectionData, '$lit', $var) ; Item43=WVInteger - WriteInteger (SectionData, '$lit', $var) ; Item44=WVString - WriteString (SectionData, '$lit', $var) ; Item45=WVTCheckBoxState - WriteInteger (SectionData, '$lit', Ord ($var)) ; Item46=WVTFont - SaveFont ('$lit', $var) ; Item47=WVTStringList - WriteString (SectionData, '$lit', $comp.CommaText) ; Count=48 [Properties.FormComps_Lines] Item0= FSupplierProto: TSupplierProto; Item1= FDirCertWork: String; Item2= FSupplierServer: String; Item3= FDebugLevel: THttpDebugLevel; Item4= FLogJson: Boolean; Item5= FLogPkeys: Boolean; Item6= Item7= FOAAccToken: String; Item8= FOAAppUrl: String; Item9= FOAClientId: String; Item10= FOAClientSecret: String; Item11= FOAExpireDT: TDateTime; Item12= FOARedirectUrl: String; Item13= FOARefreshAuto: Boolean; Item14= FOARefreshToken: String; Item15= FOARefrMinsPrior: Integer; Item16= FOAScope: String; Item17= FOATokenUrl: String; Item18= FOAWebSrvIP: String; Item19= FOAWebSrvPort: String; Item20= Item21= FAcmeAccKeyType: TSslPrivKeyType; Item22= FAcmeAccountNum: String; Item23= FAcmeAccountUrl: String; Count=24 [Properties.OutFiles_Lines] Item0=DV - defvars Item1=RV - readvars Item2=WV - writevars Count=3 [Properties.SavedProps_Lines] Item0=AuthBearer.Text - String Item1=AuthLogin.Text - String Item2=AuthPassword.Text - String Item3=AuthType.ItemIndex - Integer Item4=CertVerMethod.ItemIndex - Integer Item5=DebugLogging.ItemIndex - Integer Item6=ExtraHeaders.Lines - TStringList Item7=OAuthScope.Text - String Item8=OAuthAutoRefresh.Checked - Boolean Item9=OAuthOptNoRedir.Checked - Boolean Item10=OAuthRefrMins.Text - String Item11=OAuthAccToken.Text - String Item12=OAuthAppUrl.Text - String Item13=OAuthAuthType.ItemIndex - Integer Item14=OAuthClientId.Text - String Item15=OAuthClientSecret.Text - String Item16=OAuthExpire.Text - String Item17=OAuthProtoType.ItemIndex - Integer Item18=OAuthRedirectUrl.Text - String Item19=OAuthRefToken.Text - String Item20=OAuthTokenUrl.Text - String Item21=OAuthWebIP.Text - String Item22=OAuthWebPort.Text - String Item23=ParamContent.ItemIndex - Integer Item24=RawParams.Text - String Item25=ReportCertChain.Checked - Boolean Item26=ReqMode.ItemIndex - Integer Item27=ReqType.ItemIndex - Integer Item28=RestURL.Text - String Item29=SslClientCertFile.Text - String Item30=SslRootBundleFile.Text - String Item31=SslSecurity.ItemIndex - Integer Count=32 [Properties.SuppProps_Lines] Item0=TBCGFilterDialog.Brightness - Integer Item1=TBCGFilterDialog.Contrast - Double Item2=TBCGFilterDialog.Gamma - Double Item3=TCheckBox.Checked - Boolean Item4=TColorComboBox.ColorValue - Integer Item5=TColorComboBox.ItemIndex - Integer Item6=TColorDialog.Color - Integer Item7=TColorDialog.CustomColors - TStringList Item8=TComboBox.ItemIndex - Integer Item9=TComboBox.Text - String Item10=TDirectoryEdit.Text - String Item11=TDirectoryListBox.Directory - String Item12=TDriveComboBox.Drive - String Item13=TEdit.Text - String Item14=TFilenameEdit.Text - String Item15=TFontComboBox.Font - TFont Item16=TFontDialog.Font - TFont Item17=TLabel.Caption - String Item18=TLabel.Font - TFont Item19=TListBox.ItemIndex - Integer Item20=TListBox.Items - TStringList Item21=TMaskedEdit.Text - String Item22=TMemo.Lines - TStringList Item23=TMenuItem.Checked - Boolean Item24=TOpenDialog.Filename - String Item25=TOpenDialog.InitialDir - String Item26=TRadioButton.Checked - Boolean Item27=TRadioGroup.ItemIndex - Integer Item28=TSaveDialog.Filename - String Item29=TSaveDialog.InitialDir - String Item30=TSpinEdit.Value - Integer Count=31