----------------------------
--By LeFiXER :: 12/10/2024--
----------------------------

local shortcut = {}
shortcut.copyBytesAndOpcodes = 'Ctrl+Alt+Shift+1'
shortcut.copyBytesAndOpcodesAndComments = 'Ctrl+Alt+Shift+2'
shortcut.copyBytes = 'Ctrl+Alt+Shift+3'
shortcut.copyOpcodes = 'Ctrl+Alt+Shift+4'
shortcut.miCopyBytesOnly = 'Ctrl+Alt+Shift+5'
shortcut.miCopyOpcodesOnly = 'Ctrl+Alt+Shift+6'
shortcut.miCopyAddressesOnly = 'Ctrl+Alt+Shift+7'

local dv = getMemoryViewForm()
for k,v in pairs(shortcut) do
	dv.findComponentByName(k).ShortCut = textToShortCut(v)
end

local function getCopy()
	local p = getMemoryViewForm().Copytoclipboard1
	local f = nil
	for i = 0, p.Count - 1 do
		if p.Item[i].Name == 'miCopyAddressesOnly' then
			f = p.Item[i]
			return f
		end
	end
end

local copyParent = getCopy()

local function cleanAddress()
	copyParent.doClick()
	local text = readFromClipboard()
	writeToClipboard(text:gsub('\n$', ''))
end

local function addMenu()
	local parent = getMemoryViewForm().Copytoclipboard1
	cleanMenu = createMenuItem(parent)
	parent.add(cleanMenu)

	cleanMenu.Caption = 'Address Only (Clean)'
	cleanMenu.ShortCut = textToShortCut('Ctrl+Shift+C')
	cleanMenu.ImageIndex = 15
	cleanMenu.OnClick = cleanAddress
end

addMenu()