白黒2値のビットマップを白黒以外の色で表示するには？ (ID:28550)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんな感じで pf1bit 画像で 赤と青で表示する事が可能です

var
    PaletteEntries : array[0..1] of TRGBQUAD;
begin
    Image1.Picture.Bitmap.PixelFormat := pf1bit;
    Image1.Picture.Bitmap.SetSize(200,200);

Image1.Picture.Bitmap.Canvas.Brush.Color := $01000000;
    Image1.Picture.Bitmap.Canvas.FillRect(Rect(0,0,100,200));
    Image1.Picture.Bitmap.Canvas.Brush.Color := $01000001;
    Image1.Picture.Bitmap.Canvas.FillRect(Rect(100,0,200,200));

PaletteEntries[0].rgbBlue     := 255;
    PaletteEntries[0].rgbGreen    := 0;
    PaletteEntries[0].rgbRed      := 0;
    PaletteEntries[0].rgbReserved := 0;

PaletteEntries[1].rgbBlue     := 0;
    PaletteEntries[1].rgbGreen    := 0;
    PaletteEntries[1].rgbRed      := 255;
    PaletteEntries[1].rgbReserved := 0;

if SetDIBColorTable(Image1.Picture.Bitmap.Canvas.Handle,0,2,PaletteEntries) = 0 then
    begin
      GetLastError;
    end
    else
    begin
      if DeleteObject(Image1.Picture.Bitmap.ReleasePalette) = Boolean(0) then
      begin
        GetLastError;
      end;
    end;

Image1.Invalidate;

end;

←解決時は質問者本人がここをチェックしてください。

戻る