serial ReportErrorCNTs,KeyCodesCNTs %Library.TMFormClass %Library.Integer %Library.Integer %Library.Integer %Library.Integer %Library.String %Library.String %Library.TMForm %Library.String "False" %TMShape %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMComboBox %TMLabel %TMLabel %TMPanel %TMRichEdit initvalue:%String 0 %Status 0 0 >' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clBlack ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnDetailsClick ; end ; object btnOk: CSpeedButton ; Left = 422 ; Top = 74 ; Width = 79 ; Height = 22 ; Anchors = [akTop, akRight] ; Color = 8961416 ; Caption = '&Ok' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clBlack ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; OnClick = btnOkClick ; end ; object pnlDetails: CPanel ; Left = 7 ; Top = 111 ; Width = 494 ; Height = 345 ; Color = 12058566 ; TabOrder = 0 ; Visible = False ; object btnStackDump: CSpeedButton ; Left = 8 ; Top = 8 ; Width = 88 ; Height = 21 ; Color = 11522991 ; Caption = '&Stackdump...' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clBlack ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnStackDumpClick ; end ; object btnLastObjErr: CSpeedButton ; Left = 104 ; Top = 8 ; Width = 88 ; Height = 21 ; Color = 11522991 ; Caption = '&Last object error' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clBlack ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnLastObjErrClick ; end ; object btnWatchWindow: CSpeedButton ; Left = 200 ; Top = 8 ; Width = 88 ; Height = 21 ; Color = 11522991 ; Caption = '&Watch window' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clBlack ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnWatchWindowClick ; end ; object btnCacheSpy: CSpeedButton ; Left = 296 ; Top = 8 ; Width = 88 ; Height = 21 ; Color = 11522991 ; Caption = '&Cache dbug spy' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clBlack ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnCacheSpyClick ; end ; object btnExecute: CSpeedButton ; Left = 454 ; Top = 318 ; Width = 31 ; Height = 21 ; Anchors = [akRight, akBottom] ; Color = 11522991 ; Caption = '&Go' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clBlack ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; ParentFont = False ; OnClick = btnExecuteClick ; end ; object reDetails: CRichEdit ; Left = 8 ; Top = 35 ; Width = 478 ; Height = 278 ; Anchors = [akLeft, akTop, akRight, akBottom] ; Color = 15794163 ; Font.Charset = ANSI_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'Courier New' ; Font.Style = [] ; ParentFont = False ; ScrollBars = ssVertical ; TabOrder = 0 ; end ; object cbbExecute: CComboBox ; Left = 8 ; Top = 319 ; Width = 447 ; Height = 21 ; Anchors = [akLeft, akRight, akBottom] ; ItemHeight = 13 ; TabOrder = 1 ; OnKeyDown = cbbExecuteKeyDown ; end ; end ;end ]]> Args:%String 0 Args:%String 0 Args:%String 0 0 initvalue:%String 0 MApplication >","False",$lb(%this,"btnDetailsClick"))) d %this.btnDetails.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb())) d %this.btnOk.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ParentFont","OnClick"),$lb(422,74,79,22,$lb("akTop","akRight"),8961416,"&Ok","False",$lb(%this,"btnOkClick"))) d %this.btnOk.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb("fsBold"))) d %this.pnlDetails.SetMultiProperty($lb("Left","Top","Width","Height","Color","TabOrder","Visible"),$lb(7,111,494,345,12058566,0,"False")) d %this.btnStackDump.SetMultiProperty($lb("Left","Top","Width","Height","Color","Caption","ParentFont","OnClick"),$lb(8,8,88,21,11522991,"&Stackdump...","False",$lb(%this,"btnStackDumpClick"))) d %this.btnStackDump.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb())) d %this.btnLastObjErr.SetMultiProperty($lb("Left","Top","Width","Height","Color","Caption","ParentFont","OnClick"),$lb(104,8,88,21,11522991,"&Last object error","False",$lb(%this,"btnLastObjErrClick"))) d %this.btnLastObjErr.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb())) d %this.btnWatchWindow.SetMultiProperty($lb("Left","Top","Width","Height","Color","Caption","ParentFont","OnClick"),$lb(200,8,88,21,11522991,"&Watch window","False",$lb(%this,"btnWatchWindowClick"))) d %this.btnWatchWindow.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb())) d %this.btnCacheSpy.SetMultiProperty($lb("Left","Top","Width","Height","Color","Caption","ParentFont","OnClick"),$lb(296,8,88,21,11522991,"&Cache dbug spy","False",$lb(%this,"btnCacheSpyClick"))) d %this.btnCacheSpy.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb())) d %this.btnExecute.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","Caption","ParentFont","OnClick"),$lb(454,318,31,21,$lb("akRight","akBottom"),11522991,"&Go","False",$lb(%this,"btnExecuteClick"))) d %this.btnExecute.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb())) d %this.reDetails.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","Color","ParentFont","ScrollBars","TabOrder"),$lb(8,35,478,278,$lb("akLeft","akTop","akRight","akBottom"),15794163,"False","ssVertical",0)) d %this.reDetails.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$ANSICHARSET,$$$clWindowText,-11,"Courier New",$lb())) d %this.cbbExecute.SetMultiProperty($lb("Left","Top","Width","Height","Anchors","ItemHeight","TabOrder","OnKeyDown"),$lb(8,319,447,21,$lb("akLeft","akRight","akBottom"),13,1,$lb(%this,"cbbExecuteKeyDown"))) s MApplication.ClientState="Wait" q ]]> initvalue:%String 0 %Library.Status Place,Error,Msg:%String 0 Args:%String 0 Args:%String 0 >" . Set ..Form.ClientHeight=105 . ;Set ..Form.ClientWidth=354 . Do ..CenterForm() . Set Sender.Tag=0 ;End of user code s Args=$lb(Sender) q ]]> Args:%String 0 ",1)_ "> ") Do ..reDetails.Lines.Add("") Set ..reDetails.SelAttributes.Style=$LB() Do ..reDetails.Lines.Add(ShowCode) Quit ]]> Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 %Library.CacheSerialState list Address Form Shape SpeedButton1 SpeedButton2 SpeedButton3 lblError lblMsg btnDetails btnOk btnReportError btnToonDetails cbbDetailType reDetails btnLastObjErr btnStackDump btnExecute txtXecute btnWatchWindow ErrorPlace Bevel1 Panel1 pnlDetails ExtraSendMsg BaseX BaseY Moving BaseLeft BaseTop btnCacheSpy cbbExecute