Текущий архив: 2010.01.17;
Скачать: CL | DM;
Вниз
Bitmap, 8bit. Серая палитра. Найти похожие ветки
← →
DevilDevil (2008-11-13 15:44) [0]Здравствуйте.
Создаю битмап, PixelFormat = pf8bit.
Потом хочу сделать его серым, делаю Bitmap.Palette := CreateGrayPalette;
Результата почти никакого. Что не так ?
function CreateGreyPalette(): HPALETTE;
var
i: byte;
PaletteInfo: record
palVersion: Word;
palNumEntries: Word;
palPalEntry: array[byte] of TPaletteEntry;
end;
LogPalette: TLogPalette absolute PaletteInfo;
begin
ZeroMemory(@PaletteInfo, sizeof(PaletteInfo));
PaletteInfo.palVersion := $0300;
PaletteInfo.palNumEntries := 256;
for i := 255 downto 0 do
with PaletteInfo.palPalEntry[i] do
begin
peRed := i;
peGreen := i;
peBlue := i;
end;
Result := CreatePalette(LogPalette);
end;
← →
tesseract © (2008-11-13 21:54) [1]
> Результата почти никакого. Что не так ?
Почти это как ? Ты создал палитру, но её присвоение в принципе изображению до фонаря. Причем преобразование вообще странное - чем интересно руководствовался?
← →
DevilDevil (2008-11-14 10:00) [2]> tesseract © (13.11.08 21:54) [1]
заполняю 8bit-ный битмап "серыми" данными.
Т.к. по-умолчанию, палитра цветная, но в результате, естественно, я вижу не "серое" изображение. Имеется необходимость быстрой смены палитры на "градацию серого". Как это сделать ?
← →
DevilDevil (2008-11-14 10:13) [3]я думаю, не совсем туда обратился.
дублирую вопрос в ветке "Оснговная".
Страницы: 1 вся ветка
Текущий архив: 2010.01.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
