Form padre, hijos y alphablendvalue

[ricardopl65]

perdona es esta la direccion
http://www.ricardoplaza.com/download/ventanatrans.avi

[cesarsoftware]

¡Si! Eso es lo que busco.

Me das un poquito de info....porfa, anda... te invito a unas birras

[ricardopl65]

me tendras que dar una habitación porque mi mujer me va a echar de casa
adjunto el proyecto tal como yo lo llevo hasta ahora.

[cesarsoftware]

Me parece que vamos a tener que alquilar un apartamento entre los dos y tomarnos las birras en el bar del barrio, mi mujer tambien me quiere echar de casa, menos mal que nos quedan las niñas...y el portatil.

Bueno, visto, lo que has hecho es mover las ventanas hijas cuando mueves el padre con

Código Delphi [-]
procedure TFPrincipal.WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
  MoveFW();
  inherited;
end;
procedure TFPrincipal.MoveFW;
var
  X: Integer;
begin
  if Length(f2) > 0 then

    for X := 0 to Length(f2) - 1 do
    begin
      if (TForm2(f2[X]).Visible) then
      begin

        TForm2(f2[X]).moviendo := true;
        TForm2(f2[X]).Top := Self.Top + TForm2(f2[X]).difY;
        TForm2(f2[X]).Left := Self.Left + TForm2(f2[X]).difx;
        TForm2(f2[X]).moviendo := False;
      end;
    end;
end;

y en el hijo para apuntar la posicion actual

Código Delphi [-]
procedure tform2.WMWindowPosChanged(var Message: TWMWindowPosChanged);
begin
if moviendo=false then
begin
difx:=left-fprincipal.Left;
difY:=top-fprincipal.Top;
end;
inherited;
end;

para controlar los limites

Código Delphi [-]
procedure TForm2.WMMove(var Message: TWMMove);
begin
// Aqui habría que descontar la anchura de los bordes y el caption del form padre para mejorar el efecto.
   if leftthen left:=FPrincipal.Left;
   if (left+ width)>(fprincipal.Left+fprincipal.Width)  then
   left:=(fprincipal.Left+fprincipal.Width)-width;
   if (top + Height)>(fprincipal.top+fprincipal.Height)  then
   top:=(fprincipal.top+fprincipal.Height)-Height;

   if topthen top:=FPrincipal.Top;
end;

lo que me resulta curioso es el uso de esta funcion, le engañas a la cola de mensajes, quizas es que yo lo hubiera hecho con onmousemove,down y up, vamos la costumbre de cada uno, supongo
(editado: supongo que con un mensaje del sistema te ahorras asignar los eventos move,down,up a cada control, so burro)

Código Delphi [-]
procedure TForm2.WMNCHitTest(var Msg: TWMNCHitTest) ;
begin
inherited;
if Msg.Result = htClient then // Esta parte hace referencia a la parte donde se ha hecho click
Msg.Result := htCaption; // Aquí hace creer que donde se hizo click es el Caption Bar
end;

Desde luego el efecto es justo el deseado, me voy a poner a trabajar en esta tecnica que creo que va a ser la buena.

Cuando quieras las birras (o cafe)

PD: ¿porque se usa inherited, y cuando o porque se pone al principio o final de funciones? Thanks.

[ricardopl65]

Tengo que aclar que parte del código ya estaba en esta web.

[ricardopl65]

se pone inherited para invocar al metodo del ancestro del objeto en cuestión.
Por ejemplo en un metodo destroy primero liberas los objetos que hayas creado o cierras archivos etc y despues llamas a inherited para que continue con el proceso previsto. Si lo hicieses al reves cuando quisieras liberar tus objetos etc. ya se habria destruido el objeto.
En un Constructor create suele llamarse primero al inherited para que el objeto se cree normalmente y luego se añade la funcionalidad deseada. Si lo hicieses al reves, el metodo heredado sobreescribiria esa funcionalidad.
Es Importante el momento en el que se llama.

[cesarsoftware]

Gracias por responder ricardo, suponia que ese era el efecto de inherited, pero confrmado queda claro.

Al final con el movimiento conjunto de ventanas el tema esta solucionado y un poco mas afinado
en este video se ve una muestra del efecto con topes incluidos
http://www.youtube.com/watch?v=yHiEy...ature=youtu.be

Hago un resumen de lo necesario, o lo que es lo mismo, la receta para cocinarlo

Formulario Padre o principal:

1 manejador de mensaje del movimiento de la pantalla principal

Código Delphi [-]
  private
    // Mover objetos DCx
    procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;

