object App_TOOLSetFont_ShortCut: TApp_TOOLSetFont_ShortCut Left = 258 Top = 360 AutoScroll = False Caption = #12471#12519#12540#12488#12459#12483#12488#20316#25104 ClientHeight = 194 ClientWidth = 472 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 OnCreate = FormCreate OnShow = FormShow DesignSize = ( 472 194) PixelsPerInch = 96 TextHeight = 12 object lblOpt: TLabel Left = 8 Top = 112 Width = 51 Height = 12 Caption = #12458#12503#12471#12519#12531 FocusControl = edtOpt end object lblExe2: TLabel Left = 8 Top = 87 Width = 32 Height = 12 Caption = '('#24517#38920')' FocusControl = edtExe Font.Charset = SHIFTJIS_CHARSET Font.Color = clRed Font.Height = -12 Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] ParentFont = False end object lblExe: TLabel Left = 8 Top = 74 Width = 77 Height = 12 Caption = #23455#34892#12501#12449#12452#12523#21517 FocusControl = edtExe end object lblShortCut_Path: TLabel Left = 8 Top = 41 Width = 79 Height = 12 Caption = #20445#23384#20808#12501#12457#12523#12480 FocusControl = edtShortCut_Path end object lblShortCut_Name2: TLabel Left = 8 Top = 21 Width = 32 Height = 12 Caption = '('#24517#38920')' FocusControl = edtShortCut_Name Font.Charset = SHIFTJIS_CHARSET Font.Color = clRed Font.Height = -12 Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] ParentFont = False end object lblShortCut_Name: TLabel Left = 8 Top = 8 Width = 78 Height = 12 Caption = #12471#12519#12540#12488#12459#12483#12488#21517 FocusControl = edtShortCut_Name end object lblShortCut_Path2: TLabel Left = 8 Top = 54 Width = 32 Height = 12 Caption = '('#24517#38920')' FocusControl = edtShortCut_Path Font.Charset = SHIFTJIS_CHARSET Font.Color = clRed Font.Height = -12 Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] ParentFont = False end object btnCancel: TButton Left = 389 Top = 142 Width = 75 Height = 25 Anchors = [akTop, akRight] Caption = #12461#12515#12531#12475#12523 ModalResult = 2 TabOrder = 8 end object btnOk: TButton Left = 298 Top = 142 Width = 75 Height = 25 Anchors = [akTop, akRight] Caption = 'OK' Enabled = False ModalResult = 1 TabOrder = 7 end object edtOpt: TMyEdit Left = 90 Top = 109 Width = 374 Height = 21 Hint = #12503#12525#12464#12521#12512#12398#12458#12503#12471#12519#12531#12434#20837#21147#12375#12414#12377 Color = clWindow ParentColor = False ParentShowHint = True ShowHint = False PopupMenu = mnuEdit TabOrder = 6 Anchors = [akLeft, akTop, akRight] AutoFont = False CharCode = cdAnsi FocusSelect = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] end object btnExe: TButton Left = 389 Top = 74 Width = 75 Height = 25 Hint = #12503#12525#12464#12521#12512#12398#23455#34892#12501#12449#12452#12523#12434#36984#25246#12375#12414#12377 Anchors = [akTop, akRight] Caption = #21442#29031'...' TabOrder = 5 OnClick = btnExeClick end object edtExe: TMyEdit Left = 90 Top = 76 Width = 291 Height = 21 Hint = #12503#12525#12464#12521#12512#12398#23455#34892#12501#12449#12452#12523#21517#12434#20837#21147#12375#12414#12377#12290#23455#34892#12501#12449#12452#12523#12364#23384#22312#12375#12394#12356#22580#21512#12399#28784#33394#12391#34920#31034#12373#12428#12414#12377 Color = clWindow ParentColor = False ParentShowHint = True ShowHint = False PopupMenu = mnuEdit TabOrder = 4 OnChange = edtShortCut_NameChange Anchors = [akLeft, akTop, akRight] AutoFont = False CharCode = cdAnsi FocusSelect = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] end object btnShortCut_Path: TButton Left = 389 Top = 41 Width = 75 Height = 25 Hint = #12471#12519#12540#12488#12459#12483#12488#12398#20445#23384#20808#12501#12457#12523#12480#12434#36984#25246#12375#12414#12377 Anchors = [akTop, akRight] Caption = #21442#29031'...' TabOrder = 3 OnClick = btnShortCut_PathClick end object edtShortCut_Path: TMyEdit Left = 90 Top = 43 Width = 291 Height = 21 Hint = #12471#12519#12540#12488#12459#12483#12488#12398#20445#23384#20808#12501#12457#12523#12480#21517#12434#20837#21147#12375#12414#12377 Color = clWindow ParentColor = False ParentShowHint = True ShowHint = False PopupMenu = mnuEdit TabOrder = 2 OnChange = edtShortCut_NameChange Anchors = [akLeft, akTop, akRight] AutoFont = False CharCode = cdAnsi FocusSelect = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] end object btnShortCut_Name: TButton Left = 389 Top = 8 Width = 75 Height = 25 Hint = #12471#12519#12540#12488#12459#12483#12488#12501#12449#12452#12523#12434#36984#25246#12375#12414#12377 Anchors = [akTop, akRight] Caption = #21442#29031'...' TabOrder = 1 OnClick = btnShortCut_NameClick end object edtShortCut_Name: TMyEdit Left = 90 Top = 10 Width = 291 Height = 21 Hint = #12471#12519#12540#12488#12459#12483#12488#21517#12434#20837#21147#12375#12414#12377 Color = clWindow ParentColor = False ParentShowHint = True ShowHint = False PopupMenu = mnuEdit TabOrder = 0 OnChange = edtShortCut_NameChange Anchors = [akLeft, akTop, akRight] AutoFont = False CharCode = cdAnsi FocusSelect = True Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #65325#65331' '#65328#12468#12471#12483#12463 Font.Style = [] end object StatusBar1: TStatusBar Left = 0 Top = 175 Width = 472 Height = 19 AutoHint = True Panels = <> SimplePanel = True SizeGrip = False end object dlgSaveFile: TMySaveFileDialog Filter = #12471#12519#12540#12488#12459#12483#12488'(*.lnk)|*.LNK|'#12377#12409#12390'|*.*' Options = [ofOverwritePrompt, ofHideReadOnly, ofNoDereferenceLinks, ofEnableSizing] Title = #12471#12519#12540#12488#12459#12483#12488#21517 Owner = Owner Left = 8 Top = 136 end object dlgOpenFile: TMyOpenFileDialog Filter = #23455#34892#12501#12449#12452#12523'(*.exe)|*.EXE|'#12377#12409#12390'|*.*' Options = [ofHideReadOnly, ofNoDereferenceLinks, ofEnableSizing] Title = #12503#12525#12464#12521#12512#36984#25246 Owner = Owner Left = 40 Top = 136 end object dlgOpenFolder: TMyOpenFolderDialog Options = [bfReturnOnlyFsDirs, bfReturnFsAncestors, bfEditBox, bfNewDialogStyle] Owner = Owner Title = #12471#12519#12540#12488#12459#12483#12488#12398#20445#23384#20808#12434#36984#25246 Left = 72 Top = 136 end object ActionList1: TActionList Left = 104 Top = 136 object actEdit_Undo: TAction Category = #32232#38598 Caption = #20803#12395#25147#12377'(&U)' Hint = #20803#12395#25147#12377 ImageIndex = 12 SecondaryShortCuts.Strings = ( 'Ctrl+Z') OnExecute = actEdit_UndoExecute end object actEdit_Redo: TAction Category = #32232#38598 Caption = #12420#12426#30452#12375'(&R)' Hint = #12420#12426#30452#12375 ImageIndex = 13 SecondaryShortCuts.Strings = ( 'Shift+Ctrl+Z' 'Ctrl+Y') OnExecute = actEdit_RedoExecute end object actEdit_Cut: TAction Category = #32232#38598 Caption = #20999#12426#21462#12426'(&T)' Hint = #20999#12426#21462#12426 ImageIndex = 14 SecondaryShortCuts.Strings = ( 'Ctrl+X') OnExecute = actEdit_CutExecute end object actEdit_Copy: TAction Category = #32232#38598 Caption = #12467#12500#12540'(&C)' Hint = #12467#12500#12540 ImageIndex = 15 SecondaryShortCuts.Strings = ( 'Ctrl+C') OnExecute = actEdit_CopyExecute end object actEdit_Paste: TAction Category = #32232#38598 Caption = #36028#12426#20184#12369'(&P)' Hint = #36028#12426#20184#12369 ImageIndex = 16 SecondaryShortCuts.Strings = ( 'Ctrl+V') OnExecute = actEdit_PasteExecute end object actEdit_Delete: TAction Category = #32232#38598 Caption = #21066#38500'(&D)' Hint = #21066#38500 ImageIndex = 17 SecondaryShortCuts.Strings = ( 'Del') OnExecute = actEdit_DeleteExecute end object actEdit_SelectAll: TAction Category = #32232#38598 Caption = #20840#12390#36984#25246'(&A)' Hint = #12377#12409#12390#36984#25246 ImageIndex = 18 SecondaryShortCuts.Strings = ( 'Ctrl+A') OnExecute = actEdit_SelectAllExecute end end object mnuEdit: TPopupMenu AutoHotkeys = maManual AutoLineReduction = maManual OnPopup = mnuEditPopup Left = 136 Top = 136 object mniPEdit_Undo: TMenuItem Action = actEdit_Undo end object mniPEdit_Redo: TMenuItem Action = actEdit_Redo end object mniPLine_1: TMenuItem Caption = '-' end object mniPEdit_Cut: TMenuItem Action = actEdit_Cut end object mniPEdit_Copy: TMenuItem Action = actEdit_Copy end object mniPEdit_Paste: TMenuItem Action = actEdit_Paste end object mniPEdit_Delete: TMenuItem Action = actEdit_Delete end object mniPLine_2: TMenuItem Caption = '-' end object mniPEdit_SelectAll: TMenuItem Action = actEdit_SelectAll end end end