Никаких элементов управления на форме нету, и обрабатывают события формы 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));
end;
end; | 
|