Ver Mensaje Individual
  #4  
Antiguo 03-02-2009
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Cita:
Empezado por fide_uci Ver Mensaje
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;


Hola de nuevo, la propiedad Style debe estar en psOwnerDraw antes de entrar al evento OnDrawPanel es por eso que no te funcionaba, esta bien que lo pongas en el OnCreate como lo estas haciendo pero podrías ahorrarte esas líneas de codigo y ponerlo directamente en diseño, haces doble click sobre el statusBar te aparecera la lista de los panels que tienes miras sus propiedades, buscas Style a cada panel en esa propiedad lo cambias a psOwnerDraw ya que esta por defecto con psText.

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita