Добрый день!
есть следующий вариант преобразования

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\'+'s.bmp');
  Image1.Picture.Bitmap.PixelFormat:= pf8bit;
  Form1.Image1.Picture.Bitmap.SaveToFile(ExtractFilePath(Application.ExeName)+'\'+'s1.bmp');
end;

Все работает, но есть вопросы
1. точно Image1.Picture.Bitmap.PixelFormat:= pf8bit; преобразует BGRA в Palette, или там какой-то фокус
2. как проверить наличие палитры в S1? может есть у кого код процедуры, вытаскивающий политру из файла? или программа какая это может сделать? чтоб точно знать что палитра ЕСТЬ
3. нет ли у кого альтернативного кода? стандартные решения, как утверждают некоторые, однобоки. если можно, приведите тут пример
Заранее спасибо

[M.A.D.M.A.N.]

Попадалось наверное?
http://forum.sources.ru/index.php?showtopic=9987
http://forum.vingrad.ru/forum/s/2226...2259124/0.html

[angvelem]

1. Преобразует
2. По заголовку. По смещению после заголовка (если присутствует) и до начала данных расположена палитра (не политра, а то некоторые выпить захотят). Любым редактором.
3. Что может быть однобокого в стандарте, или хочется удалить гланды через ...

ну, ясно
похоже TPixelFormat - стандартная процедура конвертации
так и запишем

тем не менее, никто не работал с fastlib?
может оно чем то лучше, типа быстрее конвертирует?

[angvelem]

Она быстрее работает с другими операциями.