Fórum Windows XP #220384
14/03/2004
0
PessoALL,
naum sei como proceder .. mas tenho uma aplicacao desenvolvida em Delphi 4 ... ja algum tempo ... e um de meus clientes me solicitou ... Naum converti para o Delphi 7, pois nao tinha tempo para isso ...
So q na estacao do cara, ta instalado WinXP e as telas q rodavam sem problemas no Win98, nao ficam posicinada corretamente na tela do XP.
Resumindo, parece q o formulario nao chega ate o topo da Tela, mesmo q eu tento arrasta-lo ... e devido a isso todas as outras telas ficam fora tambem.
Como posso resolver isso ? uso uma resolucao de 800x600 em minhas aplicacoes.
Obr pela ajuda
Marcel
naum sei como proceder .. mas tenho uma aplicacao desenvolvida em Delphi 4 ... ja algum tempo ... e um de meus clientes me solicitou ... Naum converti para o Delphi 7, pois nao tinha tempo para isso ...
So q na estacao do cara, ta instalado WinXP e as telas q rodavam sem problemas no Win98, nao ficam posicinada corretamente na tela do XP.
Resumindo, parece q o formulario nao chega ate o topo da Tela, mesmo q eu tento arrasta-lo ... e devido a isso todas as outras telas ficam fora tambem.
Como posso resolver isso ? uso uma resolucao de 800x600 em minhas aplicacoes.
Obr pela ajuda
Marcel
Scandolara
Curtir tópico
+ 0
Responder
Posts
14/03/2004
Wagner
Tirada de Deephi 1.3 1500 dicas
Achei isso aqui ve se serve pra voce
Implementation
const
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;
{$R *.DFM}
procedure TForm1.FormCreate (Sender: Tobject);
begin
scaled := true;
if (screen.width <> ScreenWidth) then
begin
height := longint(height) * longint(screen.height) DIV ScreenHeight;
width := longint(width) * longint(screen.width) DIV ScreenWidth;
scaleyBy(screen.width, ScreenWidth);
end;
end;
USES tyinfo; {Add this to your USES statement.}
var
i:integer;
begin
for i := componentCount - 1 downto 0 do with components[i] do
begin
if GetPropInfo(ClassInfo, ´font´) <> nil then font.size := (NewFormWidth DIV OldFormWidth) * font.size;
end;
end;
Achei isso aqui ve se serve pra voce
Implementation
const
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;
{$R *.DFM}
procedure TForm1.FormCreate (Sender: Tobject);
begin
scaled := true;
if (screen.width <> ScreenWidth) then
begin
height := longint(height) * longint(screen.height) DIV ScreenHeight;
width := longint(width) * longint(screen.width) DIV ScreenWidth;
scaleyBy(screen.width, ScreenWidth);
end;
end;
USES tyinfo; {Add this to your USES statement.}
var
i:integer;
begin
for i := componentCount - 1 downto 0 do with components[i] do
begin
if GetPropInfo(ClassInfo, ´font´) <> nil then font.size := (NewFormWidth DIV OldFormWidth) * font.size;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)