home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Multi-CD Magazin 1993 January
/
MultiCDMagazin0193_2ndEd.bin
/
cdplayer
/
aboutdlg.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-08-01
|
1KB
|
48 lines
UNIT ABOUTDLG;
INTERFACE
USES WINTYPES,WINPROCS,OWINDOWS,STRINGS,BWCC,ODIALOGS,COMMON;
Const IDB_LOGO = 100;
Type PDlgAbout = ^TDlgAbout;
TDlgAbout = Object (TDialog)
Procedure WMDrawItem (VAR Msg:TMessage); VIRTUAL WM_FIRST+WM_DRAWITEM;
End;
IMPLEMENTATION
Procedure TDlgAbout.WMDrawItem (VAR Msg:TMessage);
Var pDIS : PDRAWITEMSTRUCT;
DC,DCx : HDC;
hBMP : HBITMAP;
TBMP : TBITMAP;
ID : Integer;
buf : TCharArray;
Begin;
pDIS:=PDRAWITEMSTRUCT(Msg.lParam);
TDialog.DefWndProc(Msg);
DC:=pDIS^.HDC;
ID:=pDIS^.CtlID;
{ GET THE BUTTON TO DRAW }
If (ID=IDB_LOGO) Then StrCopy (buf,'LOGO');
hBMP:=LoadBitmap(hInstance,buf);
DCx:=CreateCompatibleDC (DC);
SelectObject (DCX,hBMP);
GetObject (hBMP,sizeof(TBMP),@TBMP);
BitBlt (DC,0,0,TBMP.BMWIDTH,TBMP.BMHEIGHT,DCx,0,0,SRCCOPY);
DeleteDC (DCx);
DeleteObject (hBMP);
End;
END.