Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



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

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



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

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

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;




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS