image1.position quot;on center in windowquot; via codigo

Delphi

01/04/2004

estou criando a rotina de zoom e ela está assim:
-----------------------------------------------------------------------------
// zoom+
-----------
procedure TPrincipal.Btn_zoom1Click(Sender: TObject);
var x,y:integer;
begin
Image1.Proportional:=true;
x:=image1.Width+100;
y:=Image1.Height+107;
Image1.Width:=(x);
Image1.Height:=y;
Label_Status.Caption:=´Tamanho de Zoom:..[´+inttostr(Principal.Image1.Width)+´ X ´+inttostr(Principal.Image1.Height)+´]´;
end;
----------------------------------------------------------------------------
preciso dizer para o image1:

1. ficar na position horizontal = center in window
2. ficar na position vertical = center in window

Obs. mas isso tem que ser via código, para a imagem em tempo de execussao sempre ficar no centro do meu formulario...

se alguem puder me ajudar, agradeço!!!!
[]´s


Mahdak

Mahdak

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

01/04/2004

Image.Left := (Image.Width - Image.Paent.Width) div 2;
Image.Top := (Image.Height - Image.Parent.Height) div 2;


Deve funcionar, se der erro no Parent, troque pelo componente aonde o Image está contido


GOSTEI 0
Mahdak

Mahdak

01/04/2004

nao deu nao... :cry:
a imagem nao fica sempre centralizada, ela pira, vai p/ um canto depois p/ outro...
:?: :?: :?:


GOSTEI 0
POSTAR