[Properties] ArraySize_Value=0 FilePrefix_Text=IpStmLogTst FontDialog_FontColor=0 FontDialog_FontHeight=-13 FontDialog_FontName=Courier New FontDialog_FontPitch=0 FontDialog_FontSize=10 FontDialog_FontStyles=xxxx OutDir_Text=C:\svn-repos\ics-information [Properties.CodeMasks_Lines] Item0=CCBoolean - $comp := false ; Item1=CCDouble - $comp := 0 ; Item2=CCInteger - $comp := 0 ; Item3=CCExtInt - $comp := 0 ; Item4=CCString - $comp := '' ; Item5=CCTCheckBoxState - $comp := cbUnchecked ; Item6=CCTFont - $comp := LoadFont ('x') ; Item7=CCTStringList - $comp.Clear ; Item8=CVBoolean - $var := false ; Item9=CVDouble - $var := 0 ; Item10=CVInteger - $var := 0 ; Item11=CVExtInt - $var := 0 ; Item12=CVString - $var := '' ; Item13=CVTCheckBoxState - $var := cbUnchecked ; Item14=CVTFont - $var := LoadFont ('x') ; Item15=CVTStringList - $var.Clear ; Item16=DVBoolean - $var: $type ; Item17=DVDouble - $var: $type ; Item18=DVExtInt- $var: integer ; Item19=DVInteger - $var: $type ; Item20=DVString - $var: $type ; Item21=DVTFont - $var: $type ; Item22=DVTStringList - $var: $type ; Item23=RCBoolean - if ReadString (section, '$lit', 'False') = 'True' then $comp := true else $comp := false ; Item24=RCDouble - $comp := ReadFloat (section, '$lit', 0) ; Item25=RCExtInt - $comp := ReadInteger (section, '$lit', 0) ; Item26=RCInteger - $comp := ReadInteger (section, '$lit', 0) ; Item27=RCString - $comp := ReadString (section, '$lit', '') ; Item28=RCTCheckBoxState - $comp := TCheckBoxState (ReadInteger (section, '$lit', Ord (cbUnchecked))) ; Item29=RCTFont - $comp := LoadFont ('$lit') ; Item30=RCTStringList - $comp.CommaText := ReadString (section, '$lit', '') ; Item31=RVBoolean - if ReadString (section, '$lit', 'False') = 'True' then $var := true else $var := false ; Item32=RVDouble - $var := ReadFloat (section, '$lit', 0) ; Item33=RVExtInt - $var := ReadInteger (section, '$lit', 0) ; Item34=RVInteger - $var := ReadInteger (section, '$lit', 0) ; Item35=RVString - $var := ReadString (section, '$lit', '') ; Item36=RVTCheckBoxState - $var := TCheckBoxState (ReadInteger (section, '$lit', Ord (cbUnchecked))) ; Item37=RVTFont - $var := LoadFont ('$lit') ; Item38=RVTStringList - $var.CommaText := ReadString (section, '$lit', '') ; Item39=WCBoolean - if $comp then temp := 'True' else temp := 'False' ; WriteString (section, '$lit', temp) ; Item40=WCDouble - WriteFloat (section, '$lit', $comp) ; Item41=WCExtInt - WriteInteger (section, '$lit', Trunc ($comp)) ; Item42=WCInteger - WriteInteger (section, '$lit', $comp) ; Item43=WCString - WriteString (section, '$lit', $comp) ; Item44=WCTCheckBoxState - WriteInteger (section, '$lit', Ord ($comp)) ; Item45=WCTFont - SaveFont ('$lit', $comp) ; Item46=WCTStringList - WriteString (section, '$lit', $comp.CommaText) ; Item47=WVBoolean - if $var then temp := 'True' else temp := 'False' ; WriteString (section, '$lit', temp) ; Item48=WVDouble - WriteFloat (section, '$lit', $var) ; Item49=WVExtInt - WriteInteger (section, '$lit', Trunc ($var)) ; Item50=WVInteger - WriteInteger (section, '$lit', $var) ; Item51=WVString - WriteString (section, '$lit', $var) ; Item52=WVTCheckBoxState - WriteInteger (section, '$lit', Ord ($var)) ; Item53=WVTFont - SaveFont ('$lit', $var) ; Item54=WVTStringList - WriteString (section, '$lit', $var.CommaText) ; Item55=XRCBoolean - $comp := ReadBool (section, '$lit', false) ; Item56=XRCTStringList - $comp.Clear ;$line J := ReadInteger (section + '.$lit', 'Count', 0) ;$line if J <> 0 then for I := 0 to J - 1 do $tab $comp.Add (ReadString (section + '.$lit',$tab 'Item' + IntToStr (I), '' )) ; Item57=XRVBoolean - $var := ReadBool (section, '$lit', false) ; Item58=XRVTStringList - $var.Clear ; $line J := ReadInteger (section + '.$lit', 'Count', 0) ;$line if J <> 0 then for I := 0 to J - 1 do $tab $var.Add (ReadString (section + '.$lit',$tab 'Item' + IntToStr (I), '' )) ; Item59=XWCBoolean - WriteBool (section, '$lit', $comp) ; Item60=XWCTStringList - EraseSection (section + '.$lit') ;$line if $comp.Count <> 0 then $tab for I := 0 to $comp.Count - 1 do $tab WriteString (section + '.$lit', 'Item' + $tab IntToStr (I), $comp[I]) ; $line WriteInteger (section + '.$lit', 'Count', $comp.Co Item61=XWVBoolean - WriteBool (section, '$lit', $var) ; Item62=XWVTStringList - EraseSection (section + '.$lit') ;$line if $var.Count <> 0 then $tab for I := 0 to $var.Count - 1 do $tab WriteString (section + '.$lit', 'Item' + $tab IntToStr (I), $var [I]) ; $line WriteInteger (section + '.$lit', 'Count', $var.Count Count=63 [Properties.FormComps_Lines] Item0=DataClient: TCheckBox; Item1=DataGap: TEdit; Item2=DataServer: TCheckBox; Item3=HeavyTraffic: TCheckBox; Item4=LocalAddr: TComboBox; Item5=LocalPort: TEdit; Item6=LogErrors: TCheckBox; Item7=LogInfo: TCheckBox; Item8=MaxSockets: TEdit; Item9=PingRemote: TCheckBox; Item10=Protocol: TRadioGroup; Item11=ProxyURL: TEdit; Item12=RawData: TCheckBox; Item13=RemoteHosts: TMemo; Item14=RemotePort: TComboBox; Item15=ReportChain: TCheckBox; Item16=RevokeCheck: TCheckBox; Item17=SendFileName: TEdit; Item18=ServerPort: TComboBox; Item19=SocketFamily: TRadioGroup; Item20=SrvTimeout: TEdit; Item21=SslCACerts: TEdit; Item22=SslCertAuth: TEdit; Item23=SslCertKey: TEdit; Item24=SslCliSec: TComboBox; Item25=SslDomainName: TEdit; Item26=SslCertPassword: TEdit; Item27=SslServCert: TEdit; Item28=SslSrvSec: TComboBox; Item29=UseSSL: TCheckBox; Item30=VerifyCertMode: TRadioGroup; Item31=SslCertAutoOrder: TCheckBox; Item32=SslCertExpireDays: TEdit; Item33=SslCertSupplierProto: TComboBox; Item34=SslCertChallenge: TComboBox; Item35=SslCertPKeyType: TComboBox; Item36=SslCertSignDigest: TComboBox; Item37=SslCertProduct: TEdit; Item38=SslCertDirWork: TEdit; Item39=DirLogs: TEdit; Item40=DnsChlgType: TComboBox; Item41=UseUtf8: TCheckBox; Item42=DataUnicode: TCheckBox; Count=43 [Properties.OutFiles_Lines] Item0=DV - defvars Item1=RV - readvars Item2=WV - writevars Item3=CV - clearvars Item4=RC - readcomp Item5=WC - writecomp Item6=CC - clearcomp Count=7 [Properties.SavedProps_Lines] Item0=DataClient.Checked - Boolean Item1=DataGap.Text - String Item2=DataServer.Checked - Boolean Item3=DataServer.State - TCheckBoxState Item4=HeavyTraffic.Checked - Boolean Item5=HeavyTraffic.State - TCheckBoxState Item6=LocalAddr.Text - String Item7=LocalPort.Text - String Item8=LogErrors.Checked - Boolean Item9=LogErrors.State - TCheckBoxState Item10=LogInfo.Checked - Boolean Item11=LogInfo.State - TCheckBoxState Item12=MaxSockets.Text - String Item13=PingRemote.Checked - Boolean Item14=Protocol.ItemIndex - Integer Item15=ProxyURL.Text - String Item16=RawData.Checked - Boolean Item17=RemoteHosts.Lines - TStringList Item18=RemotePort.Text - String Item19=ReportChain.Checked - Boolean Item20=RevokeCheck.Checked - Boolean Item21=SendFileName.Text - String Item22=ServerPort.Text - String Item23=SocketFamily.ItemIndex - Integer Item24=SrvTimeout.Text - String Item25=SslCACerts.Text - String Item26=SslCertAuth.Text - String Item27=SslCertKey.Text - String Item28=SslCliSec.ItemIndex - Integer Item29=SslDomainName.Text - String Item30=SslCertPassword.Text - String Item31=SslServCert.Text - String Item32=SslSrvSec.ItemIndex - Integer Item33=UseSSL.Checked - Boolean Item34=VerifyCertMode.ItemIndex - Integer Item35=SslCertAutoOrder.Checked - Boolean Item36=SslCertExpireDays.Text - String Item37=SslCertSupplierProto.ItemIndex - Integer Item38=SslCertChallenge.ItemIndex - Integer Item39=SslCertPKeyType.ItemIndex - Integer Item40=SslCertSignDigest.ItemIndex - Integer Item41=SslCertDirWork.Text - String Item42=SslCertProduct.Text - String Item43=DirLogs.Text - String Item44=DnsChlgType.ItemIndex - Integer Item45=DataUnicode.Checked - Boolean Item46=UseUtf8.Checked - Boolean Count=47 [Properties.SuppProps_Lines] Item0=TBCGFilterDialog.Brightness - Integer Item1=TBCGFilterDialog.Contrast - Double Item2=TBCGFilterDialog.Gamma - Double Item3=TCheckBox.Checked - Boolean Item4=TCheckBox.State - TCheckBoxState Item5=TColorComboBox.ColorValue - Integer Item6=TColorComboBox.ItemIndex - Integer Item7=TColorDialog.Color - Integer Item8=TColorDialog.CustomColors - TStringList Item9=TComboBox.Items - TStringList Item10=TComboBox.ItemIndex - Integer Item11=TComboBox.Text - String Item12=TDirectoryEdit.Text - String Item13=TDirectoryListBox.Directory - String Item14=TDriveComboBox.Drive - String Item15=TEdit.Text - String Item16=TFilenameEdit.Text - String Item17=TFontComboBox.Font - TFont Item18=TFontDialog.Font - TFont Item19=TLabel.Caption - String Item20=TLabel.Font - TFont Item21=TListBox.ItemIndex - Integer Item22=TListBox.Items - TStringList Item23=TMaskedEdit.Text - String Item24=TMemo.Lines - TStringList Item25=TMenuItem.Checked - Boolean Item26=TOpenDialog.Filename - String Item27=TOpenDialog.InitialDir - String Item28=TRadioButton.Checked - Boolean Item29=TRadioGroup.ItemIndex - Integer Item30=TSaveDialog.Filename - String Item31=TSaveDialog.InitialDir - String Item32=TSpinEdit.Value - Integer Count=33