Скачать: CL | DM;

Помещение картинки на форму   Найти похожие ветки 

← →
Hotabich   (2004-01-30 19:53) [0]

Такая вот получилась проблема.
Необходимо из 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) [1]

Может, ReleazeDC(bpHDC) вместо DeleteDC(bpHDC) надо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.041 c