3 variables publicas

Código Delphi [-]
  public
    // Posiciones relativas a la pantalla principal de los objetos DCx
    PxArriba: word;
    PxAbajo: word;
    PxDcha: word;

En el OnCreate (por ejemplo) calcular los margenes
en mi caso tengo abajo una TStatusBar

Código Delphi [-]
  PxArriba := GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYMENU) + GetSystemMetrics(SM_CYFRAME) - 1;
  PxAbajo := StatusBar.Height + GetSystemMetrics(SM_CYFRAME);
  PxDcha := GetSystemMetrics(SM_CXFRAME);

Al crear las ventanas hijas darle informacion sobre los limites para que no se pasen

Código Delphi [-]
  // Posiciones relativas a la pantalla principal
  DCx[i].PxArriba := FormRemoto.PxArriba;
  DCx[i].PxAbajo := FormRemoto.PxAbajo;
  DCx[i].PxDcha := FormRemoto.PxDcha;
  // posciones relativas respecto al padre (se guardan en una tabla)
  DCx[i].Left := StrToIntDef(SGmaquinas.Cells[4, i + 1], 1);
  DCx[i].Top := StrToIntDef(SGmaquinas.Cells[5, i + 1], 1);

El manejador que mueve las ventanas hijas cuando se mueve el padre

Código Delphi [-]
procedure TFormRemoto.WMWindowPosChanging(var Message: TWMWindowPosChanging);
var
  i, t: integer;
begin
  t := Length(DCx);
  if t = 0 then
    Exit;
  for i := 0 to t - 1 do
  begin
    if DCx[i] = nil then
      Continue;
    // DCx[i].Forma.Top es la nueva posicion de la ventana hija
    // DCx[i].Top es la posicion relativa de la ventana hija respento al padre, partiendo de 0,0
    DCx[i].Forma.Top := Self.Top + PxArriba + DCx[i].Top;
    DCx[i].Forma.Left := Self.Left + PxDcha + DCx[i].Left;
  end;
  inherited;
end;

Formulario hijo (semitrasparente con alphablendvalue)
unas variables publicas y los procedimientos de movimiento de raton
al final he deshechado los mensaje windows porque sale un movimiento "mas fino" de esta forma

Código Delphi [-]
  public // Variables de entrada publicas
    Forma: TForm;                 // Formulario contenedor
    FormularioPadre: TWinControl; // Parent
    PxArriba: word;               // SM_CYCAPTION + SM_CYMENU + SM_CYFRAME;
    PxAbajo: word;                // 19(StatuBar.Height) + SM_CYFRAME;
    PxDcha: word;                 // GetSystemMetrics(SM_CXFRAME);
    Left, Top: word;              // Posicion
    procedure LedOnMouseDown(Sender: TObject; Button: TMouseButton;
                             Shift: TShiftState; X, Y: Integer); // 1ª posicion
    procedure LedOnMouseMove(Sender: TObject; Shift: TShiftState;
                             X, Y: Integer); // mover panel
    procedure LedOnMouseUp(Sender: TObject; Button: TMouseButton;
                           Shift: TShiftState; X, Y: Integer); // nueva posicion

Crear los formularios hijos en tiempo de ejecucion

Código Delphi [-]
  Forma := TForm.CreateNew(FormularioPadre, 0); // CreateNew si no queremos usar un archivo .DFM
  Forma.Position := poDesigned;
  Forma.BorderStyle := bsNone;
  Forma.Left := FormularioPadre.Left + PxDcha + Left; // posicion relativa al inicio
  Forma.Top := FormularioPadre.Top + PxArriba + Top;
  if Icono = False then
  begin
    Forma.Width := 206;
    Forma.Height := 256;
  end
  else
  begin
    Forma.Width := 26;
    Forma.Height := 26;
  end;
  Forma.Color := clHotLight;
  Forma.Visible := Visible;
  Forma.AlphaBlend := True;
  Forma.AlphaBlendValue := 210;
  Forma.ShowHint := True;
  Forma.Hint := 'Left-Click y arrastre para mover';
  Forma.OnMouseDown := LedOnMouseDown;
  Forma.OnMouseMove := LedOnMouseMove;
  Forma.OnMouseUp := LedOnMouseUp;
