|
Evo ovako
var
HOld,WOld,HNew,WNew,
......
procedure TForm1.FormCreate(Sender: TObject);
begin
HOld := Form1.Height;
WOld := Form1.Width;
end;
procedure TForm1.PostValue;
begin
with Form1.Image1 do begin
Image1.Width := 337;
Image1.Height := 313;
Image1.Left := 24;
Image1.Top := 104;
end;
procedure TForm1.ResizeComponents;
var i: integer;
begin
for i := 0 to ComponentCount-1 do
if (Components[i] is TImage) then
begin
(Components[i] as TImage).Left:=
(Components[i] as TImage).Left * WNew div WOld;
(Components[i] as TImage).Top:=
(Components[i] as TImage).Top * HNew div HOld;
(Components[i] as TImage).Width:=
(Components[i] as TImage).Width * WNew div WOld;
(Components[i] as TImage).Height:= (
Components[i] as TImage).Height * HNew div HOld;
end;
procedure TForm1.OnAfterResize(var Msg: TMessage);
begin
HNew:= Height;
WNew:= Width;
PostValue;
ResizeComponents;
end;
Ovaj kod je samo za image1 , jer bi bilo previse da sam napisao kod za celu formu
Loshmi mi je mnogo pomogao oko ovoga
 
|
