Fórum Centralizar imagem no formulário #371762

30/06/2009

0

Olá para todos!
Tenho uma imagem localizada no dentro de um formulário maximizado. Até
aí tudo bem, mas caso este formulário seja executado em um computador
onde a tela tenha uma resolução diferente a tela onde eu efetuei os testes, a
imagem não permanecerar mais no centro do formulário.

Acredito que o delphi tenha algum recurso para resolver este problema,
aguém tem alguma dica :?:

Desde já obrigado!


Fabricio.ribeiro

Fabricio.ribeiro

Responder

Post mais votado

30/06/2009

Tenta:

imagem.left := trunc((formulario.width - imagem.width) / 2); imagem.top := trunc((formulario.height - imagem.height) / 2);


Avisa se deu certo...


Willian

Willian
Responder

Gostei + 1

Mais Posts

30/06/2009

Willian

Não conheço [i:0b81dfe974]nada automático[/i:0b81dfe974], mas acho que esse código resolve seu problema:

imagem.left := (formulario.width - imagem.width) / 2
imagem.top := (formulario.height - imagem.height) / 2


Pode colocar esse código no [b:0b81dfe974]OnCreate [/b:0b81dfe974]e no [b:0b81dfe974]OnResize [/b:0b81dfe974]do form.

Espero ter ajudado!

Abraços,

Willian


Responder

Gostei + 0

30/06/2009

Osocram

vc pode usar as propriedade anchor do objeto imagem.


Responder

Gostei + 0

30/06/2009

Fabricio.ribeiro

Obrigado a todo pelas respostas!
Willian tentei a sua sugestão, ustilizando as três operações (+ , - e x)
ocorre tudo bem, porém quando uso a quarto ( / ) que está em sua sugestão ,
o delphi lança um erro de copilação:
[i:0e327bf03f]Incompatible types: ´Integer´ and ´Extend´[/i:0e327bf03f]
Qual seria o motivo?


Responder

Gostei + 0

30/06/2009

Fabricio.ribeiro

Obrigado a todo pelas respostas!
Willian tentei a sua sugestão, ustilizando as três operações (+ , - e x)
ocorre tudo bem, porém quando uso a quarto ( / ) que está em sua sugestão ,
o delphi lança um erro de copilação:
[i:29e204adf0]Incompatible types: ´Integer´ and ´Extend´[/i:29e204adf0]
Qual seria o motivo?


Responder

Gostei + 0

30/06/2009

Fabricio.ribeiro

Obrigado a todo pelas respostas!
Willian tentei a sua sugestão, ustilizando as três operações (+ , - e x)
ocorre tudo bem, porém quando uso a quarto ( / ) que está em sua sugestão ,
o delphi lança um erro de copilação:
[i:438ba2ed8b]Incompatible types: ´Integer´ and ´Extend´[/i:438ba2ed8b]
Qual seria o motivo?


Responder

Gostei + 0

30/06/2009

Fabricio.ribeiro

Funcionou perfeitamente... e ainda aprendi a função do precedimento Truc.
Obrigado Willian! :D


Responder

Gostei + 0

06/09/2015

Cgm2k7 2013

Vlw Amigo me ajudou tambem
Responder

Gostei + 0

28/07/2017

Pedro Souza

Tenta:

[quote:7181daf71d]imagem.left := trunc((formulario.width - imagem.width) / 2);
imagem.top := trunc((formulario.height - imagem.height) / 2);[/quote:7181daf71d]

Avisa se deu certo...


Responder

Gostei + 0

28/07/2017

Pedro Souza

Ótimo... aproveitei a dica!
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar