Cita:
Empezado por fide_uci
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