Jump to content

_GUICtrlButton_SetFocus stopped working

JailDoctor

By JailDoctor,
in AutoIt GUI Help and Support

 Share

Recommended Posts

JailDoctor Adventurer

JailDoctor

Posted
Posted

I have this form with tabs. I run an array called $MyNewUnit with values represented in the form. The forms shows up opened to the correct tab, but the button is not highlighted. I don't know what happend, but it was working fine and now the radio button does not get the focus.

I need some orientation to resolve the issue. I need the radio button to get the focus so a simple spabar touch will trigger actions associated with that radio button.

Here is the code:

#include <GUIConstantsEx.au3>
#include <GuiTab.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>

$MyNewUnit = "AA"
$IDX = GUICreate("IDX Location Tool - ", 440, 480, 400, 100)
GUICtrlSetFont(-1, 28, 400, 0, "Niagara Solid")
$PageControl1 = GUICtrlCreateTab(8, 8, 426, 344)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("First Floor")
$Group1 = GUICtrlCreateGroup("MT01", 50, 120, 240, 150)
$Radio73 = GUICtrlCreateRadio("Out of County (Karnes City, Elmendorf, La Salle or Zavala Counties)", 80, 140, 200, 30, BitOR($BS_AUTORADIOBUTTON, $BS_MULTILINE))
GUICtrlSetTip(-1, "GP J200")
$Radio74 = GUICtrlCreateRadio("MHU", 80, 180, 60, 20)
GUICtrlSetTip(-1, " J297 ")
$Radio75 = GUICtrlCreateRadio("Infirmary", 80, 210, 60, 20)
GUICtrlSetTip(-1, "J205")
$Radio76 = GUICtrlCreateRadio("SPU", 80, 240, 60, 20)
GUICtrlSetTip(-1, "J206")
;My Advertising
$LabelAd1 = GUICtrlCreateLabel("", 300, 60, 80, 81)
GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor")
$Group2 = GUICtrlCreateGroup("Default", 50, 40, 110, 60)
$Radio = GUICtrlCreateRadio("Booking", 80, 60, 60, 20)
GUICtrlSetTip(-1, "J296")
;Highlight the New Location
Select
Case $MyNewUnit = "Elmendorf County"
  _GUICtrlButton_SetFocus($Radio73, True)
Case $MyNewUnit = "La Salle County"
  _GUICtrlButton_SetFocus($Radio73, True)
Case $MyNewUnit = "Zavala County"
  _GUICtrlButton_SetFocus($Radio73, True)
Case $MyNewUnit = "Frio County"
  _GUICtrlButton_SetFocus($Radio73, True)
Case $MyNewUnit = "Hospital"
  _GUICtrlButton_SetFocus($Radio73, True)
Case $MyNewUnit = "MHU"
  _GUICtrlButton_SetFocus($Radio74, True)
Case $MyNewUnit = "Infirmary"
  _GUICtrlButton_SetFocus($Radio75, True)
Case $MyNewUnit = "SPU"
  _GUICtrlButton_SetFocus($Radio76, True)
EndSelect
$TabSheet2 = GUICtrlCreateTabItem("Second Floor")
;Show this tab if the value is for the second floor
Select
Case $MyNewUnit = "AA"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "AB"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "AC"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "AD"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "BA"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "BB"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "BC"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "BD"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "CA"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "CB"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "CC"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "CD"
  GUICtrlSetState(-1, $GUI_SHOW)
