Un DbNavigator muy curioso

[camino]

Duilioisola gracias por tu ayuda pero lamentablemente no respondio como se esperaba.

La rutina para modificar el DbNavigator la coloque como un procedimiento en un form que guarda todas las rutinas que uso en mis programas llamado 'RutinasFunciones'. Aqui va:

Código Delphi [-]
procedure SetupHackedNavigator(const Navigator : TDBNavigator);
const   Captions : array[TNavigateBtn] of string =
      ('Primero', 'Anterior', 'Siguiente', 'Ultimo', 'Agrega',
       'Elimina', 'Edita', 'Graba', 'Cancela', 'Refresca');
(*
  Captions : array[TNavigateBtn] of string =
      ('First', 'Prior', 'Next', 'Last', 'Insert',
       'Delete', 'Edit', 'Post', 'Cancel', 'Refresh');

  in Croatia (localized):
  Captions : array[TNavigateBtn] of string =
      ('Prvi', 'Prethodni', 'Slijedeci', 'Zadnji', 'Dodaj',
       'Obrisi', 'Promjeni', 'Spremi', 'Odustani', 'Osvjezi');
*) var   btn : TNavigateBtn; begin   for btn := Low(TNavigateBtn) to High(TNavigateBtn) do   with THackDBNavigator(Navigator).Buttons[btn] do   begin     //from the Captions const array
    Caption := Captions[btn];
    ParentFont := False;
    Font.Name := 'MS Sans Serif';
    Font.Pitch := fpDefault;
    Font.Size := 8;
    Font.Style := [];

{    //the number of images in the Glyph property
    NumGlyphs := 1;
    // Remove the old glyph.
    Glyph := nil;
    // Assign the custom one
    Glyphs.GetBitmap(Integer(btn),Glyph); }     // gylph above text
    Layout := blGlyphTop;

    // explained later
  //  OnMouseUp := HackNavMouseUp;
  end;
end; (*SetupHackedNavigator*)

Esta rutina la llamo desde donde esta el DbNavigator en el "OnCreate" de la
form.

[donald shimoda]

Empezado por camino

Código Delphi [-]
procedure SetupHackedNavigator(const Navigator : TDBNavigator);
const   
  Captions : array[TNavigateBtn] of string =
      ('Primero', 'Anterior', 'Siguiente', 'Ultimo', 'Agrega',
       'Elimina', 'Edita', 'Graba', 'Cancela', 'Refresca');
var 
  btn : TNavigateBtn; 
begin   
 for btn := Low(TNavigateBtn) to High(TNavigateBtn) do  
 with THackDBNavigator(Navigator).Buttons[btn] do   
 begin      
    Caption := Captions[btn];
    ParentFont := False;
    Font.Name := 'MS Sans Serif';
    Font.Pitch := fpDefault;
    Font.Size := 8;
    Font.Style := [];
    Layout := blGlyphTop;
  end;
end;

Perdon lo ordene un poco porque no podía leerlo.

El código esta correcto. Seguro esta pasando el navigator correcto? No veo donde puede estar el problema. Prueba con este código mas limpio.

Editado: Y muestra la definición de THackDBNavigator.
Saludos.

[camino]

Amigo donald shimoda no se si cometi un error de omision , pero crei (desafortunadamente) que lo que no mencione podria tener la clave del problema,

Pues equivocado.

Para tener una mejor presentacion en mis "Forms" uso los componentes SkinEngine. Ellos me han dado la posibilidad de hacer mas presentables las aplicaciones.

Pues bien experimentando, descubri que el culpable es el objeto de SkinEngine "SkinForm" y los detalles son:

DbNavigator.Caption en negrita con :

SkinForm1.Blending.Enabled := False;

DbNavigator.Caption Normal (como yo quiero) con:

SkinForm1.Blending.Enabled := True;
SkinForm1.Blending.Value := 255;

Lamentablemente no tengo una explicacion de porque sucede esto. Pero es asi.

Gracias.

[donald shimoda]

Empezado por camino

Lamentablemente no tengo una explicacion de porque sucede esto. Pero es asi.
Gracias.

Por lo que comentas y sin ver el código del skinengine, esta libreria esta forzando la propiedad a negrita en tu navigator. Ahora, tu no puedes editar el skin para cancelar eso? Si tienes los fuentes de esa librería síguela hasta encontrar donde lo hace y pon alguna variable adicional que te permita evitarlo.

Perdon por la corta ayuda pero sin ver el codigo es todo lo que puedo decirte.
Espero te sirva, saludos.

[camino]

Amigo donald shimoda, en honor a la verdad en estos momentos estoy con una gran carga de trabajo, y como ya soluciones el problema creo que voy a dejar la investigacion en los fuentes para mas adelante.

Gracias.

[donald shimoda]

Empezado por camino

Amigo donald shimoda, en honor a la verdad en estos momentos estoy con una gran carga de trabajo, y como ya soluciones el problema creo que voy a dejar la investigacion en los fuentes para mas adelante.

Gracias.

Como reza el viejo adagio, si la porquería funciona pa'que tocarla!

Me alegro que lo hayas solucionado.

saludos.

[marcoszorrilla]

Me gusta más la sentencia:

"Si funciona no lo arregles".

Porque es menos escatológica.

Un Saludo.