El Color de nuestros programas???

[[maeyanes]]

Hola...

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;

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,
Chris

Saludos...