object Form1: TForm1 Left = 734 Top = 155 Width = 482 Height = 465 Color = clBtnFace Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] KeyPreview = True Menu = MainMenu1 OldCreateOrder = False Position = poDefaultPosOnly OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnResize = FormResize PixelsPerInch = 96 TextHeight = 12 object pnlTop: TPanel Left = 0 Top = 0 Width = 474 Height = 21 Align = alTop BevelOuter = bvNone Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #65325#65331' '#12468#12471#12483#12463 Font.Style = [] ParentFont = False TabOrder = 0 object btnEdit_FindForward: TSpeedButton Left = 169 Top = 2 Width = 16 Height = 16 Caption = #8595 Flat = True OnClick = mniEdit_FindForwardClick end object btnEdit_FindBackward: TSpeedButton Left = 188 Top = 2 Width = 16 Height = 16 Caption = #8593 Flat = True OnClick = mniEdit_FindForwardClick end object lblFind: TLabel Left = 4 Top = 4 Width = 24 Height = 12 Caption = #26908#32034 end object DrawGrid_FindEdit: TDrawGrid Left = 32 Top = 2 Width = 132 Height = 16 BorderStyle = bsNone ColCount = 1 DefaultRowHeight = 16 DefaultDrawing = False FixedCols = 0 RowCount = 1 FixedRows = 0 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS UI Gothic' Font.Style = [] Options = [] ParentFont = False PopupMenu = PopupMenu1 ScrollBars = ssNone TabOrder = 0 OnEnter = DrawGrid_MemoEnter end end object DrawGrid_Memo: TDrawGrid Left = 40 Top = 26 Width = 145 Height = 87 BorderStyle = bsNone ColCount = 1 DefaultRowHeight = 16 DefaultDrawing = False FixedCols = 0 RowCount = 1 FixedRows = 0 Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'MS UI Gothic' Font.Style = [] Options = [] ParentFont = False PopupMenu = PopupMenu1 ScrollBars = ssNone TabOrder = 1 OnEnter = DrawGrid_MemoEnter end object PopupMenu1: TPopupMenu AutoHotkeys = maManual OnPopup = PopupMenu1Popup Left = 8 Top = 56 object mniPEdit_Undo: TMenuItem Caption = #20803#12395#25147#12377'(&U)' OnClick = mniEdit_UndoClick end object mniPEdit_Redo: TMenuItem Caption = #12420#12426#30452#12375'(&R)' OnClick = mniEdit_RedoClick end object mniPLine_1: TMenuItem Caption = '-' end object mniPEdit_Cut: TMenuItem Caption = #20999#12426#21462#12426'(&T)' OnClick = mniEdit_CutClick end object mniPEdit_Copy: TMenuItem Caption = #12467#12500#12540'(&C)' OnClick = mniEdit_CopyClick end object mniPEdit_Paste: TMenuItem Caption = #36028#12426#20184#12369'(&P)' OnClick = mniEdit_PasteClick end object mniPEdit_Delete: TMenuItem Caption = #21066#38500'(&D)' OnClick = mniEdit_DeleteClick end object mniPLine_2: TMenuItem Caption = '-' end object mniPEdit_SelectAll: TMenuItem Caption = #20840#12390#36984#25246'(&A)' OnClick = mniEdit_SelectAllClick end object mniPLine_3: TMenuItem Caption = '-' end object mniPEdit_SelFindForward: TMenuItem Caption = #36984#25246#31684#22258#12434#19979#26041#26908#32034'(&D)' Visible = False OnClick = mniPEdit_SelFindForwardClick end object mniPEdit_SelFindBackward: TMenuItem Caption = #36984#25246#31684#22258#12434#19978#26041#26908#32034' (&U)' Visible = False OnClick = mniPEdit_SelFindForwardClick end object mniPLine_4: TMenuItem Caption = '-' Visible = False end object mniPEdit_Tab: TMenuItem Caption = 'Tab' ShortCut = 9 Visible = False OnClick = mniPEdit_TabClick end object mniPEdit_CtrlTab: TMenuItem Caption = 'Ctrl+Tab' ShortCut = 16393 Visible = False OnClick = mniPEdit_CtrlTabClick end object mniPEdit_CtrlF: TMenuItem Caption = 'Ctrl+F' ShortCut = 16454 Visible = False OnClick = mniPEdit_CtrlFClick end end object MainMenu1: TMainMenu AutoHotkeys = maManual Left = 8 Top = 24 object mniFile: TMenuItem Caption = #12501#12449#12452#12523'(&F)' object mniFile_New: TMenuItem Caption = #26032#35215#20316#25104'(&N)' OnClick = mniFile_NewClick end object mniFile_Open: TMenuItem Caption = #38283#12367'(&O)...' ShortCut = 16463 OnClick = mniFile_OpenClick end object mniFile_Save: TMenuItem Caption = #19978#26360#12365#20445#23384'(&S)' OnClick = mniFile_SaveClick end object mniFile_SaveAs: TMenuItem Caption = #21517#21069#12434#12388#12369#12390#20445#23384'(&A)...' ShortCut = 16467 OnClick = mniFile_SaveAsClick end object mniFile_Line1: TMenuItem Caption = '-' end object mniHelp_FileVersion: TMenuItem Caption = #12496#12540#12472#12519#12531#24773#22577'(&A)' ShortCut = 112 OnClick = mniHelp_AboutClick end object mniFile_Line2: TMenuItem Caption = '-' end object mniFile_Exit: TMenuItem Caption = #32066#20102'(&X)' ShortCut = 32883 OnClick = mniFile_ExitClick end end object mniEdit: TMenuItem Caption = #32232#38598'(&E)' object mniEdit_Undo: TMenuItem Caption = #20803#12395#25147#12377'(&U)' ShortCut = 16474 OnClick = mniEdit_UndoClick end object mniEdit_Redo: TMenuItem Caption = #12420#12426#30452#12375'(&R)' ShortCut = 24666 OnClick = mniEdit_RedoClick end object mniEdit_Line1: TMenuItem Caption = '-' end object mniEdit_Cut: TMenuItem Caption = #20999#12426#21462#12426'(&T)' ShortCut = 16472 OnClick = mniEdit_CutClick end object mniEdit_Copy: TMenuItem Caption = #12467#12500#12540'(&C)' ShortCut = 16451 OnClick = mniEdit_CopyClick end object mniEdit_Paste: TMenuItem Caption = #36028#12426#20184#12369'(&P)' ShortCut = 16470 OnClick = mniEdit_PasteClick end object mniEdit_Delete: TMenuItem Caption = #21066#38500'(&D)' OnClick = mniEdit_DeleteClick end object mniEdit_Line2: TMenuItem Caption = '-' end object mniEdit_SelectAll: TMenuItem Caption = #20840#12390#36984#25246'(&A)' ShortCut = 16449 OnClick = mniEdit_SelectAllClick end object mniEdit_Line3: TMenuItem Caption = '-' end object mniEdit_FindForward: TMenuItem Caption = #19979#26041#26908#32034'(&D)' ShortCut = 114 OnClick = mniEdit_FindForwardClick end object mniEdit_FindBackward: TMenuItem Caption = #19978#26041#26908#32034'(&U)' ShortCut = 8306 OnClick = mniEdit_FindForwardClick end object mniEdit_FindWord: TMenuItem AutoCheck = True Caption = #21336#35486#26908#32034'(&W)' OnClick = mniEdit_FindWordClick end object mniEdit_FindIgnoreCase: TMenuItem AutoCheck = True Caption = #22823#23567#25991#23383#12434#21306#21029'(&I)' OnClick = mniEdit_FindIgnoreCaseClick end object mniEdit_Line4: TMenuItem Caption = '-' end object mniEdit_ReadOnly: TMenuItem AutoCheck = True Caption = #26360#36796#12415#31105#27490'(&O)' OnClick = mniEdit_ReadOnlyClick end end object mniDisp: TMenuItem Caption = #34920#31034'(&V)' object mniDisp_WordWrap: TMenuItem AutoCheck = True Caption = #21491#31471#12391#25240#12426#36820#12377'(&W)' OnClick = mniDisp_WordWrapClick end object mniDisp_LineHeight: TMenuItem AutoCheck = True Caption = #34892#38291#12434#35440#12417#12427'(&L)' Checked = True OnClick = mniDisp_LineHeightClick end object mniDisp_Tab: TMenuItem Caption = #12479#12502#38291#38548'(&T)' object mniDisp_Tab_1: TMenuItem Tag = 1 AutoCheck = True Caption = ' 1' RadioItem = True OnClick = mniDisp_Tab_8Click end object mniDisp_Tab_2: TMenuItem Tag = 2 AutoCheck = True Caption = ' 2' RadioItem = True OnClick = mniDisp_Tab_8Click end object mniDisp_Tab_4: TMenuItem Tag = 4 AutoCheck = True Caption = ' 4' RadioItem = True OnClick = mniDisp_Tab_8Click end object mniDisp_Tab_8: TMenuItem Tag = 8 AutoCheck = True Caption = ' 8' Checked = True Default = True RadioItem = True OnClick = mniDisp_Tab_8Click end end object mniDisp_Line1: TMenuItem Caption = '-' end object mniDisp_Font: TMenuItem Caption = #12501#12457#12531#12488'(&F)...' OnClick = mniDisp_FontClick end end end object FontDialog1: TFontDialog Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'MS UI Gothic' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Options = [fdAnsiOnly, fdEffects] Left = 8 Top = 88 end end