...
crear los componentes vcl y asigarno a la forma y los evento si es necesario
  Lnumero := TLabel.Create(Forma);
  Lnumero.Parent := Forma;
  Lnumero.Top := LedOn.Top + 5;
  Lnumero.Left := LedOn.Left + 6;
  Lnumero.Height := 13;
  Lnumero.Width := 12;
  Lnumero.Transparent := True;
  Lnumero.Caption := IntToStr(Numero);
  Lnumero.ShowHint := True;
  Lnumero.Hint := LedOn.Hint;
  Lnumero.Visible := Icono;
  Lnumero.OnMouseDown := LedOnMouseDown;
  Lnumero.OnMouseMove := LedOnMouseMove;
  Lnumero.OnMouseUp := LedOnMouseUp;
...

y los manejadores de eventos

Código Delphi [-]
procedure TcapturadorDCx.LedOnMouseDown(Sender: TObject; Button: TMouseButton;
                                        Shift: TShiftState; X, Y: Integer);
begin
  // Capturar posicion inicial del ratón al comenzar a mover
  oldLeft := X;
  oldTop := Y;
  // Solo si es Shape LedOn
  if Sender is TForm then
    Exit;
  // Cambiar estado a icono o detalle
  if Button = mbRight then
  begin
    if Icono = True then
      SetIcono(False)
    else
      SetIcono(True);
    Exit;
  end;
  // comprobar si ha pulsado doble-click
  if ssDouble in Shift = False then
    Exit;
  // Encender o Apagar el capturador
  if DCx = nil then
    ActivaDCx // si no ha sido activado
  else
    if DCx.abierto = True then
      DesactivaDCx
    else
      if (DCx.conectando = False) and (Conectando = False) then
        ActivaDCx; // si las tarea DCx y el objeto TcapturadorDCx estan parados
end;

procedure TcapturadorDCx.LedOnMouseMove(Sender: TObject; Shift: TShiftState;
                                        X, Y: Integer);
var
  nX, nY: integer;
begin
  if ssLeft in Shift = False then
    Exit;
  // Controlar los limites
  // Izquierda
  if Forma.Left < (FormularioPadre.Left + PxDcha) then
  begin
    Forma.Left := FormularioPadre.Left + PxDcha;
    SetCursorPos(Forma.Left + X, Forma.Top + Y);
  end;
  // Derecha
  if (Forma.Left + Forma.Width) > (FormularioPadre.Left + FormularioPadre.Width - PxDcha) then
  begin
    Forma.Left := (FormularioPadre.Left + FormularioPadre.Width) - Forma.Width - PxDcha;
    SetCursorPos(Forma.Left + X, Forma.Top + Y);
  end;
  // Arriba
  if Forma.Top < (FormularioPadre.Top + PxArriba) then
  begin
    Forma.Top := FormularioPadre.Top + PxArriba;
    SetCursorPos(Forma.Left + X, Forma.Top + Y);
  end;
  // Abajo
  if (Forma.Top + Forma.Height) > (FormularioPadre.Top + FormularioPadre.Height - PxAbajo) then
  begin
    Forma.Top := (FormularioPadre.Top + FormularioPadre.Height) - Forma.Height - PxAbajo;
    SetCursorPos(Forma.Left + X, Forma.Top + Y);
  end;
  // Mover el objeto
  if X < oldLeft then
  begin
    nX := oldLeft - X;
    Forma.Left := Forma.Left - nX;
  end
  else
  begin
    nX := X - oldLeft;
    Forma.Left := Forma.Left + nX;
  end;
  if Y < oldTop then
  begin
    nY := oldTop - Y;
    Forma.Top := Forma.Top - nY;
  end
  else
  begin
    nY := Y - oldTop;
    Forma.Top := Forma.Top + nY;
  end;
end;

procedure TcapturadorDCx.LedOnMouseUp(Sender: TObject; Button: TMouseButton;
                                      Shift: TShiftState; X, Y: Integer);
begin
  Left := Forma.Left - (FormularioPadre.Left + PxDcha);
  Top := Forma.Top - (FormularioPadre.Top + PxArriba);
  Movido(Sender);
end;

procedure TcapturadorDCx.Movido(Sender: TObject);
begin
  // Sincronizar si tiene tarea asignada
  if Assigned(FOnMovido) then
    FOnMovido(Self);
end;

Ala, un pasito mas, gracias a todos.

[ricardopl65]

Aunque tengo una duda, ¿que tarea realiza este programa?

[cesarsoftware]

Hola ricardo.

DatcomG2 es la segunda generacion es un sistema autonomo de captura de datos en planta, es decir, supervisa los estados de las máquinas en una fabrica (robots, prensas, centros de mecanizado, estrusoras, etc) o en campo abierto como una cantera por ejemplo.

