Скачать: CL | DM;

WIndows.COLOR16 - не правильная декларация .....   Найти похожие ветки 

← →
Chlavik ©   (2004-12-24 18:29) [0]

Hi! В модуле Windows не правильно обьявлен тип COLOR16
вместо

type
 {$EXTERNALSYM COLOR16}
 COLOR16 = Shortint;

надо что бы было
type
 {$EXTERNALSYM COLOR16}
 COLOR16 = Smalltint;

Thank"s...

---

← →
Sun bittern ©   (2004-12-24 18:46) [1]

Точно?

type
{$EXTERNALSYM COLOR16}
COLOR16 = Shortint;

 Shortint = 2^8 = 256;

надо что бы было
type
{$EXTERNALSYM COLOR16}
COLOR16 = Smalltint = ;
Smallint = 2^16 = 65536

Ответ ниже, грубо говоря 8 bit на каждый цветовой кнал, но это не совсем так:
Зависит от видюхи:
RGB(6.5.5)
RGB(1.5.5.5)
RGB(5.6.5)
RGB(8.8.8.8)

 PTriVertex = ^TTriVertex;
 {$EXTERNALSYM _TRIVERTEX}
 _TRIVERTEX = packed record
   x: Longint;
   y: Longint;
   Red: COLOR16;     // 8 bit
   Green: COLOR16;   // 8 bit
   Blue: COLOR16;    // 8 bit
   Alpha: COLOR16;   // 8 bit
 end;

---

← →
Chlavik ©   (2004-12-24 19:02) [2]

Вызови GradientFill а сразу станет понятно что там всё таки 2байта на цвет ...При чём младший байт не юзается...

Я делал так
VerText[0].Red:=(SColor and $FF) shl 8;
VerText[0].Green:=SColor and $FF00;
VerText[0].Blue:=(SColor and $FF0000) shr 8;

---

← →
Sun bittern ©   (2004-12-24 19:38) [3]

Chlavik ©   (24.12.04 19:02) [2]

>> там всё таки 2байта на цвет
Вранье!
Для режима:
24 bit - RGB(8.8.8) 1 байт на цвет
32 bit - RGB(8.8.8.8) 1 байт на цвет
Может изменятся в зависимости от видюхи.

Старший бит < R8, G8, B8 < Младший бит

GetRValue() и ей подобные спасут?

---

← →
Sun bittern ©   (2004-12-24 19:48) [4]

>> Старший бит < R8, G8, B8 < Младший бит

R :=(MyColor and $ff) shr 0;
G :=(MyColor and $ff00) shr 8;
B :=(MyColor and $ff0000) shr 16;

---

← →
DiamondShark ©   (2004-12-24 19:52) [5]

Да ну!
До 7-ой версии так и не исправили?
Я опечален...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c