uses tynfo

[Maneju 0]

olá pessoal.ao inserir tynfo na cláusula USES, me retorna uma mensagem de que não foi encontrado o arquivo tynfo.dcu. esta cláusula tinha que ser definida para a rotina que segue abaixo para ajuste do tamanho da fonte em todos os componentes do form:for i:= componentCount -1 downto 0 do with components[1] do begin if GetProInfo(ClassInfo, 'font') <> nil then font.size:=(NewFormWidth div OldFormWidth) * font.size; end;end;Minha dúvida é se está correta a cláusula tynfo ou não. Se estiver, não sei como implementá-la.Grato!Manoel

[bdexterholland 0]

por que você tem que usar o tinfo???Essa tinfo você tem que cirar porque não é nativa do delphi

[Maneju 0]

estou usando para tentar corrigir um problema em minha aplicação e ajustar tela, componentes, fontes que ficam todos "distorcidos" (maiores) que o tamanho original no windows XP. no windows 98, fica perfeito.

[Pantoja 5]

mas você colocou o arquivo .pas nas pasta do seu projeto??pode ser isso

[Maneju 0]

coloquei sim...vi algo sobre estar disponível apenas no Delphi 7.0, estou usando 6.0.Manoel

[Maneju 0]

quanto a tyinfo, o correto é typinfo....mesmo assim, meu programa continua distorcido no XP.Manoel