Resolucion grafica de aplicacion

[argami]

vale lo acepto me equivoque usa esto y ya lo tienes si quieres cambiar el ajuste juegas con las cantidades

Procedure AjustForm(Form:TForm);
begin
  With Form do
  begin
     ScaleBy (75, 100);
     Width := Width * 0.75;
     Height := Height * 0.75;
  end;
end;

[galmacland]

gracias mil por tu ayuda, pero no, no consigo una relatividad entre los objetos y la form, todo se mueve de lugar tratando de ajustarse... keep on trying

[argami]

Procedure AjustForm(Form:TForm);
var I:Integer;
begin
  With Form do
  begin
    For I:= 0 to ComponentCount - 1 do
    begin
      if (Components[i] is Tcontrol) then
      begin
        if (Components[i] is TWinControl) then
        begin
          Twincontrol(Components[i]).ScaleBy (75, 100);
        end else begin
          Tcontrol(Components[i]).Width := Trunc(Tcontrol(Components[i]).Width * 0.75);
          Tcontrol(Components[i]).Height := Trunc(Tcontrol(Components[i]).Height * 0.75)
        end;
        Tcontrol(Components[i]).Left  :=  Trunc(Tcontrol(Components[i]).Left * 0.75);
        Tcontrol(Components[i]).Top   :=  Trunc(Tcontrol(Components[i]).Top * 0.75);
      end;
    end;
    Width := Trunc(Width * 0.75);
    Height := Trunc(Height * 0.75);
  end;
end;

si esto te va solo hay que ajustar la fuente espero que te sirva

[Diego827]

Para no tener que "poner a escala" todos los componentes puedes poner scaleby a el form en el evento FormCreate, asi cuando se muestre de una vez crea a escala todos tus componentes.

[[maeyanes]]

Hola...

Espero que después de 6 años, la respuesta le sea útil


Saludos...

[Diego827]

Empezado por maeyanes

Hola...

Espero que después de 6 años, la respuesta le sea útil


Saludos...

Pregunta: ¿Cuando tienes una duda informática que haces?:

1. Buscas en un foro un tema que concuerde con tu duda y obviamente encuentres la solución allí: NO TE IMPORTA SI FUE 20000 AÑOS ATRAS IGUAL TE SIRVE. SI no creas un hilo nuevo.

2. Un nuevo hilo de primas a primeras. (y a esperar que "alguien" responda).

Al menos yo primero busco y si no encuentro a crear un tema.

Ahora cuando alguien lo desee y busque puede que mi comentario le ayude, al menos esa es la intensión.