how to set all images proportional?

[NoReason]

I try something like this but it wont work.


var
  i:integer;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  for i:=1 to 50 do
    Image[ i].Proportional:=true;

end;

end.

[wp]

You must also set Stretch to true:

Code: Pascal  [Select][+][-]

1. for i:=1 to 50 do begin
2.   Image[i].Stretch := true;
3.   Image[i].Proportional := true;
4. end;

[NoReason]

You must also set Stretch to true:

Code: Pascal  [Select][+][-]

1. for i:=1 to 50 do begin
2.   Image[i].Stretch := true;
3.   Image[i].Proportional := true;
4. end;

but i got porblem identifier not fount "image".

[wp]

My post was a modification of your posted code. I don't know anything else about your code. Without showing more nobody can help you.

[NoReason]

okay, i found, should type (FindComponent('Image' + IntToStr(i)) as TImage).Proportional:=true;

thats work


thanks anyway

[jamie]

For future reference that works fine if they have names. using the designer that is true however, in the case
if doing dynamic creation of that, if you don't set that name then you could be up a creek without a paddle!

Now, you could enumerate the list looking for the Timage Class name instead! That will return all instances of child
Timages without the need for numbering added.