home *** CD-ROM | disk | FTP | other *** search
/ BUG 4 / BUGCD1997_05.BIN / aplic / clip4win / clip4win.exe / C4W30E.HUF / SOURCE / CONTRIB / FILLSTEE.ZIP / FILLSTEE.PRG
Text File  |  1993-06-04  |  540b  |  20 lines
  1. // Filled-steel box:
  2.  
  3. function FillSteel( hWnd )
  4.  
  5.    local hDC   := GetDC( hWnd )
  6.    local aRect := { 171, 42, 628, 399 }
  7.  
  8.    OffsetRect( aRect, 1, 1 )
  9.    FillRect( hDC, aRect[ 1 ], aRect[ 2 ], aRect[ 3 ], aRect[ 4 ],;
  10.              GetStockObject( LTGRAY_BRUSH ) )
  11.    FrameRect( hDC, aRect[ 1 ], aRect[ 2 ], aRect[ 3 ], aRect[ 4 ],;
  12.               GetStockObject( DKGRAY_BRUSH ) )
  13.    OffsetRect( aRect, -1, -1 )
  14.    FrameRect( hDC, 100, 100, 140, 140, GetStockObject( WHITE_BRUSH ) )
  15.    ReleaseDC( hWnd, hDC )
  16.  
  17. return nil
  18.  
  19.  
  20.