例文を付け加えました

[json-checker/json_checker.git] / Unit1.dfm

diff --git a/Unit1.dfm b/Unit1.dfm
index 00c98db..474f7bd 100644 (file)
--- a/Unit1.dfm
+++ b/Unit1.dfm
@@ -24,7 +24,9 @@ object Form1: TForm1
     Height = 287
     Align = alClient
     PopupMenu = PopupMenu1
+    ScrollBars = ssVertical
     TabOrder = 0
+    WantTabs = True
     OnChange = Memo1Change
     OnKeyDown = Memo1KeyDown
     OnKeyPress = Memo1KeyPress
@@ -56,10 +58,8 @@ object Form1: TForm1
     object ToolButton2: TToolButton
       Left = 25
       Top = 0
-      Hint = 'Exequte'
-      Caption = 'ToolButton2'
+      Action = Execute1
       ImageIndex = 0
-      OnClick = ToolButton2Click
     end
     object ToolButton9: TToolButton
       Left = 48
@@ -72,7 +72,8 @@ object Form1: TForm1
     object ToolButton8: TToolButton
       Left = 56
       Top = 0
-      Action = Action3
+      Action = Undo1
+      Enabled = False
       ImageIndex = 4
     end
     object ToolButton10: TToolButton
@@ -86,7 +87,7 @@ object Form1: TForm1
     object ToolButton11: TToolButton
       Left = 87
       Top = 0
-      Action = Action5
+      Action = Redo1
       Enabled = False
       ImageIndex = 1
     end
@@ -109,10 +110,8 @@ object Form1: TForm1
     object ToolButton5: TToolButton
       Left = 151
       Top = 0
-      Hint = 'Help'
-      Caption = 'ToolButton5'
+      Action = Hint1
       ImageIndex = 3
-      OnClick = ToolButton5Click
     end
     object ToolButton7: TToolButton
       Left = 174
@@ -133,6 +132,7 @@ object Form1: TForm1
     Indent = 19
     ReadOnly = True
     TabOrder = 2
+    TabStop = False
     Items.NodeData = {
       0301000000320000000000000000000000FFFFFFFFFFFFFFFF00000000000000
       0000000000010A4A0053004F004E0020006900740065006D007300}
@@ -156,8 +156,7 @@ object Form1: TForm1
     TabOrder = 4
     Tabs.Strings = (
       #12504#12523#12503
-      #12496#12540#12472#12519#12531#24773#22577
-      #12498#12531#12488)
+      #12496#12540#12472#12519#12531#24773#22577)
     TabIndex = 0
     Visible = False
     OnChange = TabControl1Change
@@ -166,6 +165,7 @@ object Form1: TForm1
       Top = 39
       Width = 892
       Height = 108
+      TabStop = False
       Align = alClient
       Lines.Strings = (
         '')
@@ -194,6 +194,7 @@ object Form1: TForm1
         #12522#12489#12453#27231#33021#12434#36861#21152
         #12450#12531#12489#12453#12434#28145#12367#32368#12426#36820#12379#12427
         #22806#35251#12434#22793#26356
+        #12493#12473#12488#12375#12383#12392#12365#12398#12496#12464#12434#30452#12375#12414#12375#12383
         'TJSONArray '#12395#23550#24540#12375#12414#12375#12383' '
         ' --------------------'
         #21021#20844#38283)
@@ -201,23 +202,12 @@ object Form1: TForm1
       Visible = False
       WordWrap = False
     end
-    object Memo5: TMemo
-      Left = 600
-      Top = 24
-      Width = 185
-      Height = 89
-      Lines.Strings = (
-        'JSONObject'#12434#12493#12473#12488#12377#12427#38555#12395#12399#37197#21015#20869#12395#20837#12428#12390#12367#12384#12373#12356#12290)
-      TabOrder = 3
-      Visible = False
-      WordWrap = False
-    end
   end
   object ImageList1: TImageList
     Left = 200
     Top = 88
     Bitmap = {
-      494C0101060008008C0010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C010106000800A80010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000002000000001002000000000000020
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -511,12 +501,17 @@ object Form1: TForm1
       Hint = #12377#12409#12390#36984#25246'|'#12489#12461#12517#12513#12531#12488#20840#20307#12434#36984#25246#12375#12414#12377
       ShortCut = 16449
     end
-    object Action1: TAction
+    object Execute1: TAction
+      Category = #12501#12449#12452#12523
       Caption = #23455#34892
-      OnExecute = ToolButton2Click
-    end
-    object Action2: TAction
-      Caption = #12504#12523#12503
+      Hint = 'Execute'
+      ShortCut = 16453
+      OnExecute = Execute1Execute
+    end
+    object Hint1: TAction
+      Caption = 'Help'
+      Hint = 'Hint'
+      ShortCut = 16456
       OnExecute = ToolButton5Click
     end
     object FileExit1: TFileExit
@@ -524,23 +519,28 @@ object Form1: TForm1
       Caption = #32066#20102'(&X)'
       Hint = #32066#20102'|'#12450#12503#12522#12465#12540#12471#12519#12531#12434#32066#20102#12375#12414#12377
       ImageIndex = 43
+      ShortCut = 16465
     end
-    object Action3: TAction
+    object Undo1: TAction
       Category = #32232#38598
       Caption = 'Undo'
+      Hint = 'Undo'
       ShortCut = 16474
-      OnExecute = Action3Execute
+      OnExecute = Undo1Execute
     end
-    object Action4: TAction
+    object Past1: TAction
       Category = #32232#38598
       Caption = 'Past'
+      Hint = 'Past'
       ShortCut = 16470
-      OnExecute = Action4Execute
+      OnExecute = Past1Execute
     end
-    object Action5: TAction
+    object Redo1: TAction
       Category = #32232#38598
       Caption = 'ReDo'
-      OnExecute = Action5Execute
+      Hint = 'Redo'
+      ShortCut = 16466
+      OnExecute = Redo1Execute
     end
   end
   object PopupMenu1: TPopupMenu
@@ -553,16 +553,16 @@ object Form1: TForm1
       Action = EditCut1
     end
     object P1: TMenuItem
-      Action = Action4
+      Action = Past1
     end
     object A1: TMenuItem
       Action = EditSelectAll1
     end
     object U1: TMenuItem
-      Action = Action3
+      Action = Undo1
     end
-    object ReDo1: TMenuItem
-      Action = Action5
+    object R1: TMenuItem
+      Action = Redo1
     end
   end
   object MainMenu1: TMainMenu
@@ -571,7 +571,7 @@ object Form1: TForm1
     object N1: TMenuItem
       Caption = #12501#12449#12452#12523
       object N4: TMenuItem
-        Action = Action1
+        Action = Execute1
       end
       object N5: TMenuItem
         Caption = '-'
@@ -589,22 +589,22 @@ object Form1: TForm1
         Action = EditCut1
       end
       object P2: TMenuItem
-        Action = Action4
+        Action = Past1
       end
       object A2: TMenuItem
         Action = EditSelectAll1
       end
       object U2: TMenuItem
-        Action = Action3
+        Action = Undo1
       end
-      object ReDo2: TMenuItem
-        Action = Action5
+      object R2: TMenuItem
+        Action = Redo1
       end
     end
     object N3: TMenuItem
       Caption = #12504#12523#12503
       object N6: TMenuItem
-        Action = Action2
+        Action = Hint1
       end
     end
   end