jeśli nie ustawiłeś PixelFormat:=pf8bit, to domyślnie obrazki w Delphi mają pf24bit

w przechwytywanie palet nie bawiłem się, ogólnie przeglądam obrazek i wstawiam kolor RGB (CARDINAL) do tablicy, w ten sposób otrzymuje paletę kolorów, a na jej podstawie indeksowane dane bitmapy

xan:

dane wczytałem z pliku *.BMP:
           Image1.Picture.LoadFromFile(FileListBox1.FileName);

W sumie już sobie poradziłem z tym problemem w końcu...doszedłem metodą prób i błędów do rozwiązania...łatwo nie było

1. Wyciągnąłem palete najpierw:

    GetPaletteEntries(image1.Picture.Bitmap.Palette,0,255,paleta);
    GetMem(pal, sizeof(TLogPalette) + sizeof(TPaletteEntry) * 255);
    pal.palVersion := $300;
    pal.palNumEntries := 256;

2. Później szukałem koloru w tej palecie (i otrzymywałem index):

function get_index_palette(color: Tcolor): TColor;
label
   next1;
begin
    for i:=0 to 255 do begin
      red:= paleta[i].peRed;
      green:= paleta[i].peGreen;
      blue:= paleta[i].peBlue;
      r_col:= getRvalue(color);
      g_col:= getGvalue(color);
      b_col:= getBvalue(color);

      if red=r_col then
      if green=g_col then
      if blue=b_col then begin get_index_palette:= (i and 3); goto next1 end;  // only 4 colors on ATARI
    end;

next1:

end;

Ostatnio edytowany przez vega (2009-07-14 23:38:19)

omg ale masakra, nie lepiej to bylo wrzucic bitmape na pamiec i czytac dane bezposrednio?