HiByte() / LoByte() mit pure Xbase++ ? [erledigt]
Verfasst: Mi, 10. Okt 2018 23:50
hi,
zum Auswerten eines Hotkey in einem *.LNK benötige ich die HiByte() / LoByte() Function aus ot4xb
da es nur die 2 Function sind frage ich mich ob man das mit pure Xbase++ machen kann.
so hat es Pablo definiert
zum Auswerten eines Hotkey in einem *.LNK benötige ich die HiByte() / LoByte() Function aus ot4xb
Code: Alles auswählen
nHiByte := HiByte(nHotkey)
DO WHILE nHiByte > 0
DO CASE
CASE nHiByte >= Extended_key ; cText += "Extended " ; nHiByte -= Extended_key
CASE nHiByte >= ALT_key ; cText += "ALT " ; nHiByte -= ALT_key
CASE nHiByte >= CTRL_key ; cText += "CTRL " ; nHiByte -= CTRL_key
CASE nHiByte >= SHIFT_key ; cText += "SHIFT " ; nHiByte -= SHIFT_key
ENDCASE
ENDDO
cText += CHR(LoByte(nHotkey))
so hat es Pablo definiert
Code: Alles auswählen
XPPRET XPPENTRY wapimc_LOBYTE(XppParamList pl){ _retnl(pl,( _parLong(pl,1) & 0xFF ) );}
XPPRET XPPENTRY wapimc_HIBYTE(XppParamList pl){ _retnl(pl,( (_parLong(pl,1) >> 8) & 0xFF ) );}