Главная страницаОбратная связьКарта сайта

Как рисовать на экране

Обладая такими способностями, вы сможете, например, разлиновать поверхность экрана как в тетради в клеточку, выводить пугающие пользователя надписи и даже создать эффект окаменение экрана, если, конечно, разработаете алгоритм выполнения данной задачи.

Я покажу как рисовать на экране на примере разлиновки:

Сначала объявите глобальную переменную


Scr: TCanvas;

Затем по событию OnCreate() для формы напишите такой код:


Scr := TCanvas.Create;
Scr.Handle := GetDC(HWND_DESKTOP);

По событию OnDestroy() такой:


Scr.Free;

Обработчик события по нажатию на кнопку пусть выглядит так:


procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  i := 0;
  while i < 1024 do
  begin
    with Scr do
    begin
      MoveTo(i, 0);
      LineTo(i, 768);
      i := i + 10;
    end;
  end;
  i := 0;
  while i < 768 do
  begin
    with Scr do
    begin
      MoveTo(0, i);
      LineTo(1024, i);
      i := i + 10;
    end;
  end;
  Button1.Refresh;
end;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как рисовать на экране", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info