object MyDebug_Form: TMyDebug_Form Left = 72 Top = 285 Width = 335 Height = 240 BorderIcons = [biSystemMenu] BorderStyle = bsSizeToolWin Caption = #12487#12496#12483#12464 Color = clBtnFace Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] OldCreateOrder = False Position = poDefaultPosOnly Scaled = False OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 12 object pnlCmd: TPanel Left = 0 Top = 176 Width = 327 Height = 30 Align = alBottom BevelOuter = bvNone TabOrder = 0 OnMouseDown = lstDispMouseDown DesignSize = ( 327 30) object btnClear: TButton Left = 20 Top = 5 Width = 75 Height = 21 Caption = #12463#12522#12450 TabOrder = 0 OnClick = btnClearClick end object btnClose: TButton Left = 232 Top = 5 Width = 75 Height = 21 Anchors = [akTop, akRight] Caption = #38281#12376#12427 TabOrder = 1 OnClick = btnCloseClick end object btnWriteLog: TButton Left = 108 Top = 5 Width = 75 Height = 21 Caption = #26360#12365#20986#12375 TabOrder = 2 OnClick = btnWriteLogClick end end object lstDisp: TListBox Left = 0 Top = 40 Width = 121 Height = 97 Style = lbOwnerDrawFixed AutoComplete = False BevelEdges = [] BevelInner = bvNone BevelOuter = bvNone BorderStyle = bsNone Color = clInfoBk Ctl3D = False ExtendedSelect = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clInfoText Font.Height = -12 Font.Name = #65325#65331' '#12468#12471#12483#12463 Font.Style = [] ItemHeight = 16 ParentCtl3D = False ParentFont = False TabOrder = 1 OnDrawItem = lstDispDrawItem OnMouseDown = lstDispMouseDown end end