Highlight clicked button

Author: alexgit2k

audioswitcher.pb

@@ -88,6 +88,10 @@ Repeat
           BevelButton::Enable(ButtonVolumes2)
           BevelButton::Disable(ButtonVolumes1)
       EndSelect
+      ; Dark button
+      If BevelButton::GetButton(EventGadget())
+        BevelButton::ColorDark(BevelButton::GetButton(EventGadget()))
+      EndIf
       LockWindowUpdate_(0)
       UpdateWindow_(WindowID(WindowMain))
 
@@ -107,6 +111,11 @@ Repeat
           SoundDevice("SetVolume", Config$(Config$("lastDevice") + "Speaker"), Config$(Config$("lastDevice") + Config$("lastVolume") + "Value"), True)
       EndSelect
 
+      ; Finished setting
+      If BevelButton::GetButton(EventGadget())
+        BevelButton::ColorNormal(BevelButton::GetButton(EventGadget()))
+      EndIf
+
   EndSelect
 Until Event = #PB_Event_CloseWindow
 HideWindow(WindowMain, #True)
@@ -129,7 +138,7 @@ Procedure SoundDevice(Command$, Device$, Param$ = "", Wait = #False)
   allParams$ = "/" + Command$ + " " + Chr(34) + Device$ + Chr(34) + " " + Param$
   ; Flags
   Flags = 0
-  If Wait = True
+  If Wait = #True
     Flags = #PB_Program_Wait
   EndIf
   ; Run SoundVolumeView
@@ -174,7 +183,7 @@ Procedure WritePreference(Key$, Device$)
   ClosePreferences()
 EndProcedure
 
-; IDE Options = PureBasic 5.72 (Windows - x86)
+; IDE Options = PureBasic 5.73 LTS (Windows - x86)
 ; CursorPosition = 61
 ; FirstLine = 21
 ; Folding = -

bevelbutton.pb

@@ -7,17 +7,23 @@ DeclareModule BevelButton
     height.i
     text.s
     font.i
+    color.i
   EndStructure
 
+  Global NewMap Gadget2BevelButton()
+  
   Declare New(x, y, width, height, image, text.s, font = 0, flags = 0)
   Declare Delete(*button.button)
   Declare Redraw(*button.button)
   Declare Enable(*button.button)
+  Declare ColorDark(*button.button)
+  Declare ColorNormal(*button.button)
   Declare Disable(*button.button)
   Declare GetGadgetID(*button.button)
   Declare SetText(*button.button, text.s, font = 0)
   Declare.s GetText(*button.button)
   Declare SetFont(*button.button, font)
+  Declare GetButton(gadget)
 EndDeclareModule
 
 Module BevelButton
@@ -29,8 +35,10 @@ Module BevelButton
     *button\height = height
     *button\font = font
     *button\text = text
+    *button\color = RGB(0, 255, 0)
 
     Redraw(*button)
+    Gadget2BevelButton(Str(*button\gadget)) = *button
     ProcedureReturn *button
   EndProcedure
 
@@ -43,7 +51,7 @@ Module BevelButton
 
     ; Button state
     If GetGadgetState(*button\gadget) = #True
-      color = RGB(0, 255, 0)
+      color = *button\color
     Else
       color = GetSysColor_(#COLOR_BTNFACE)
     EndIf
@@ -69,6 +77,16 @@ Module BevelButton
     Redraw(*button)
   EndProcedure
 
+  Procedure ColorDark(*button.button)
+    *button\color = RGB(0, 150, 0)
+    Redraw(*button)
+  EndProcedure
+  
+  Procedure ColorNormal(*button.button)
+    *button\color = RGB(0, 255, 0)
+    Redraw(*button)
+  EndProcedure
+  
   Procedure Disable(*button.button)
     SetGadgetState(*button\gadget, #False)
     Redraw(*button)
@@ -92,6 +110,10 @@ Module BevelButton
 
   Procedure SetFont(*button.button, font)
     *button\font = font
-	Redraw(*button)
+    Redraw(*button)
+  EndProcedure
+  
+  Procedure GetButton(gadget)
+    ProcedureReturn Gadget2BevelButton(Str(gadget))
   EndProcedure
 EndModule