Помещение картинки на форму [D5, Win2k]
Hotabich © (2004-01-30 19:53:00)
Такая вот получилась проблема.
Необходимо из bmp файла загрузить картинку на форму (цель
данного мероприятия - придать красивый вид формы после изменения ее
региона (SetWindowRegion))
Привожу отрывок из своей оконной процедуры
procedure TForm1.WndProc(var Mess: TMessage);
var
hdcTemp, bpHDC: HDC;
Bitmap: TBitmap;
case Mess.Msg of
WM_PAINT:
begin
bpHDC := GetDC(Handle);
hdcTemp := CreateCompatibleDC(bpHDC);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile ('D:\Game\REVESI\ANGEL000.BMP');
SelectObject(hdcTemp,HGDIOBJ(Bitmap));
BitBlt(bpHDC,0,0,Bitmap.Width,Bitmap.Height,hdcTemp,0,0,SRCCOPY);
Bitmap.Free;
DeleteDC(hdcTemp);
DeleteDC(bpHDC);
end;
end;
Заранее благодарен
GrayFace (2004-01-31 13:55:00) [1]
Может, ReleazeDC(bpHDC) вместо DeleteDC(bpHDC) надо.
Наверх 
ЧАТ |
Орешник |
|
