El Color de nuestros programas???

[[Chris]]

Empezado por maeyanes

Aquí una muestra de como se ve en Aero con efecto Glass:
...

Haz satisfecho mis espectativas
De hecho quería ver cómo el efecto "Glass" se aplicaba bajo los controles de Ruta y el Edit de Búsqueda. De hecho tengo curiosidad cómo lo has hecho. Lo que yo he investigado sobre el tema, requiere de muchas llamadas a la API de DWM.

Saludos,
Chri

[[maeyanes]]

Hola...

Empezado por Chris

Haz satisfecho mis espectativas
De hecho quería ver cómo el efecto "Glass" se aplicaba bajo los controles de Ruta y el Edit de Búsqueda. De hecho tengo curiosidad cómo lo has hecho. Lo que yo he investigado sobre el tema, requiere de muchas llamadas a la API de DWM.

Saludos,
Chri

La verdad que si me dio mucho trabajo lograr el efecto deseado. En si, cuando detecto que se está dibujando en un área con efecto Glass, el dibujo lo hago usando bitmaps de 32Bits con canal alpha, de esta forma logro la semitransparencia y solo uso la API de GDI.

También hago uso de algunas funciones de la unidad UXTheme para dibujar el texto con transparencia y otras funciones que cree usando como base los ejemplos mostrados en esta web: Delphi Heaven.

Ambos controles, el de los breadcrumbs y el searchbox, apenas los estoy desarrollando y aunque ya tienen la funcionalidad básica, aún les falta.


Saludos...

[[Chris]]

Empezado por maeyanes

La verdad que si me dio mucho trabajo lograr el efecto deseado. En si, cuando detecto que se está dibujando en un área con efecto Glass, el dibujo lo hago usando bitmaps de 32Bits con canal alpha, de esta forma logro la semitransparencia y solo uso la API de GDI.

También hago uso de algunas funciones de la unidad UXTheme para dibujar el texto con transparencia y otras funciones que cree usando como base los ejemplos mostrados en esta web: Delphi Heaven.

Ambos controles, el de los breadcrumbs y el searchbox, apenas los estoy desarrollando y aunque ya tienen la funcionalidad básica, aún les falta.

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

Por otro lado, para el BreadCrumb puedes revisar este componente, talvez te sea de utilidad.

Saludos,
Chris

[[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...

[[Chris]]

Empezado por maeyanes

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.

Muy ingeniosa tu solución con el panel amigo. Creo que probaré la idea en este prototipo que había estado trabajando.


Por último, me queda la duda de por qué te descantaste por los componentes que te he mencionado?

Saludos,
Chris

[[maeyanes]]

Por último, me queda la duda de por qué te descantaste por los componentes que te he mencionado?

Pues por muchas razones, la principal es que esos componentes no están pensados para dibujarse sobre Glass, si los pones en un área con Glass se dibujan mal, otra de las razones es que esos están pensados para usarse solo para navegar el sistema de archivos de Windows, aunque la versión nueva parece que está un poco desligada de esa situación.

Y pues también quería imitar si no al 100%, si casi al 100% la funcionalidad de los controles que tiene Windows.


Saludos...

[Kipow]

Empezado por Chris

Muy ingeniosa tu solución con el panel amigo. Creo que probaré la idea en este prototipo que había estado trabajando.


Por último, me queda la duda de por qué te descantaste por los componentes que te he mencionado?

Saludos,
Chris

Excelente utilidad, podrias darme alguna idea para poder implementar algo similar?