var

  BakimForm: TclForm;

  PnlBakimRoot, PnlNavBar, PnlHeaderTop, PnlHeaderForm: TclProPanel;

  BtnScroll: TclHorzScrollBox; 

  PnlMiddleGrid, PnlMiddleTabs: TclProPanel;

  PnlTabHeader, PnlTabContent: TclProPanel;

  LblNavTitle, LblGridTitle: TClProLabel;

  BtnGeri, BtnYeni, BtnKaydet, BtnSil: TClProButton;

  BtnTabTalimat, BtnTabOperator: TClProButton;

  GrpBelgeNo, GrpTarih, GrpBakimTipi, GrpBakimTuru, GrpBakimKodu, GrpMakineKodu, GrpBaglanti, GrpBaslangic, GrpBitis, GrpBaslangicSaat, GrpBitisSaat, GrpKisiSayisi, GrpCariKodu, GrpAciklama: TclProPanel;

  LblBelgeNo, LblTarih, LblBakimTipi, LblBakimTuru, LblBakimKodu, LblMakineKodu, LblBaglanti, LblBaslangic, LblBitis, LblBaslangicSaat, LblBitisSaat, LblKisiSayisi, LblCariKodu, LblAciklama: TClProLabel;

  EdtBelgeNo, EdtTarih, EdtBakimTipi, EdtBakimTuru, EdtBakimKodu, EdtMakineKodu, EdtBaglanti, EdtBaslangic, EdtBitis, EdtBaslangicSaat, EdtBitisSaat, EdtKisiSayisi, EdtCariKodu, EdtAciklama: TclProEdit;

  ListGrid: TClProListView;

  ListGridDesigner: TClProListViewDesignerPanel;

  LblMalzemeBaslikItem, LblMalzemeAltItem: TClProLabel;

  MemTabContent: TclMemo;

  ScrollForm: TclVertScrollBox;

  MyJsonItems: String;

  MalzemeBaslikKucuk: Boolean;

  

  PnlMalzemeGiris, PnlMalzemeSatir1, PnlMalzemeSatir2: TclProPanel;

  EdtMalzemeAdi, EdtMalzemeAdet, EdtMalzemeFiyat: TclProEdit;

  BtnYeniMalzemeEkle, BtnMetinBoyutu: TClProButton;

// =====================================================================

// --- TASARIM PROSEDÜRLERİ ---

// =====================================================================

void StyleSurface(APanel: TclProPanel);

{

  APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F4F5F7');

  APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#D1D5DB');

  APanel.clProSettings.BorderWidth = 1;

  APanel.clProSettings.IsFill = True;

  APanel.clProSettings.IsRound = False;

  APanel.SetclProSettings(APanel.clProSettings);

}

void StyleHeaderBar(APanel: TclProPanel);

{

  APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E5E7EB');

  APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#9CA3AF');

  APanel.clProSettings.BorderWidth = 1;

  APanel.clProSettings.IsFill = True;

  APanel.SetclProSettings(APanel.clProSettings);

}

void StyleActionButton(AButton: TClProButton);

{

  AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F9FAFB');

  AButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#374151');

  AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#9CA3AF');

  AButton.clProSettings.BorderWidth = 1;

  AButton.clProSettings.IsFill = True;

  AButton.clProSettings.IsRound = False;

  AButton.clProSettings.FontSize = 12;

  AButton.clProSettings.TextSettings.Font.Style = [fsBold];

  AButton.SetclProSettings(AButton.clProSettings);

}

void StyleTabButtonActive(AButton: TClProButton);

{

  AButton.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  AButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#2563EB'); 

  AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#D1D5DB');

  AButton.clProSettings.BorderWidth = 1;

  AButton.clProSettings.IsFill = True;

  AButton.clProSettings.FontSize = 12;

  AButton.clProSettings.TextSettings.Font.Style = [fsBold];

  AButton.SetclProSettings(AButton.clProSettings);

}

void StyleTabButtonInactive(AButton: TClProButton);

{

  AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E5E7EB');

  AButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#4B5563');

  AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#9CA3AF');

  AButton.clProSettings.BorderWidth = 1;

  AButton.clProSettings.IsFill = True;

  AButton.clProSettings.FontSize = 12;

  AButton.SetclProSettings(AButton.clProSettings);

}

void StyleInputPanel(APanel: TclProPanel);

{

  APanel.clProSettings.BackgroundColor = clAlphaColor.clWhite; 

  APanel.clProSettings.BorderWidth = 0;

  APanel.clProSettings.IsFill = False;

  APanel.SetclProSettings(APanel.clProSettings);

}

void StyleInputLabel(ALabel: TClProLabel);

