Ver Mensaje Individual
  #4  
Antiguo 18-11-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Por ejemplo, un formulario que esta divido en 4 partes iguales y en cada parte tenga un TChart. La pregunta es, ¿se puede hacer esto con las propiedades tipicas de Aling? ¿hay que usar algun otro componente?
Hola Toni.

Para este caso en especial, se me ocurrió algo aprovechando el evento OnCanResize del form.

Un ejemplo usando cuatro TPanels:
Código Delphi [-]
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer;
  var Resize: Boolean);
var
  R: TRect;
  Ancho, Alto: Integer;
begin
  Ancho:= GetClientRect.Right div 2;
  Alto:= GetClientRect.Bottom div 2;
  with Panel1 do
  begin
    Height := Alto;
    Width  := Ancho;
  end;

  with Panel2 do
  begin
    Top    := Panel1.Top + Alto;
    Height := Alto;
    Width  := Ancho;
  end;

  with Panel3 do
  begin
    Left   := Ancho;
    Height := Alto;
    Width  := Ancho;
  end;

  with Panel4 do
  begin
   Top     := Panel1.Top + Alto;
   Left    := Ancho;
   Height  := Alto;
   Width   := Ancho;
  end;
end;
Los TChart podrías ubicarlos en cada TPanel con su propiedad Aligng = alClient. Espero te sirva o te dé alguna idea...

Un saludo
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita