TheyCallMeTim13 Wiki Contributor
Reputation: 51
Joined: 24 Feb 2017 Posts: 976 Location: Pluto
|
Posted: Sun Mar 28, 2021 8:41 pm Post subject: |
|
|
Code: |
local t = translate
CompactModeEnabled = false
function disableHeaderSorting()
local addressListHeader = component_getComponent(AddressList, 1)
setMethodProperty(addressListHeader, 'OnSectionClick', nil)
end
function disableCompactMode()
control_setVisible(wincontrol_getControl(MainForm, 0), true)
control_setVisible(wincontrol_getControl(MainForm, 3), true)
CompactModeEnabled = false
end
function enableCompactMode()
control_setVisible(wincontrol_getControl(MainForm, 0), false)
control_setVisible(wincontrol_getControl(MainForm, 3), false)
CompactModeEnabled = true
end
function toggleCompactMode()
if CompactModeEnabled then
disableCompactMode()
else
enableCompactMode()
end
end
function addCompactModeMenu()
local name = 'miCTCompactMode'
local miCompactMode = nil
for i = 1, MainForm.Menu.Items.Count - 1 do
if MainForm.Menu.Items[i].Name == name then
miCompactMode = MainForm.Menu.Items[i]
break
end
end
if miCompactMode == nil then
miCompactMode = createMenuItem(MainForm.Menu.Items)
miCompactMode.Name = name
miCompactMode.Caption = t('Toggle Compact Mode')
miCompactMode.OnClick = toggleCompactMode
MainForm.Menu.Items.add(miCompactMode)
end
end
---- Compact Mode
addCompactModeMenu()
---- An Extra one if you want it.
--disableHeaderSorting() |
_________________
|
|