serial Default %Library.TMFormClass %Library.TMForm %TMGroupBox %TMLabel %TMButton %TMButton %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMGroupBox %TMLabel %TMLabel %TMPanel %TMRadioButton %TMRadioButton %TMRadioButton %TMRadioButton %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal cache 0 %Library.Boolean document literal cache 0 document literal ' ; TabOrder = 2 ; end ; object chkWordWrap: CCheckBox ; Left = 11 ; Top = 44 ; Width = 209 ; Height = 17 ; Caption = 'Word Wrap' ; TabOrder = 3 ; end ; object chkRestoreOnMsg: CCheckBox ; Left = 11 ; Top = 68 ; Width = 209 ; Height = 17 ; Caption = 'Restore (if minimized) when msg arrives' ; TabOrder = 4 ; end ; object chkClearOnRestore: CCheckBox ; Left = 11 ; Top = 92 ; Width = 209 ; Height = 17 ; Caption = 'Clear On Restore' ; TabOrder = 5 ; end ; object chkFullViewOnCreate: CCheckBox ; Left = 11 ; Top = 164 ; Width = 209 ; Height = 17 ; Caption = 'Full View at Startup' ; TabOrder = 6 ; end ; object chkShowJobInfo: CCheckBox ; Left = 12 ; Top = 188 ; Width = 209 ; Height = 17 ; Caption = 'Toon job (sender) info' ; TabOrder = 7 ; end ; end ; object chkSettingsOpslaan: CCheckBox ; Left = 11 ; Top = 374 ; Width = 105 ; Height = 17 ; Anchors = [akLeft, akBottom] ; Caption = 'Settings Opslaan' ; TabOrder = 3 ; end ; object grpQouteMsg: CGroupBox ; Left = 0 ; Top = 215 ; Width = 281 ; Height = 153 ; Caption = ' Messages between Qoutes ' ; Ctl3D = True ; ParentCtl3D = False ; TabOrder = 4 ; object Label1: CLabel ; Left = 13 ; Top = 127 ; Width = 186 ; Height = 13 ; Caption = 'Custom char instead of double Qoutes :' ; end ; object pnlQuoteMsgOpt: CPanel ; Left = 3 ; Top = 14 ; Width = 273 ; Height = 105 ; BevelOuter = bvNone ; TabOrder = 0 ; object lblCondExampleLbl: CLabel ; Left = 123 ; Top = 61 ; Width = 43 ; Height = 13 ; Caption = 'Example:' ; end ; object lblCondExample: CLabel ; Left = 176 ; Top = 61 ; Width = 70 ; Height = 14 ; Caption = 'msg["Test"' ; Font.Charset = ANSI_CHARSET ; Font.Color = clBlue ; Font.Height = -11 ; Font.Name = 'Courier New' ; Font.Style = [] ; ParentFont = False ; end ; object rbQuoteMsg1: CRadioButton ; Tag = 1 ; Left = 10 ; Top = 5 ; Width = 113 ; Height = 17 ; Caption = 'Never' ; Checked = True ; TabOrder = 0 ; TabStop = True ; OnClick = rbQuoteMsgClick ; end ; object rbQuoteMsg2: CRadioButton ; Tag = 2 ; Left = 10 ; Top = 23 ; Width = 113 ; Height = 17 ; Caption = 'Always' ; TabOrder = 1 ; OnClick = rbQuoteMsgClick ; end ; object rbQuoteMsg3: CRadioButton ; Tag = 3 ; Left = 10 ; Top = 41 ; Width = 137 ; Height = 17 ; Caption = 'When text is not visible' ; TabOrder = 2 ; OnClick = rbQuoteMsgClick ; end ; object rbQuoteMsg4: CRadioButton ; Tag = 4 ; Left = 10 ; Top = 59 ; Width = 97 ; Height = 17 ; Caption = 'Other condition' ; TabOrder = 3 ; OnClick = rbQuoteMsgClick ; end ; object txtQuoteConditionCustom: CEdit ; Left = 31 ; Top = 80 ; Width = 233 ; Height = 22 ; Hint = 'Use msg as variable name (case sensitive!!!)' ; Font.Charset = ANSI_CHARSET ; Font.Color = clBlue ; Font.Height = -11 ; Font.Name = 'Courier New' ; Font.Style = [] ; ParentFont = False ; ParentShowHint = False ; ShowHint = True ; TabOrder = 4 ; end ; end ; object txtQuoteCharCustom: CEdit ; Left = 203 ; Top = 123 ; Width = 25 ; Height = 21 ; MaxLength = 1 ; TabOrder = 1 ; end ; end ;end ]]> cache 0 document literal initvalue:%String cache 0 MApplication document literal ",2)) d %this.chkWordWrap.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(11,44,209,17,"Word Wrap",3)) d %this.chkRestoreOnMsg.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(11,68,209,17,"Restore (if minimized) when msg arrives",4)) d %this.chkClearOnRestore.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(11,92,209,17,"Clear On Restore",5)) d %this.chkFullViewOnCreate.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(11,164,209,17,"Full View at Startup",6)) d %this.chkShowJobInfo.SetMultiProperty($lb("Left","Top","Width","Height","Caption","TabOrder"),$lb(12,188,209,17,"Toon job (sender) info",7)) d %this.chkSettingsOpslaan.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Caption","TabOrder"),$lb(11,374,105,17,$lb("akLeft","akBottom"),"Settings Opslaan",3)) d %this.grpQouteMsg.SetMultiProperty($lb("Left","Top","Width","Height","Caption","Ctl3D","ParentCtl3D","TabOrder"),$lb(0,215,281,153," Messages between Qoutes ","True","False",4)) d %this.Label1.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(13,127,186,13,"Custom char instead of double Qoutes :")) d %this.pnlQuoteMsgOpt.SetMultiProperty($lb("Left","Top","Width","Height","BevelOuter","TabOrder"),$lb(3,14,273,105,"bvNone",0)) d %this.lblCondExampleLbl.SetMultiProperty($lb("Left","Top","Width","Height","Caption"),$lb(123,61,43,13,"Example:")) d %this.lblCondExample.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont"),$lb(176,61,70,14,"msg[""Test""","False")) d %this.lblCondExample.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clBlue,-11,"Courier New",$lb())) d %this.rbQuoteMsg1.SetMultiProperty($lb("Tag","Left","Top","Width","Height","Caption","Checked","TabOrder","TabStop","OnClick"),$lb(1,10,5,113,17,"Never","True",0,"True",$lb(%this,"rbQuoteMsgClick"))) d %this.rbQuoteMsg2.SetMultiProperty($lb("Tag","Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(2,10,23,113,17,"Always",1,$lb(%this,"rbQuoteMsgClick"))) d %this.rbQuoteMsg3.SetMultiProperty($lb("Tag","Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(3,10,41,137,17,"When text is not visible",2,$lb(%this,"rbQuoteMsgClick"))) d %this.rbQuoteMsg4.SetMultiProperty($lb("Tag","Left","Top","Width","Height","Caption","TabOrder","OnClick"),$lb(4,10,59,97,17,"Other condition",3,$lb(%this,"rbQuoteMsgClick"))) d %this.txtQuoteConditionCustom.SetMultiProperty($lb("Left","Top","Width","Height","Hint","ParentFont","ParentShowHint","ShowHint","TabOrder"),$lb(31,80,233,22,"Use msg as variable name (case sensitive!!!)","False","False","True",4)) d %this.txtQuoteConditionCustom.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clBlue,-11,"Courier New",$lb())) d %this.txtQuoteCharCustom.SetMultiProperty($lb("Left","Top","Width","Height","MaxLength","TabOrder"),$lb(203,123,25,21,1,1)) s MApplication.ClientState="Wait" q ]]> initvalue:%String cache 0 %Library.Status document literal cache 0 %Library.Integer document literal Index:%Integer cache 0 document literal 0) Do qmrsSetRadio(..rbQuoteMsg1) Do qmrsSetRadio(..rbQuoteMsg2) Do qmrsSetRadio(..rbQuoteMsg3) Do qmrsSetRadio(..rbQuoteMsg4) Quit qmrsSetRadio(rbOref) Set rbOref.Checked=$S(rbOref.Tag=Index:"True", 1:"False") Do:(rbOref.Tag=Index) ..rbQuoteMsgClick($LB(rbOref)) Quit ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState list "%Library.TMFormClass" Address Form Button1 Button2 GroupBox1 btnCancel btnOK chkClearOnRestore chkCloseViaEsc chkCloseWarning chkStayOnTop chkWordWrap chrRestoreOnMsg chkRestoreOnMsg chkSettingsOpslaan chkFullViewStart chkFullViewOnCreate Label1 grpQouteMsg pnlQuoteMsgOpt rbQuoteMsg1 rbQuoteMsg2 rbQuoteMsg3 rbQuoteMsg4 txtCustomCondition txtQuoteCharCustom txtQuoteConditionCustom Label2 Label3 lblCondExample lblCondExampleLbl chkShowJobInfo