home *** CD-ROM | disk | FTP | other *** search
/ PC Open 19 / pcopen19.iso / Zipped / CALMIR21.ZIP / SOURCE.ZIP / SRC / DARKEN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-02-20  |  439 b   |  19 lines
  1. procedure DarkenScreen;
  2. var
  3.   pattern : HBitmap;
  4.   dc : HDC;
  5.   i, j: Integer;
  6.   brush, oldbrush : HBrush;
  7. begin
  8.   pattern := LoadBitmap(HInstance, 'SCREENMESH');
  9.   brush := CreatePatternBrush(pattern);
  10.  
  11.   dc := GetDC(0);
  12.   oldbrush := SelectObject(dc, brush);
  13.   PatBlt(dc, 0, 0, Screen.Width, Screen.Height, $A000C9);
  14.   SelectObject(dc, oldbrush);
  15.  
  16.   ReleaseDC(0, dc);
  17.   DeleteObject(brush);
  18.   DeleteObject(pattern);
  19. end;