PDA

Ver la Versión Completa : Aspecto Degradado de un form


Rabata
10-11-2005, 18:16:29
Hola,

Me Gustaria hacer un degradado de un form, Por ejemplo poner el color azul al form y obtener el efecto de un degradado

La unica forma que se me ocurre es poniendo un TImage a todo el Form y cargarle una imagen con ese degradado, pero no me parece muy eficiente, se os ocurre o teneis alguna solución

Gracias a Todos....

Rabata
10-11-2005, 18:17:34
Pe3rdon se me olvidaba y si sy hay componentes en ese form (DbGrid, DbEdit, Button,...) que tambien le afecte ese degradado....

Caro
10-11-2005, 19:20:17
Hola, podrias comenzar con este truco que lo saque de trucomania
http://www.q3.nu/trucomania/


procedure TForm1.FormPaint(Sender: TObject);
var Row, Ht: Word ;
begin
Ht := (ClientHeight + 255) div 256 ;
for Row := 0 to 255 do
with Canvas do
begin
Brush.Color := RGB(0, 0, Row) ;
FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht)) ;
end ;
end;

Rabata
11-11-2005, 10:36:15
pero el evento onPaint solo esta en TForm y no en el resto de los componentes, mi intención es k todos los elementos de les produzca este degradado, aunque tenga k utilizar otra se rie componentes.....

Lepe
11-11-2005, 12:42:56
Es mucho más complejo de lo parece.

Primero el degradado del form, ok, no es problema.
El degradado de los componentes, eso es lo más grave. Te aconsejo que busques por Skin en torry.net, no solo necesitas el componente para el degradado, sino toda una nueva batería de componentes, edits, grids etc, que tambien tenga esa propiedad.

suerte en la búsqueda