EndSelect
$Group3 = GUICtrlCreateGroup("A Tower", 30, 40, 100, 80)
$Radio62 = GUICtrlCreateRadio("AA", 40, 60, 40, 20)
GUICtrlSetTip(-1, "J233")
$Radio63 = GUICtrlCreateRadio("AC", 80, 60, 40, 20)
GUICtrlSetTip(-1, "J237")
$Radio64 = GUICtrlCreateRadio("AB", 40, 90, 40, 20)
GUICtrlSetTip(-1, "J403")
$Radio65 = GUICtrlCreateRadio("AD", 80, 90, 40, 20)
GUICtrlSetTip(-1, "J405")
;My Advertising
$LabelAd2 = GUICtrlCreateLabel("", 300, 60, 80, 81)
GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor")
$Group5 = GUICtrlCreateGroup("B Tower", 130, 120, 100, 80)
$Radio66 = GUICtrlCreateRadio("BA", 140, 140, 40, 20)
GUICtrlSetTip(-1, "J240")
$Radio67 = GUICtrlCreateRadio("BC", 180, 140, 40, 20)
GUICtrlSetTip(-1, "J244")
$Radio68 = GUICtrlCreateRadio("BB", 140, 170, 40, 20)
GUICtrlSetTip(-1, "J407")
$Radio69 = GUICtrlCreateRadio("BD", 180, 170, 40, 20)
GUICtrlSetTip(-1, "J409")
$Group6 = GUICtrlCreateGroup("C Tower", 230, 200, 100, 80)
$Radio70 = GUICtrlCreateRadio("CA", 240, 220, 40, 20)
GUICtrlSetTip(-1, "J248")
$Radio71 = GUICtrlCreateRadio("CC", 280, 220, 40, 20)
GUICtrlSetTip(-1, "J252")
$Radio72 = GUICtrlCreateRadio("CB", 240, 250, 40, 20)
GUICtrlSetTip(-1, "J411")
$Radio79 = GUICtrlCreateRadio("CD", 280, 250, 40, 20)
GUICtrlSetTip(-1, "J413")
;Highlight the New Location
Select
;2nd floor
Case $MyNewUnit = "AA"
  _GUICtrlButton_SetFocus($Radio62, True)
Case $MyNewUnit = "AB"
  _GUICtrlButton_SetFocus($Radio64, True)
Case $MyNewUnit = "AC"
  _GUICtrlButton_SetFocus($Radio63, True)
Case $MyNewUnit = "AD"
  _GUICtrlButton_SetFocus($Radio65, True)
Case $MyNewUnit = "BA"
  _GUICtrlButton_SetFocus($Radio66, True)
Case $MyNewUnit = "BB"
  _GUICtrlButton_SetFocus($Radio68, True)
Case $MyNewUnit = "BC"
  _GUICtrlButton_SetFocus($Radio67, True)
Case $MyNewUnit = "BD"
Case $MyNewUnit = "CA"
  _GUICtrlButton_SetFocus($Radio70, True)
Case $MyNewUnit = "CB"
  _GUICtrlButton_SetFocus($Radio72, True)
Case $MyNewUnit = "CC"
  _GUICtrlButton_SetFocus($Radio71, True)
Case $MyNewUnit = "CD"
  _GUICtrlButton_SetFocus($Radio79, True)
EndSelect
$TabSheet3 = GUICtrlCreateTabItem("Fourth Floor")
;Show this tab if the value is for the fourth floor
Select
Case $MyNewUnit = "AE"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "AF"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "AG"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "AH"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "BE"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "BF"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "BG"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "BH"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "CE"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "CF"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "CG"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "CH"
  GUICtrlSetState(-1, $GUI_SHOW)
