Просмотр фото на разных компьютерах

void __fastcall TForm1::Image3Click(TObject *Sender)
{
Image3->Height=219;
Image3->Left=641;
 Image3->Top=-48;
 Image3->Width=838;
}

void __fastcall TForm1::Image1Click(TObject *Sender)

int cc=ControlCount-6; //количество объектов на форме
while(cc!=-1) //для каждого объекта выполняем следующие операции

/*int cc=ControlCount-6;
int cc=6-6;*/
int cc=0;
/*while(0!=-1)*/
while(true)

factor.x=1024/res.x;
factor.y=768/res.y;

int cc=ControlCount-18; //количество объектов на форме
while(cc!=-1) //для каждого объекта выполняем следующие операции

 Form->Show();

int cc=ControlCount-1;

int cc=ControlCount-1; //количество объектов на форме
while(cc!=-1)

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
struct res{float x,y;}res;
 
 
struct factor{float x,y;}factor;
 
 
res.x=Screen->Width;
res.y=Screen->Height;
 
 
 
factor.x=1280/res.x;
factor.y=1024/res.y;
 
int cc=ControlCount-1;
while(cc!=-1) 
{
Controls[cc]->Left/=factor.x; 
Controls[cc]->Top/=factor.y; 
Controls[cc]->Width/=factor.x;
Controls[cc]->Height/=factor.y; 
cc--;
}
 
 
Form1->Width/=factor.x;
Form1->Height/=factor.y;
 
 
Form1->PixelsPerInch=Screen->PixelsPerInch;