W
wdy801229
Unregistered / Unconfirmed
GUEST, unregistred user!
各位大虾这段代码是什么意思?特别是CreateCompatibleDC,BitBlt,SelectObject的用途
procedure TMRunScreen.DrawTextBitmap;
var
hDC, hCompDC, hOldHandle:THandle;
begin
hDC := GetDC(Handle);
hCompDC := CreateCompatibleDC(hDC);
hOldHandle := SelectObject( hCompDC, TitleBitmap.Handle );
BitBlt( hDC,0,0,Width,Height,hCompDC,0,0,SRCCOPY );
SelectObject( hCompDC, hOldHandle );
ReleaseDC(handle,hDC);
DeleteDC(hCompDC);
end;
procedure TMRunScreen.DrawTextBitmap;
var
hDC, hCompDC, hOldHandle:THandle;
begin
hDC := GetDC(Handle);
hCompDC := CreateCompatibleDC(hDC);
hOldHandle := SelectObject( hCompDC, TitleBitmap.Handle );
BitBlt( hDC,0,0,Width,Height,hCompDC,0,0,SRCCOPY );
SelectObject( hCompDC, hOldHandle );
ReleaseDC(handle,hDC);
DeleteDC(hCompDC);
end;