EndSelect
$Group7 = GUICtrlCreateGroup("A Tower", 230, 40, 100, 80)
$Radio49 = GUICtrlCreateRadio("AE", 240, 60, 40, 20)
GUICtrlSetTip(-1, "J256")
$Radio50 = GUICtrlCreateRadio("AG", 280, 60, 40, 20)
GUICtrlSetTip(-1, "J260")
$Radio51 = GUICtrlCreateRadio("AF", 240, 90, 40, 20)
GUICtrlSetTip(-1, "J415")
$Radio52 = GUICtrlCreateRadio("AH", 280, 90, 40, 20)
GUICtrlSetTip(-1, "J417")
$Group8 = GUICtrlCreateGroup("B Tower", 130, 120, 100, 80)
$Radio54 = GUICtrlCreateRadio("BE", 140, 140, 40, 20)
GUICtrlSetTip(-1, "J264")
$Radio55 = GUICtrlCreateRadio("BG", 180, 140, 40, 20)
GUICtrlSetTip(-1, "J268")
$Radio56 = GUICtrlCreateRadio("BH", 140, 170, 40, 20)
GUICtrlSetTip(-1, "J421")
$Group9 = GUICtrlCreateGroup("C Tower", 30, 200, 100, 80)
$Radio57 = GUICtrlCreateRadio("CE", 40, 220, 40, 20)
GUICtrlSetTip(-1, "J272")
$Radio59 = GUICtrlCreateRadio("CG", 80, 220, 40, 20)
GUICtrlSetTip(-1, "J276")
$Radio60 = GUICtrlCreateRadio("CF", 40, 250, 40, 20)
GUICtrlSetTip(-1, "J423")
$Radio61 = GUICtrlCreateRadio("CH", 80, 250, 40, 20)
GUICtrlSetTip(-1, "J425")
;My Advertising
$LabelAd3 = GUICtrlCreateLabel("", 300, 200, 80, 81)
GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor")
;Highlight the New Location Sixth floor.
Select
Case $MyNewUnit = "AE"
  _GUICtrlButton_SetFocus($Radio49, True)
Case $MyNewUnit = "AF"
  _GUICtrlButton_SetFocus($Radio51, True)
Case $MyNewUnit = "AG"
  _GUICtrlButton_SetFocus($Radio50, True)
Case $MyNewUnit = "AH"
  _GUICtrlButton_SetFocus($Radio52, True)
Case $MyNewUnit = "BE"
  _GUICtrlButton_SetFocus($Radio54, True)
Case $MyNewUnit = "BG"
  _GUICtrlButton_SetFocus($Radio55, True)
Case $MyNewUnit = "BH"
  _GUICtrlButton_SetFocus($Radio56, True)
Case $MyNewUnit = "CE"
  _GUICtrlButton_SetFocus($Radio57, True)
Case $MyNewUnit = "CF"
  _GUICtrlButton_SetFocus($Radio60, True)
Case $MyNewUnit = "CG"
  _GUICtrlButton_SetFocus($Radio59, True)
Case $MyNewUnit = "CH"
EndSelect
$TabSheet4 = GUICtrlCreateTabItem("Sixth floor")
;Show this tab if the value is for the sixth floor
Select
Case $MyNewUnit = "AI"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "AJ"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "AK"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "AL"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "BI"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "BJ"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "BK"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "BL"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "CI"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "CJ"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "CK"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "CL"
  GUICtrlSetState(-1, $GUI_SHOW)
EndSelect
$Group10 = GUICtrlCreateGroup("A Tower", 30, 40, 100, 80)
$Radio35 = GUICtrlCreateRadio("AI", 40, 60, 40, 20)
GUICtrlSetTip(-1, "J280")
$Radio36 = GUICtrlCreateRadio("AK", 80, 60, 40, 20)
GUICtrlSetTip(-1, "J429")
$Radio37 = GUICtrlCreateRadio("AJ", 40, 90, 40, 20)
GUICtrlSetTip(-1, "J427")
$Radio38 = GUICtrlCreateRadio("AL", 80, 90, 40, 20)
GUICtrlSetTip(-1, "J284")
$Group11 = GUICtrlCreateGroup("B Tower", 130, 120, 100, 80)
$Radio40 = GUICtrlCreateRadio("BI", 140, 140, 40, 20)
GUICtrlSetTip(-1, "J520")
$Radio41 = GUICtrlCreateRadio("BK", 180, 140, 40, 20)
GUICtrlSetTip(-1, "J288")
$Radio42 = GUICtrlCreateRadio("BJ", 140, 170, 40, 20)
GUICtrlSetTip(-1, "J286")
$Radio43 = GUICtrlCreateRadio("BL", 180, 170, 40, 20)
GUICtrlSetTip(-1, "J430")
$Group12 = GUICtrlCreateGroup("C Tower", 230, 200, 100, 80)
$Radio45 = GUICtrlCreateRadio("CI", 240, 220, 40, 20)
GUICtrlSetTip(-1, "J289")
$Radio46 = GUICtrlCreateRadio("CK", 280, 220, 40, 20)
GUICtrlSetTip(-1, "J431")
$Radio47 = GUICtrlCreateRadio("CL", 240, 250, 40, 20)
GUICtrlSetTip(-1, "J291")
;My Advertising
$LabelAd4 = GUICtrlCreateLabel("", 300, 60, 80, 81)
GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor")
;Select the New Location for Sixth floor.
Select
Case $MyNewUnit = "AI"
  _GUICtrlButton_SetFocus($Radio35, True)