{

  ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#374151');

  ALabel.clProSettings.FontSize = 12;

  ALabel.clProSettings.TextSettings.Font.Style = [fsBold];

  ALabel.SetclProSettings(ALabel.clProSettings);

}

void StyleInputEdit(AEdit: TclProEdit);

{

  AEdit.clProSettings.FontColor = clAlphaColor.clBlack;

  AEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#9CA3AF');

  AEdit.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  AEdit.clProSettings.BorderWidth = 1;

  AEdit.clProSettings.IsFill = True;

  AEdit.clProSettings.FontSize = 12;

  AEdit.SetclProSettings(AEdit.clProSettings);

}

void StyleSectionTitle(ALabel: TClProLabel);

{

  ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#111827');

  ALabel.clProSettings.FontSize = 11;

  ALabel.clProSettings.TextSettings.Font.Style = [fsBold];

  ALabel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D1D5DB');

  ALabel.clProSettings.IsFill = True;

  ALabel.SetclProSettings(ALabel.clProSettings);

}

void StyleMalzemeBaslik(ALabel: TClProLabel);

{

  ALabel.clProSettings.FontColor = clAlphaColor.clBlack;

  ALabel.clProSettings.FontSize = 17;

  ALabel.clProSettings.TextSettings.Font.Style = [fsBold];

  ALabel.SetclProSettings(ALabel.clProSettings);

}

void StyleMalzemeAlt(ALabel: TClProLabel);

{

  ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#111827');

  ALabel.clProSettings.FontSize = 14;

  ALabel.SetclProSettings(ALabel.clProSettings);

}

// =====================================================================

// --- MANTIK PROSEDÜRLERİ ---

// =====================================================================

void GoBack;

{

  BakimForm.Close;

}

void MalzemeListeSablonHazirla;

{

  ListGridDesigner = BakimForm.AddNewProListViewDesignerPanel(ListGrid, 'ListGridDesigner');

  ListGridDesigner.Align = alTop;

  ListGridDesigner.Height = 78;

  ListGridDesigner.Width = 350;

  ListGridDesigner.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  ListGridDesigner.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB');

  ListGridDesigner.clProSettings.BorderWidth = 1;

  ListGridDesigner.clProSettings.IsFill = True;

  ListGridDesigner.clProSettings.IsRound = False;

  ListGridDesigner.SetclProSettings(ListGridDesigner.clProSettings);

  LblMalzemeBaslikItem = BakimForm.AddNewProLabel(ListGridDesigner, 'MAIN_TEXT', '');

  LblMalzemeBaslikItem.Align = alTop;

  LblMalzemeBaslikItem.Height = 38;

  LblMalzemeBaslikItem.Margins.Left = 12;

  LblMalzemeBaslikItem.Margins.Right = 12;

  LblMalzemeBaslikItem.Margins.Top = 8;

  StyleMalzemeBaslik(LblMalzemeBaslikItem);

  LblMalzemeAltItem = BakimForm.AddNewProLabel(ListGridDesigner, 'SUB_TEXT', '');

  LblMalzemeAltItem.Align = alTop;

  LblMalzemeAltItem.Height = 28;

  LblMalzemeAltItem.Margins.Left = 12;

  LblMalzemeAltItem.Margins.Right = 12;

  StyleMalzemeAlt(LblMalzemeAltItem);

  ListGridDesigner.AddPanelObject(LblMalzemeBaslikItem, clCaption);

  ListGridDesigner.AddPanelObject(LblMalzemeAltItem, clText);

  ListGrid.SetDesignerPanel(ListGridDesigner);

}

void GridGuncelle;

{

  if (MyJsonItems == '')

  {

    ListGrid.clLoadProListViewDataFromDataset(

      Clomosy.ClDataSetFromJSON('[{"MAIN_TEXT":"Listede malzeme yok","SUB_TEXT":"Yeni malzeme ekleyebilirsiniz."}]')

    );

  }

  else

  {

    ListGrid.clLoadProListViewDataFromDataset(

      Clomosy.ClDataSetFromJSON('[' + MyJsonItems + ']')

    );

  }

}

void MalzemeBaslikFontUygula;

{

  if (MalzemeBaslikKucuk)

  {

    LblMalzemeBaslikItem.clProSettings.FontSize = 13;

  }

  else

  {

    LblMalzemeBaslikItem.clProSettings.FontSize = 17;

  }

  LblMalzemeBaslikItem.SetclProSettings(LblMalzemeBaslikItem.clProSettings);

  ListGrid.SetDesignerPanel(ListGridDesigner);

}

void ToggleTextSize;

{

  MalzemeBaslikKucuk = not MalzemeBaslikKucuk;

  MalzemeBaslikFontUygula;

  GridGuncelle;

}

