var

  MyForm: TclForm;

  CardPnl, StartContainer, EndContainer: TclProPanel;

  LblTitle, LblStart, LblEnd, LblColon1, LblColon2, LblResult: TclProLabel;

  CmbStartHour, CmbStartMin, CmbEndHour, CmbEndMin: TclComboBox;

  BtnSave: TclProButton;

void FillTimeCombos;

var

  i: Integer;

  valStr: String;

{

  for i = 0 to 23 

  {

    if (i < 10) valStr = '0' + IntToStr(i); 

    else valStr = IntToStr(i);

    

    CmbStartHour.AddItem(valStr, valStr);

    CmbEndHour.AddItem(valStr, valStr);

  }

  

  for i = 0 to 59 

  {

    if (i < 10) valStr = '0' + IntToStr(i); 

    else valStr = IntToStr(i);

    

    CmbStartMin.AddItem(valStr, valStr);

    CmbEndMin.AddItem(valStr, valStr);

  }

  CmbStartHour.ItemIndex = 8;  

  CmbStartMin.ItemIndex = 0;  

  CmbEndHour.ItemIndex = 17;   

  CmbEndMin.ItemIndex = 30;   

}

void GetSelectedTime;

var

  StartTime, EndTime: String;

{

  if ((CmbStartHour.ItemIndex == -1) || (CmbStartMin.ItemIndex == -1) || 

      (CmbEndHour.ItemIndex == -1) || (CmbEndMin.ItemIndex == -1))

  {

    ShowMessage('Lütfen geçerli bir saat aralığı seçiniz.');

    Exit;

  }

  

  StartTime = CmbStartHour.Items[CmbStartHour.ItemIndex] + ':' + CmbStartMin.Items[CmbStartMin.ItemIndex];

  EndTime = CmbEndHour.Items[CmbEndHour.ItemIndex] + ':' + CmbEndMin.Items[CmbEndMin.ItemIndex];

  

  LblResult.Text = 'Seçilen Zaman Aralığı: ' + StartTime + ' - ' + EndTime;

  ShowMessage('Randevu Saati: ' + StartTime + ' ile ' + EndTime + ' arası olarak kaydedildi.');

}

{

  MyForm = TclForm.Create(Self);

  MyForm.SetFormColor('#f8fafc', '', clGNone);

  CardPnl = MyForm.AddNewProPanel(MyForm, 'CardPnl');

  CardPnl.Align = alTop; CardPnl.Height = 350;

  CardPnl.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  CardPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#e2e8f0');

  CardPnl.clProSettings.BorderWidth = 1;

  CardPnl.clProSettings.RoundHeight = 15; CardPnl.clProSettings.RoundWidth = 15;

  CardPnl.SetclProSettings(CardPnl.clProSettings);

  LblTitle = MyForm.AddNewProLabel(CardPnl, 'LblTitle', 'Zaman Aralığı Belirle');

  LblTitle.Align = alTop; LblTitle.Height = 50;

  LblTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#0f172a');

  LblTitle.clProSettings.FontSize = 18; 

  LblTitle.clProSettings.FontHorzAlign = palCenter; 

  LblTitle.clProSettings.FontVertAlign = palCenter;

  LblTitle.SetclProSettings(LblTitle.clProSettings);

  LblStart = MyForm.AddNewProLabel(CardPnl, 'LblStart', 'Başlangıç Saati:');

  LblStart.Align = alTop; LblStart.Height = 30;

  LblStart.Margins.Left = 20; LblStart.Margins.Top = 10;

  LblStart.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748b');

  LblStart.SetclProSettings(LblStart.clProSettings);

  StartContainer = MyForm.AddNewProPanel(CardPnl, 'StartContainer');

  StartContainer.Align = alTop; StartContainer.Height = 40; 

  StartContainer.Margins.Left = 20; StartContainer.Margins.Right = 20;

  

  CmbStartHour = MyForm.AddNewComboBox(StartContainer, 'CmbStartHour');

  CmbStartHour.Align = alLeft; CmbStartHour.Width = 100;

  LblColon1 = MyForm.AddNewProLabel(StartContainer, 'LblColon1', ':');

  LblColon1.Align = alLeft; LblColon1.Width = 20;

  LblColon1.clProSettings.FontHorzAlign = palCenter; 

  LblColon1.clProSettings.FontVertAlign = palCenter;

  LblColon1.clProSettings.FontSize = 18; 

  LblColon1.SetclProSettings(LblColon1.clProSettings);

  CmbStartMin = MyForm.AddNewComboBox(StartContainer, 'CmbStartMin');

  CmbStartMin.Align = alLeft; CmbStartMin.Width = 100;

  LblEnd = MyForm.AddNewProLabel(CardPnl, 'LblEnd', 'Bitiş Saati:');

  LblEnd.Align = alTop; LblEnd.Height = 30; 

  LblEnd.Margins.Left = 20; LblEnd.Margins.Top = 20;

  LblEnd.clProSettings.FontColor = clAlphaColor.clHexToColor('#64748b');

  LblEnd.SetclProSettings(LblEnd.clProSettings);

  EndContainer = MyForm.AddNewProPanel(CardPnl, 'EndContainer');

  EndContainer.Align = alTop; EndContainer.Height = 40; 

  EndContainer.Margins.Left = 20; EndContainer.Margins.Right = 20;

  CmbEndHour = MyForm.AddNewComboBox(EndContainer, 'CmbEndHour');

  CmbEndHour.Align = alLeft; CmbEndHour.Width = 100;

  LblColon2 = MyForm.AddNewProLabel(EndContainer, 'LblColon2', ':');

  LblColon2.Align = alLeft; LblColon2.Width = 20;

  LblColon2.clProSettings.FontHorzAlign = palCenter; 

  LblColon2.clProSettings.FontVertAlign = palCenter;

  LblColon2.clProSettings.FontSize = 18; 

  LblColon2.SetclProSettings(LblColon2.clProSettings);

  CmbEndMin = MyForm.AddNewComboBox(EndContainer, 'CmbEndMin');

  CmbEndMin.Align = alLeft; CmbEndMin.Width = 100;

  FillTimeCombos;

  BtnSave = MyForm.AddNewProButton(CardPnl, 'BtnSave', 'SAATİ ONAYLA');

  BtnSave.Align = alBottom; BtnSave.Height = 50;

  BtnSave.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563eb'); 

  BtnSave.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnSave.clProSettings.RoundHeight = 10; 

  BtnSave.clProSettings.RoundWidth = 10;

  BtnSave.SetclProSettings(BtnSave.clProSettings);

  MyForm.AddNewEvent(BtnSave, tbeOnClick, 'GetSelectedTime');

  LblResult = MyForm.AddNewProLabel(MyForm, 'LblResult', 'Henüz seçim yapılmadı.');

  LblResult.Align = alTop; 

  LblResult.Height = 40; 

  LblResult.Margins.Top = 10;

  LblResult.clProSettings.FontHorzAlign = palCenter;

  LblResult.clProSettings.FontColor = clAlphaColor.clHexToColor('#334155');

  LblResult.SetclProSettings(LblResult.clProSettings);

  MyForm.Run;

}