Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
18th
Июн
Графика. Вывод узора на экран
Posted by Chas under Пост-обзор
Написать программу, которая выводит на экран приведенный ниже узор, можно через рекурсию
Stilet:
procedure TForm1.FormPaint(Sender: TObject);
const h=100;w=50;
var x,y:integer;
begin
if tag<4 then begin
with Canvas do begin Brush.Style:=bsClear;
x:=Width div 2; y:=Height div 2;
x:=x+(tag*w); y:=y-(tag*h div 2);
Rectangle(x,y,x+w,y+h);
end;
tag:=tag+1; FormPaint(self);
end;
end;