Foros Club Delphi - Felix día para todos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Felix día para todos (https://www.clubdelphi.com/foros/showthread.php?t=4165)

edwin1

03-10-2003 21:05:46

Felix día para todos

Hola!!!!!!!!!!!!!

como puedo encontrar un componente el cual es utilisado para manerjar combinaciones de colores en el fom, si mal no recuerdo le llaman DESGRADANTE...

Muchas Graicas
pasen un feliz resto del día

marcoszorrilla

03-10-2003 23:12:03

Hola Edwin, no sé exactamente si con esto te servirá, pero prueba a añadir un ColorDialog, que lo tienes en la paleta Dialogs de Delphi y pones un botón y un coódigo parecido a este:

Código:

procedure TForm1.Button1Click(Sender: TObject);

begin

ColorDialog1.Execute;

Form1.Color:=ColorDialog1.Color;

end;

Un Saludo.

Ruben_Cu

04-10-2003 02:20:10

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

edwin1

06-10-2003 17:58:17

MUCHAS GRACIA!!!!

ESAS RUTINA ESTAN MUY INTERESANTES, MIL GRACIA POR PRESTARME UN MINUTO DE SU APRECIDO TIEMPO ESPRO TENER LA OPORTUNIDAD DE AYUDAR LOS O A OTRA PERSONA, PASEN UN FELIZ RESTO DEL DIA.

La franja horaria es GMT +2. Ahora son las 13:46:06.