На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на 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 := (GetGValue(ColorTo)-GetGValue(ColorFrom))/Width; DeltaB := (GetBValue(ColorTo)-GetBValue(ColorFrom))/Width; for I := 0 to Width do begin Canvas.Brush.Color := RGB ( Round (DeltaR * I + GetRValue(ColorFrom) ), Round (DeltaG * I + GetGValue(ColorFrom) ), Round (DeltaB * I + GetBValue (ColorFrom) ) ); Canvas.FillRect(Rect(I, 0, I+1, Height));
|