Case $MyNewUnit = "AJ"
  _GUICtrlButton_SetFocus($Radio37, True)
Case $MyNewUnit = "AK"
  _GUICtrlButton_SetFocus($Radio36, True)
Case $MyNewUnit = "AL"
Case $MyNewUnit = "BI"
  _GUICtrlButton_SetFocus($Radio40, True)
Case $MyNewUnit = "BJ"
  _GUICtrlButton_SetFocus($Radio42, True)
Case $MyNewUnit = "BK"
  _GUICtrlButton_SetFocus($Radio41, True)
Case $MyNewUnit = "BL"
  _GUICtrlButton_SetFocus($Radio43, True)
Case $MyNewUnit = "CI"
  _GUICtrlButton_SetFocus($Radio45, True)
Case $MyNewUnit = "CK"
  _GUICtrlButton_SetFocus($Radio46, True)
Case $MyNewUnit = "CL"
  _GUICtrlButton_SetFocus($Radio47, True)
EndSelect
$TabSheet5 = GUICtrlCreateTabItem("Basement")
;Show this tab if the value is for the basement
Select
Case $MyNewUnit = "LA"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "LB"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "LC"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "LD"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "WA"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "WB"
  GUICtrlSetState(-1, $GUI_SHOW)
EndSelect
$Group13 = GUICtrlCreateGroup("Basement", 130, 120, 100, 120)
$Radio90 = GUICtrlCreateRadio("LA", 140, 140, 40, 20)
GUICtrlSetTip(-1, "J433")
$Radio91 = GUICtrlCreateRadio("LB", 180, 140, 40, 20)
GUICtrlSetTip(-1, "J435")
$Radio92 = GUICtrlCreateRadio("LC", 140, 170, 40, 20)
GUICtrlSetTip(-1, "J437")
$Radio93 = GUICtrlCreateRadio("LD", 180, 170, 40, 20)
GUICtrlSetTip(-1, "J439")
$Radio193 = GUICtrlCreateRadio("WA", 140, 200, 40, 20)
GUICtrlSetTip(-1, "J294")
$Radio293 = GUICtrlCreateRadio("WB", 180, 200, 40, 20)
GUICtrlSetTip(-1, "J441")
;My Advertising
$LabelAd6 = GUICtrlCreateLabel("", 300, 200, 80, 81)
GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor")
;Select the New Basement location.
Select
Case $MyNewUnit = "LA"
  _GUICtrlButton_SetFocus($Radio90, True)
Case $MyNewUnit = "LB"
  _GUICtrlButton_SetFocus($Radio91, True)
Case $MyNewUnit = "LC"
  _GUICtrlButton_SetFocus($Radio92, True)
Case $MyNewUnit = "LD"
  _GUICtrlButton_SetFocus($Radio93, True)
Case $MyNewUnit = "WA"
  _GUICtrlButton_SetFocus($Radio193, True)
Case $MyNewUnit = "WB"
  _GUICtrlButton_SetFocus($Radio293, True)
