IMHO.WS - Как запомнить область экрана

IMHO.WS (http://www.imho.ws/index.php)

- Программирование (http://www.imho.ws/forumdisplay.php?f=40)

- - Как запомнить область экрана (http://www.imho.ws/showthread.php?t=89222)

toxa21

14.07.2005 20:40

Как запомнить область экрана

Получил я допустим HDC рабочего стола. Рисовать я на нем могу. Но как мне запомнить прямоугольную область, чтобы сначала нарисовать на ней а потом восстановить.

dyr_farot

14.07.2005 20:52

а это зависит от того, в чем пишеш...

для делфей: ( но перенести, думаю, не проблема )

Код:

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;

Часовой пояс GMT +4, время: 02:27.