Нда, хотел решить эту задачку сам, но фиг! В интернете никаких данных не нашел, только если мне доно будет ARGB, но только не в блице. Короче у меня нихрена не вышло. Мда я задавал этот вопрос не только на этом форуме, всего ответов - 4. И то не полные.
Вот тут то что я наговнокодил, первая фунция неправильно работает, а вторая сверхнеправильно:
Function ConvertTOrgb(aarrggbb)
Local pix = aarrggbb
a=(pix And $FF000000) Shr 24
r=(pix And $FF0000) Shr 16
g=(pix And $FF00) Shr 8
b=(pix And $FF)
Print r
Print g
Print b
WaitKey
End Function
Function ConvertTOaarrggbb(r,g,b)
Print (Int(255) Shl 24) Or (R Shl 16) Or (G Shl 8 ) Or B
WaitKey()
End Function
|