EndSelect
$TabSheet6 = GUICtrlCreateTabItem("Annex")
;Show this tab if the value is for the Annex floor
Select
Case $MyNewUnit = "1A"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "2A"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "3A"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "4A"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "5A"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "6A"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "7A"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "8A"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "9A"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "1B"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "2B"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "3B"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "4B"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "5B"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "6B"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "7B"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "8B"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "9B"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "0B"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "1C"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "2C"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "3C"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "4C"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "5C"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "1D"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "2D"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "3D"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "4D"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "5D"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "6D"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "7D"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "8D"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "1E"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "2E"
  GUICtrlSetState(-1, $GUI_SHOW)
EndSelect
$Group14 = GUICtrlCreateGroup("A Tower", 50, 45, 210, 65)
$Radio1 = GUICtrlCreateRadio("1A", 60, 60, 35, 17)
GUICtrlSetTip(-1, "J445")
$Radio2 = GUICtrlCreateRadio("2A", 60, 80, 35, 17)
GUICtrlSetTip(-1, "J446")
$Radio3 = GUICtrlCreateRadio("3A", 100, 60, 35, 17)
GUICtrlSetTip(-1, "J448")
$Radio4 = GUICtrlCreateRadio("4A", 100, 80, 35, 17)
GUICtrlSetTip(-1, "J452")
$Radio5 = GUICtrlCreateRadio("5A", 140, 60, 35, 17)
GUICtrlSetTip(-1, "J449")
$Radio6 = GUICtrlCreateRadio("6A", 140, 80, 35, 17)
GUICtrlSetTip(-1, "J464")
$Radio7 = GUICtrlCreateRadio("7A", 180, 60, 35, 17)
GUICtrlSetTip(-1, "J466")
$Radio8 = GUICtrlCreateRadio("8A", 180, 80, 35, 17)
GUICtrlSetTip(-1, "J468")
$Radio9 = GUICtrlCreateRadio("9A", 220, 60, 35, 17)
GUICtrlSetTip(-1, "J469")
$Group15 = GUICtrlCreateGroup("B Tower", 50, 110, 210, 70)
$Radio10 = GUICtrlCreateRadio("1B", 60, 130, 35, 17)
GUICtrlSetTip(-1, "J473")
$Radio11 = GUICtrlCreateRadio("2B", 60, 150, 35, 17)
GUICtrlSetTip(-1, "J475")
$Radio12 = GUICtrlCreateRadio("3B", 100, 130, 35, 17)
GUICtrlSetTip(-1, "J477")
$Radio13 = GUICtrlCreateRadio("4B", 100, 150, 35, 17)
GUICtrlSetTip(-1, "J478")
$Radio14 = GUICtrlCreateRadio("5B", 140, 130, 35, 17)
GUICtrlSetTip(-1, "J480")
$Radio15 = GUICtrlCreateRadio("6B", 140, 150, 35, 17)
GUICtrlSetTip(-1, "J481")
$Radio16 = GUICtrlCreateRadio("7B", 180, 130, 35, 17)
GUICtrlSetTip(-1, "J482")
$Radio17 = GUICtrlCreateRadio("8B", 180, 150, 35, 17)
GUICtrlSetTip(-1, "J484")
$Radio18 = GUICtrlCreateRadio("9B", 220, 130, 35, 17)
GUICtrlSetTip(-1, "J485")
$Radio19 = GUICtrlCreateRadio("0B", 220, 150, 35, 17)
GUICtrlSetTip(-1, "J324")
$Group16 = GUICtrlCreateGroup("C Tower", 50, 180, 130, 65)
$Radio20 = GUICtrlCreateRadio("1C", 60, 200, 35, 17)
GUICtrlSetTip(-1, "J507")
$Radio21 = GUICtrlCreateRadio("2C", 60, 220, 35, 17)
GUICtrlSetTip(-1, "J509")
$Radio22 = GUICtrlCreateRadio("3C", 100, 200, 35, 17)
GUICtrlSetTip(-1, "J511")
$Radio23 = GUICtrlCreateRadio("4C", 100, 220, 35, 17)
GUICtrlSetTip(-1, "J513")
$Radio24 = GUICtrlCreateRadio("5C", 140, 200, 35, 17)
GUICtrlSetTip(-1, "J515")
$Group17 = GUICtrlCreateGroup("D Tower", 50, 250, 180, 65)
$Radio25 = GUICtrlCreateRadio("1D", 60, 270, 35, 17)
GUICtrlSetTip(-1, "J489")
$Radio26 = GUICtrlCreateRadio("2D", 60, 290, 35, 17)
GUICtrlSetTip(-1, "J491")
$Radio27 = GUICtrlCreateRadio("3D", 100, 270, 35, 17)
GUICtrlSetTip(-1, "J493")
$Radio28 = GUICtrlCreateRadio("4D", 100, 290, 35, 17)
GUICtrlSetTip(-1, "J495")
$Radio29 = GUICtrlCreateRadio("5D", 140, 270, 35, 17)
GUICtrlSetTip(-1, "J497")
$Radio30 = GUICtrlCreateRadio("6D", 140, 290, 35, 17)
GUICtrlSetTip(-1, "J499")
$Radio31 = GUICtrlCreateRadio("7D", 180, 270, 35, 17)
GUICtrlSetTip(-1, "J501")
$Radio34 = GUICtrlCreateRadio("8D", 180, 290, 35, 17)
GUICtrlSetTip(-1, "J503")
$Group18 = GUICtrlCreateGroup("E Tower", 190, 180, 70, 65)
$Radio32 = GUICtrlCreateRadio("1E", 200, 200, 35, 17)
GUICtrlSetTip(-1, "J301")
$Radio33 = GUICtrlCreateRadio("2E", 200, 220, 35, 17)
GUICtrlSetTip(-1, "J302")
;My Advertising
$LabelAd7 = GUICtrlCreateLabel("", 300, 60, 80, 81)
GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor")
;Select the new Annex location
Select
Case $MyNewUnit = "0B"
  _GUICtrlButton_SetFocus($Radio19, True)
Case $MyNewUnit = "1A"
  _GUICtrlButton_SetFocus($Radio1, True)
Case $MyNewUnit = "1B"
  _GUICtrlButton_SetFocus($Radio10, True)
Case $MyNewUnit = "1C"
  _GUICtrlButton_SetFocus($Radio20, True)
Case $MyNewUnit = "1D"
  _GUICtrlButton_SetFocus($Radio25, True)
Case $MyNewUnit = "1E"
  _GUICtrlButton_SetFocus($Radio32, True)
Case $MyNewUnit = "2A"
  _GUICtrlButton_SetFocus($Radio2, True)
Case $MyNewUnit = "2B"
  _GUICtrlButton_SetFocus($Radio11, True)
Case $MyNewUnit = "2C"
  _GUICtrlButton_SetFocus($Radio21, True)
Case $MyNewUnit = "2D"
  _GUICtrlButton_SetFocus($Radio26, True)
Case $MyNewUnit = "2E"
  _GUICtrlButton_SetFocus($Radio33, True)
Case $MyNewUnit = "3A"
  _GUICtrlButton_SetFocus($Radio3, True)
Case $MyNewUnit = "3B"
  _GUICtrlButton_SetFocus($Radio12, True)
Case $MyNewUnit = "3C"
  _GUICtrlButton_SetFocus($Radio22, True)
Case $MyNewUnit = "3D"
  _GUICtrlButton_SetFocus($Radio27, True)
Case $MyNewUnit = "4A"
  _GUICtrlButton_SetFocus($Radio4, True)
Case $MyNewUnit = "4B"
  _GUICtrlButton_SetFocus($Radio13, True)
Case $MyNewUnit = "4C"
  _GUICtrlButton_SetFocus($Radio23, True)
Case $MyNewUnit = "4D"
  _GUICtrlButton_SetFocus($Radio28, True)
Case $MyNewUnit = "5A"
  _GUICtrlButton_SetFocus($Radio5, True)
