Making the Driver menu items checked state toggled by clicking on them

MartinDrab · Jul 30, 2017 · 0635b2a · 0635b2a
1 parent 1004834
commit 0635b2a
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/gui/MainForm.dfm b/gui/MainForm.dfm
@@ -117,9 +117,11 @@ object MainFrm: TMainFrm
       Caption = 'Driver'
       object UnloadOnExitMenuItem: TMenuItem
         Caption = 'Unload on exit'
+        OnClick = DriverMenuItemClick
       end
       object UninstallOnExitMenuItem: TMenuItem
         Caption = 'Uninstall on exit'
+        OnClick = DriverMenuItemClick
       end
     end
     object ColumnsMenuItem: TMenuItem

diff --git a/gui/MainForm.pas b/gui/MainForm.pas
@@ -61,6 +61,7 @@
     procedure WatchDriverNameMenuItemClick(Sender: TObject);
     procedure SortbyIDMenuItemClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure DriverMenuItemClick(Sender: TObject);
   Private
 {$IFDEF FPC}
     FAppEvents: TApplicationProperties;
@@ -292,6 +293,14 @@
 FModel.Clear;
 end;
 
+Procedure TMainFrm.DriverMenuItemClick(Sender: TObject);
+Var
+  M : TMenuItem;
+begin
+M := Sender As TMenuItem;
+M.Checked := Not M.Checked;
+end;
+
 Procedure TMainFrm.RefreshNameCacheMenuItemClick(Sender: TObject);
 Var
   err : Cardinal;