На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Данное приложение, позволит пользователю рисовать на холсте, выбирая ширину и цвет линии, и сохранять результаты своей работы в файле как точечный рисунок. Рисовать мы будем не на всей поверхности окна (Form1.Canvas), а на холсте специально отведенного для размещения рисунка компонента Image(Image1.Canvas). Компоненты: 3 x Button ColorDialog SavePictureDialog Image Label UpDown
События компонентов: Form1:OnCreate Image1:OnMouseDown, OnMouseMove UpDown1: OnClick Button1, Button2, Button3:OnClick
Всем привет в этом уроке мы научимся создавать свой анимированный ProgressBar, подойдет он для тех случаев когда точное число шагов неизвестно, ну в общем скоро вы все поймете ) Итак поехали:
Открываем Delphi и как всегда создаем новый проект, кидаем на форму компонент Timer с закладки System и компонент Image с закладки Additional, больше компонентов у нас не будет! Двигаемся дальше, сейчас нам нужно будет создать одну небольшую процедурку поэтому переходим в код находим там ключевое слово public и после него пишем
procedure GoImgProgress (Const IMG: TImage);
Нажимаем комбинацию клавиш Ctrl+Shift+C Delphi генерирует нам шаблон будущей процедуры. Теперь посмотрите то что должно получиться в конце и допишите к своему шаблону недостающие строчки.
|