Case $MyNewUnit = "5B"
  _GUICtrlButton_SetFocus($Radio14, True)
Case $MyNewUnit = "5C"
  _GUICtrlButton_SetFocus($Radio24, True)
Case $MyNewUnit = "5D"
  _GUICtrlButton_SetFocus($Radio29, True)
Case $MyNewUnit = "6A"
  _GUICtrlButton_SetFocus($Radio6, True)
Case $MyNewUnit = "6B"
  _GUICtrlButton_SetFocus($Radio15, True)
Case $MyNewUnit = "6D"
  _GUICtrlButton_SetFocus($Radio30, True)
Case $MyNewUnit = "7A"
  _GUICtrlButton_SetFocus($Radio7, True)
Case $MyNewUnit = "7B"
  _GUICtrlButton_SetFocus($Radio16, True)
Case $MyNewUnit = "7D"
  _GUICtrlButton_SetFocus($Radio31, True)
Case $MyNewUnit = "8A"
  _GUICtrlButton_SetFocus($Radio8, True)
Case $MyNewUnit = "8B"
  _GUICtrlButton_SetFocus($Radio17, True)
Case $MyNewUnit = "8D"
  _GUICtrlButton_SetFocus($Radio34, True)
Case $MyNewUnit = "9A"
  _GUICtrlButton_SetFocus($Radio9, True)
Case $MyNewUnit = "9B"
  _GUICtrlButton_SetFocus($Radio18, True)
EndSelect
$TabSheet7 = GUICtrlCreateTabItem("Juvenile")
Select
Case $MyNewUnit = "Juvenile Mission"
  GUICtrlSetState(-1, $GUI_SHOW)
Case $MyNewUnit = "Juvenile South"
  GUICtrlSetState(-1, $GUI_SHOW)
EndSelect
$Group19 = GUICtrlCreateGroup("Juvenile", 100, 100, 130, 65)
$Radio77 = GUICtrlCreateRadio("Juvenile Mission", 110, 120, 100, 20)
GUICtrlSetTip(-1, "J202")
$Radio78 = GUICtrlCreateRadio("Juvenile South", 110, 140, 100, 20)
GUICtrlSetTip(-1, "J201")
;My Advertising
$LabelAd9 = GUICtrlCreateLabel("", 300, 200, 80, 81)
GUICtrlSetTip(-1, "This program was created by" & @CRLF & @CRLF & "JailDoctor")
Select
Case $MyNewUnit = "Juvenile Mission"
  _GUICtrlButton_SetFocus($Radio77, True)
Case $MyNewUnit = "Juvenile South"
  _GUICtrlButton_SetFocus($Radio78, True)
EndSelect
GUICtrlCreateTabItem("")
$Label1 = GUICtrlCreateLabel("IDX-Location-Tool", 70, 350, 315, 49)
GUICtrlSetFont(-1, 24, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0x00FF00)
$Label3 = GUICtrlCreateLabel($MyNewUnit, 250, 435, 110, 49)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Black")
GUICtrlSetColor(-1, 0xFF0000)


$Button1 = GUICtrlCreateButton("Discharge", 360, 440, 60, 20)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUICtrlSetTip(-1, "RC01/RC02")
$Button2 = GUICtrlCreateButton("Skip", 20, 440, 60, 20)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUICtrlSetTip(-1, "Don't move this patient.")
Select
Case $MyNewUnit = "RC01/RC02"
  _GUICtrlButton_SetFocus($Button1, True)
Case $MyNewUnit = "Skip"
  _GUICtrlButton_SetFocus($Button2, True)
EndSelect
GUICtrlCreateTabItem("")
;Show the window
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
  Case $msg = $GUI_EVENT_CLOSE
   Exit
  Case $msg = $Button2
;~   skipping this patient
   $Skiper = 1
   GUIDelete()
   ExitLoop
EndSelect
WEnd
If $Skiper = 1 Then
;~  ContinueLoop
EndIf
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...