Configura Sistema para qualquer quantidade de pixels

Delphi

04/02/2004

Bem como eu faço para para configurar meu sistema para rodar tanto em monitores com 800x600 pixels, quanto 640x480 ou 1024x728 pixels.?


Draven

Draven

Curtidas 0

Respostas

Ltres

Ltres

04/02/2004

Vc pode mudar o Height e o Width do Form conforme a resolução. Ja para mudar o tamanho dos componentes use o ScaleBy, veja:
  Form1.ScaleBy(100, 150);


Isso ira fazer com q o form passe de 100¬ para 150¬, mas só os componentes dentro do mesmo.


GOSTEI 0
Ltres

Ltres

04/02/2004

Agora se a ideia é mudar a resolução, faça algo do tipo 

function LTMudaRes(Res: String = ´800X600´; bits: byte = 32): boolean;
var
  DevMode : TDevMode;
  i, w, h: integer;
begin
  w:=strtoint(copy(res,1,pos(´X´,uppercase(res))-1));
  h:=strtoint(copy(res,pos(´X´,uppercase(res))+1,4));
  try
    i:=0;
    while EnumDisplaySettings(nil,i,Devmode) do
    begin
      if (devmode.dmPelsWidth=w) and (devmode.dmPelsHeight=h) and (devmode.dmBitsPerPel=bits) then
      begin
        ChangeDisplaySettings(DevMode,0);
        result:=true;
        Break;
      end;
      inc(i);
    end;
  except
  result:=false;
  end;
end;



GOSTEI 0
POSTAR