void ShowTalimatlar;

{

  StyleTabButtonActive(BtnTabTalimat);

  StyleTabButtonInactive(BtnTabOperator);

  MemTabContent.Lines.Text = '1. Makine enerjisini kesin.' + #13#10 + '2. Guvenlik kilidini takin.' + #13#10 + '3. Rulman yataklarini kontrol edin.';

}

void ShowOperatorler;

{

  StyleTabButtonInactive(BtnTabTalimat);

  StyleTabButtonActive(BtnTabOperator);

  MemTabContent.Lines.Text = '1. Operator: Ahmet Yilmaz (Mekanik)' + #13#10 + '2. Operator: Mehmet Kaya (Elektrik)';

}

void SatirEkle;

var

  YeniItem, AltMetin: String;

{

  if (EdtMalzemeAdi.Text == '')

  {

    ShowMessage('Lutfen malzeme adini yazin!');

    exit;

  }

  

  AltMetin = 'Miktar: ' + EdtMalzemeAdet.Text + ' | Tutar: ' + EdtMalzemeFiyat.Text + ' TL';

  YeniItem = '{"MAIN_TEXT":"' + EdtMalzemeAdi.Text + '","SUB_TEXT":"' + AltMetin + '"}';

  

  if (MyJsonItems == '')

  {

    MyJsonItems = YeniItem;

  }

  else

  {

    MyJsonItems = MyJsonItems + ',' + YeniItem;

  }

  

  GridGuncelle;

  

  EdtMalzemeAdi.Text = ''; 

  EdtMalzemeAdet.Text = ''; 

  EdtMalzemeFiyat.Text = ''; 

}

void FormuTemizle;

{

  EdtBelgeNo.Text = ''; EdtTarih.Text = 'GG.AA.YYYY'; EdtBakimTipi.Text = 'Seciniz...';

  EdtBakimTuru.Text = 'Seciniz...'; EdtBakimKodu.Text = ''; EdtMakineKodu.Text = '...Seciniz';

  EdtBaglanti.Text = ''; EdtBaslangic.Text = 'GG.AA.YYYY'; EdtBaslangicSaat.Text = 'SS:DD';

  EdtBitis.Text = 'GG.AA.YYYY'; EdtBitisSaat.Text = 'SS:DD'; EdtKisiSayisi.Text = '0';

  EdtCariKodu.Text = '...Seciniz'; EdtAciklama.Text = ''; 

  EdtMalzemeAdi.Text = ''; EdtMalzemeAdet.Text = ''; EdtMalzemeFiyat.Text = ''; 

  

  MyJsonItems = '';

  GridGuncelle;

}

void BtnYeniClick;

{

  FormuTemizle;

  ShowMessage('Form temizlendi. Yeni kayit olusturabilirsiniz.');

}

void BtnSilClick;

{

  FormuTemizle;

  ShowMessage('Tum kayitlar silindi ve ekran temizlendi!');

}

void BtnKaydetClick;

{

  if (EdtBelgeNo.Text == '') 

  { 

    ShowMessage('Lutfen kaydetmeden once Belge No giriniz!'); 

  }

  else 

  { 

    ShowMessage(EdtBelgeNo.Text + ' numarali belge basariyla kaydedildi!'); 

    FormuTemizle; 

  }

}

// =====================================================================

// --- ANA BLOK (BAKIM FORMU) ---

// =====================================================================

