Hola...
Cita:
Empezado por Chris
Realmente haz logrado realizar un trabajo muy limpio y profesional. Te felicito mucho por ello. Yo también he estado investigando y haciendo pruebas al respecto. Lo único que no he podido lograr es obtener el efecto de extender la barra de ventana cuando se está en AERO Basic. Cosa que parece que tú me has ganado
|
Bueno, en realidad es un TPanel, al cual le cambio el color dependiendo si la ventana está activa o inactiva, esto capturando los mensajes de windows en la ventana MDIChild.
Código Delphi
[-]
interfase
type
TMDIChildForm = class(TForm)
private
procedure WMNCActivate(var Message: TWMNCActivate); message WM_NCACTIVATE;
end;
implementation
procedure TMDIChildForm.WMNCActivate(var Message: TWMNCActivate);
begin
inherited;
if Message.Active then
pnlCaption.Color := clGradientActiveCaption
else
pnlCaption.Color := clGradientInactiveCaption
end;
Cita:
Por otro lado, para el BreadCrumb puedes revisar este componente, talvez te sea de utilidad.
|
Ese componente ya lo conocía, es más, de ahí saqué la idea de hacer mi versión del control.
El control, el cual llamo
TmeycBreadcrumbsView, ya hace gran parte de la funcionalidad deseada, solo me falta la parte de navegar usando el teclado.
Aquí unas capturas de su funcionamiento:
Mouse Over:
Menu Popup:
Saludos...