Form padre, hijos y alphablendvalue

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

[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