var

  StudentForm: TclForm;

  lblStudentTitle: TclLabel;

  // Bütün giriş kutularımız

  edtStudentName, edtStudentClass, edtStudentDept, edtStudentPhone: TclEdit;

  // Butonlarımız

  btnAddStudent, btnClearAll, btnBackToMain: TclProButton;

  myStudentListView: TclListView;

  StudentJSONContent: String; 

void GoBackToMain;

{

 StudentForm.Close;

}

void ClearAllStudents;

{

  

  StudentJSONContent = '';

  myStudentListView.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[]'));

  ShowMessage('Liste tamamen temizlendi!');

}

void AddNewStudent;

var

  subTextData: String;

{

  

  if (edtStudentName.Text == '')

  {

    ShowMessage('Lütfen en azından öğrenci adını yazın!');

  }

  else

  {

    

    subTextData = edtStudentClass.Text + ' Sınıfı | ' + edtStudentDept.Text + ' | Tel: ' + edtStudentPhone.Text;

    

    

    if (StudentJSONContent <> '')

    {

      StudentJSONContent = StudentJSONContent + ', ';

    }

    

    StudentJSONContent = StudentJSONContent + '{"MAIN_TEXT":"' + edtStudentName.Text + '", "SUB_TEXT":"' + subTextData + '"}';

    

    

    myStudentListView.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[' + StudentJSONContent + ']'));

    

    

    edtStudentName.Text = '';

    edtStudentClass.Text = '';

    edtStudentDept.Text = '';

    edtStudentPhone.Text = '';

  }

}

