Главная страница
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
7-1078934009
Александр1
2004-03-10 18:53
2004.04.11
Как записать CD-R или CD-RW


3-1081854163
Назаров Евгений
2004-04-13 15:02
2004.04.11
SQL


8-1075969776
nike
2004-02-05 11:29
2004.04.11
winamp (in_mp3.dll, out_wave.dll) + delphi


14-1079279039
Юрий Зотов
2004-03-14 18:43
2004.04.11
Ну, с новосельем!


3-1081845150
Falendysh
2004-04-13 12:32
2004.04.11
Image