Var   
MyForm:TclForm; 
testEdit: TClProEdit;
resim : TCProImage; 
LblUserName,proLb1,proLb2,baslikLbl,a,b  : TClProLabel;
testBtn : TClProButton;
myDateTime : TclDateTime;
listview : TClProListView;
DsgnPnl : TClProListViewDesignerPanel;
arkaPnl,p1,panel2,panel3:TClProPanel;
satirLyt,sutunLyt:TClLayout;
i ,j,z,x,y: Integer;
dizi : TCLArrayString;
procedure alanBtnOnClick;
begin
 myDateTime := Now;
  if((TClProImage(MyForm.ClSender).Text)=(IntToStr(3)+' - '+IntToStr(0))) then
  begin
  ShowMessage('UTC-9 (US) = '+DateTimeToStr(myDateTime-00.50040));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(3)+' - '+IntToStr(1))) then
  begin
  ShowMessage('UTC-8 (CA) = '+DateTimeToStr(myDateTime-00.45870));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(3)+' - '+IntToStr(2))) then
  begin
  ShowMessage('UTC-7 (CA) = '+DateTimeToStr(myDateTime-00.41700));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(2))) then
  begin
  ShowMessage('UTC-6 (CA) = '+DateTimeToStr(myDateTime-00.37530));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(1)+' - '+IntToStr(3))) then
  begin
  ShowMessage('UTC-5 (CA) = '+DateTimeToStr(myDateTime-00.33360));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(2)+' - '+IntToStr(3))) then
  begin
  ShowMessage('UTC-5 (CA) = '+DateTimeToStr(myDateTime-00.33360));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(3))) then
  begin
  ShowMessage('UTC-5 (CA) = '+DateTimeToStr(myDateTime-00.33360));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(5)+' - '+IntToStr(3))) then
  begin
  ShowMessage('UTC-5 (CA) = '+DateTimeToStr(myDateTime-00.33360));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(6)+' - '+IntToStr(3))) then
  begin
  ShowMessage('UTC-5 (ABD) = '+DateTimeToStr(myDateTime-00.33360));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(7)+' - '+IntToStr(2))) then
  begin
  ShowMessage('UTC-6 (MX) = '+DateTimeToStr(myDateTime-00.37530));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(1)+' - '+IntToStr(4))) then
  begin
  ShowMessage('UTC-3 (GL) Konumunuzdan 6 saat geridir = '+DateTimeToStr(myDateTime-00.25020));
  end;
  
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(4))) then
  begin
  ShowMessage('UTC-4 (CA) = '+DateTimeToStr(myDateTime-00.29190));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(8)+' - '+IntToStr(4))) then
  begin
  ShowMessage('UTC-4 (VN) = '+DateTimeToStr(myDateTime-00.29190));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(9)+' - '+IntToStr(4))) then
  begin
  ShowMessage('UTC-4 (BR) = '+DateTimeToStr(myDateTime-00.29190));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(10)+' - '+IntToStr(4))) then
  begin
  ShowMessage('UTC-4 (BR) = '+DateTimeToStr(myDateTime-00.29190));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(11)+' - '+IntToStr(4))) then
  begin
  ShowMessage('UTC-3 (AR) = '+DateTimeToStr(myDateTime-00.25020));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(12)+' - '+IntToStr(4))) then
  begin
  ShowMessage('UTC-3 (AR) = '+DateTimeToStr(myDateTime-00.25020));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(1)+' - '+IntToStr(5))) then
  begin
  ShowMessage('UTC-3 (GL) = '+DateTimeToStr(myDateTime-00.25020));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(2)+' - '+IntToStr(5))) then
  begin
  ShowMessage('UTC-3 (GL) = '+DateTimeToStr(myDateTime-00.25020));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(10)+' - '+IntToStr(5))) then
  begin
  ShowMessage('UTC-3 (BR) = '+DateTimeToStr(myDateTime-00.25020));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(3)+' - '+IntToStr(6))) then
  begin
  
  ShowMessage('UTC+0 (IS) = '+DateTimeToStr(myDateTime-00.12510));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(6))) then
  begin
  ShowMessage('UTC+0 GB = '+DateTimeToStr(myDateTime-00.12510));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(7)+' - '+IntToStr(6))) then
  begin
  ShowMessage('UTC+0 (MR) = '+DateTimeToStr(myDateTime-00.12510));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(8)+' - '+IntToStr(6))) then
  begin
  ShowMessage('UTC+0 (Batı Afrika) = '+DateTimeToStr(myDateTime-00.12510));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(1)+' - '+IntToStr(7))) then
  begin
  ShowMessage('UTC+1 (NO) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(3)+' - '+IntToStr(7))) then
  begin
  ShowMessage('UTC+1 (SWE) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(7))) then
  begin
  ShowMessage('UTC+1 (Nth AB) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(5)+' - '+IntToStr(7))) then
  begin
  ShowMessage('UTC+1 (AB) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(7)+' - '+IntToStr(7))) then
  begin
  ShowMessage('UTC+1 (Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(8)+' - '+IntToStr(7))) then
  begin
  ShowMessage('UTC+1 (Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(9)+' - '+IntToStr(7))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(7)+' - '+IntToStr(8))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(8)+' - '+IntToStr(8))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(9)+' - '+IntToStr(8))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(10)+' - '+IntToStr(8))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(3)+' - '+IntToStr(8))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(8))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(5)+' - '+IntToStr(8))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(6)+' - '+IntToStr(8))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(3)+' - '+IntToStr(9))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  
  
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(7)+' - '+IntToStr(1))) then
  begin
  ShowMessage('at = ');
  end;
  
for i:=0  to 7 do 
begin
j:=j+1;
  if i=7 then
  begin
  j:=0;
  end;
  else if i=1 then
  begin
  i := i+1;
  end;
end;
  else if j;
  
  else
  begin
  j=10 olduğunda 
  i++
  end;
  
  
  
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(9))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(5)+' - '+IntToStr(9))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(6)+' - '+IntToStr(9))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(3)+' - '+IntToStr(10))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(4)+' - '+IntToStr(10))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  end;
  else if((TClProImage(MyForm.ClSender).Text)=(IntToStr(5)+' - '+IntToStr(10))) then
  begin
  ShowMessage('UTC+1 (Güney Afrika) = '+DateTimeToStr(myDateTime-00.1));
  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 225 do begin
  dizi.Add('C:/Clomosy/Resimler1/part_'+IntToStr(x)+'.jpg');
 end; 
 z:=0;
 y:=0;
  for i:= 0 to 14 do begin 
    satirLyt:=MyForm.AddNewLayout(p1,'satirLyt'+IntToStr(i));
    satirLyt.Align:=alMostTop;
    satirLyt.Height:=50;
    satirLyt.Width:=130;
    for j:=0 to 14 do begin
      sutunLyt:=MyForm.AddNewLayout(satirLyt,'sutunLyt'+IntToStr(i)+IntToStr(j)+IntToStr(z)+IntToStr(y));
      sutunLyt.Align:=alMostleft;
      sutunLyt.Width:=93;
      sutunLyt.Height:=105;
      resim := MyForm.AddNewProImage(sutunLyt,'resim'+IntToStr(i)+IntToStr(j)+IntToStr(z)+IntToStr(y));
      clComponent.SetupComponent(resim,'{"Align" : "client","Width" :170, "Height":100,"TextColor":"#030303","TextSize":15,"TextVerticalAlign":"center",
  "TextHorizontalAlign":"alRight","TextBold":"yes"}');
      dizi.Add('C:/Clomosy/Resimler1/part_'+IntToStr(x)+'.jpg');
      MyForm.SetImage(resim,dizi.GetItem((i*15)+j));
      resim.Text:= IntToStr(i)+' - '+IntToStr(j);
      //resim.Text.Hide
      Myform.AddNewEvent(resim,tbeOnClick,'alanBtnOnClick');
      z:=z+1;
      y:=y+1;
    end;
  end;  MyForm.Run;
end;