Form padre, hijos y alphablendvalue

[[fjcg02]]

Empezado por cesarsoftware

Hola, ayer te envie un MP, pero no me figura en enviados ¿lo recibiste?

Negativo, no lo veo en la bandeja de entrada.

Yo te envié otro privado. Lo has leido ? . Se abrán cruzado por el camino y han chocado desintegrándose ?

Saludos

[cesarsoftware]

Empezado por fjcg02

Negativo, no lo veo en la bandeja de entrada.

Yo te envié otro privado. Lo has leido ? . Se abrán cruzado por el camino y han chocado desintegrándose ?

Saludos

jejeje, va a ser eso, si, si que lo lei y ya que estoy te contesto, porque basicamente (aunque algo mas extendido) te decia que idem de lo mismo, tuvimos algun proyecto comun pero que no cuajo, aunque se que les gusta nuestras soluciones industriales.

Y lo de la birra, (mi madre me dijo una vez "hijo, si te quieren invitar, no seas tonto y dejate"), ningun incoveniente, pero que huelan y sepan bien, nada de birras vituales.
Se agradece la ayuda.

[[fjcg02]]

Empezado por cesarsoftware

...aunque algo mas extendido ...

No creo que sea eso, porque si el tuyo era más grande tendría que haber desintegrado al mío y ha sido al revés.

Un saludo
PD: si en Semana Santa te acercas por aquí no desaproveches la oferta que te he hecho, ya que seguramente estaré por aquí. Una birra es una birra.

[cesarsoftware]

Despues de varios dias trabajando, he notado que todavia quedaba "algo pendiente" a la hora de controlar los limites de las formas "hijas" lo pongo entre comillas para indicar que no son mdichild.

Resulta que al mover la forma se podian producir efectos no deseados como que se fuera la forma a 0,0, o a valores inferiores a los limites para luego volver a su sitio y esto era poque movia la forma dinamicamente y luego controlaba si se habia pasado, para solucionarlo nada mas facil (pero ahi que decirlo) que hacer todos los calculos y despues, solo despues de ajustar los limites, presentarla.

Por tanto el evento onmousemove queda asi y parece que mas sencillo y definitivo (por si alguien seguia este codigo, mas que nada, jejeje)
PD: he cambiado el nombre de PxDcha por PxBorde que es mas adecuado, y vale tanto para los 4 bordes de la forma.

Código Delphi [-]
procedure TcapturadorDCx.LedOnMouseMove(Sender: TObject; Shift: TShiftState;
                                        X, Y: Integer);
var
  nX, nY, nLeft, nTop: integer;
begin
  if ssLeft in Shift = False then
    Exit;
  // Mover la posicion del objeto
  if X < oldLeft then
  begin
    nX := oldLeft - X;
    nLeft := Forma.Left - nX;
  end
  else
  begin
    nX := X - oldLeft;
    nLeft := Forma.Left + nX;
  end;
  if Y < oldTop then
  begin
    nY := oldTop - Y;
    nTop := Forma.Top - nY;
  end
  else
  begin
    nY := Y - oldTop;
    nTop := Forma.Top + nY;
  end;
  // Controlar los limites
  // Izquierda
  if nLeft < (FormularioPadre.Left + PxBorde) then
    nLeft := FormularioPadre.Left + PxBorde;
  // Derecha
  if (nLeft + Forma.Width) > (FormularioPadre.Left + FormularioPadre.Width - PxBorde) then
    nLeft := (FormularioPadre.Left + FormularioPadre.Width) - Forma.Width - PxBorde;
  // Arriba
  if nTop < (FormularioPadre.Top + PxArriba) then
    nTop := FormularioPadre.Top + PxArriba;
  // Abajo
  if (nTop + Forma.Height) > (FormularioPadre.Top + FormularioPadre.Height - PxAbajo) then
    nTop := (FormularioPadre.Top + FormularioPadre.Height) - Forma.Height - PxAbajo;
  // reposicionar objecto
  Forma.Left := nLeft;
  Forma.Top := nTop;
end;

¿No tendre nada mejor que hacer un domingo a la tarde?

