[Properties] ArraySize_Value=0 FilePrefix_Text=JoseTest 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=Base64Text: TEdit; Item1=CodeTextLines: TMemo; Item2=CompactXML: TCheckBox; Item3=HexText: TEdit; Item4=JoseTextLines: TMemo; Item5=JsonInput: TMemo; Item6=JwkPrivate: TCheckBox; Item7=LogJson: TCheckBox; Item8=NewPrivKey: TComboBox; Item9=RawJWK: TMemo; Item10=ShowRawKey: TCheckBox; Item11=TestHmacKey: TEdit; Item12=TestJWSAlg: TComboBox; Item13=TestPrivKeyFile: TComboBox; Item14=URLText: TEdit; Count=15 [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=Base64Text.Text - String Item1=CodeTextLines.Lines - TStringList Item2=CompactXML.Checked - Boolean Item3=HexText.Text - String Item4=JoseTextLines.Lines - TStringList Item5=JsonInput.Lines - TStringList Item6=JwkPrivate.Checked - Boolean Item7=LogJson.Checked - Boolean Item8=NewPrivKey.ItemIndex - Integer Item9=NewPrivKey.Text - String Item10=RawJWK.Lines - TStringList Item11=ShowRawKey.Checked - Boolean Item12=TestHmacKey.Text - String Item13=TestJWSAlg.ItemIndex - Integer Item14=TestPrivKeyFile.Text - String Item15=URLText.Text - String Count=16 [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