| imho.ws |
![]() |
|
|
|
# 2 |
|
Advanced Member
Регистрация: 23.08.2003
Сообщения: 442
![]() ![]() |
а это зависит от того, в чем пишеш...
для делфей: ( но перенести, думаю, не проблема ) Код:
procedure TForm1.Button1Click(Sender: TObject);
var
DeskTop: TCanvas;
begin
DeskTop := TCanvas.Create;
try
with DeskTop do
Handle := DC;
with PaintBox1.Canvas do
CopyRect(Rect(0, 0, 100, 100),
DeskTop,
Rect(0, 0, 100, 100))
finally
DeskTop.Free;
end
end;
|
|
|