На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Исходный код программы позволяющей делать скриншоты экрана. Есть возмоэность мультсьемки, по умолчанию сохраняет изображения в папку где расположенна программа.
Никаких элементов управления на форме нету, и обрабатывают события формы OnPaint и OnResize. По первому из этих событий приложение будет раскрашивать окно требуемым способом, а обработка события OnResize, генерируемого, когда пользователь изменяет размер окна, будет состоять в вызове метода Repaint для перерисовки окна приложения. Код программы:
Код
procedure TForm1.FormPaint(Sender: TObject); var DeltaR, DeltaG, DeltaB: Double; ColorFrom, ColorTo: TColor; I: Integer; begin ColorFrom := clRed; ColorTo := clYellow; DeltaR := (GetRValue(ColorTo)-GetRValue(ColorFrom))/Width; DeltaG := (GetGV
... Читать дальше »