var
MyForm:TclForm;
bottomPanel,butonPanel,mainPnl:TclProPanel;
listView:TClProListView;
lidsgpnl:TClProListViewDesignerPanel;
Country_Name,mnTxt,Time_Zone,GMT_Offset:TClProLabel;
searchEdt:TClProSearchEdit;
Saat:Integer;
myDateTime : TclDateTime;

procedure SetupSqlConnection;
begin
Clomosy.DBSQLServerConnect('SQL Server','192.168.2.38','deneme123','deneme123','Saat_Dilimleri',50000);
end;

Procedure loadListView;
Begin
Clomosy.DBSQLServerQuery.Close;
Clomosy.DBSQLServerQuery.SQL.Text:='SELECT TOP (1000) [Country_Name] ,[Time_Zone],[GMT_Offset],[F4] FROM [Saat_Dilimleri].[dbo].[TMZ] ';
Clomosy.DBSQLServerQuery.Open;
listview.clLoadProListViewDataFromDataset(Clomosy.DBSQLServerQuery);
End;

procedure saatget;
begin
myDateTime := Now;
end;


procedure nwSy;
begin

Clomosy.GlobalVariableInteger:=StrToInt(listview.clSelectedItemData(clText));
Saat:=Clomosy.GlobalVariableInteger;

  if (Saat > 3) and (Saat <= 3) then
  begin
    ShowMessage('UTC+3 = '+DateTimeToStr(myDateTime));
  end; 
  else if (Saat > +12) and (Saat <= +12) then
    ShowMessage('UTC+12 = '+DateTimeToStr(myDateTime+00.37530));   
  else if (Saat > +11) and (Saat <= +11) then
    ShowMessage('UTC+11 = '+DateTimeToStr(myDateTime+00.33360));  
  else if (Saat > +10) and (Saat <= +10) then
    ShowMessage('UTC+10 = '+DateTimeToStr(myDateTime+00.29190));
  else if (Saat > +9) and (Saat <= +9) then
    ShowMessage('UTC+9 = '+DateTimeToStr(myDateTime+00.25020));
  else if (Saat > +8) and (Saat <= +8) then
    ShowMessage('UTC+8 = '+DateTimeToStr(myDateTime+00.20850));
  else if (Saat > +7) and (Saat <= +7) then
    ShowMessage('UTC+7 = '+DateTimeToStr(myDateTime+00.16680));
  else if (Saat > +6) and (Saat <= +6) then
    ShowMessage('UTC+6 = '+DateTimeToStr(myDateTime+00.12510));
  else if (Saat > +5) and (Saat <= +5) then
    ShowMessage('UTC+5 = '+DateTimeToStr(myDateTime+00.08340));
  else if (Saat > +4) and (Saat <= +4) then
    ShowMessage('UTC+4 = '+DateTimeToStr(myDateTime+00.04170));
  else if (Saat > +13) and (Saat <= +13) then
    ShowMessage('UTC+13 = '+DateTimeToStr(myDateTime+00.41700));
  else if (Saat > +2) and (Saat <= +2) then
    ShowMessage('UTC+2 = '+DateTimeToStr(myDateTime-00.04170))
  else if (Saat > +1) and (Saat <= +1) then
    ShowMessage('UTC+1 = '+DateTimeToStr(myDateTime-00.08340));
  else if (Saat > 0) and (Saat <= 0) then
    ShowMessage('UTC+0 = '+DateTimeToStr(myDateTime-00.12510));
  else if (Saat > -1) and (Saat <= -1) then
    ShowMessage('UTC-1 = '+DateTimeToStr(myDateTime-00.16680));
  else if (Saat > -2) and (Saat <= -2) then
    ShowMessage('UTC-2 = '+DateTimeToStr(myDateTime-00.20850));
  else if (Saat > -3) and (Saat <= -3) then
    ShowMessage('UTC-3 = '+DateTimeToStr(myDateTime-00.25020));
  else if (Saat > -4) and (Saat <= -4) then
    ShowMessage('UTC-4 = '+DateTimeToStr(myDateTime-00.29190));
  else if (Saat > -5) and (Saat <= -5) then
    ShowMessage('UTC-5 = '+DateTimeToStr(myDateTime-00.33360));
  else if (Saat > -6) and (Saat <= -6) then
    ShowMessage('UTC-6 = '+DateTimeToStr(myDateTime-00.37530));
  else if (Saat > -7) and (Saat <= -7) then
    ShowMessage('UTC-7 = '+DateTimeToStr(myDateTime-00.41700));
  else if (Saat > -8) and (Saat <= -8) then
    ShowMessage('UTC+0 = '+DateTimeToStr(myDateTime-00.45870));
  else if (Saat > -9) and (Saat <= -9) then
    ShowMessage('UTC+0 = '+DateTimeToStr(myDateTime-00.50040));
  else if (Saat > -10) and (Saat <= -10) then
    ShowMessage('UTC+0 = '+DateTimeToStr(myDateTime-00.54210));
  else if (Saat > -11) and (Saat <= -11) then
    ShowMessage('UTC+0 = '+DateTimeToStr(myDateTime-00.58380));
  else if (Saat > -12) and (Saat <= -12) then
    ShowMessage('UTC+0 = '+DateTimeToStr(myDateTime-00.62550));
  else
    ShowMessage('Gecersiz Saat Dilimi Girildi Tekrar Deneyiniz...');
    
