RE: [delphi-br] Mudar resolução video 640x4 80, 800x600 etc.

Wed, 22 Mar 2006 04:51:15 -0800 

Olá espero k ajude.Eu adaptei isto com um ficheir de parametros e
funciona ok

That the procedure I use and it solved all my problems.
I put SCALED := FALSE in the form at design time and
set r_e_s := 800 which is my resolution at design time.
It manage resolution and font.
HTH.                                       Paolo


procedure geScale(MForm: TForm);
const
  cPixelsPerInch:integer= 120;
  cFontHeight:integer   = -18;  {Design-time value of Form.Font.Height}
var  
  i: integer; cScreenWidth,cScreenHeight:integer;
begin
   if r_e_s = 800 then begin
     cScreenWidth := 800;  cScreenHeight:= 600;
     end else begin
     cScreenWidth := 1024; cScreenHeight:= 768;
     end;
   if (Screen.width <> cScreenWidth) or
      (Screen.PixelsPerInch <> cPixelsPerInch) then begin
      MForm.scaled := TRUE;
      MForm.height := MForm.height * screen.Height DIV cScreenHeight;
      MForm.ScaleBy(screen.width, cScreenWidth);
      end;
   if (Screen.PixelsPerInch <> cPixelsPerInch) then begin
      for i := MForm.ControlCount - 1 downto 0 do
       TFooClass(MForm.Controls[i]).Font.Height :=
         (MForm.Font.Height div cFontHeight) *
         TFooClass(MForm.Controls[i]).Font.Height;
      end;
   end;






-----Original Message-----
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
On Behalf Of conexaoi
Sent: quarta-feira, 22 de Março de 2006 10:54
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Mudar resolução video 640x480, 800x600 etc.

Tem como mudar a resolução do video através do delphi 640x480, 
800x600, 1024x912?
se alguém puder me ajudar com o escript eu agradeço






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
Links do Yahoo! Grupos




 





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a