完成したかもしれない

diff --git a/Unit1.dfm b/Unit1.dfm
index f986f67..36ce18e 100644 (file)
--- a/Unit1.dfm
+++ b/Unit1.dfm
@@ -87,7 +87,7 @@ object Form1: TForm1
     object ToolButton11: TToolButton
       Left = 87
       Top = 0
-      Action = Redo
+      Action = Redo1
       Enabled = False
       ImageIndex = 1
     end
@@ -110,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
@@ -220,7 +218,7 @@ object Form1: TForm1
     Left = 200
     Top = 88
     Bitmap = {
-      494C010106000800A00010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C010106000800A40010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000002000000001002000000000000020
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -548,12 +546,12 @@ object Form1: TForm1
       ShortCut = 16470
       OnExecute = Past1Execute
     end
-    object Redo: TAction
+    object Redo1: TAction
       Category = #32232#38598
       Caption = 'ReDo'
       Hint = 'Redo'
       ShortCut = 16466
-      OnExecute = RedoExecute
+      OnExecute = Redo1Execute
     end
   end
   object PopupMenu1: TPopupMenu
@@ -574,8 +572,8 @@ object Form1: TForm1
     object U1: TMenuItem
       Action = Undo1
     end
-    object ReDo1: TMenuItem
-      Action = Redo
+    object R1: TMenuItem
+      Action = Redo1
     end
   end
   object MainMenu1: TMainMenu
@@ -611,7 +609,7 @@ object Form1: TForm1
         Action = Undo1
       end
       object R2: TMenuItem
-        Action = Redo
+        Action = Redo1
       end
     end
     object N3: TMenuItem

diff --git a/Unit1.pas b/Unit1.pas
index 8306285..cf23ec1 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -60,8 +60,8 @@ type
     Memo5: TMemo;
     Undo1: TAction;
     Past1: TAction;
-    Redo: TAction;
-    ReDo1: TMenuItem;
+    Redo1: TAction;
+    R1: TMenuItem;
     R2: TMenuItem;
     ToolButton11: TToolButton;
     procedure ToolButton5Click(Sender: TObject);
@@ -74,7 +74,7 @@ type
     procedure Undo1Execute(Sender: TObject);
     procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure Past1Execute(Sender: TObject);
-    procedure RedoExecute(Sender: TObject);
+    procedure Redo1Execute(Sender: TObject);
     procedure Execute1Execute(Sender: TObject);
   private
     { Private \90é\8c¾ }
@@ -122,7 +122,7 @@ begin
   ToolButton8.Enabled := Undo.CanUndo;
 end;
 
-procedure TForm1.RedoExecute(Sender: TObject);
+procedure TForm1.Redo1Execute(Sender: TObject);
 begin
   Undo.ReDo;
   ToolButton8.Enabled := Undo.CanUndo;