Серый форум — AHK: Конвертация ARGB в RGB

Re: AHK: Конвертация ARGB в RGB

2015-11-22T18:02:17Z

Просто на битовые операции тратится предельно мало ресурсов.

Re: AHK: Конвертация ARGB в RGB

2015-11-22T17:59:59Z

Да, так быстрее чем в первом посте аж в полтора раза, хотя казалось бы тоже самое.

Format("0x{:06X}", ARGB & 0xFFFFFF)

Re: AHK: Конвертация ARGB в RGB

2015-11-22T17:48:36Z

Тогда без форматирования строки не обойтись:

ARGB := 0xee0000ab

MsgBox % Format("0x{:06X}", ARGB & 0xFFFFFF)
; или
MsgBox % Format("{:#08x}", ARGB & 0xFFFFFF)

Re: AHK: Конвертация ARGB в RGB

2015-11-22T17:30:24Z

Хотелось бы возвращать именно ввиде "RGB", то есть из:

0xff000001

вернуть не 0x1, а 0x000001.

Re: AHK: Конвертация ARGB в RGB

2015-11-22T17:22:17Z

Если задача освободиться от старшего байта, то так:

ARGB := 0xeeabcdef
SetFormat, IntegerFast, H
MsgBox, % "RGB = " 0xFFFFFF & ARGB

Re: AHK: Конвертация ARGB в RGB

2015-11-22T17:20:32Z

Опишите, пожалуйста, по-русски название темы и её суть.

AHK: Конвертация ARGB в RGB

2015-11-22T17:16:05Z

Сделал такой вариант:

ARGB := 0xeeabcdef

MsgBox % RGBFromARGB(ARGB)
  
RGBFromARGB(ARGB)  {    
	Return "0x" SubStr(Format("{:08x}", ARGB), 3)
}

Но думаю, что есть более производительные варианты.

Видел например такое:

ARGBtoRGB( ARGB )
    {
        VarSetCapacity( RGB,6,0 )
        DllCall( "msvcrt.dll\sprintf", Str,RGB, Str,"%06X", UInt,ARGB<<8 )
        Return "0x" RGB
    }

Но не работает.