DOS/V Power Report 2001 December (DVD)

home *** CD-ROM | disk | FTP | other *** search

/ DOS/V Power Report 2001 December (DVD) / VPR0112A.ISO / OLS / POPS273 / Pops273.LZH / Pops.exe / 0 / RCDATA / TPOPSMAINFORM / TPOPSMAINFORM.txt < prev

Wrap

Text File | 2001-08-18 | 68KB | 2,209 lines

object PopsMainForm: TPopsMainForm Left = 309 Top = 102 BorderStyle = bsNone Caption = 'Pops' ClientHeight = 230 ClientWidth = 268 Color = clBtnFace Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] FormStyle = fsStayOnTop KeyPreview = True OldCreateOrder = True PopupMenu = dlgPopUp OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnMouseMove = FormMouseMove OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object pnlBase: TPanel Left = 0 Top = 0 Width = 268 Height = 230 Align = alClient BorderWidth = 1 ParentShowHint = False ShowHint = False TabOrder = 0 OnDblClick = pnlTopDblClick OnMouseMove = FormMouseMove object pnlTop: TPanel Left = 2 Top = 2 Width = 264 Height = 16 Align = alTop BevelOuter = bvNone Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] ParentFont = False ParentShowHint = False PopupMenu = dlgPopUp ShowHint = True TabOrder = 0 OnDblClick = pnlTopDblClick OnMouseDown = pnlTopMouseDown OnMouseMove = FormMouseMove object lblTime: TLabel Left = 38 Top = 0 Width = 37 Height = 16 Align = alLeft Caption = 'lblTime' PopupMenu = dlgPopUp Layout = tlCenter OnDblClick = pnlTopDblClick OnMouseDown = pnlTopMouseDown OnMouseMove = FormMouseMove end object lblDot: TLabel Left = 75 Top = 0 Width = 6 Height = 16 Align = alLeft Caption = 'x' Layout = tlCenter OnDblClick = pnlTopDblClick OnMouseDown = pnlTopMouseDown OnMouseMove = FormMouseMove end object lblDate: TLabel Left = 2 Top = 0 Width = 36 Height = 16 Align = alLeft Caption = 'lblDate' PopupMenu = dlgPopUp Layout = tlCenter OnDblClick = pnlTopDblClick OnMouseDown = pnlTopMouseDown OnMouseMove = FormMouseMove end object spbClose: TSpeedButton Left = 241 Top = 0 Width = 14 Height = 14 Hint = 'ｿｽIｿｽｿｽ' Enabled = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Glyph.Data = { 9E010000424D9E0100000000000036000000280000000C0000000A0000000100 1800000000006801000000000000000000000000000000000000AFAFAFAFAFAF AFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAF AFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAF AFAFAFAFAFAFAFAF000000000000AFAFAFAFAFAFAFAFAFAFAFAF000000000000 AFAFAFAFAFAFAFAFAFAFAFAFAFAFAF000000000000AFAFAFAFAFAF0000000000 00AFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAF00000000000000000000 0000AFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAF000000 000000AFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAF0000 00000000000000000000AFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAF00 0000000000AFAFAFAFAFAF000000000000AFAFAFAFAFAFAFAFAFAFAFAFAFAFAF 000000000000AFAFAFAFAFAFAFAFAFAFAFAF000000000000AFAFAFAFAFAFAFAF AFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAF AFAF} Layout = blGlyphRight ParentFont = False ParentShowHint = False ShowHint = True OnClick = mnuPerentClick end object spbOK: TSpeedButton Left = 208 Top = 0 Width = 29 Height = 14 Caption = 'OK' Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = spbOKClick end object pnlSpace: TPanel Left = 0 Top = 0 Width = 2 Height = 16 Align = alLeft BevelOuter = bvNone ParentColor = True TabOrder = 0 OnDblClick = pnlTopDblClick OnMouseDown = pnlTopMouseDown OnMouseMove = FormMouseMove end end object pnlBotBase: TPanel Left = 2 Top = 18 Width = 264 Height = 210 Align = alClient BevelOuter = bvNone BorderWidth = 1 TabOrder = 1 object pnlBot: TPanel Left = 1 Top = 1 Width = 262 Height = 208 Align = alClient BevelOuter = bvLowered Color = clBlack ParentShowHint = False ShowHint = False TabOrder = 0 OnDblClick = imgPopDblClick OnMouseDown = pnlBotMouseDown object ImgPop: TImage Left = 1 Top = 1 Width = 160 Height = 192 AutoSize = True OnDblClick = imgPopDblClick OnMouseDown = pnlBotMouseDown OnMouseMove = FormMouseMove end object lblDummyDot: TLabel Left = 224 Top = 176 Width = 6 Height = 12 Caption = 'x' Visible = False end object lblDummyTime: TLabel Left = 224 Top = 195 Width = 34 Height = 12 Caption = '88:88 ' Visible = False end object imgMailIcon: TImage Left = 222 Top = 114 Width = 33 Height = 33 Picture.Data = {<image000.ico>} Visible = False end object imgHot: TImage Left = 240 Top = 176 Width = 16 Height = 16 AutoSize = True Picture.Data = {<image001.bmp>} Transparent = True Visible = False end object pnlCal: TPanel Left = 0 Top = 0 Width = 147 Height = 177 BevelOuter = bvNone Color = clGray TabOrder = 0 Visible = False object spbCalClose: TSpeedButton Left = 0 Top = 161 Width = 51 Height = 17 Hint = 'ｿｽJｿｽｿｽｿｽｿｽｿｽ_ｿｽ[ｿｽ\ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽ' BiDiMode = bdLeftToRight Caption = 'ｿｽﾂゑｿｽｿｽｿｽ' Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ParentBiDiMode = False ShowHint = True OnClick = spbCalCloseClick end object spbPriv: TSpeedButton Left = 51 Top = 161 Width = 18 Height = 17 Hint = 'ｿｽOｿｽｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾜゑｿｽ' Caption = '<<' Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = spbPrivClick end object spbNext: TSpeedButton Left = 111 Top = 161 Width = 18 Height = 17 Hint = 'ｿｽｿｽｿｽｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾜゑｿｽ' Caption = '>>' Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = spbNextClick end object spbToday: TSpeedButton Left = 69 Top = 161 Width = 42 Height = 17 Hint = 'ｿｽｿｽｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾉ戻ゑｿｽｿｽﾜゑｿｽ' Caption = 'Today' Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = spbTodayClick end object spbHLDset: TSpeedButton Left = 129 Top = 161 Width = 18 Height = 17 Hint = 'ｿｽxｿｽｿｽｿｽvｿｽｿｽﾝ定モｿｽ[ｿｽhｿｽﾉ難ｿｽｿｽｿｽﾜゑｿｽ' AllowAllUp = True GroupIndex = 1 Caption = 'ｿｽx' Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Layout = blGlyphBottom ParentFont = False ParentShowHint = False ShowHint = True OnClick = spbHLDsetClick end object pnlWeek1: TPanel Tag = 1 Left = 0 Top = 16 Width = 21 Height = 20 Hint = 'ｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽﾌ色ｿｽﾏ更' Caption = 'ｿｽｿｽ' UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clRed Font.Height = -15 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnDblClick = pnlWeek7DblClick end object pnlWeek2: TPanel Tag = 2 Left = 21 Top = 16 Width = 21 Height = 20 Hint = 'ｿｽxｿｽｿｽｿｽvｿｽｿｽﾝ抵ｿｽwｿｽiｿｽﾌ色ｿｽﾏ更' Caption = 'ｿｽｿｽ' UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -15 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnDblClick = pnlWeek7DblClick end object pnlWeek3: TPanel Tag = 3 Left = 42 Top = 16 Width = 21 Height = 20 Hint = 'ｿｽxｿｽｿｽｿｽvｿｽｿｽｿｽｿｽﾌ色ｿｽﾏ更' Caption = 'ｿｽｿｽ' UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -15 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 OnDblClick = pnlWeek7DblClick end object pnlWeek4: TPanel Tag = 4 Left = 63 Top = 16 Width = 21 Height = 20 Hint = 'ｿｽﾊ擾ｿｽｿｽｿｽﾌ色ｿｽﾏ更' Caption = 'ｿｽｿｽ' UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -15 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 OnDblClick = pnlWeek7DblClick end object pnlWeek5: TPanel Tag = 5 Left = 84 Top = 16 Width = 21 Height = 20 Hint = 'ｿｽJｿｽｿｽｿｽｿｽｿｽ_ｿｽ[ｿｽwｿｽiｿｽﾌ色ｿｽﾏ更' Caption = 'ｿｽｿｽ' UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -15 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 4 OnDblClick = pnlWeek7DblClick end object pnlWeek6: TPanel Tag = 6 Left = 105 Top = 16 Width = 21 Height = 20 Hint = 'ｿｽｿｽﾘゑｿｽFｿｽﾌ変更' Caption = 'ｿｽｿｽ' UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -15 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 5 OnDblClick = pnlWeek7DblClick end object pnlWeek7: TPanel Tag = 7 Left = 126 Top = 16 Width = 21 Height = 20 Hint = 'ｿｽyｿｽjｿｽｿｽｿｽﾌ色ｿｽﾏ更' Caption = 'ｿｽy' UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clAqua Font.Height = -15 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 6 OnDblClick = pnlWeek7DblClick end object pnlDay1: TPanel Tag = 1 Left = 0 Top = 36 Width = 20 Height = 20 BevelOuter = bvNone Caption = '1' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 7 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay2: TPanel Tag = 2 Left = 21 Top = 36 Width = 20 Height = 20 BevelOuter = bvNone Caption = '2' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 8 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay3: TPanel Tag = 3 Left = 42 Top = 36 Width = 20 Height = 20 BevelOuter = bvNone Caption = '3' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 9 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay4: TPanel Tag = 4 Left = 63 Top = 36 Width = 20 Height = 20 BevelOuter = bvNone Caption = '4' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 10 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay5: TPanel Tag = 5 Left = 84 Top = 36 Width = 20 Height = 20 BevelOuter = bvNone Caption = '5' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 11 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay6: TPanel Tag = 6 Left = 105 Top = 36 Width = 20 Height = 20 BevelOuter = bvNone Caption = '6' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 12 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay7: TPanel Tag = 7 Left = 126 Top = 36 Width = 21 Height = 20 BevelOuter = bvNone Caption = '7' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 13 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay8: TPanel Tag = 8 Left = 0 Top = 57 Width = 20 Height = 20 BevelOuter = bvNone Caption = '8' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 14 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay9: TPanel Tag = 9 Left = 21 Top = 57 Width = 20 Height = 20 BevelOuter = bvNone Caption = '9' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 15 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay10: TPanel Tag = 10 Left = 42 Top = 57 Width = 20 Height = 20 BevelOuter = bvNone Caption = '10' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 16 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay11: TPanel Tag = 11 Left = 63 Top = 57 Width = 20 Height = 20 BevelOuter = bvNone Caption = '11' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 17 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay12: TPanel Tag = 12 Left = 84 Top = 57 Width = 20 Height = 20 BevelOuter = bvNone Caption = '12' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 18 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay13: TPanel Tag = 13 Left = 105 Top = 57 Width = 20 Height = 20 BevelOuter = bvNone Caption = '13' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 19 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay14: TPanel Tag = 14 Left = 126 Top = 57 Width = 21 Height = 20 BevelOuter = bvNone Caption = '14' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 20 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay15: TPanel Tag = 15 Left = 0 Top = 78 Width = 20 Height = 20 BevelOuter = bvNone Caption = '15' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 21 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay16: TPanel Tag = 16 Left = 21 Top = 78 Width = 20 Height = 20 BevelOuter = bvNone Caption = '16' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 22 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay17: TPanel Tag = 17 Left = 42 Top = 78 Width = 20 Height = 20 BevelOuter = bvNone Caption = '17' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 23 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay18: TPanel Tag = 18 Left = 63 Top = 78 Width = 20 Height = 20 BevelOuter = bvNone Caption = '18' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 24 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay19: TPanel Tag = 19 Left = 84 Top = 78 Width = 20 Height = 20 BevelOuter = bvNone Caption = '19' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 25 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay20: TPanel Tag = 20 Left = 105 Top = 78 Width = 20 Height = 20 BevelOuter = bvNone Caption = '20' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 26 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay21: TPanel Tag = 21 Left = 126 Top = 78 Width = 21 Height = 20 BevelOuter = bvNone Caption = '21' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 27 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay22: TPanel Tag = 22 Left = 0 Top = 99 Width = 20 Height = 20 BevelOuter = bvNone Caption = '22' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 28 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay23: TPanel Tag = 23 Left = 21 Top = 99 Width = 20 Height = 20 BevelOuter = bvNone Caption = '23' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 29 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay24: TPanel Tag = 24 Left = 42 Top = 99 Width = 20 Height = 20 BevelOuter = bvNone Caption = '24' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 30 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay25: TPanel Tag = 25 Left = 63 Top = 99 Width = 20 Height = 20 BevelOuter = bvNone Caption = '25' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 31 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay26: TPanel Tag = 26 Left = 84 Top = 99 Width = 20 Height = 20 BevelOuter = bvNone Caption = '26' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 32 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay27: TPanel Tag = 27 Left = 105 Top = 99 Width = 20 Height = 20 BevelOuter = bvNone Caption = '27' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 33 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay28: TPanel Tag = 28 Left = 126 Top = 99 Width = 21 Height = 20 BevelOuter = bvNone Caption = '28' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 34 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay29: TPanel Tag = 29 Left = 0 Top = 120 Width = 20 Height = 20 BevelOuter = bvNone Caption = '29' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 35 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay30: TPanel Tag = 30 Left = 21 Top = 120 Width = 20 Height = 20 BevelOuter = bvNone Caption = '30' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 36 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay31: TPanel Tag = 31 Left = 42 Top = 120 Width = 20 Height = 20 BevelOuter = bvNone Caption = '31' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 37 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay32: TPanel Tag = 32 Left = 63 Top = 120 Width = 20 Height = 20 BevelOuter = bvNone Caption = '32' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 38 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay33: TPanel Tag = 33 Left = 84 Top = 120 Width = 20 Height = 20 BevelOuter = bvNone Caption = '33' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 39 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay34: TPanel Tag = 34 Left = 105 Top = 120 Width = 20 Height = 20 BevelOuter = bvNone Caption = '34' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 40 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay35: TPanel Tag = 35 Left = 126 Top = 120 Width = 21 Height = 20 BevelOuter = bvNone Caption = '35' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 41 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay36: TPanel Tag = 36 Left = 0 Top = 141 Width = 20 Height = 20 BevelOuter = bvNone Caption = '36' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 42 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay37: TPanel Tag = 37 Left = 21 Top = 141 Width = 20 Height = 20 BevelOuter = bvNone Caption = '37' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 43 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay38: TPanel Tag = 38 Left = 42 Top = 141 Width = 20 Height = 20 BevelOuter = bvNone Caption = '38' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 44 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay39: TPanel Tag = 39 Left = 63 Top = 141 Width = 20 Height = 20 BevelOuter = bvNone Caption = '39' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 45 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay40: TPanel Tag = 40 Left = 84 Top = 141 Width = 20 Height = 20 BevelOuter = bvNone Caption = '40' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 46 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay41: TPanel Tag = 41 Left = 105 Top = 141 Width = 20 Height = 20 BevelOuter = bvNone Caption = '41' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 47 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlDay42: TPanel Tag = 42 Left = 126 Top = 141 Width = 21 Height = 20 BevelOuter = bvNone Caption = '42' Color = clBlack Ctl3D = False UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 48 OnClick = pnlDay1Click OnDblClick = pnlDay1DblClick end object pnlToday: TPanel Left = 0 Top = 0 Width = 147 Height = 16 Hint = 'ｿｽJｿｽｿｽｿｽｿｽｿｽ_ｿｽ[ｿｽFｿｽｿｽｿｽfｿｽtｿｽHｿｽｿｽｿｽgｿｽﾉ戻ゑｿｽ' Caption = '1999ｿｽN1ｿｽｿｽ' UseDockManager = False FullRepaint = False Font.Charset = SHIFTJIS_CHARSET Font.Color = clBtnText Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN' Font.Style = [] Locked = True ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 49 OnDblClick = pnlTodayDblClick end end object pnlDial: TPanel Left = 0 Top = 0 Width = 152 Height = 70 Hint = 'ｿｽNｿｽｿｽｿｽbｿｽNｿｽﾅ接托ｿｽｿｽｿｽﾔ表ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽﾜゑｿｽ' BevelOuter = bvNone Color = clWindow ParentShowHint = False ShowHint = True TabOrder = 1 Visible = False object imgDial: TImage Left = 0 Top = 0 Width = 152 Height = 70 Picture.Data = {<image002.bmp>} Stretch = True OnDblClick = pnlTopDblClick OnMouseDown = imgDialMouseDown end object lblMail: TLabel Left = 45 Top = 53 Width = 24 Height = 12 Caption = '----' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽSｿｽVｿｽbｿｽN' Font.Style = [] ParentColor = False ParentFont = False Transparent = True OnDblClick = pnlTopDblClick OnMouseDown = imgDialMouseDown end object lblState: TLabel Left = 45 Top = 37 Width = 24 Height = 12 Caption = '----' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽSｿｽVｿｽbｿｽN' Font.Style = [] ParentColor = False ParentFont = False Transparent = True OnDblClick = pnlTopDblClick OnMouseDown = imgDialMouseDown end object lblAction: TLabel Left = 45 Top = 21 Width = 24 Height = 12 Caption = '----' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽSｿｽVｿｽbｿｽN' Font.Style = [] ParentColor = False ParentFont = False Transparent = True OnDblClick = pnlTopDblClick OnMouseDown = imgDialMouseDown end object lblAp: TLabel Left = 45 Top = 5 Width = 24 Height = 12 Caption = '----' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽSｿｽVｿｽbｿｽN' Font.Style = [] ParentColor = False ParentFont = False Transparent = True OnDblClick = pnlTopDblClick OnMouseDown = imgDialMouseDown end object lblStateTitle: TLabel Left = 10 Top = 37 Width = 24 Height = 12 Caption = 'ｿｽｿｽｿｽ' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽSｿｽVｿｽbｿｽN' Font.Style = [] ParentColor = False ParentFont = False Transparent = True OnDblClick = pnlTopDblClick OnMouseDown = imgDialMouseDown end object lblMailTitle: TLabel Left = 10 Top = 53 Width = 24 Height = 12 Caption = 'Mail' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽSｿｽVｿｽbｿｽN' Font.Style = [] ParentColor = False ParentFont = False Transparent = True OnDblClick = pnlTopDblClick OnMouseDown = imgDialMouseDown end object lblActionTitle: TLabel Left = 10 Top = 21 Width = 24 Height = 12 Caption = 'ｿｽﾚ托ｿｽ' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽSｿｽVｿｽbｿｽN' Font.Style = [] ParentColor = False ParentFont = False Transparent = True OnDblClick = pnlTopDblClick OnMouseDown = imgDialMouseDown end object Label1: TLabel Left = 10 Top = 5 Width = 24 Height = 12 Caption = 'APｿｽｿｽ' Font.Charset = SHIFTJIS_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'ｿｽlｿｽr ｿｽSｿｽVｿｽbｿｽN' Font.Style = [] ParentColor = False ParentFont = False Transparent = True OnDblClick = pnlTopDblClick OnMouseDown = imgDialMouseDown end end end end end object dlgPopUp: TPopupMenu AutoHotkeys = maManual AutoLineReduction = maManual Images = imlDummy Left = 227 Top = 54 object mnuManual1: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550B30555000 0000550B305507777770550B305077777705550B300000000055550300000000 00555500870F0F0F80550087770F0F0F80550777770F0F0F80550777070F0F0F 80550777970F0F0F805507779700808080550777977008880555079997777000 5555079997770855555550777708555555555500085555555555} Caption = 'ｿｽｿｽ-ｿｽｿｽｿｽｿｽ-ｿｽｿｽ-ｿｽf(&C)' ShortCut = 113 OnClick = mnuManual1Click end object mnuManual2: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550B30000005 5555550B01113330555500000991BB300000AAAA2991BB32AAAA00000F91FB30 000055000F91FB30805500877000000F80550777770F0F0F80550777070F0F0F 80550777970F0F0F805507779700808080550777977008880555079997777000 5555079997770855555550777708555555555500085555555555} Caption = 'ｿｽｿｽ-ｿｽｿｽｿｽｿｽ-ｿｽｿｽ(&O)' ShortCut = 122 OnClick = mnuManual2Click end object mnuTimer: TMenuItem Caption = 'ｿｽﾘ断ｿｽ^ｿｽCｿｽ}ｿｽ[(&T)' object mnuTimer1: TMenuItem Tag = 1 Caption = '10ｿｽｿｽｿｽｿｽﾘ断(&1)' RadioItem = True OnClick = mnuTimer1Click end object mnuTimer2: TMenuItem Tag = 2 Caption = '30ｿｽｿｽｿｽｿｽﾘ断(&2)' RadioItem = True OnClick = mnuTimer1Click end object mnuTimer3: TMenuItem Tag = 3 Caption = 'ｿｽPｿｽｿｽｿｽﾔ鯉ｿｽﾘ断(&3)' RadioItem = True OnClick = mnuTimer1Click end object mnuTimer4: TMenuItem Tag = 4 Caption = 'ｿｽRｿｽｿｽｿｽﾔ鯉ｿｽﾘ断(4)' RadioItem = True OnClick = mnuTimer1Click end end object N1: TMenuItem Caption = '-' end object mnuMailerON: TMenuItem Tag = 1 Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333300000033333000000BBBB0000000FFFF00BB00FFFF00FFFF80BB0FF FFF00FFFFF0BB0FFFFF00FFFF80BB08FFFF00FFFFF0BB0FF99900F888F0BB0FF 9CA00FFFFF0BB0FF9A900000000BB00000003333300BB0033333333330BBBB03 3333333330000003333333333333333333333333333333333333} Caption = 'ｿｽｿｽｿｽ[ｿｽｿｽｿｽ[1ON(&M)' ShortCut = 115 OnClick = mnuMailerONClick end object mnuMailer2ON: TMenuItem Tag = 2 Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300000000033300000BBBBBBB00000FFF00BB0BB00FF00FFFF0BB0BB0 FFF00FFFF0BB0BB0FFF00FFFF0BB0BB0FFF00FFFF0BB0BB099900F8880BB0BB0 9CA00FFFF0BB0BB09A90000000BB0BB00000333300BB0BB0033333330BBBBBBB 0333333300000000033333333333333333333333333333333333} Caption = 'ｿｽｿｽｿｽ[ｿｽｿｽｿｽ[2ON(&N)' ShortCut = 116 OnClick = mnuMailerONClick end object mnuPopsON: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00C000000CCC00 000CC07FFF0000FFF70CCC0FFFFFFFFFF0CC0000003BB30000CC0F0FFFF77FFF F0CC0F0FFFF00FFFF0CC0FFFFFF00FFFF0CC00FFF80008FFF0CCC00000FFF0FF F0CCCCCC0F9F9F0FF0CCCCC0FFF1FFF0FF0CCCC078F7F8770FF0CC0870787078 00F0CC08777877780C00CC07788888770CCCCC00000000000CCC} Caption = 'Pops ON/OFF(&D)' ShortCut = 117 OnClick = mnuPopsONClick end object mnuCal: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333300000000000000000FF8FF8FF8FF8FF009F89F89F89F89F0088888888888 88800FF8FF8FF8FF8FF009F89F89F89F89F008888888888888800FF8FF8FF8FF 8FF009F89F89F89F89F008888888888888800FF8FF8FF8FF8FF009F89F89F89F 89F000000000000000000AAAAA2222AAAAA00000000000000000} Caption = 'ｿｽｿｽｿｽｿｽﾞｰ ON/OFF(&K)' ShortCut = 119 OnClick = mnuCalClick end object mnuFusenAll: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00111111111111 1111B111111B1111111B1B11111B311111B11BB3111BB1113BB1136666666666 6666100000000000000610EEEEEEEEEEEE0610EEEE0000000E0610E00EEEEEEE EE0610E00E0000000E0610EEEEEEEEEEEE0110000000000000011BB3111BB111 3BB11B11111B311111B1B111111B1111111B1111111111111111} Caption = 'ｿｽt箋趣ｿｽ ON/OFF(&F)' ShortCut = 123 OnClick = mnuFusenAllClick end object mnuRsBox: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500000000000 00050BBBBBBBBBBBBBB00BBB30000003BBB00BB003BBBB300BB00BBBBBBBBBBB BBB00BBBB000000BBBB00BBBB033330BBBB00BBBB000000BBBB00BBBBBBBBBBB BBB00000000000000000500FFFFFFFFFF0055500000000000055550777777777 7055550000000000005555088888888880555500000000000055} Caption = 'ｿｽｿｽｿｽｿｽMｿｽｿｽｿｽ\ｿｽｿｽ(&Q)' ShortCut = 118 OnClick = mnuRsBoxClick end object mnuLuncher: TMenuItem Caption = 'ｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽ[ｿｽEｿｽ}ｿｽNｿｽｿｽ(&L)' end object N2: TMenuItem Caption = '-' end object mnuPlan: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031 00333310009090001333330098F0F8900333370980FFF08907333099FF0FFFF9 90333090FFF0FF0090333099FFF0FFF99033370980F0F0890733330098F0F890 0333000009999900000308870000000877030888877078888703307880707088 7033337003303300733333333300033333333333333333333333} Caption = 'ｿｽ\ｿｽ闔橸ｿｽﾔ設抵ｿｽ(&P)...' ShortCut = 120 OnClick = mnuPlanClick end object mnuLunchSet: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 033330000088888880330888880000000333089BA88000333300088888887703 30700877777877000880080000787708087008777778770F0770088888887700 0F700FFF000FFF0330F030000700003333003330703333333333300703333333 33330F7033333333333330F03333333333333303333333333333} Caption = 'ｿｽｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽ[ｿｽﾝ抵ｿｽ(&E)...' ShortCut = 121 OnClick = mnuLunchSetClick end object mnuWrite: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00110000000000 0001110AAAAAAAAAAA01100000000AAAAA0110BBBBBB00AAAA0110BBBBBB030A AA0110B000000330AA0110BBBBBB00000A0110B00000BBBB0A0110BBBBBBBBBB 0A0110B00000000B0A0110BBBBBBBBBB0A0110B00000000B0A0110BBBBBBBBBB 0A0110B00000000B0A0110BBBBBBBBBB00011000000000000111} Caption = 'ｿｽt箋趣ｿｽｿｽﾝ抵ｿｽ(&B)...' ShortCut = 114 OnClick = mnuWriteClick end object mnuSetting: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 500055555555555550B055555555555000B0555555555550B3B0555555555000 3B055555555500B3B055555555550B3B05555800050003B0555580BBB00B3B05 55550BBBBBB3B05555550BBBBBBB055555550BB003BB0855555588B003BBB055 555550BB33BBB05555555508BBBB085555555558000085555555} Caption = 'ｿｽeｿｽｿｽﾝ抵ｿｽ(&S)...' OnClick = mnuSettingClick end object mnuDisp: TMenuItem Caption = 'ｿｽ\ｿｽｿｽｿｽﾝ抵ｿｽ(&W)' object mnuWareki: TMenuItem Tag = 1 Caption = 'ｿｽaｿｽｿｽ(&1)' OnClick = mnuTimeClick end object mnuSeireki: TMenuItem Tag = 2 Caption = 'ｿｽｿｽｿｽｿｽ(&2)' OnClick = mnuTimeClick end object mnuDate: TMenuItem Tag = 3 Caption = 'ｿｽｿｽｿｽｿｽ(&3)' Checked = True OnClick = mnuTimeClick end object mnuWeek: TMenuItem Tag = 4 Caption = 'ｿｽT(&4)' Checked = True OnClick = mnuTimeClick end object mnuTime: TMenuItem Tag = 5 Caption = 'ｿｽｿｽｿｽｿｽ(&5)' Checked = True OnClick = mnuTimeClick end object mnuClose: TMenuItem Tag = 6 Caption = 'ｿｽmXｿｽnｿｽIｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽ(&6)' Checked = True OnClick = mnuTimeClick end object mnuFusen: TMenuItem Tag = 7 Caption = 'ｿｽt箋趣ｿｽ(&7)' Checked = True OnClick = mnuTimeClick end object N5: TMenuItem Caption = '-' end object mnuPosiMode0: TMenuItem Caption = 'ｿｽ\ｿｽｿｽｿｽﾊ置ｿｽｿｽｿｽR(&F)' RadioItem = True OnClick = mnuPosiMode0Click end object mnuPosiMode1: TMenuItem Tag = 1 Caption = 'ｿｽ\ｿｽｿｽｿｽﾊ置ｿｽｿｽｿｽｿｽﾅ抵ｿｽ(&L)' RadioItem = True OnClick = mnuPosiMode0Click end object mnuPosiMode2: TMenuItem Tag = 2 Caption = 'ｿｽ\ｿｽｿｽｿｽﾊ置ｿｽｿｽｿｽｿｽﾅ抵ｿｽ(&C)' RadioItem = True OnClick = mnuPosiMode0Click end object mnuPosiMode3: TMenuItem Tag = 3 Caption = 'ｿｽ\ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾊ置ｿｽﾉ固抵ｿｽ(&X)' RadioItem = True OnClick = mnuPosiMode0Click end end object N4: TMenuItem Caption = '-' end object mnuHelp: TMenuItem Caption = 'Popsｿｽwｿｽｿｽｿｽv(&H)' ShortCut = 112 OnClick = mnuHelpClick end object mnuVer: TMenuItem Caption = 'ｿｽoｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽ(&V)' OnClick = mnuVerClick end object mnuPerent: TMenuItem Caption = 'ｿｽIｿｽｿｽ(&X)' OnClick = mnuPerentClick end end object dlgColor: TColorDialog Ctl3D = True Left = 227 Top = 27 end object timSlide: TTimer Enabled = False Interval = 100 OnTimer = timSlideTimer Left = 195 Top = 24 end object timMin: TTimer Enabled = False Interval = 500 OnTimer = timMinTimer Left = 195 Top = 109 end object timRet: TTimer Enabled = False Interval = 10000 OnTimer = timRetTimer Left = 195 Top = 54 end object timSec: TTimer Enabled = False OnTimer = timSecTimer Left = 195 Top = 81 end object TrayIcon: TTrayIcon LBPopupMenu = dlgDummy RBPopupMenu = dlgPopUp TipHelp = 'TipHelp' OnClick = TrayIconClick OnDblClick = TrayIconDblClick Left = 227 Top = 81 end object srvPOP3: TKTcpServer Tag = 1 OnError = srvPOP3Error Active = False Port = 110 RecvMode = ktrmBinary OnConnect = srvPOP3Connect OnRcvReady = srvPOP3RcvReady OnSendEmpty = srvPOP3SendEmpty OnDisconnect = srvPOP3Disconnect OnChildError = srvPOP3ChildError Left = 163 Top = 56 end object srvSMTP: TKTcpServer Tag = 2 OnError = srvPOP3Error Active = False Port = 25 RecvMode = ktrmBinary OnConnect = srvPOP3Connect OnRcvReady = srvPOP3RcvReady OnSendEmpty = srvPOP3SendEmpty OnDisconnect = srvPOP3Disconnect OnChildError = srvPOP3ChildError Left = 163 Top = 84 end object Client: TKTcpClient OnError = ClientError RecvMode = ktrmBinary OnSendEmpty = ClientSendEmpty OnRcvReady = ClientRcvReady OnDisconnect = ClientDisconnect Active = False Port = 0 OnConnect = ClientConnect Left = 163 Top = 136 end object timConnect: TTimer Enabled = False Interval = 10000 OnTimer = timConnectTimer Left = 195 Top = 136 end object srvPOP32: TKTcpServer OnError = srvPOP3Error Active = False Port = 1100 RecvMode = ktrmBinary OnConnect = srvPOP3Connect OnRcvReady = srvPOP3RcvReady OnSendEmpty = srvPOP3SendEmpty OnDisconnect = srvPOP3Disconnect OnChildError = srvPOP3ChildError Left = 163 Top = 27 end object srvSMTP2: TKTcpServer Tag = 3 OnError = srvPOP3Error Active = False Port = 250 RecvMode = ktrmBinary OnConnect = srvPOP3Connect OnRcvReady = srvPOP3RcvReady OnSendEmpty = srvPOP3SendEmpty OnDisconnect = srvPOP3Disconnect OnChildError = srvPOP3ChildError Left = 163 Top = 108 end object dlgDummy: TPopupMenu AutoPopup = False OnChange = dlgDummyChange Left = 227 Top = 163 end object MD5: TMD5 Left = 227 Top = 109 end object imlDummy: TImageList AllocBy = 0 Left = 195 Top = 187 end object DialUp: TDialUp DialMode = dmAsync Language = ralgEnglish OnDialing = DialUpDialing OnAsyncEvent = DialUpAsyncEvent OnError = DialUpError OnActiveConnection = DialUpActiveConnection Left = 163 Top = 163 end object timPass: TTimer Enabled = False Interval = 14000 OnTimer = timPassTimer Left = 195 Top = 163 end object cmpThrd: TKThdComp OnExecute = cmpThrdExecute Left = 163 Top = 187 end end