-- fixGUINavigation v1.0.0
-- 
-- Tested on Cheat Engine v6.6



local f = getMainForm()



-- Change control tab orders --

-- MainForm
f.Panel1.TabOrder = 0 -- for popup menu
f.Panel5.TabOrder = 1 -- main container
f.Panel4.TabOrder = 2 -- bottom bar

-- MainForm > Panel5
f.Foundlist3.TabOrder = 0
f.btnNewScan.TabOrder = 1
f.Button2.TabOrder = 2
f.btnNextScan.TabOrder = 3
f.Button4.TabOrder = 4
f.UndoScan.TabOrder = 5
f.pnlScanValueOptions.TabOrder = 6
f.scanvalue.TabOrder = 7
f.scanvalue2.TabOrder = 8
f.ScanType.TabOrder = 9
f.VarType.TabOrder = 10
f.Panel9.TabOrder = 11
f.gbScanOptions.TabOrder = 12
f.btnMemoryView.TabOrder = 13
f.btnAddAddressManually.TabOrder = 14

-- MainForm > Panel5 > Panel9
f.pnlScanOptions.TabOrder = 0
f.Panel10.TabOrder = 1

-- MainForm > Panel5 > Panel9 > pnlScanOptions
f.cbNot.TabOrder = 0
f.pnlFloat.TabOrder = 1
f.cbFloatSimple.TabOrder = 2
f.cbpercentage.TabOrder = 3
f.cbUnicode.TabOrder = 4
f.cbCaseSensitive.TabOrder = 5

-- MainForm > Panel5 > gbScanOptions
f.Panel3.TabOrder = 0
f.Panel2.TabOrder = 1
f.Panel6.TabOrder = 2

-- MainForm > Panel5 > gbScanOptions > Panel3
f.FromAddress.TabOrder = 0
f.ToAddress.TabOrder = 1

-- MainForm > Panel5 > gbScanOptions > Panel2
f.cbWritable.TabOrder = 0
f.cbExecutable.TabOrder = 1
f.cbCopyOnWrite.TabOrder = 2

-- MainForm > Panel5 > gbScanOptions > Panel6
f.cbFastScan.TabOrder = 0
f.edtAlignment.TabOrder = 1
f.Panel8.TabOrder = 2
f.cbPauseWhileScanning.TabOrder = 3

-- MainForm > Panel5 > gbScanOptions > Panel6 > Panel8
f.rbFsmAligned.TabOrder = 0
f.rbFsmLastDigts.TabOrder = 1



-- Change controls to include keyboard shortcut --
-- Note: D, F, E, and H are already used for main menu.

f.Label6.Caption = 'Foun&d:'
f.Label6.FocusControl = f.Foundlist3
f.btnNewScan.Caption = 'Ne&w Scan'
-- f.Button2.Caption = 'First scan2' -- which one is this?
f.btnNextScan.Caption = 'Ne&xt Scan'
-- f.Button4.Caption = 'Next scan 2' -- which one is this?
f.UndoScan.Caption = '&Undo Scan'

f.rbBit.Caption = '&Bits'
f.rbDec.Caption = 'Deci&mal'
-- f.cbHexadecimal.Caption = 'Hex (&8)' -- need workaround fix
-- f.ScanText.Caption = '&Value:' -- need workaround fix
-- f.ScanText2.Caption = '&Value:' -- need workaround fix
f.ScanText2.FocusControl = f.scanvalue2
f.andlabel.Caption = '&and'
f.andlabel.FocusControl = f.scanvalue2

f.cbNot.Caption = 'Not (&1)'
f.rt1.Caption = 'Rounded (default) (&2)'
f.rt2.Caption = 'Rounded (extreme) (&3)'
f.rt3.Caption = 'Truncated (&4)'
f.cbFloatSimple.Caption = 'Simple values only (&5)'
f.cbpercentage.Caption = 'Percent (&0)'
f.cbUnicode.Caption = 'UTF-1&6'
f.cbCaseSensitive.Caption = 'Case sensitive (&Q)'
f.cbUnrandomizer.Caption = 'Unrandomi&zer'
f.cbSpeedhack.Caption = 'Enable Speedhac&k'
f.Label54.Caption = '&Speed'
f.btnSetSpeedhack2.Caption = 'Appl&y'

f.lblScanType.Caption = 'Sca&n Type'
f.lblScanType.FocusControl = f.ScanType
f.lblValueType.Caption = 'Valu&e Type'
f.lblValueType.FocusControl = f.VarType
f.Label1.Caption = 'St&art'
f.Label1.FocusControl = f.FromAddress
f.Label2.Caption = 'St&op'
f.Label2.FocusControl = f.ToAddress
f.cbWritable.Caption = 'Writable (&I)'
f.cbCopyOnWrite.Caption = '&CopyOnWrite'
f.cbExecutable.Caption = 'Executable (&J)'
f.cbFastScan.Caption = 'Fas&t Scan'
f.rbFsmAligned.Caption = 'Ali&gnment'
f.rbFsmLastDigts.Caption = '&Last Digits'
f.cbPauseWhileScanning.Caption = '&Pause the game while scanning'

f.btnMemoryView.Caption = 'Memory &view'
f.btnAddAddressManually.Caption = 'Add Add&ress Manually'



-- Workaround fixes for sticky control captions --
-- Note: Would no longer work if a new scan tab is added.

local _FormActivate = f.OnActivate
local _MenuItem8Click = f.MenuItem8.OnClick -- "Open Process"
local _sbOpenProcessClick = f.sbOpenProcess.OnClick
local _scantablistClick = nil
local _ScanTypeChange = f.ScanType.OnChange
local _VarTypeChange = f.VarType.OnChange

local function updateLabelCaptions()
  f.cbHexadecimal.Caption = 'Hex (&8)'
  f.ScanText.Caption = 'Value (&8):'
  f.ScanText2.Caption = 'Value (&9):'
end

local function FormActivate_(sender)
  f.OnActivate = _FormActivate
  if _FormActivate then
    _FormActivate(sender)
  end
  updateLabelCaptions()
end

local function MenuItem8Click_(sender)
  _MenuItem8Click(sender)
  updateLabelCaptions()
end

local function sbOpenProcessClick_(sender)
  _sbOpenProcessClick(sender)
  updateLabelCaptions()
end

local function ScanTypeChange_(sender)
  _ScanTypeChange(sender)
  updateLabelCaptions()
end

local function VarTypeChange_(sender)
  _VarTypeChange(sender)
  updateLabelCaptions()
end

f.OnActivate = FormActivate_
f.MenuItem8.OnClick = MenuItem8Click_
f.sbOpenProcess.OnClick = sbOpenProcessClick_
f.ScanType.OnChange = ScanTypeChange_
f.VarType.OnChange = VarTypeChange_



-- Fix control positions --

f.rbBit.Anchors = f.rbDec.Anchors