home *** CD-ROM | disk | FTP | other *** search
/ Multi-CD Magazin 1993 January / MultiCDMagazin0193_2ndEd.bin / cdplayer / aboutdlg.pas < prev    next >
Pascal/Delphi Source File  |  1993-08-01  |  1KB  |  48 lines
  1. UNIT ABOUTDLG;
  2.  
  3. INTERFACE
  4.  
  5.  
  6. USES WINTYPES,WINPROCS,OWINDOWS,STRINGS,BWCC,ODIALOGS,COMMON;
  7.  
  8.  
  9. Const     IDB_LOGO            = 100;
  10.  
  11.  
  12. Type      PDlgAbout = ^TDlgAbout;
  13.           TDlgAbout = Object (TDialog)
  14.                      Procedure WMDrawItem (VAR Msg:TMessage); VIRTUAL WM_FIRST+WM_DRAWITEM;
  15.                    End;
  16.  
  17.  
  18.  
  19. IMPLEMENTATION
  20.  
  21.  
  22. Procedure TDlgAbout.WMDrawItem (VAR Msg:TMessage);
  23.  Var pDIS : PDRAWITEMSTRUCT;
  24.    DC,DCx : HDC;
  25.      hBMP : HBITMAP;
  26.      TBMP : TBITMAP;
  27.        ID : Integer;
  28.       buf : TCharArray;
  29. Begin;
  30.   pDIS:=PDRAWITEMSTRUCT(Msg.lParam);
  31.   TDialog.DefWndProc(Msg);
  32.   DC:=pDIS^.HDC;
  33.   ID:=pDIS^.CtlID;
  34.  { GET THE BUTTON TO DRAW }
  35.   If (ID=IDB_LOGO) Then StrCopy (buf,'LOGO');
  36.   hBMP:=LoadBitmap(hInstance,buf);
  37.   DCx:=CreateCompatibleDC (DC);
  38.   SelectObject (DCX,hBMP);
  39.   GetObject (hBMP,sizeof(TBMP),@TBMP);
  40.   BitBlt (DC,0,0,TBMP.BMWIDTH,TBMP.BMHEIGHT,DCx,0,0,SRCCOPY);
  41.   DeleteDC (DCx);
  42.   DeleteObject (hBMP);
  43. End;
  44.  
  45.  
  46.  
  47. END.
  48.