En la página web (si, lo se, ahi que actualizarla) tengo una descripcion de la version previa
http://www.cesarsoftware.com/DatCom.aspx
Unas fotos
http://www.cesarsoftware.com/DatComFotos.aspx

Asi que basicamente recoge las señales (máquina en marcha, maquina trabajando, máquina en averia, fin de pieza, golpe ejecutado, clable soltado, etc) y la cuenta y suma los tiempos, dando estadistica de productividad de cada máquina y de cada turno. Por ejemplo, en una fabrica de estampacion de puertas de coche, indica si las máquinas estan golpeando (trabajando) y cuantas piezas van realizando; se pueden activar señales digitales (sirenas, luces, etc) cuando por ejemplo cada 4000 piezas o cada 10 horas de trabajo, etc. Toda la información es trasmitida por WiFi y la aplicacion usa sockets a bajo nivel (nada de indy) para comunicarse con los dispositivos, antes tambien por puerto serie, pero cada vez uso mas ethernet.
Como es un producto autonomo y dirigido a Jefes de produccion y gerentes, ha de ser muy vistoso (les encantan los colorines y las graficas) y siempre quieren ver el estado de la fabrica en tiempo real sentados comodamente en sus despachos, asi que DatComG2 dispone de un soft remoto de visualizacion de la planta en tiempo real. Ha, por supuesto usa Firebird para almacenar tal ingente cantidad de informacion.

Vaya rollo te he metido, parezco un comercial, jejeje
PD: se aceptan distribuidores. ¿Vosotros en que sector trabajais, grafico?

[[fjcg02]]

Conoces a IDS de Bergara ?

Saludos

[ricardopl65]

yo en realidad no me dedico a esto, para mi es solo un hobby. Un hobby desde hace mas de 20 años. Yo empecé con un sony de 64k y grabadora de cinta y luego con ms-dos 3.0 y el gwbasic que llevaba en rom. De ahi a clipper, turbo pascal, pascal para güindous, y toda la saga de delphi.
He hecho alguna cosilla en php y en java un par de aplicaciones para movil, básicamente para enviarnos mensajes de voz entre mi mujer y yo.
Y ahora ando investigando algo de phyton ¡¡ si es que uno ya tiene sus añitos !!

[cesarsoftware]

Empezado por fjcg02

Conoces a IDS de Bergara ?

Saludos

Si, y ellos a nosotros tambien, somo "vecinos" y colaboradores,
¿Y Tú, de que les conoces? ¿No seras un espie, heinn

[cesarsoftware]

Empezado por ricardopl65

yo en realidad no me dedico a esto, para mi es solo un hobby. Un hobby desde hace mas de 20 años. Yo empecé con un sony de 64k y grabadora de cinta y luego con ms-dos 3.0 y el gwbasic que llevaba en rom. De ahi a clipper, turbo pascal, pascal para güindous, y toda la saga de delphi.
He hecho alguna cosilla en php y en java un par de aplicaciones para movil, básicamente para enviarnos mensajes de voz entre mi mujer y yo.
Y ahora ando investigando algo de phyton ¡¡ si es que uno ya tiene sus añitos !!

¡OLE!, esto es un hobby y no las motos, Yo tambien soy de tu epoca, pero como he conseguido convertir mi hobby en mi profesion, pues puedo dedicarle tiempo sin que mi mujer me ponga demasiados morros para cenar, ahora solo me embronca por la moto, "que ha ella si la llevas a pasear, le compras cositas, la cuidas, la mimas mas que ha mi..."
Tambien he recorrido los mismos compiladores que Tu y alguno mas, y te puedo decir que has acertado en el lenguaje de tu hobby, Delphi(pascal) y Enbarcadero(Borland) lo ha hecho bien.
Aunque te aconsejo que tires p'al movil que es el futuro, supongo que yo me quedaria en la "sucia, pesada" y decaida industria, ¡que daño estan haciendo algunos, eniff!

Es genial crear cosas y que los demas le saquen partido (y ya si te pagan, ni te cuento)
Solo me queda darte animo y gracias por la ayuda y conversacion, un placer.

[[fjcg02]]

Empezado por cesarsoftware

Si, y ellos a nosotros tambien, somo "vecinos" y colaboradores,
¿Y Tú, de que les conoces? ¿No seras un espie, heinn

Negativo, tuve mis escarceos comerciales y entablamos relación. La pena es que no salió nada.

Saludos

[cesarsoftware]

Empezado por fjcg02

Negativo, tuve mis escarceos comerciales y entablamos relación. La pena es que no salió nada.

Saludos

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

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