Saludos.

[[fjcg02]]

Empezado por fjcg02

Negativo, no lo veo en la bandeja de entrada.

Yo te envié otro privado. Lo has leido ? . Se abrán cruzado por el camino y han chocado desintegrándose ?

Saludos

Algo pasa, porque después de escribir esto, ni han explotado los ordenadores ni nadie me dice nada... La cosa está mal, muy mal!

Saludos

[cesarsoftware]

¿?
No entiendo.

[[fjcg02]]

A ver, a ver, en que Habré estado pensando...

Sólo me queda el consuelo de que lo escribí "al vuelo" y se me pasó ese pequeño gran detalle. Será que como es muda, nadie se acuerda de ella.

Saludos

[cesarsoftware]

Vale, revisando los post, entiendo lo de habran, (abran) los mensajes.
Tendran algun problema en el servidor

[[escafandra]]

He estado ausente un tiempo. Me he encontrado este hilo y la referencia en este otro.
Veo que posiblemente a estas alturas el problema está solucionado, pero me gustaría aportar mi granito de arena al problema.

Hasta Windows 8 no es posible tener el estilo WS_EX_LAYERED en ventanas child por lo que el problema no tiene solución... O si, la solución es hacer "trampas" y simular que una ventana top-level es child.

http://msdn.microsoft.com/es-es/libr...=vs.85%29.aspx

Empezado por MSD

Windows 8: The WS_EX_LAYERED style is supported for top-level windows and child windows. Previous Windows versions support WS_EX_LAYERED only for top-level windows.

Mi propuesta es simple. Se trata de escribir la función de tratamiento de mensajes para WM_MOVING en el formulario padre y en los hijos:

Código Delphi [-]
procedure WMMoving(var Message: TWMMOVING); message WM_MOVING;

Para el formulario Padre tratamos de que las ventanas hijas se desplacen con él para que parezcan childwindows:

Código Delphi [-]
procedure TForm1.WMMoving(var Message: TWMMOVING);
var
  i: integer;
begin
  inherited;
  for i:= 0 to ComponentCount-1 do
  begin
    if Components[i].ClassName <> 'TForm2' then continue;
    with Components[i] as TForm do
      SetWindowPos(Handle, HWND_TOPMOST, Message.DragRect.Left + Left - self.Left,
                                         Message.DragRect.Top + Top - self.Top,
                                         0, 0, SWP_NOSIZE);
  end;
end;

Y para el formulario hijo evitamos que pueda salir del entorno de la ventana padre, simulando ser child:

Código Delphi [-]
procedure TForm2.WMMoving(var Message: TWMMOVING);
var
  Right, Bottom: integer;
begin
  inherited;
  with Application.MainForm do
  begin
    Right:=  Left + Width;
    Bottom:= Top + Height;
    if Message.DragRect.Left < Left then
    begin
      Message.DragRect.Left:= Left;
      Message.DragRect.Right:= Left + self.Width;
    end;
    if Message.DragRect.Top < Top then
    begin
      Message.DragRect.Top:= Top;
      Message.DragRect.Bottom:= Top + self.Height;
    end;
    if Message.DragRect.Left > Right - self.Width then
    begin
      Message.DragRect.Left:= Right - self.Width;
      Message.DragRect.Right:= Right - self.Width + self.Width;
    end;
    if Message.DragRect.Bottom > Bottom then
    begin
      Message.DragRect.Top:= Bottom - self.Height;
      Message.DragRect.Bottom:= Bottom - self.Height + self.Height;
    end;
  end;
end;

El resto del código que presento es adorno. Subo un ejemplo compilable en delphi7.
Espero haber servido de ayuda aunque sea un poco tarde.


Saludos.

[cesarsoftware]

Gracias escafandra por volver y estar ahi, al pie del cañon

Con el codigo usado hasta ahora va bastante bien, solo se ve un pequeño retardo al mover las ventanas "hijas", pero he detectado que no funciona (no mueve a las hijas) en windows server 2003.

Probare tu tecnica (que seguro que es la buena) y lo comento.

Tomate una