Hint en un TStatusPanel

[ixMike]

Hola de nuevo.

¿Es posible hacer que los distintos paneles de una TStatusBar posean hints?
Y, si es así, ¿cómo podría hacerlo?

Utilizo Delphi 3.

Gracias.

[Wellnic]

Hola:

A primera vista parece que no es posible poner un hint a cada panel, pero en programación siempre hay una solución , si no es por las buenas puede ser por las malas. A mí se me ocurre algo así:

Código Delphi [-]
// poner un día de la semana en el hint de cada panel:

Const semana: Array[0..6] Of String= ('Lunes', 'Martes', 'Miércoles', 'Jueves',
                                           'Viernes', 'Sábado', 'Domingo');
...

procedure TForm1.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
StatusBar1.Hint:= semana[x Div 50];
end;

Esto suponiendo que todos los paneles tengan la misma anchura (50 en el ejemplo), sino, la cosa se complicaría mucho. En ese caso como mínimo habría que crear otra matriz (o array) con la anchura de cada panel, por ejemplo...

[[Lepe]]

Para anchos de paneles diferentes, puedes calcular la posición:

Código Delphi [-]
procedure TForm1.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);

var ancho, panel:integer;
begin
  ancho := 0;
  panel := 0;
  for panel := 0 to statusbar.panels.count -1 do
  if ancho + statusbar.panels[panel].width > X then
     break
  else
    ancho := ancho + statusbar.panels[panel].width;

  StatusBar1.Hint:= semana[panel];    
end;

Saludos

[Wellnic]

Empezado por ixMike

Hola de nuevo.

¿Es posible hacer que los distintos paneles de una TStatusBar posean hints?
Y, si es así, ¿cómo podría hacerlo?

Utilizo Delphi 3.

Gracias.

He estado mareando la perdiz con este tema. Si aún estás interesado, pásate por la sección de trucos, a ver qué te parece...

[ixMike]

Muchísimas gracias a los dos. Tendré que probarlo.

Y perdón por la tardanza, he estado de exámenes.