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

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

null@example.com (teadrinker) — Sun, 22 Nov 2015 18:02:17 +0000

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

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

null@example.com (serzh82saratov) — Sun, 22 Nov 2015 17:59:59 +0000

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

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

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

null@example.com (teadrinker) — Sun, 22 Nov 2015 17:48:36 +0000

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

ARGB := 0xee0000ab

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

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

null@example.com (serzh82saratov) — Sun, 22 Nov 2015 17:30:24 +0000

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

0xff000001

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

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

null@example.com (teadrinker) — Sun, 22 Nov 2015 17:22:17 +0000

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

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

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

null@example.com (ypppu) — Sun, 22 Nov 2015 17:20:32 +0000

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

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

null@example.com (serzh82saratov) — Sun, 22 Nov 2015 17:16:05 +0000

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

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
    }

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