Changeset 272 for trunk/Forms/UFormMove.pas

Timestamp:

Jan 29, 2019, 11:05:47 PM (6 years ago)

Author:

chronos

Message:

• Added: Delete button to unit move dialog.

File:

• trunk/Forms/UFormMove.pas (modified) (3 diffs)

trunk/Forms/UFormMove.pas

@@ -14 +14 @@
 
   TFormMove = class(TForm)
+    ButtonRemove: TButton;
     ButtonRepeatMax: TButton;
     ButtonOnceMin: TButton;
@@ -29 +30 @@
     TrackBarRepeat: TTrackBar;
     procedure ButtonOnceMaxClick(Sender: TObject);
+    procedure ButtonRemoveClick(Sender: TObject);
     procedure ButtonRepeatMinClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -112 +114 @@
 end;
 
+procedure TFormMove.ButtonRemoveClick(Sender: TObject);
+begin
+  SpinEditOnce.Value := 0;
+  SpinEditRepeat.Value := 0;
+  ModalResult := mrOk;
+end;
+
 procedure TFormMove.ButtonRepeatMinClick(Sender: TObject);
 begin