Палитра TBitmap

← →
Andrew S (2003-06-26 18:39) [0]

Доброго времени суток!
Если не трудно помогите разобраться с палитрой TBitmap. Как создать, а потом изменить? Мне нужно 256 цветов в палитре.
Пробовал пример из FAQ, но толкового ничего не вышло.
Желательно разжевать поподробнее, я в Delphi пока чайник.

← →
MBo © (2003-06-26 19:07) [1]

пример в хелпе по TBitmap.Palette

Или SetDibColorTable
или CreatePalette+SetPalette

← →
Dimaxx © (2003-06-28 19:29) [2]

Вот как я это делал:

Создание палитры

var Pal: PLogPalette; Cadr: PBitmap; NumColors: integer; ... NumColors:=256; // Запросим блок памяти под палитру GetMem(Pal,sizeof(PLogPalette)+NumColors*sizeof(TPaletteEntry)); for I:=0 to pred(NumColors) do begin // Запишем цвета в таблицу Pal^.palPalEntry[I].peRed:=...; Pal^.palPalEntry[I].peGreen:=...; Pal^.palPalEntry[I].peBlue:=...; Pal^.palPalEntry[I].peFlags:=0; ( Pal^) Вот как я это делал: Создание палитры var Pal: PLogPalette; Cadr: PBitmap; NumColors: integer; ... NumColors:=256; // Запросим блок памяти под палитру GetMem(Pal,sizeof(PLogPalette)+NumColors*sizeof(TPaletteEntry)); for I:=0 to pred(NumColors) do begin // Запишем цвета в таблицу Pal^.palPalEntry[I].peRed:=...; Pal^.palPalEntry[I].peGreen:=...; Pal^.palPalEntry[I].peBlue:=...; Pal^.palPalEntry[I].peFlags:=0; end; // Создадим палитру для кадра Pal^.palVersion:=$300; // Нужное число цветов Pal^.palNumEntries:=NumColors; Cadr.Palette:=CreatePalette(Pal^); ... После удаления битмапа делаем FreeMem(Pal). Удачи!

В справке по Delphi можно набрать: "Palette,TBitmap". Там хороший example.

Палитра TBitmap Найти похожие ветки