From: Hel S. <hels@bti.e-burg.ru>
To: Earl F. Glynn
Subject: Filled area - solution
Date: Friday, July 09, 1999 12:55 AM

Hi, Earl.

Thank for your advice. But in-memory bitmap request too many resources.

I have found (accidentally after many experiments) other solution of my
problem:

var
  NewBrush, OldBrush: hBrush;
  lb: TLogBrush;

.....

MyBrushBmp := TBitMap.Create;
MyBrushBmp.LoadFromFile('c:\MyBrush.bmp');//8x8 pix

with Printer.Canvas do begin
  MyBrushBmp.PixelFormat := pf24bit;//it is necessary immediately before
creating brush
  lb.lbStyle := BS_PATTERN;
  lb.lbHatch := MyBrushBmp.Handle;

  NewBrush := CreateBrushIndirect(lb);
  OldBrush := SelectObject(Handle, NewBrush);

  Rectangle (0, 0, 100, 100);

  SelectObject(Canvas.Handle, OldBrush);
  DeleteObject(NewBrush);
end;

The filling stamp on printer canvas is 16x16 pix.

Yours truly, Hel I. Skovorodnikov, Russia.
<hels@bti.e-burg.ru>