{

  BakimForm = TclForm.Create(Self);

  BakimForm.LytTopBar.Visible = False;

  BakimForm.BtnGoBack.Visible = False;

  BakimForm.BtnFormMenu.Visible = False;

  

  MyJsonItems = '{"MAIN_TEXT":"Rulman (6204 ZZ)","SUB_TEXT":"Miktar: 2 Adet | Tutar: 450 TL"},{"MAIN_TEXT":"Sentetik Makine Yagi (10W-40)","SUB_TEXT":"Miktar: 3 Litre | Tutar: 850 TL"},{"MAIN_TEXT":"Motor Kayisi (V-Kayis)","SUB_TEXT":"Miktar: 1 Adet | Tutar: 300 TL"}';

  MalzemeBaslikKucuk = False;

  PnlBakimRoot = BakimForm.AddNewProPanel(BakimForm, 'PnlBakimRoot');

  PnlBakimRoot.Align = alClient;

  StyleSurface(PnlBakimRoot);

  PnlNavBar = BakimForm.AddNewProPanel(PnlBakimRoot, 'PnlNavBar');

  PnlNavBar.Align = alTop; PnlNavBar.Height = 50;

  PnlNavBar.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4B5563'); 

  PnlNavBar.clProSettings.IsFill = True; 

  PnlNavBar.SetclProSettings(PnlNavBar.clProSettings);

  BtnGeri = BakimForm.AddNewProButton(PnlNavBar, 'BtnGeri', '<'); 

  BtnGeri.Align = alLeft; BtnGeri.Width = 60; 

  BtnGeri.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); 

  BtnGeri.clProSettings.FontColor = clAlphaColor.clHexToColor('#111827'); 

  BtnGeri.clProSettings.IsFill = True;

  BtnGeri.clProSettings.FontSize = 14;

  BtnGeri.clProSettings.TextSettings.Font.Style = [fsBold];

  BtnGeri.SetclProSettings(BtnGeri.clProSettings);

  BakimForm.AddNewEvent(BtnGeri, tbeOnClick, 'GoBack'); 

  LblNavTitle = BakimForm.AddNewProLabel(PnlNavBar, 'LblNavTitle', 'Bakim Hareket Kayitlari');

  LblNavTitle.Align = alLeft; 

  LblNavTitle.Width = 250; 

  LblNavTitle.Margins.Left = 5; 

  LblNavTitle.Margins.Top = 10;

  LblNavTitle.clProSettings.FontColor = clAlphaColor.clWhite; 

  LblNavTitle.clProSettings.FontSize = 15; 

  LblNavTitle.clProSettings.TextSettings.Font.Style = [fsBold];

  LblNavTitle.SetclProSettings(LblNavTitle.clProSettings);

  ScrollForm = BakimForm.AddNewVertScrollBox(PnlBakimRoot, 'ScrollForm'); 

  ScrollForm.Align = alClient;

  PnlHeaderTop = BakimForm.AddNewProPanel(ScrollForm, 'PnlHeaderTop');

  PnlHeaderTop.Align = alTop; 

  PnlHeaderTop.Height = 55; 

  StyleHeaderBar(PnlHeaderTop);

  BtnScroll = BakimForm.AddNewHorzScrollBox(PnlHeaderTop, 'BtnScroll');

  BtnScroll.Align = alClient; 

  BtnScroll.Margins.Left = 5; 

  BtnScroll.Margins.Right = 5;

  BtnYeni = BakimForm.AddNewProButton(BtnScroll, 'BtnYeni', 'Yeni'); 

  BtnYeni.Align = alLeft; 

  BtnYeni.Width = 70; 

  BtnYeni.Margins.Left = 5; 

  BtnYeni.Margins.Top = 8; 

  BtnYeni.Margins.Bottom = 8; 

  StyleActionButton(BtnYeni);

  BtnKaydet = BakimForm.AddNewProButton(BtnScroll, 'BtnKaydet', 'Kaydet'); 

  BtnKaydet.Align = alLeft; 

  BtnKaydet.Width = 80; 

  BtnKaydet.Margins.Left = 5; 

  BtnKaydet.Margins.Top = 8; 

  BtnKaydet.Margins.Bottom = 8; 

  StyleActionButton(BtnKaydet);

  BtnSil = BakimForm.AddNewProButton(BtnScroll, 'BtnSil', 'Sil'); 

  BtnSil.Align = alLeft; 

  BtnSil.Width = 70; 

  BtnSil.Margins.Left = 5; 

  BtnSil.Margins.Top = 8; 

  BtnSil.Margins.Bottom = 8; 

  StyleActionButton(BtnSil);

  BakimForm.AddNewEvent(BtnYeni, tbeOnClick, 'BtnYeniClick');

  BakimForm.AddNewEvent(BtnKaydet, tbeOnClick, 'BtnKaydetClick');

  BakimForm.AddNewEvent(BtnSil, tbeOnClick, 'BtnSilClick');

  PnlHeaderForm = BakimForm.AddNewProPanel(ScrollForm, 'PnlHeaderForm');

  PnlHeaderForm.Align = alTop; 

  PnlHeaderForm.Height = 610; 

  PnlHeaderForm.Margins.Top = 10; 

  PnlHeaderForm.Margins.Left = 5; 

  PnlHeaderForm.Margins.Right = 5; 

  StyleSurface(PnlHeaderForm);

  GrpBelgeNo = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBelgeNo'); 

  GrpBelgeNo.Align = alTop; 

  GrpBelgeNo.Height = 50; 

  GrpBelgeNo.Margins.Top = 5; 

  StyleInputPanel(GrpBelgeNo);

  LblBelgeNo = BakimForm.AddNewProLabel(GrpBelgeNo, 'LblBelgeNo', 'Belge No:'); 

  LblBelgeNo.Align = alTop; 

  LblBelgeNo.Height = 20; 

  LblBelgeNo.Margins.Left = 10; 

  StyleInputLabel(LblBelgeNo);

  EdtBelgeNo = BakimForm.AddNewProEdit(GrpBelgeNo, 'EdtBelgeNo', ''); 

  EdtBelgeNo.Align = alClient; 

  EdtBelgeNo.Margins.Left = 10; 

  EdtBelgeNo.Margins.Right = 10; 

  StyleInputEdit(EdtBelgeNo);

  GrpTarih = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpTarih'); 

  GrpTarih.Align = alTop; 

  GrpTarih.Height = 50; 

  StyleInputPanel(GrpTarih);

  LblTarih = BakimForm.AddNewProLabel(GrpTarih, 'LblTarih', 'Tarih:'); 

  LblTarih.Align = alTop; 

  LblTarih.Height = 20; 

  LblTarih.Margins.Left = 10; 

  StyleInputLabel(LblTarih);

  EdtTarih = BakimForm.AddNewProEdit(GrpTarih, 'EdtTarih', 'GG.AA.YYYY'); 

  EdtTarih.Align = alClient; 

  EdtTarih.Margins.Left = 10; 

  EdtTarih.Margins.Right = 10; 

  StyleInputEdit(EdtTarih);

  GrpBakimTipi = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBakimTipi'); 

  GrpBakimTipi.Align = alTop; 

  GrpBakimTipi.Height = 50; 

  StyleInputPanel(GrpBakimTipi);

  LblBakimTipi = BakimForm.AddNewProLabel(GrpBakimTipi, 'LblBakimTipi', 'Bakim Tipi:'); 

  LblBakimTipi.Align = alTop; 

  LblBakimTipi.Height = 20; 

  LblBakimTipi.Margins.Left = 10; 

  StyleInputLabel(LblBakimTipi);

  EdtBakimTipi = BakimForm.AddNewProEdit(GrpBakimTipi, 'EdtBakimTipi', 'Seciniz...'); 

  EdtBakimTipi.Align = alClient; 

  EdtBakimTipi.Margins.Left = 10; 

  EdtBakimTipi.Margins.Right = 10; 

  StyleInputEdit(EdtBakimTipi);

  GrpBakimTuru = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBakimTuru'); 

  GrpBakimTuru.Align = alTop; 

  GrpBakimTuru.Height = 50; 

  StyleInputPanel(GrpBakimTuru);

  LblBakimTuru = BakimForm.AddNewProLabel(GrpBakimTuru, 'LblBakimTuru', 'Bakim Turu:'); 

  LblBakimTuru.Align = alTop; 

  LblBakimTuru.Height = 20; 

  LblBakimTuru.Margins.Left = 10; 

  StyleInputLabel(LblBakimTuru);

  EdtBakimTuru = BakimForm.AddNewProEdit(GrpBakimTuru, 'EdtBakimTuru', 'Seciniz...'); 

  EdtBakimTuru.Align = alClient; 

  EdtBakimTuru.Margins.Left = 10; 

  EdtBakimTuru.Margins.Right = 10; 

  StyleInputEdit(EdtBakimTuru);

  GrpBakimKodu = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBakimKodu'); 

  GrpBakimKodu.Align = alTop; 

  GrpBakimKodu.Height = 50; 

  StyleInputPanel(GrpBakimKodu);

  LblBakimKodu = BakimForm.AddNewProLabel(GrpBakimKodu, 'LblBakimKodu', 'Bakim Kodu:'); 

  LblBakimKodu.Align = alTop; 

  LblBakimKodu.Height = 20; 

  LblBakimKodu.Margins.Left = 10; 

  StyleInputLabel(LblBakimKodu);

  EdtBakimKodu = BakimForm.AddNewProEdit(GrpBakimKodu, 'EdtBakimKodu', ''); 

  EdtBakimKodu.Align = alClient; 

  EdtBakimKodu.Margins.Left = 10; 

  EdtBakimKodu.Margins.Right = 10; 

  StyleInputEdit(EdtBakimKodu);

  GrpMakineKodu = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpMakineKodu'); 

  GrpMakineKodu.Align = alTop; 

  GrpMakineKodu.Height = 50; 

  StyleInputPanel(GrpMakineKodu);

  LblMakineKodu = BakimForm.AddNewProLabel(GrpMakineKodu, 'LblMakineKodu', 'Makine Kodu:'); 

  LblMakineKodu.Align = alTop; 

  LblMakineKodu.Height = 20; 

  LblMakineKodu.Margins.Left = 10; 

  StyleInputLabel(LblMakineKodu);

  EdtMakineKodu = BakimForm.AddNewProEdit(GrpMakineKodu, 'EdtMakineKodu', '...Seciniz'); 

  EdtMakineKodu.Align = alClient; 

  EdtMakineKodu.Margins.Left = 10; 

  EdtMakineKodu.Margins.Right = 10; 

  StyleInputEdit(EdtMakineKodu);

  GrpBaglanti = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBaglanti'); 

  GrpBaglanti.Align = alTop; 

  GrpBaglanti.Height = 50; 

  StyleInputPanel(GrpBaglanti);

  LblBaglanti = BakimForm.AddNewProLabel(GrpBaglanti, 'LblBaglanti', 'Bakim Baglantisi:'); 

  LblBaglanti.Align = alTop; 

  LblBaglanti.Height = 20; 

  LblBaglanti.Margins.Left = 10; 

  StyleInputLabel(LblBaglanti);

  EdtBaglanti = BakimForm.AddNewProEdit(GrpBaglanti, 'EdtBaglanti', ''); 

  EdtBaglanti.Align = alClient; 

  EdtBaglanti.Margins.Left = 10; 

  EdtBaglanti.Margins.Right = 10; 

  StyleInputEdit(EdtBaglanti);

  GrpBaslangic = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBaslangic'); 

  GrpBaslangic.Align = alTop; 

  GrpBaslangic.Height = 50; 

  StyleInputPanel(GrpBaslangic);

  LblBaslangic = BakimForm.AddNewProLabel(GrpBaslangic, 'LblBaslangic', 'Baslangic Trh/Saat:'); 

  LblBaslangic.Align = alTop; 

  LblBaslangic.Height = 20; 

  LblBaslangic.Margins.Left = 10; 

  StyleInputLabel(LblBaslangic);

  EdtBaslangicSaat = BakimForm.AddNewProEdit(GrpBaslangic, 'EdtBaslangicSaat', 'SS:DD'); 

  EdtBaslangicSaat.Align = alRight; 

  EdtBaslangicSaat.Width = 80; 

  EdtBaslangicSaat.Margins.Right = 10; 

  StyleInputEdit(EdtBaslangicSaat);

  EdtBaslangic = BakimForm.AddNewProEdit(GrpBaslangic, 'EdtBaslangic', 'GG.AA.YYYY'); 

  EdtBaslangic.Align = alClient; 

  EdtBaslangic.Margins.Left = 10; 

  EdtBaslangic.Margins.Right = 5; 

  StyleInputEdit(EdtBaslangic);

  GrpBitis = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBitis'); 

  GrpBitis.Align = alTop; 

  GrpBitis.Height = 50; 

  StyleInputPanel(GrpBitis);

  LblBitis = BakimForm.AddNewProLabel(GrpBitis, 'LblBitis', 'Bitis Trh/Saat:'); 

  LblBitis.Align = alTop; 

  LblBitis.Height = 20; 

  LblBitis.Margins.Left = 10; 

  StyleInputLabel(LblBitis);

  EdtBitisSaat = BakimForm.AddNewProEdit(GrpBitis, 'EdtBitisSaat', 'SS:DD'); 

  EdtBitisSaat.Align = alRight; 

  EdtBitisSaat.Width = 80; 

  EdtBitisSaat.Margins.Right = 10; 

  StyleInputEdit(EdtBitisSaat);

  EdtBitis = BakimForm.AddNewProEdit(GrpBitis, 'EdtBitis', 'GG.AA.YYYY'); 

  EdtBitis.Align = alClient; 

  EdtBitis.Margins.Left = 10; 

  EdtBitis.Margins.Right = 5; 

  StyleInputEdit(EdtBitis);

  GrpKisiSayisi = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpKisiSayisi'); 

  GrpKisiSayisi.Align = alTop; 

  GrpKisiSayisi.Height = 50; 

  StyleInputPanel(GrpKisiSayisi);

  LblKisiSayisi = BakimForm.AddNewProLabel(GrpKisiSayisi, 'LblKisiSayisi', 'Kisi Sayisi:'); 

  LblKisiSayisi.Align = alTop; 

  LblKisiSayisi.Height = 20; 

  LblKisiSayisi.Margins.Left = 10; 

  StyleInputLabel(LblKisiSayisi);

  EdtKisiSayisi = BakimForm.AddNewProEdit(GrpKisiSayisi, 'EdtKisiSayisi', '0'); 

  EdtKisiSayisi.Align = alClient; 

  EdtKisiSayisi.Margins.Left = 10; 

  EdtKisiSayisi.Margins.Right = 10; 

  StyleInputEdit(EdtKisiSayisi);

  GrpCariKodu = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpCariKodu'); 

  GrpCariKodu.Align = alTop; 

  GrpCariKodu.Height = 50; 

  StyleInputPanel(GrpCariKodu);

  LblCariKodu = BakimForm.AddNewProLabel(GrpCariKodu, 'LblCariKodu', 'Cari Kodu:'); 

  LblCariKodu.Align = alTop; 

  LblCariKodu.Height = 20; 

  LblCariKodu.Margins.Left = 10; 

  StyleInputLabel(LblCariKodu);

  EdtCariKodu = BakimForm.AddNewProEdit(GrpCariKodu, 'EdtCariKodu', '...Seciniz'); 

  EdtCariKodu.Align = alClient; 

  EdtCariKodu.Margins.Left = 10; 

  EdtCariKodu.Margins.Right = 10; 

  StyleInputEdit(EdtCariKodu);

  GrpAciklama = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpAciklama'); 

  GrpAciklama.Align = alTop; 

  GrpAciklama.Height = 50; 

  StyleInputPanel(GrpAciklama);

  LblAciklama = BakimForm.AddNewProLabel(GrpAciklama, 'LblAciklama', 'Genel Kayit Aciklamasi:'); 

  LblAciklama.Align = alTop; 

  LblAciklama.Height = 20; 

  LblAciklama.Margins.Left = 10; 

  StyleInputLabel(LblAciklama);

  EdtAciklama = BakimForm.AddNewProEdit(GrpAciklama, 'EdtAciklama', ''); 

  EdtAciklama.Align = alClient; 

  EdtAciklama.Margins.Left = 10; 

  EdtAciklama.Margins.Right = 10; 

  StyleInputEdit(EdtAciklama);

  // --- GRID (LISTE) VE YENİ MALZEME TASARIM PANELI --- 

  PnlMiddleGrid = BakimForm.AddNewProPanel(ScrollForm, 'PnlMiddleGrid');

  PnlMiddleGrid.Align = alTop; 

  PnlMiddleGrid.Height = 310; 

  PnlMiddleGrid.Margins.Top = 10; 

  PnlMiddleGrid.Margins.Left = 5; 

  PnlMiddleGrid.Margins.Right = 5; 

  StyleSurface(PnlMiddleGrid);

  LblGridTitle = BakimForm.AddNewProLabel(PnlMiddleGrid, 'LblGridTitle', ' Kullanilan Malzeme / Maliyet Satirlari');

  LblGridTitle.Align = alTop; 

  LblGridTitle.Height = 25; 

  StyleSectionTitle(LblGridTitle);

  PnlMalzemeGiris = BakimForm.AddNewProPanel(PnlMiddleGrid, 'PnlMalzemeGiris');

  PnlMalzemeGiris.Align = alTop; 

  PnlMalzemeGiris.Height = 80; 

  PnlMalzemeGiris.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E5E7EB'); 

  PnlMalzemeGiris.clProSettings.IsFill = True; 

  PnlMalzemeGiris.SetclProSettings(PnlMalzemeGiris.clProSettings);

  

  PnlMalzemeSatir1 = BakimForm.AddNewProPanel(PnlMalzemeGiris, 'PnlMalzemeSatir1');

  PnlMalzemeSatir1.Align = alTop; 

  PnlMalzemeSatir1.Height = 40;

  

  BtnMetinBoyutu = BakimForm.AddNewProButton(PnlMalzemeSatir1, 'BtnMetinBoyutu', 'Buyuk Yaz');

  BtnMetinBoyutu.Align = alRight; 

  BtnMetinBoyutu.Width = 80; 

  BtnMetinBoyutu.Margins.Right = 5; 

  BtnMetinBoyutu.Margins.Top = 5; 

  BtnMetinBoyutu.Margins.Bottom = 5;

  StyleActionButton(BtnMetinBoyutu);

  BakimForm.AddNewEvent(BtnMetinBoyutu, tbeOnClick, 'ToggleTextSize');

  EdtMalzemeAdi = BakimForm.AddNewProEdit(PnlMalzemeSatir1, 'EdtMalzemeAdi', 'Malzeme Adini Yaziniz...');

  EdtMalzemeAdi.Align = alClient; 

  EdtMalzemeAdi.Margins.Top = 5; 

  EdtMalzemeAdi.Margins.Bottom = 5; 

  EdtMalzemeAdi.Margins.Left = 5; 

  EdtMalzemeAdi.Margins.Right = 5;

  StyleInputEdit(EdtMalzemeAdi);

  PnlMalzemeSatir2 = BakimForm.AddNewProPanel(PnlMalzemeGiris, 'PnlMalzemeSatir2');

  PnlMalzemeSatir2.Align = alTop; 

  PnlMalzemeSatir2.Height = 40;

  

  BtnYeniMalzemeEkle = BakimForm.AddNewProButton(PnlMalzemeSatir2, 'BtnYeniMalzemeEkle', 'Listeye Ekle');

  BtnYeniMalzemeEkle.Align = alRight; 

  BtnYeniMalzemeEkle.Width = 100; 

  BtnYeniMalzemeEkle.Margins.Right = 5; 

  BtnYeniMalzemeEkle.Margins.Bottom = 5; 

  StyleActionButton(BtnYeniMalzemeEkle);

  BakimForm.AddNewEvent(BtnYeniMalzemeEkle, tbeOnClick, 'SatirEkle');

  EdtMalzemeAdet = BakimForm.AddNewProEdit(PnlMalzemeSatir2, 'EdtMalzemeAdet', 'Adet / Miktar');

  EdtMalzemeAdet.Align = alLeft; 

  EdtMalzemeAdet.Width = 100; 

  EdtMalzemeAdet.Margins.Left = 5; 

  EdtMalzemeAdet.Margins.Bottom = 5; 

  StyleInputEdit(EdtMalzemeAdet);

  EdtMalzemeFiyat = BakimForm.AddNewProEdit(PnlMalzemeSatir2, 'EdtMalzemeFiyat', 'Tutar (TL)');

  EdtMalzemeFiyat.Align = alClient; 

  EdtMalzemeFiyat.Margins.Left = 5; 

  EdtMalzemeFiyat.Margins.Right = 5; 

  EdtMalzemeFiyat.Margins.Bottom = 5; 

  StyleInputEdit(EdtMalzemeFiyat);

  ListGrid = BakimForm.AddNewProListView(PnlMiddleGrid, 'ListGrid');

  ListGrid.Align = alClient; 

  ListGrid.Margins.Top = 2;

  ListGrid.ListType = 'vertical';

  ListGrid.clProSettings.ViewType = lvIcon;

  ListGrid.clProSettings.ColCount = 1;

  ListGrid.clProSettings.ItemHeight = 78;

  ListGrid.clProSettings.ItemSpace = 0;

  ListGrid.clProSettings.BorderWidth = 0;

  ListGrid.SetclProSettings(ListGrid.clProSettings);

  MalzemeListeSablonHazirla;

  GridGuncelle; 

  // --- SEKMELER ---

  PnlMiddleTabs = BakimForm.AddNewProPanel(ScrollForm, 'PnlMiddleTabs');

  PnlMiddleTabs.Align = alTop; 

  PnlMiddleTabs.Height = 250; 

  PnlMiddleTabs.Margins.Top = 10; 

  PnlMiddleTabs.Margins.Left = 5; 

  PnlMiddleTabs.Margins.Right = 5; 

  PnlMiddleTabs.Margins.Bottom = 20; 

  StyleSurface(PnlMiddleTabs);

  PnlTabHeader = BakimForm.AddNewProPanel(PnlMiddleTabs, 'PnlTabHeader');

  PnlTabHeader.Align = alTop; 

  PnlTabHeader.Height = 40; 

  StyleHeaderBar(PnlTabHeader);

  BtnTabTalimat = BakimForm.AddNewProButton(PnlTabHeader, 'BtnTabTalimat', 'Talimatlar');

  BtnTabTalimat.Align = alLeft; 

  BtnTabTalimat.Width = BakimForm.clWidth / 2; 

  StyleTabButtonActive(BtnTabTalimat);

  BakimForm.AddNewEvent(BtnTabTalimat, tbeOnClick, 'ShowTalimatlar');

  BtnTabOperator = BakimForm.AddNewProButton(PnlTabHeader, 'BtnTabOperator', 'Operatorler');

  BtnTabOperator.Align = alClient; 

  StyleTabButtonInactive(BtnTabOperator);

  BakimForm.AddNewEvent(BtnTabOperator, tbeOnClick, 'ShowOperatorler');

  PnlTabContent = BakimForm.AddNewProPanel(PnlMiddleTabs, 'PnlTabContent');

  PnlTabContent.Align = alClient; 

  StyleInputPanel(PnlTabContent);

  

  MemTabContent = BakimForm.AddNewMemo(PnlTabContent, 'MemTabContent', '');

  MemTabContent.Align = alClient; 

  MemTabContent.Margins.Top = 2; 

  MemTabContent.Margins.Bottom = 2; 

  MemTabContent.Margins.Left = 2; 

  MemTabContent.Margins.Right = 2;

  ShowTalimatlar; 

  BakimForm.Run;

}   kodumda bulunan buyuk yaz butonu basıldığında bütün yazıları küçültsün tekrar basıldığında eski haline getirsin bunu yapmaya çalışıyorum ancak olmadı