Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Не получается сграбить в Bitmap визуальный компонент   Найти похожие ветки 

← →
Step[B.M.] ©   (2004-03-23 01:48) [0]

Братва, подсобите, очень прошу. Спасибо.

---

← →
TUser ©   (2004-03-23 07:51) [1]

Слышь браток, заюзай крутую Билли-функцию BitBlt. Щас все реальные пацаны так делают ...
procedure TForm1.Button1Click(Sender: TObject);
var sdc:hDC;
   b:TBitMap;
   h:hWND;
begin
 try
  h:=form1.Handle;
  sdc:=GetDeviceContext(h);
  b:=TBitMap.Create;
  b.Width:=button1.Width;
  b.Height:=button1.Height;
  if not BitBlt(b.Canvas.Handle,0,0,b.Width,b.Height,sdc,button1.Left,button1.Top,SRCCOPY) then
     showMessage("error");
  Image1.Picture.Assign(b);
 finally
  releasedc(form1.Handle,sdc);
  b.Free;
 end;
end;

---

← →
Step[B.M.] ©   (2004-03-24 14:08) [2]

Спасибо, братан, выручил.

---

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

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.044 c