Ver Mensaje Individual
  #1  
Antiguo 16-05-2023
Badillo Badillo is offline
Miembro
 
Registrado: jun 2021
Posts: 39
Reputación: 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 19:34:51.
Responder Con Cita