Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-05-2023
Badillo Badillo is offline
Miembro
 
Registrado: jun 2021
Posts: 43
Poder: 0
Badillo Va por buen camino
Post Problemas con Dbnavigator

Saludos, Necsito ayuda con el componente dbnavigator.

Heredé del componente y le cargué nuevas imágenes desde un fichero de recursos, pero cuando le paso el ratón por encima a cualquier botón habilitado me le deja una sombra semitransparente azul claro y no me lo repinta nuevamente.

Asi es como cargo las imágenes por si puede servir de ayuda

Código Delphi [-]
procedure TTestDBNavigator.InitButtons;
var
  I: TNavigateBtn;
  Resname: array [0 .. 40] of char;
begin
  if (ParentCtl3d) then
    for I := Low(Buttons) to High(Buttons) do
    begin
      Buttons[i].Glyph := nil;
      Buttons[i].Flat := True;
      Buttons[i].NumGlyphs := 2;
      Buttons[i].Glyph.Handle := LoadBitMap(Hinstance,
        StrFmt(Resname, '%s', [BtnTypeName[i]]));
      Buttons[i].AlignWithMargins := True;
      Buttons[i].Flat := True;
      Buttons[i].Transparent := True;
      Buttons[i].Height := FButtonHeight;
      Buttons[i].Width := FButtonWidth;
    end;
end;
Imágenes Adjuntas
Tipo de Archivo: jpg Muestra-dbnavigator.jpg (15,1 KB, 7 visitas)

Última edición por Casimiro Notevi fecha: 16-05-2023 a las 20:34:51.
Responder Con Cita
  #2  
Antiguo 17-05-2023
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
No se si el IniButtons es el lugar correcto para cargar las imágenes.
Revisando el componentes TDBNavigator, vero que las imágenes se cargan desde recursos con el procedimiento.

Código Delphi [-]
procedure TDBNavigator.SetButtonGlyph(Index: TNavigateBtn);

Y el índice admite los valores de os distintos botones:
Código Delphi [-]
  TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast,
                  nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh, nbApplyUpdates,
                  nbCancelUpdates);

Además este procedimiento está definido como virtual, por lo tanto puedes redefirnirlo (con override), por lo que me parece el correcto para hacerlo.

Si en tu componente defines un cóidigo de este estilo:

Código Delphi [-]
procedure TTestDBNavigator.SetButtonGlyph(Index: TNavigateBtn);
begin
  inherited;
  case Index of
    nbFirst: Buttons[Index].Glyph.LoadFromFile('c:\ProyectosDelphi\Custom DBNavigator\First.bmp');
    nbPrior: Buttons[Index].Glyph.LoadFromFile('c:\ProyectosDelphi\Custom DBNavigator\Prior.bmp');
    nbNext:  Buttons[Index].Glyph.LoadFromFile('c:\ProyectosDelphi\Custom DBNavigator\Next.bmp');

    //...
  end;
end;

Funciona sin problemas y el comportamiento es el esperado. En este caso sólo está la carga de los tres primeros botones para el ejemplo.
Así es como se ven. Los botones son "feos",pero el tema de las sombras funciona ok.


__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 17-05-2023
Badillo Badillo is offline
Miembro
 
Registrado: jun 2021
Posts: 43
Poder: 0
Badillo Va por buen camino
Muchas gracias por las aclaraciones

Muchas gracias por las aclaraciones, voy a probar ahora y le comento, una vez más muchas gracias Neftali.
Responder Con Cita
  #4  
Antiguo 17-05-2023
Badillo Badillo is offline
Miembro
 
Registrado: jun 2021
Posts: 43
Poder: 0
Badillo Va por buen camino
Gracias, Neftali funcionó bien

Muchas gracias por su ayuda.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
DBNavigator Renfield Conexión con bases de datos 10 30-07-2011 16:04:29
DBNavigator MARIA ROSA Conexión con bases de datos 2 22-04-2008 20:14:15
Mas del DBNavigator FGarcia OOP 3 19-06-2007 11:26:54
DBNavigator Oni Varios 3 11-05-2006 13:24:17
DBNavigator karocs Varios 1 21-09-2005 03:20:28


La franja horaria es GMT +2. Ahora son las 01:47:37.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi