Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Free Pascal, Pascal ABC и другие _ Установка палитры...

Автор: Koresh 18.07.2007 23:08


Type
   RGB=Record
      R:Byte;
      G:Byte;
      B:Byte;
      F:Byte;
   End;
Var
   Palette:Array[0..255] of RGB;

Palette прочитал с bmp файла...
Собственно как установить палитру для режима 640х480х8bit, т. е. 256 цветов...
И каком диапазопе должны быть составляющие цветов... 0..255 или 0..63?

Автор: hiv 19.07.2007 17:43

Цитата(Koresh @ 18.07.2007 20:08)

И каком диапазопе должны быть составляющие цветов... 0..255 или 0..63?

0..255 и кажется нет альфа-канала ( F:byte; )

Автор: klem4 19.07.2007 21:37

Цитата

TMT Pascal

Для 32 компиляторов существует соответствующий раздел, тема перенесена.

Автор: Bokul 19.07.2007 22:49

Цитата

0..255 и кажется нет альфа-канала ( F:byte; )

Это не он, просто зарезервированный лишний байт, не знаю для чего.

Автор: Koresh 20.07.2007 17:54

Всем спасибо, с этим разобрался...


For i:=0 to 255 do
   Begin;
      Port[$3c8]:=i;
      Port[$3c9]:=Palette[i].B Shr 2;
      Port[$3c9]:=Palette[i].G Shr 2;
      Port[$3c9]:=Palette[i].R Shr 2;
   End;

И всетаки 0..63. При 0..255 неправильно отображает цвета.