Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.032 c
9-1065605196
x22n
2003-10-08 13:26
2004.04.11
Перемещение. Шаги игрока.


14-1081961623
Fay
2004-04-14 20:53
2004.04.11
Что случилось с орешником?


3-1081374925
lockheed_man
2004-04-08 01:55
2004.04.11
Проблема с Query


1-1082466872
Ruslan
2004-04-20 17:14
2004.04.11
Вопрос по ListView


3-1081825030
rosl
2004-04-13 06:57
2004.04.11
ehlib