{

  StudentForm = TclForm.Create(Self);

  

  lblStudentTitle = StudentForm.AddNewLabel(StudentForm, 'lblStudentTitle', '👥 Öğrenci Portföyü');

  lblStudentTitle.Align = alTop;

  lblStudentTitle.Margins.Top = 20;

  lblStudentTitle.Height = 40;

  lblStudentTitle.TextSettings.Font.Size = 24;

  lblStudentTitle.TextSettings.Font.Style = [fsBold];

  

 

  edtStudentName = StudentForm.AddNewEdit(StudentForm, 'edtStudentName', 'Öğrenci Adı ve Soyadı...');

  edtStudentName.Align = alTop;

  edtStudentName.Margins.Top = 10;

  edtStudentName.Margins.Left = 20;

  edtStudentName.Margins.Right = 20;

  edtStudentName.Height = 40;

  edtStudentClass = StudentForm.AddNewEdit(StudentForm, 'edtStudentClass', 'Sınıfı (Örn: 12-A)...');

  edtStudentClass.Align = alTop;

  edtStudentClass.Margins.Top = 5;

  edtStudentClass.Margins.Left = 20;

  edtStudentClass.Margins.Right = 20;

  edtStudentClass.Height = 40;

  edtStudentDept = StudentForm.AddNewEdit(StudentForm, 'edtStudentDept', 'Bölümü (Örn: Sayısal)...');

  edtStudentDept.Align = alTop;

  edtStudentDept.Margins.Top = 5;

  edtStudentDept.Margins.Left = 20;

  edtStudentDept.Margins.Right = 20;

  edtStudentDept.Height = 40;

  edtStudentPhone = StudentForm.AddNewEdit(StudentForm, 'edtStudentPhone', 'İletişim Numarası...');

  edtStudentPhone.Align = alTop;

  edtStudentPhone.Margins.Top = 5;

  edtStudentPhone.Margins.Left = 20;

  edtStudentPhone.Margins.Right = 20;

  edtStudentPhone.Height = 40;

  

  btnAddStudent = StudentForm.AddNewProButton(StudentForm, 'btnAddStudent', '➕ Listeye Ekle');

  btnAddStudent.Align = alTop;

  btnAddStudent.Margins.Top = 10;

  btnAddStudent.Margins.Left = 20;

  btnAddStudent.Margins.Right = 20;

  btnAddStudent.Height = 45;

  btnAddStudent.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#10B981'); // Yeşil

  btnAddStudent.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  btnAddStudent.clProSettings.RoundHeight = 10;

  btnAddStudent.clProSettings.RoundWidth = 10;

  btnAddStudent.SetclProSettings(btnAddStudent.clProSettings);

  StudentForm.AddNewEvent(btnAddStudent, tbeOnClick, 'AddNewStudent');

  btnClearAll = StudentForm.AddNewProButton(StudentForm, 'btnClearAll', '🗑️ Listeyi Sıfırla');

  btnClearAll.Align = alTop;

  btnClearAll.Margins.Top = 5;

  btnClearAll.Margins.Left = 20;

  btnClearAll.Margins.Right = 20;

  btnClearAll.Height = 40;

  btnClearAll.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F59E0B'); // Turuncu

  btnClearAll.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  btnClearAll.clProSettings.RoundHeight = 10;

  btnClearAll.clProSettings.RoundWidth = 10;

  btnClearAll.SetclProSettings(btnClearAll.clProSettings);

  StudentForm.AddNewEvent(btnClearAll, tbeOnClick, 'ClearAllStudents');

  

  StudentJSONContent = '{"MAIN_TEXT":"Örnek Öğrenci", "SUB_TEXT":"12-A Sınıfı | Sayısal | Tel: 0555..."}';

  myStudentListView = StudentForm.AddNewListView(StudentForm, 'myStudentListView');

  myStudentListView.Align = alClient; 

  myStudentListView.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[' + StudentJSONContent + ']'));

  

  btnBackToMain = StudentForm.AddNewProButton(StudentForm, 'btnBackToMain', '⬅ Ana Menüye Dön');

  btnBackToMain.Align = alBottom;

  btnBackToMain.Height = 60;

  btnBackToMain.Margins.Bottom = 30;

  btnBackToMain.Margins.Left = 30;

  btnBackToMain.Margins.Right = 30;

  btnBackToMain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EF4444');

  btnBackToMain.clProSettings.RoundHeight = 15;

  btnBackToMain.clProSettings.RoundWidth = 15;

  btnBackToMain.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  btnBackToMain.clProSettings.FontSize = 16;

  btnBackToMain.SetclProSettings(btnBackToMain.clProSettings);

  StudentForm.AddNewEvent(btnBackToMain, tbeOnClick, 'GoBackToMain');

  StudentForm.Run;

}

var

ScheduleForm : TclForm;

lblScheduleTitle:TCLLabel;

btnBackToMain:TClProButton;

void GoBackToMain;

{

ScheduleForm.Close;

}

{

lblScheduleTitle=ScheduleForm.AddNewLabel(ScheduleForm,'lblScheduleTitle','📅 Etüt Programı');

lblScheduleTitle.Align=alTop;

lblScheduleTitle.Margins.Top=40;

lblScheduleTitle.Height=40;

lblScheduleTitle.TextSettings.Font.Size = 24;

lblScheduleTitle.TextSettings.Font.Style=[fsBold];

//////////////////

//Tasarım kısmı//

////////////////

btnBackToMain=ScheduleForm.AddNewProButton(ScheduleForm, 'btnBackToMain', '⬅ Ana Menüye Dön');

btnBackToMain.Align=alBottom;

btnBackToMain.Height=60;

btnBackToMain.Margins.Bottom=30;

btnBackToMain.Margins.Left=30;

btnBackToMain.Margins.Right=30;

btnBackToMain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EF4444');

btnBackToMain.clProSettings.RoundHeight = 15;

btnBackToMain.clProSettings.RoundWidth = 15;

btnBackToMain.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

btnBackToMain.clProSettings.FontSize = 16;

btnBackToMain.SetclProSettings(btnBackToMain.clProSettings);

ScheduleForm.AddNewEvent(btnBackToMain,tbeOnClick,'GoBackToMain');

ScheduleForm.Run;

}