Clomosy.GlobalVariableString:=listview.clSelectedItemData(clCaption);
Clomosy.GlobalVariableInteger:=StrToInt(listview.clSelectedItemData(clText));
end;

procedure SetSearchEdit;
begin
searchEdt:=MyForm.AddNewProSearchEdit(mainPnl,'searchEdt','Ara');
searchEdt.Align:=alTop;searchEdt.Margins.Top:=15;searchEdt.Margins.Left:=15;searchEdt.Margins.Right:=15;searchEdt.Height:=40;
end;

begin

MyForm:=TclForm.Create(Self);
MyForm.SetFormColor('#30D5C8','#32cd32',clGNone);
mainPnl:=MyForm.AddNewProPanel(MyForm,'mainPnl');
clComponent.SetupComponent(mainPnl,'{"Align":"Client"}');
mnTxt:=MyForm.AddNewProLabel(mainPnl,'mnTxt','Ülke Seciniz');
clComponent.SetupComponent(mnTxt,'{"Height":35,"BackgroundColor":"#20b2aa","TextSize":25,"Align":"Top","MarginTop":10,"TextHorizontalAlign":"Center","MarginLeft": 15,"MarginRight":15,"RoundHeight":10,"RoundWidth":10}');
MyForm.AddNewEvent(mnTxt,tbeOnClick,'loadListView');
SetSearchEdit;
bottomPanel:=MyForm.AddNewProPanel(mainPnl,'bottomPanel');
clComponent.SetupComponent(bottomPanel,'{"Align":"Client","Width":200,"MarginLeft":15,"MarginBottom":10,"MarginRight":15,"MarginTop":10,"RoundHeight":10,"RoundWidth":10,"BorderColor":"#30D5C8","BorderWidth":2}');
listView:=MyForm.AddNewProListView(bottomPanel,'listView');
clComponent.SetupComponent(listView,'{"Height":150,"Align":"Client","MarginBottom":20,"MarginTop":20,"MarginRight":20,"MarginLeft":20,"ListType":"Cart","ItemHeight":150,"ItemWidth":150,"ItemSpace":10,"ItemColumnCount":2,"BackgroundColor":"#8470ff","BorderWidth":2,"RoundWidth":5,"RoundHeight":5}');
listView.ListType:='horizontal';
searchEdt.TargetListView:=listView;
lidsgpnl:=MyForm.AddNewProListViewDesignerPanel(listView,'lidsgpnl');
clComponent.SetupComponent(lidsgpnl,'{"Height" : 50,"Align":"Top","MarginBottom":15,"MarginTop":15,"MarginRight":15,"MarginLeft":15,"BackgroundColor":"#20b2aa","BorderWidth":2,"RoundWidth":5,"RoundHeight":5}');
listView.SetDesignerPanel(lidsgpnl);
Country_Name:=MyForm.AddNewProLabel(lidsgpnl,'Country_Name','');
clComponent.SetupComponent(Country_Name,'{"Align":"Top","TextColor":"#ffff00","TextBold":"yes","TextSize":16,"TextHorizontalAlign":"center","TextVerticalAlign":"center","AutoSize":"horizontal"}');
GMT_Offset:=MyForm.AddNewProLabel(lidsgpnl,'GMT_Offset','');
clComponent.SetupComponent(GMT_Offset,'{"Align":"Bottom","TextColor":"#ffff00","TextBold":"yes","TextSize":20,"TextHorizontalAlign":"center","TextVerticalAlign":"center","AutoSize":"horizontal"}');
lidsgpnl.AddPanelObject(GMT_Offset,clText);
lidsgpnl.AddPanelObject(Country_Name,clCaption);

MyForm.AddNewEvent(listView,tbeOnItemClick,'nwSy');
SetupSqlConnection;
LoadListView;
MyForm.Run;
end;