Ver Mensaje Individual
  #3  
Antiguo 04-10-2003
Ruben_Cu Ruben_Cu is offline
No confirmado
 
Registrado: oct 2003
Ubicación: Mariel, Cuba
Posts: 271
Reputación: 0
Ruben_Cu Va por buen camino
Hola edwin1, si obtener degradación de colores en tu form puedes utilizar componentes hechas o simplemente dibujar sobre el canvas del form, esta combinación de colores las uso en una aplicación, como verás usa el evento OnPaint.
Variando la combinación del argumento del RGB puedes obtener distintas combinaciones de color, el ejemplo trabaja con el azul.
Código:
procedure TForm1.FormPaint(Sender: TObject);
var
      Row, Ht: Word ;
begin
      Ht := (ClientHeight + 255) div 255 ;
      for Row := 255 downto 0 do
        with Canvas do begin
           Brush.Color := RGB(Row,Row,255) ;
           FillRect(Rect(0, (Row) * Ht, ClientWidth,(Row + 1) * Ht)) ;
        end ;

end;
Saludos
Responder Con Cita