Советы по Delphi. Версия 1.4.3 от 1.1.2001

 nColorData: Integer;

 pPalette: PLogPalette;

 X: Integer;hPalette: THandle;

begin

 hResInfo:= FindResource(hInstance, lpBitmapName, RT_BITMAP);

 hRes:= LoadResource(hInstance, hResInfo);

 pBitmap:= Lockresource(hRes);

 nColorData:= pBitmap^.bmiHeader.biClrUsed;

 hPal := GlobalAlloc(GMEM_MOVEABLE, (16 * nColorData));

 {hPal := GlobalAlloc(GMEM_MOVEABLE, (SizeOf(LOGPALETTE) + (nColorData * SizeOf(PALETTEENTRY)));}

 pPalette := GlobalLock(hPal);

 pPalette^.palVersion := $300;

 pPalette^.palNumEntries := nColorData;

 for x := 0 to nColorData do begin

  pPalette^.palPalentry[X].peRed   := pBitmap^.bmiColors[X].rgbRed;

  pPalette^.palPalentry[X].peGreen := pBitmap^.bmiColors[X].rgbGreen;

  pPalette^.palPalentry[X].peBlue  := pBitmap^.bmiColors[X].rgbBlue;

 end;

 hPalette := CreatePalette(pPalette^);

 GlobalUnlock(hRes);

 GlobalUnlock(hPal);

 GlobalFree(hPal);

end;

end.

– Mark Lussier 

Как записать содержимое окна OpenGL в 'bmp' файл?

Nomadic советует:

Вот что попробовал – вроде получилось:

bt := TBitmap.Create;

bt.Width := gr.Width;

bt.Height := gr.Height;

bt.Canvas.CopyRect(ClientRect, gr.Canvas, gr.ClientRect);

bt.SaveToFile('e:\bt.bmp');

bt.Free;

(gr – объект, в канве которого я рисую с помощью OpenGL)

Как создать disable'ный битмап из обычного (emboss etc)?

Nomadic советует:

CreateMappedBitmap :-)

Один из параметров указатель на COLORMAP, в нем для 16 основных цветов делаешь перекодировку, цвета подберешь сам из принципа:

• все самые яркие → в GetSysColor(COLOR_3DLIGHT);

• самые темные → GetSysColor(COLOR_3DSHADOW);

• нейтральные, которые бyдyт прозрачными → GetSysColor(COLOR_3DFACE);

Так на самом деле вот как делается данная задача:

procedure Tform1.aaa(bmpFrom, bmpTo:Tbitmap);

var

 TmpImage,Monobmp:TBitmap;

 IRect:TRect;

begin

 MonoBmp := TBitmap.Create;

 TmpImage:=Tbitmap.Create;

 TmpImage.Width := bmpFrom.Width;

 TmpImage.Height := bmpFrom.Height;

 IRect := Rect(0, 0, bmpFrom.Width, bmpFrom.Height);

 TmpImage.Canvas.Brush.Color := clBtnFace;

 try

  with MonoBmp do begin

   Assign(bmpFrom);

   Canvas.Brush.Color := clBlack;

   if Monochrome then begin

    Canvas.Font.Color := clWhite;

    Monochrome := False;

    Canvas.Brush.Color := clWhite;

   end;

   Monochrome := True;

  end;

  with TmpImage.Canvas do begin

   Brush.Color := clBtnFace;

   FillRect(IRect);

   Brush.Color := clBlack;

   Font.Color := clWhite;

   CopyMode := MergePaint;

   Draw(IRect.Left + 1, IRect.Top + 1, MonoBmp);

   CopyMode := SrcAnd;

   Draw(IRect.Left, IRect.Top, MonoBmp);

   Brush.Color := clBtnShadow;

   Font.Color := clBlack;

   CopyMode := SrcPaint;

   Draw(IRect.Left, IRect.Top, MonoBmp);

   CopyMode := SrcCopy;

   bmpTo.assign(TmpImage);

   TmpImage.free;

  end;

 finally

  MonoBmp.Free;

 end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 aaa(image1.picture.bitmap,image2.picture.bitmap);

 Image2.invalidate;

end;