Var   
MyForm:TclForm; 
testEdit: TClProEdit;
resim : TCProImage; 
testImg2 : TclImage; 
testImg3 : TClProImage;
testImg4 : TClProImage;
LblUserName : TClProLabel;
testBtn : TClProButton;
myDateTime : TclDateTime;
xWeb:TclWebBrowser;
topBar:TCLProEdit;
listview : TClProListView;
DsgnPnl : TClProListViewDesignerPanel;
proLb1,proLb2 : TClProLabel;
arkaPnl,p1,panel2,panel3:TClProPanel;
satirLyt,sutunLyt:TClLayout;
baslikLbl,a,b: TClProLabel;
alanBtn:TCLProButton;
i ,j,z,x,y: Integer;
dizi : TCLArrayString;
procedure alanBtnOnClick;
begin
 myDateTime := Now;
  if((TClProImage(MyForm.ClSender).Text)=(IntToStr(1)+' - '+IntToStr(1))) then
  begin
    ShowMessage('TURKEY');
    ShowMessage('UTC+3 KONUMUNUZ(Türkiye) = '+DateTimeToStr(myDateTime));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(2)+' - '+IntToStr(2))) then
  begin
  ShowMessage('UTC+3 KONUMUNUZ(Türkiye) = '+DateTimeToStr(myDateTime+00.4170));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(2)+' - '+IntToStr(1))) then
  begin
  ShowMessage('UTC+3 KONUMUNUZ(Türkiye) = '+DateTimeToStr(myDateTime+00.3170));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(3)+' - '+IntToStr(4))) then
  begin
  ShowMessage('UTC+3 KONUMUNUZ(Türkiye) = '+DateTimeToStr(myDateTime+00.8340));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(7)+' - '+IntToStr(8))) then
  begin
  ShowMessage('UTC+3 KONUMUNUZ(Türkiye) = '+DateTimeToStr(myDateTime+00.45900));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(5))) then
  begin
  ShowMessage('UTC+3 KONUMUNUZ(Türkiye) = '+DateTimeToStr(myDateTime-00.8340));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(6))) then
  begin
  ShowMessage('UTC+3 KONUMUNUZ(Türkiye) = '+DateTimeToStr(myDateTime-00.12510));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(7))) then
  begin
  ShowMessage('UTC+3 KONUMUNUZ(Türkiye) = '+DateTimeToStr(myDateTime-00.16680));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(8))) then
  begin
  ShowMessage('UTC+3 KONUMUNUZ(Türkiye) = '+DateTimeToStr(myDateTime-00.20850));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(10))) then
  begin
  ShowMessage('UTC+3 KONUMUNUZ(Türkiye) = '+DateTimeToStr(myDateTime-00.29190));
  end;
  else
  begin
  ShowMessage('gecersiz deger');
  end;
  
  
end;
begin
  MyForm := TclForm.Create(Self);
 
  arkaPnl:=MyForm.AddNewProPanel(MyForm,'arkaPnl');
  clComponent.SetupComponent(arkaPnl,'{"Align" : "Client","BackgroundColor":"#EEE8AA"}');
  
  p1:=MyForm.AddNewProPanel(arkaPnl,'p1');
  clComponent.SetupComponent(p1,'{"Align" : "Client","BackgroundColor":"#EEE8AA"}');
 dizi := TCLArrayString.Create;
  for x := 0 to 121 do 
begin
  dizi.Add('C:/Clomosy/Resimler/part_'+IntToStr(x)+'.jpg');
 
 end; 
  for i:= 0 to 10 do begin 
    satirLyt:=MyForm.AddNewLayout(p1,'satirLyt'+IntToStr(i));
    satirLyt.Align:=alMostTop;
    satirLyt.Height:=87;
    satirLyt.Width:=170;
    for j:=0 to 10 do begin
      sutunLyt:=MyForm.AddNewLayout(satirLyt,'sutunLyt'+IntToStr(i)+IntToStr(j));
      sutunLyt.Align:=alMostleft;
      sutunLyt.Width:=170;
      sutunLyt.Height:=100;
      
      resim := MyForm.AddNewProImage(sutunLyt,'resim'+IntToStr(i)+IntToStr(j));
      clComponent.SetupComponent(resim,'{"Align" : "client","Width" :170, "Height":100}');
      dizi.Add('C:/Clomosy/Resimler/part_'+IntToStr(x)+'.jpg');
       MyForm.SetImage(resim,dizi.GetItem(j));
       resim.Text := IntToStr(I)+' - '+IntToStr(j);
       Myform.AddNewEvent(resim,tbeOnClick,'alanBtnOnClick');
    end;
  end;
 MyForm.Run;
end;