Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Вниз
Не получается сграбить в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.044 c
