Dividir formulario proporcionalmente

[ecfisa]

Empezado por LoPiTaL

Además, no estoy seguro de si al arrancar la aplicación aparecerían correctamente los paneles sin añadir código en el FormCreate,

Hola.

Si, hay que darle valores iniciales a los paneles ya sea por código o situándolos visualmente. Pero como aclaré en mi mensaje "Para este caso en especial,...", el código no tiene pretenciones de ser una solución global sino una respuesta a un planteo concreto.
Es decir, funciona para cuatro panels que dividen el form exactamente en cuatro partes iguales distribuidas en forma de mosaico y se redimensionan acorde al tamaño del form. Que fué lo que interpreté que buscaba Toni.

Un saludo.

Edito: Para no dejarle a Toni una respuesta incompleta, el órden visual del ejemplo es:

Panel1 - Panel3
Panel2 - Panel4

O desde código:

Código Delphi [-]
...
begin
  Panel1.Top:= 1;
  Panel1.Left:= 1;
  Panel2.Top:= Panel1.Height;
  Panel2.Left:= 1;
  Panel3.Top:=  1;
  Panel3.Left:= Panel1.Width;
  Panel4.Top:= Panel1.Height; 
  Panel4.Left:= Panel1.Width;
end;

[ecfisa]

Hola LoPiTaL.

Estuve probando otra vez con el método CustomAlignPosition (ya que antes no encontré como lograrlo ) y como muchas veces pasa, lo que no salía antes salió después...

Para 4 Panels(propiedad Align = alCustom) en mosaico, redimensionables:

Código Delphi [-]
procedure TForm1.CustomAlignPosition(Control: TControl; var NewLeft, NewTop, NewWidth, NewHeight: Integer; var AlignRect: TRect;
  AlignInfo: TAlignInfo);
begin
  inherited;
  NewWidth  := GetClientRect.Right div 2;
  NewHeight := GetClientRect.Bottom div 2;
  if Control = Panel1 then
  begin
    NewLeft := 1;
    NewTop  := 1;
  end;
  if Control = Panel2 then
  begin
    NewLeft := Panel1.Width;
    NewTop  := 1;
  end;
  if Control = Panel3 then
  begin
    NewLeft := 1;
    NewTop  := Panel1.Height;
  end;
  if Control = Panel4 then
  begin
    NewLeft := Panel1.Width;
    NewTop  := Panel1.Height;
  end;
end;

Saludos.

[Toni]

OK, muchas gracias a los dos. Las dos soluciones funcionan perfectamente.

[LoPiTaL]

Estuve probando otra vez con el método CustomAlignPosition

jajaj! Te dejé con la intriga ehh??

Sólo apuntar un detalle más a tu solución (que funciona perfectamente):
Así hay que vigilar el orden de creación de los componentes. Ya que por lo general se crean en este orden Panel1, Panel2, Panel3, Panel4, entonces el método directamente es correcto.
PERO si quisieses poner el Panel2 primero (por el motivo que sea), entonces necesitarías sobreescribir el otro método, OnCustomAlignInsertBefore, para poder indicar, cuando salga la pareja PanelX - Panel2, que quieres que alinee primero el panel2, ya que si no, las instrucciones:

Código Delphi [-]
    NewLeft := Panel2.Width;  //Sustituido Panel1 por Panel2
    NewTop  := Panel2.Height;

no funcionarán, ya que cuando alinea Panel1, Panel2 todavía no tiene el Width y Height que tocan.

Y respondiendo a la pregunta que os estáis haciendo: sí, me ha tocado pelearme muuuuuuuuuchhooooo con estos dos métodos...

Un saludo,
LoPiTaL

[ecfisa]

Empezado por LoPiTaL

Y respondiendo a la pregunta que os estáis haciendo: sí, me ha tocado pelearme muuuuuuuuuchhooooo con estos dos métodos...

Es que generalmente es proporcional: tanto más uno se rompe el coco con un problema, tanto más aprende la mejor forma de solucionarlo...

Un saludo.

[Toni]

Pues la complicacion no acaba ahi.....este formulario no solo se divide en 4, sino que tiene un TabControl con varios Tabs y estos Tabs se dividen en cuatro (no todos). Pero bueno es mas de lo mismo.

Lo que si que quiero es implementar que al redimensionar el formulario lo haga de forma proporcional, para que las graficas que hay en cada division no se vean feas y mal formadas. A trabajar un poco mas....y el problema es que contra reloj.

Gracias por la ayuda!

[[Chris]]

No sé desde que versión de Delphi está disponible, pero hay un exelente control para este menester. El TGridPanel. Si tienes alguna de las más recientes versiones de Delphi puedes probarlo a ver si lo tienes.

Saludos,
Chris