Ver Mensaje Individual
  #3  
Antiguo 03-02-2009
Avatar de fide_uci
fide_uci fide_uci is offline
Miembro
 
Registrado: ene 2009
Ubicación: Cuba - La Habana
Posts: 226
Reputación: 16
fide_uci Va por buen camino
Colores de TPanels

Muchisimas gracias Caro. La verdad es que el problema me ha quedado totalmente solucionado, y justo de la forma en que me hacía falta. De nuevo gracias.

Ahora una cosa. Al inicio estaba intentando poner el Style de los panels a psOwnerDraw como tu me dijiste, pero lo estaba intentando hacer en el evento "StatusBarDrawPanel", y entonces no me queria trabajar. En cambio cuando modifique la propiedad en el OnCreate del Form, todo corrio de maravillas.

Lo que hice fue algo asi!
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  X: Integer;
begin

  for X := 0 to StatusBar1.Panels.Count -1 do
    StatusBar1.Panels.Items[X].Style := psOwnerDraw;

end;
Responder Con Cita