Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11655
Последний выпуск: 19.06.2015

Как сделать развивающийся флаг

79K
21 марта 2016 года
santafe
14 / / 29.11.2015
Как сделать развевающийся флаг ?

begin
Canvas.Pen.Width:=1;
Canvas.Pen.Color:=clBlack;
Canvas.Brush.Color:=clWhite;
Canvas.Rectangle(0,0,500,300);
with canvas do
begin
Brush.Color:=clWhite; Rectangle(0,0,500,100);
Brush.Color:=clBlue; Rectangle(0,100,500,200);
Brush.Color:=clRed; Rectangle(0,200,500,300);
Canvas.Font.Size:=20;

end;
211
22 марта 2016 года
wanja
1.2K / / 03.02.2003
Проще всего, пожалуй - изобразить синусоидную поверхность.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог