var

  MyForm: TclForm;

  // ANA PANELLER

  PnlNavBar, PnlHome, PnlBakimIslemleri, PnlBakimHareketleri, PnlAriza, PnlKontrol: TclProPanel;

  LblNavTitle, LblHomeTitle, LblInfo: TclProLabel;

  BtnBack, BtnYazdir, BtnYeniFis, BtnIptal, BtnTamamla: TclProButton;

  // HOME KUTULARI

  BtnBakimIslemleri, BtnBakimHareketleri, BtnAriza, BtnKontrol: TclProButton;

  // BAKIM HAREKETLERİ - ANA YAPI

  PnlBakimActionBar, PnlBakimFormPage, PnlBakimMalzemePage, PnlBakimDokumanPage: TclProPanel;

  BtnFormPage, BtnMalzemePage, BtnDokumanPage: TclProButton;

  ScrollBakimForm, ScrollMalzeme, ScrollDokuman: TclVertScrollBox;

  // FORM ALANLARI

  GrpBelgeNo, GrpTarih, GrpBakimTipi, GrpBakimTuru, GrpBakimKodu, GrpMakineKodu, GrpBaglanti, GrpBaslangic, GrpBitis, GrpAciklama: TclProPanel;

  EdtBelgeNo, EdtTarih, EdtBakimTipi, EdtBakimTuru, EdtBakimKodu, EdtBaslangic, EdtBitis: TclProEdit;

  EdtMakineKodu, EdtBakimBaglanti: TClProSearchEdit;

  MemAciklama: TclMemo;

  // MALZEME ALANI

  PnlMalzemeHeader, PnlMalzemeKart1, PnlMalzemeKart2: TclProPanel;

  BtnMalzemeEkle: TclProButton;

  LblMalzemeHeader: TclProLabel;

  LblStokKod1, LblStokAd1, LblMiktar1, LblBirim1, LblFiyat1, LblToplam1: TclProLabel;

  LblStokKod2, LblStokAd2, LblMiktar2, LblBirim2, LblFiyat2, LblToplam2: TclProLabel;

  // DOKÜMAN ALANI

  PnlDokumanUst, PnlDokumanAlt: TclProPanel;

  BtnDosyaYukle: TclProButton;

  MemDokumanAciklama: TclMemo;

  LblDokumanBaslik: TclProLabel;

void Filtre;

{

  Clomosy.RunUnit('uFiltre');

}

void Bekleyenler;

{

  Clomosy.RunUnit('uBekleyenler');

}

void ARIZA;

{

  Clomosy.RunUnit('uArıza');

}

void HideAllViews;

{

  PnlHome.Visible = False;

  PnlBakimIslemleri.Visible = False;

  PnlBakimHareketleri.Visible = False;

  PnlAriza.Visible = False;

  PnlKontrol.Visible = False;

  BtnBack.Visible = False;

  BtnYazdir.Visible = False;

  BtnYeniFis.Visible = False;

  BtnIptal.Visible = False;

  BtnTamamla.Visible = False;

}

void HideBakimSubPages;

{

  PnlBakimFormPage.Visible = False;

  PnlBakimMalzemePage.Visible = False;

  PnlBakimDokumanPage.Visible = False;

}

void GoHome;

{

  HideAllViews;

  PnlHome.Visible = True;

  LblNavTitle.Text = 'Bakım Onarım Modülü';

}

void GoBakimIslemleri;

{

  HideAllViews;

  PnlKontrol.Visible = True;

  BtnBack.Visible = True;

  LblNavTitle.Text = 'Filtre';

}

void GoBakimHareketleri;

{

  HideAllViews;

  PnlBakimHareketleri.Visible = True;

  BtnBack.Visible = True;

  BtnYazdir.Visible = True;

  BtnYeniFis.Visible = True;

  BtnIptal.Visible = True;

  BtnTamamla.Visible = True;

  LblNavTitle.Text = 'Bakım Hareket Fişi';

  HideBakimSubPages;

  PnlBakimFormPage.Visible = True;

}

void GoAriza;

{

  HideAllViews;

  PnlAriza.Visible = True;

  BtnBack.Visible = True;

  BtnTamamla.Visible = True;

  LblNavTitle.Text = 'Arıza Bildirimi';

}

void GoKontrol;

{

  HideAllViews;

  PnlKontrol.Visible = True;

  BtnBack.Visible = True;

  LblNavTitle.Text = 'Bekleyenler';

}

void ShowBakimFormPage;

{

  HideBakimSubPages;

  PnlBakimFormPage.Visible = True;

}

void ShowBakimMalzemePage;

{

  HideBakimSubPages;

  PnlBakimMalzemePage.Visible = True;

}

void ShowBakimDokumanPage;

{

  HideBakimSubPages;

  PnlBakimDokumanPage.Visible = True;

}

void PrintFis;

{

  // Yazdırma işlemi için gerekli alan

}

void NewFis;

{

  ShowBakimFormPage;

}

void CancelFis;

{

  GoHome;

}

void CompleteFis;

{

  // Tamamlama işlemi için gerekli alan

}

{

  MyForm = TclForm.Create(Self);

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

  // ================= NAVBAR =================

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

  PnlNavBar.Align = alTop;

  PnlNavBar.Height = 60;

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

  PnlNavBar.SetclProSettings(PnlNavBar.clProSettings);

  BtnBack = MyForm.AddNewProButton(PnlNavBar, 'BtnBack', '◀');

  BtnBack.Align = alLeft;

  BtnBack.Width = 42;

  BtnBack.Margins.Top = 10;

  BtnBack.Margins.Bottom = 10;

  BtnBack.Margins.Left = 10;

  BtnBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F1D1D');

  BtnBack.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnBack.clProSettings.BorderWidth = 0;

  BtnBack.clProSettings.RoundHeight = 8;

  BtnBack.clProSettings.RoundWidth = 8;

  BtnBack.SetclProSettings(BtnBack.clProSettings);

  MyForm.AddNewEvent(BtnBack, tbeOnClick, 'GoHome');

  BtnTamamla = MyForm.AddNewProButton(PnlNavBar, 'BtnTamamla', 'Tamamla');

  BtnTamamla.Align = alRight;

  BtnTamamla.Width = 80;

  BtnTamamla.Margins.Top = 10;

  BtnTamamla.Margins.Bottom = 10;

  BtnTamamla.Margins.Right = 10;

  BtnTamamla.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F1D1D');

  BtnTamamla.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnTamamla.clProSettings.BorderWidth = 0;

  BtnTamamla.clProSettings.RoundHeight = 8;

  BtnTamamla.clProSettings.RoundWidth = 8;

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

  BtnTamamla.SetclProSettings(BtnTamamla.clProSettings);

  MyForm.AddNewEvent(BtnTamamla, tbeOnClick, 'CompleteFis');

  BtnIptal = MyForm.AddNewProButton(PnlNavBar, 'BtnIptal', 'İptal');

  BtnIptal.Align = alRight;

  BtnIptal.Width = 65;

  BtnIptal.Margins.Top = 10;

  BtnIptal.Margins.Bottom = 10;

  BtnIptal.Margins.Right = 8;

  BtnIptal.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#991B1B');

  BtnIptal.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnIptal.clProSettings.BorderWidth = 0;

  BtnIptal.clProSettings.RoundHeight = 8;

  BtnIptal.clProSettings.RoundWidth = 8;

  BtnIptal.SetclProSettings(BtnIptal.clProSettings);

  MyForm.AddNewEvent(BtnIptal, tbeOnClick, 'CancelFis');

  BtnYeniFis = MyForm.AddNewProButton(PnlNavBar, 'BtnYeniFis', 'Yeni Fiş');

  BtnYeniFis.Align = alRight;

  BtnYeniFis.Width = 78;

  BtnYeniFis.Margins.Top = 10;

  BtnYeniFis.Margins.Bottom = 10;

  BtnYeniFis.Margins.Right = 8;

  BtnYeniFis.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#991B1B');

  BtnYeniFis.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnYeniFis.clProSettings.BorderWidth = 0;

  BtnYeniFis.clProSettings.RoundHeight = 8;

  BtnYeniFis.clProSettings.RoundWidth = 8;

  BtnYeniFis.SetclProSettings(BtnYeniFis.clProSettings);

  MyForm.AddNewEvent(BtnYeniFis, tbeOnClick, 'NewFis');

  BtnYazdir = MyForm.AddNewProButton(PnlNavBar, 'BtnYazdir', 'Yazdır');

  BtnYazdir.Align = alRight;

  BtnYazdir.Width = 70;

  BtnYazdir.Margins.Top = 10;

  BtnYazdir.Margins.Bottom = 10;

  BtnYazdir.Margins.Right = 8;

  BtnYazdir.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#991B1B');

  BtnYazdir.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnYazdir.clProSettings.BorderWidth = 0;

  BtnYazdir.clProSettings.RoundHeight = 8;

  BtnYazdir.clProSettings.RoundWidth = 8;

  BtnYazdir.SetclProSettings(BtnYazdir.clProSettings);

  MyForm.AddNewEvent(BtnYazdir, tbeOnClick, 'PrintFis');

  LblNavTitle = MyForm.AddNewProLabel(PnlNavBar, 'LblNavTitle', 'Bakım Onarım Modülü');

  LblNavTitle.Align = alClient;

  LblNavTitle.Margins.Left = 12;

  LblNavTitle.clProSettings.FontColor = clAlphaColor.clWhite;

  LblNavTitle.clProSettings.FontSize = 18;

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

  LblNavTitle.SetclProSettings(LblNavTitle.clProSettings);

  // ================= HOME =================

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

  PnlHome.Align = alClient;

  PnlHome.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F3F4F6');

  PnlHome.SetclProSettings(PnlHome.clProSettings);

  LblHomeTitle = MyForm.AddNewProLabel(PnlHome, 'LblHomeTitle', 'Bakım Modülü');

  LblHomeTitle.Align = alTop;

  LblHomeTitle.Height = 40;

  LblHomeTitle.Margins.Top = 20;

  LblHomeTitle.Margins.Left = 20;

  LblHomeTitle.clProSettings.FontSize = 22;

  LblHomeTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#1F2937');

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

  LblHomeTitle.SetclProSettings(LblHomeTitle.clProSettings);

  BtnBakimIslemleri = MyForm.AddNewProButton(PnlHome, 'BtnBakimIslemleri', 'Filtre');

  BtnBakimIslemleri.Align = alTop;

  BtnBakimIslemleri.Height = 70;

  BtnBakimIslemleri.Margins.Top = 20;

  BtnBakimIslemleri.Margins.Left = 20;

  BtnBakimIslemleri.Margins.Right = 20;

  BtnBakimIslemleri.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  BtnBakimIslemleri.clProSettings.FontColor = clAlphaColor.clHexToColor('#1F2937');

  BtnBakimIslemleri.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FECACA');

  BtnBakimIslemleri.clProSettings.BorderWidth = 2;

  BtnBakimIslemleri.clProSettings.RoundHeight = 12;

  BtnBakimIslemleri.clProSettings.RoundWidth = 12;

  BtnBakimIslemleri.SetclProSettings(BtnBakimIslemleri.clProSettings);

  MyForm.AddNewEvent(BtnBakimIslemleri, tbeOnClick, 'GoBakimIslemleri');

  BtnBakimHareketleri = MyForm.AddNewProButton(PnlHome, 'BtnBakimHareketleri', 'Bakım Hareketleri');

  BtnBakimHareketleri.Align = alTop;

  BtnBakimHareketleri.Height = 70;

  BtnBakimHareketleri.Margins.Top = 15;

  BtnBakimHareketleri.Margins.Left = 20;

  BtnBakimHareketleri.Margins.Right = 20;

  BtnBakimHareketleri.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  BtnBakimHareketleri.clProSettings.FontColor = clAlphaColor.clHexToColor('#1F2937');

  BtnBakimHareketleri.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FECACA');

  BtnBakimHareketleri.clProSettings.BorderWidth = 2;

  BtnBakimHareketleri.clProSettings.RoundHeight = 12;

  BtnBakimHareketleri.clProSettings.RoundWidth = 12;

  BtnBakimHareketleri.SetclProSettings(BtnBakimHareketleri.clProSettings);

  MyForm.AddNewEvent(BtnBakimHareketleri, tbeOnClick, 'GoBakimHareketleri');

  BtnAriza = MyForm.AddNewProButton(PnlHome, 'BtnAriza', 'Arıza');

  BtnAriza.Align = alTop;

  BtnAriza.Height = 70;

  BtnAriza.Margins.Top = 15;

  BtnAriza.Margins.Left = 20;

  BtnAriza.Margins.Right = 20;

  BtnAriza.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  BtnAriza.clProSettings.FontColor = clAlphaColor.clHexToColor('#1F2937');

  BtnAriza.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FECACA');

  BtnAriza.clProSettings.BorderWidth = 2;

  BtnAriza.clProSettings.RoundHeight = 12;

  BtnAriza.clProSettings.RoundWidth = 12;

  BtnAriza.SetclProSettings(BtnAriza.clProSettings);

  MyForm.AddNewEvent(BtnAriza, tbeOnClick, 'GoAriza');

  BtnKontrol = MyForm.AddNewProButton(PnlHome, 'BtnKontrol', 'Bekleyenler');

  BtnKontrol.Align = alTop;

  BtnKontrol.Height = 70;

  BtnKontrol.Margins.Top = 15;

  BtnKontrol.Margins.Left = 20;

  BtnKontrol.Margins.Right = 20;

  BtnKontrol.clProSettings.BackgroundColor = clAlphaColor.clWhite;

  BtnKontrol.clProSettings.FontColor = clAlphaColor.clHexToColor('#1F2937');

  BtnKontrol.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FECACA');

  BtnKontrol.clProSettings.BorderWidth = 2;

  BtnKontrol.clProSettings.RoundHeight = 12;

  BtnKontrol.clProSettings.RoundWidth = 12;

  BtnKontrol.SetclProSettings(BtnKontrol.clProSettings);

  MyForm.AddNewEvent(BtnKontrol, tbeOnClick, 'GoKontrol');

  // ================= FİLTRE =================

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

  PnlBakimIslemleri.Align = alClient;

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

  PnlBakimIslemleri.SetclProSettings(PnlBakimIslemleri.clProSettings);

  LblInfo = MyForm.AddNewProLabel(PnlBakimIslemleri, 'LblFiltreInfo', 'Filtre ekranı');

  LblInfo.Align = alTop;

  LblInfo.Height = 40;

  LblInfo.Margins.Top = 20;

  LblInfo.Margins.Left = 20;

  LblInfo.clProSettings.FontColor = clAlphaColor.clHexToColor('#1F2937');

  LblInfo.clProSettings.FontSize = 16;

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

  LblInfo.SetclProSettings(LblInfo.clProSettings);

  // ================= ARIZA =================

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

  PnlAriza.Align = alClient;

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

  PnlAriza.SetclProSettings(PnlAriza.clProSettings);

  LblInfo = MyForm.AddNewProLabel(PnlAriza, 'LblArizaInfo', 'Arıza ekranı');

  LblInfo.Align = alTop;

  LblInfo.Height = 40;

  LblInfo.Margins.Top = 20;

  LblInfo.Margins.Left = 20;

  LblInfo.clProSettings.FontColor = clAlphaColor.clHexToColor('#1F2937');

  LblInfo.clProSettings.FontSize = 16;

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

  LblInfo.SetclProSettings(LblInfo.clProSettings);

  // ================= KONTROL =================

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

  PnlKontrol.Align = alClient;

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

  PnlKontrol.SetclProSettings(PnlKontrol.clProSettings);

  LblInfo = MyForm.AddNewProLabel(PnlKontrol, 'LblKontrolInfo', 'Bekleyenler ekranı');

  LblInfo.Align = alTop;

  LblInfo.Height = 40;

  LblInfo.Margins.Top = 20;

  LblInfo.Margins.Left = 20;

  LblInfo.clProSettings.FontColor = clAlphaColor.clHexToColor('#1F2937');

  LblInfo.clProSettings.FontSize = 16;

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

  LblInfo.SetclProSettings(LblInfo.clProSettings);

  // ================= BAKIM HAREKETLERİ =================

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

  PnlBakimHareketleri.Align = alClient;

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

  PnlBakimHareketleri.SetclProSettings(PnlBakimHareketleri.clProSettings);

  PnlBakimActionBar = MyForm.AddNewProPanel(PnlBakimHareketleri, 'PnlBakimActionBar');

  PnlBakimActionBar.Align = alTop;

  PnlBakimActionBar.Height = 58;

  PnlBakimActionBar.Margins.Top = 12;

  PnlBakimActionBar.Margins.Left = 12;

  PnlBakimActionBar.Margins.Right = 12;

  PnlBakimActionBar.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FEF2F2');

  PnlBakimActionBar.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FECACA');

  PnlBakimActionBar.clProSettings.BorderWidth = 1;

  PnlBakimActionBar.clProSettings.RoundHeight = 10;

  PnlBakimActionBar.clProSettings.RoundWidth = 10;

  PnlBakimActionBar.SetclProSettings(PnlBakimActionBar.clProSettings);

  BtnFormPage = MyForm.AddNewProButton(PnlBakimActionBar, 'BtnFormPage', 'Form');

  BtnFormPage.Align = alLeft;

  BtnFormPage.Width = 90;

  BtnFormPage.Margins.Left = 10;

  BtnFormPage.Margins.Top = 10;

  BtnFormPage.Margins.Bottom = 10;

  BtnFormPage.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B91C1C');

  BtnFormPage.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnFormPage.clProSettings.BorderWidth = 0;

  BtnFormPage.clProSettings.RoundHeight = 8;

  BtnFormPage.clProSettings.RoundWidth = 8;

  BtnFormPage.SetclProSettings(BtnFormPage.clProSettings);

  MyForm.AddNewEvent(BtnFormPage, tbeOnClick, 'ShowBakimFormPage');

  BtnMalzemePage = MyForm.AddNewProButton(PnlBakimActionBar, 'BtnMalzemePage', 'Malzemeler');

  BtnMalzemePage.Align = alLeft;

  BtnMalzemePage.Width = 110;

  BtnMalzemePage.Margins.Left = 10;

  BtnMalzemePage.Margins.Top = 10;

  BtnMalzemePage.Margins.Bottom = 10;

  BtnMalzemePage.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#991B1B');

  BtnMalzemePage.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnMalzemePage.clProSettings.BorderWidth = 0;

  BtnMalzemePage.clProSettings.RoundHeight = 8;

  BtnMalzemePage.clProSettings.RoundWidth = 8;

  BtnMalzemePage.SetclProSettings(BtnMalzemePage.clProSettings);

  MyForm.AddNewEvent(BtnMalzemePage, tbeOnClick, 'ShowBakimMalzemePage');

  BtnDokumanPage = MyForm.AddNewProButton(PnlBakimActionBar, 'BtnDokumanPage', 'Doküman');

  BtnDokumanPage.Align = alLeft;

  BtnDokumanPage.Width = 100;

  BtnDokumanPage.Margins.Left = 10;

  BtnDokumanPage.Margins.Top = 10;

  BtnDokumanPage.Margins.Bottom = 10;

  BtnDokumanPage.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#991B1B');

  BtnDokumanPage.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnDokumanPage.clProSettings.BorderWidth = 0;

  BtnDokumanPage.clProSettings.RoundHeight = 8;

  BtnDokumanPage.clProSettings.RoundWidth = 8;

  BtnDokumanPage.SetclProSettings(BtnDokumanPage.clProSettings);

  MyForm.AddNewEvent(BtnDokumanPage, tbeOnClick, 'ShowBakimDokumanPage');

  // ---------- FORM SAYFASI ----------

  PnlBakimFormPage = MyForm.AddNewProPanel(PnlBakimHareketleri, 'PnlBakimFormPage');

  PnlBakimFormPage.Align = alClient;

  PnlBakimFormPage.Margins.Top = 12;

  PnlBakimFormPage.Margins.Left = 12;

  PnlBakimFormPage.Margins.Right = 12;

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

  PnlBakimFormPage.SetclProSettings(PnlBakimFormPage.clProSettings);

  ScrollBakimForm = MyForm.AddNewVertScrollBox(PnlBakimFormPage, 'ScrollBakimForm');

  ScrollBakimForm.Align = alClient;

  GrpBelgeNo = MyForm.AddNewProPanel(ScrollBakimForm, 'GrpBelgeNo');

  GrpBelgeNo.Align = alTop;

  GrpBelgeNo.Height = 78;

  GrpBelgeNo.Margins.Top = 10;

  GrpBelgeNo.Margins.Left = 6;

  GrpBelgeNo.Margins.Right = 6;

  GrpBelgeNo.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  GrpBelgeNo.clProSettings.BorderWidth = 1;

  GrpBelgeNo.clProSettings.RoundHeight = 8;

  GrpBelgeNo.clProSettings.RoundWidth = 8;

  GrpBelgeNo.SetclProSettings(GrpBelgeNo.clProSettings);

  MyForm.AddNewProLabel(GrpBelgeNo, 'LblBelgeNo', 'Belge No');

  EdtBelgeNo = MyForm.AddNewProEdit(GrpBelgeNo, 'EdtBelgeNo', 'Belge No');

  GrpTarih = MyForm.AddNewProPanel(ScrollBakimForm, 'GrpTarih');

  GrpTarih.Align = alTop;

  GrpTarih.Height = 78;

  GrpTarih.Margins.Top = 10;

  GrpTarih.Margins.Left = 6;

  GrpTarih.Margins.Right = 6;

  GrpTarih.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  GrpTarih.clProSettings.BorderWidth = 1;

  GrpTarih.clProSettings.RoundHeight = 8;

  GrpTarih.clProSettings.RoundWidth = 8;

  GrpTarih.SetclProSettings(GrpTarih.clProSettings);

  MyForm.AddNewProLabel(GrpTarih, 'LblTarih', 'Tarih');

  EdtTarih = MyForm.AddNewProEdit(GrpTarih, 'EdtTarih', 'Tarih');

  GrpBakimTipi = MyForm.AddNewProPanel(ScrollBakimForm, 'GrpBakimTipi');

  GrpBakimTipi.Align = alTop;

  GrpBakimTipi.Height = 78;

  GrpBakimTipi.Margins.Top = 10;

  GrpBakimTipi.Margins.Left = 6;

  GrpBakimTipi.Margins.Right = 6;

  GrpBakimTipi.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  GrpBakimTipi.clProSettings.BorderWidth = 1;

  GrpBakimTipi.clProSettings.RoundHeight = 8;

  GrpBakimTipi.clProSettings.RoundWidth = 8;

  GrpBakimTipi.SetclProSettings(GrpBakimTipi.clProSettings);

  MyForm.AddNewProLabel(GrpBakimTipi, 'LblBakimTipi', 'Bakım Tipi');

  EdtBakimTipi = MyForm.AddNewProEdit(GrpBakimTipi, 'EdtBakimTipi', 'Bakım Tipi');

  GrpBakimTuru = MyForm.AddNewProPanel(ScrollBakimForm, 'GrpBakimTuru');

  GrpBakimTuru.Align = alTop;

  GrpBakimTuru.Height = 78;

  GrpBakimTuru.Margins.Top = 10;

  GrpBakimTuru.Margins.Left = 6;

  GrpBakimTuru.Margins.Right = 6;

  GrpBakimTuru.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  GrpBakimTuru.clProSettings.BorderWidth = 1;

  GrpBakimTuru.clProSettings.RoundHeight = 8;

  GrpBakimTuru.clProSettings.RoundWidth = 8;

  GrpBakimTuru.SetclProSettings(GrpBakimTuru.clProSettings);

  MyForm.AddNewProLabel(GrpBakimTuru, 'LblBakimTuru', 'Bakım Türü');

  EdtBakimTuru = MyForm.AddNewProEdit(GrpBakimTuru, 'EdtBakimTuru', 'Bakım Türü');

  GrpBakimKodu = MyForm.AddNewProPanel(ScrollBakimForm, 'GrpBakimKodu');

  GrpBakimKodu.Align = alTop;

  GrpBakimKodu.Height = 78;

  GrpBakimKodu.Margins.Top = 10;

  GrpBakimKodu.Margins.Left = 6;

  GrpBakimKodu.Margins.Right = 6;

  GrpBakimKodu.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  GrpBakimKodu.clProSettings.BorderWidth = 1;

  GrpBakimKodu.clProSettings.RoundHeight = 8;

  GrpBakimKodu.clProSettings.RoundWidth = 8;

  GrpBakimKodu.SetclProSettings(GrpBakimKodu.clProSettings);

  MyForm.AddNewProLabel(GrpBakimKodu, 'LblBakimKodu', 'Bakım Kodu');

  EdtBakimKodu = MyForm.AddNewProEdit(GrpBakimKodu, 'EdtBakimKodu', 'Bakım Kodu');

  GrpMakineKodu = MyForm.AddNewProPanel(ScrollBakimForm, 'GrpMakineKodu');

  GrpMakineKodu.Align = alTop;

  GrpMakineKodu.Height = 78;

  GrpMakineKodu.Margins.Top = 10;

  GrpMakineKodu.Margins.Left = 6;

  GrpMakineKodu.Margins.Right = 6;

  GrpMakineKodu.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  GrpMakineKodu.clProSettings.BorderWidth = 1;

  GrpMakineKodu.clProSettings.RoundHeight = 8;

  GrpMakineKodu.clProSettings.RoundWidth = 8;

  GrpMakineKodu.SetclProSettings(GrpMakineKodu.clProSettings);

  MyForm.AddNewProLabel(GrpMakineKodu, 'LblMakineKodu', 'Makine Kodu');

  EdtMakineKodu = MyForm.AddNewProSearchEdit(GrpMakineKodu, 'EdtMakineKodu', 'Makine Kodu');

  GrpBaglanti = MyForm.AddNewProPanel(ScrollBakimForm, 'GrpBaglanti');

  GrpBaglanti.Align = alTop;

  GrpBaglanti.Height = 78;

  GrpBaglanti.Margins.Top = 10;

  GrpBaglanti.Margins.Left = 6;

  GrpBaglanti.Margins.Right = 6;

  GrpBaglanti.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  GrpBaglanti.clProSettings.BorderWidth = 1;

  GrpBaglanti.clProSettings.RoundHeight = 8;

  GrpBaglanti.clProSettings.RoundWidth = 8;

  GrpBaglanti.SetclProSettings(GrpBaglanti.clProSettings);

  MyForm.AddNewProLabel(GrpBaglanti, 'LblBaglanti', 'Bakım Bağlantısı');

  EdtBakimBaglanti = MyForm.AddNewProSearchEdit(GrpBaglanti, 'EdtBakimBaglanti', 'Bakım Bağlantısı');

  GrpBaslangic = MyForm.AddNewProPanel(ScrollBakimForm, 'GrpBaslangic');

  GrpBaslangic.Align = alTop;

  GrpBaslangic.Height = 78;

  GrpBaslangic.Margins.Top = 10;

  GrpBaslangic.Margins.Left = 6;

  GrpBaslangic.Margins.Right = 6;

  GrpBaslangic.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  GrpBaslangic.clProSettings.BorderWidth = 1;

  GrpBaslangic.clProSettings.RoundHeight = 8;

  GrpBaslangic.clProSettings.RoundWidth = 8;

  GrpBaslangic.SetclProSettings(GrpBaslangic.clProSettings);

  MyForm.AddNewProLabel(GrpBaslangic, 'LblBaslangic', 'Başlangıç Tarih/Saat');

  EdtBaslangic = MyForm.AddNewProEdit(GrpBaslangic, 'EdtBaslangic', 'Başlangıç Tarih/Saat');

  GrpBitis = MyForm.AddNewProPanel(ScrollBakimForm, 'GrpBitis');

  GrpBitis.Align = alTop;

  GrpBitis.Height = 78;

  GrpBitis.Margins.Top = 10;

  GrpBitis.Margins.Left = 16;

  GrpBitis.Margins.Right = 6;

  GrpBitis.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  GrpBitis.clProSettings.BorderWidth = 1;

  GrpBitis.clProSettings.RoundHeight = 8;

  GrpBitis.clProSettings.RoundWidth = 8;

  GrpBitis.SetclProSettings(GrpBitis.clProSettings);

  MyForm.AddNewProLabel(GrpBitis, 'LblBitis', 'Bitiş Tarih/Saat');

  EdtBitis = MyForm.AddNewProEdit(GrpBitis, 'EdtBitis', 'Bitiş Tarih/Saat');

  GrpAciklama = MyForm.AddNewProPanel(ScrollBakimForm, 'GrpAciklama');

  GrpAciklama.Align = alTop;

  GrpAciklama.Height = 155;

  GrpAciklama.Margins.Top = 10;

  GrpAciklama.Margins.Left = 6;

  GrpAciklama.Margins.Right = 6;

  GrpAciklama.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  GrpAciklama.clProSettings.BorderWidth = 1;

  GrpAciklama.clProSettings.RoundHeight = 8;

  GrpAciklama.clProSettings.RoundWidth = 8;

  GrpAciklama.SetclProSettings(GrpAciklama.clProSettings);

  MyForm.AddNewProLabel(GrpAciklama, 'LblAciklama', 'Açıklama');

  MemAciklama = MyForm.AddNewMemo(GrpAciklama, 'MemAciklama', 'Açıklama');

  MemAciklama.Align = alBottom;

  MemAciklama.Height = 100;

  MemAciklama.Margins.Top = 6;

  // ---------- MALZEME SAYFASI ----------

  PnlBakimMalzemePage = MyForm.AddNewProPanel(PnlBakimHareketleri, 'PnlBakimMalzemePage');

  PnlBakimMalzemePage.Align = alClient;

  PnlBakimMalzemePage.Margins.Top = 12;

  PnlBakimMalzemePage.Margins.Left = 12;

  PnlBakimMalzemePage.Margins.Right = 12;

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

  PnlBakimMalzemePage.SetclProSettings(PnlBakimMalzemePage.clProSettings);

  ScrollMalzeme = MyForm.AddNewVertScrollBox(PnlBakimMalzemePage, 'ScrollMalzeme');

  ScrollMalzeme.Align = alClient;

  PnlMalzemeHeader = MyForm.AddNewProPanel(ScrollMalzeme, 'PnlMalzemeHeader');

  PnlMalzemeHeader.Align = alTop;

  PnlMalzemeHeader.Height = 86;

  PnlMalzemeHeader.Margins.Top = 10;

  PnlMalzemeHeader.Margins.Left = 6;

  PnlMalzemeHeader.Margins.Right = 6;

  PnlMalzemeHeader.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  PnlMalzemeHeader.clProSettings.BorderWidth = 1;

  PnlMalzemeHeader.clProSettings.RoundHeight = 8;

  PnlMalzemeHeader.clProSettings.RoundWidth = 8;

  PnlMalzemeHeader.SetclProSettings(PnlMalzemeHeader.clProSettings);

  LblMalzemeHeader = MyForm.AddNewProLabel(PnlMalzemeHeader, 'LblMalzemeHeader', 'Malzeme Listesi');

  LblMalzemeHeader.Align = alTop;

  LblMalzemeHeader.Height = 30;

  LblMalzemeHeader.Margins.Top = 8;

  LblMalzemeHeader.Margins.Left = 10;

  LblMalzemeHeader.clProSettings.FontColor = clAlphaColor.clHexToColor('#1F2937');

  LblMalzemeHeader.clProSettings.FontSize = 16;

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

  LblMalzemeHeader.SetclProSettings(LblMalzemeHeader.clProSettings);

  BtnMalzemeEkle = MyForm.AddNewProButton(PnlMalzemeHeader, 'BtnMalzemeEkle', 'Yeni Malzeme Ekle');

  BtnMalzemeEkle.Align = alBottom;

  BtnMalzemeEkle.Height = 34;

  BtnMalzemeEkle.Margins.Left = 10;

  BtnMalzemeEkle.Margins.Right = 10;

  BtnMalzemeEkle.Margins.Bottom = 8;

  BtnMalzemeEkle.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B91C1C');

  BtnMalzemeEkle.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnMalzemeEkle.clProSettings.BorderWidth = 0;

  BtnMalzemeEkle.clProSettings.RoundHeight = 8;

  BtnMalzemeEkle.clProSettings.RoundWidth = 8;

  BtnMalzemeEkle.SetclProSettings(BtnMalzemeEkle.clProSettings);

  // KART 1

  PnlMalzemeKart1 = MyForm.AddNewProPanel(ScrollMalzeme, 'PnlMalzemeKart1');

  PnlMalzemeKart1.Align = alTop;

  PnlMalzemeKart1.Height = 185;

  PnlMalzemeKart1.Margins.Top = 10;

  PnlMalzemeKart1.Margins.Left = 6;

  PnlMalzemeKart1.Margins.Right = 6;

  PnlMalzemeKart1.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  PnlMalzemeKart1.clProSettings.BorderWidth = 1;

  PnlMalzemeKart1.clProSettings.RoundHeight = 8;

  PnlMalzemeKart1.clProSettings.RoundWidth = 8;

  PnlMalzemeKart1.SetclProSettings(PnlMalzemeKart1.clProSettings);

  LblStokKod1 = MyForm.AddNewProLabel(PnlMalzemeKart1, 'LblStokKod1', 'Stok Kod: STK-001');

  LblStokKod1.Align = alTop;

  LblStokKod1.Height = 24;

  LblStokKod1.Margins.Top = 8;

  LblStokKod1.Margins.Left = 10;

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

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

  LblStokKod1.SetclProSettings(LblStokKod1.clProSettings);

  LblStokAd1 = MyForm.AddNewProLabel(PnlMalzemeKart1, 'LblStokAd1', 'Stok Adı: Rulman');

  LblStokAd1.Align = alTop;

  LblStokAd1.Height = 24;

  LblStokAd1.Margins.Left = 10;

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

  LblStokAd1.SetclProSettings(LblStokAd1.clProSettings);

  LblMiktar1 = MyForm.AddNewProLabel(PnlMalzemeKart1, 'LblMiktar1', 'Miktar: 2');

  LblMiktar1.Align = alTop;

  LblMiktar1.Height = 24;

  LblMiktar1.Margins.Left = 10;

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

  LblMiktar1.SetclProSettings(LblMiktar1.clProSettings);

  LblBirim1 = MyForm.AddNewProLabel(PnlMalzemeKart1, 'LblBirim1', 'Birim: Adet');

  LblBirim1.Align = alTop;

  LblBirim1.Height = 24;

  LblBirim1.Margins.Left = 10;

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

  LblBirim1.SetclProSettings(LblBirim1.clProSettings);

  LblFiyat1 = MyForm.AddNewProLabel(PnlMalzemeKart1, 'LblFiyat1', 'Fiyat: 150 TL');

  LblFiyat1.Align = alTop;

  LblFiyat1.Height = 24;

  LblFiyat1.Margins.Left = 10;

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

  LblFiyat1.SetclProSettings(LblFiyat1.clProSettings);

  LblToplam1 = MyForm.AddNewProLabel(PnlMalzemeKart1, 'LblToplam1', 'Toplam: 300 TL');

  LblToplam1.Align = alTop;

  LblToplam1.Height = 24;

  LblToplam1.Margins.Left = 10;

  LblToplam1.Margins.Bottom = 10;

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

  LblToplam1.SetclProSettings(LblToplam1.clProSettings);

  // KART 2

  PnlMalzemeKart2 = MyForm.AddNewProPanel(ScrollMalzeme, 'PnlMalzemeKart2');

  PnlMalzemeKart2.Align = alTop;

  PnlMalzemeKart2.Height = 185;

  PnlMalzemeKart2.Margins.Top = 10;

  PnlMalzemeKart2.Margins.Left = 6;

  PnlMalzemeKart2.Margins.Right = 6;

  PnlMalzemeKart2.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  PnlMalzemeKart2.clProSettings.BorderWidth = 1;

  PnlMalzemeKart2.clProSettings.RoundHeight = 8;

  PnlMalzemeKart2.clProSettings.RoundWidth = 8;

  PnlMalzemeKart2.SetclProSettings(PnlMalzemeKart2.clProSettings);

  LblStokKod2 = MyForm.AddNewProLabel(PnlMalzemeKart2, 'LblStokKod2', 'Stok Kod: MLZ-005');

  LblStokKod2.Align = alTop;

  LblStokKod2.Height = 24;

  LblStokKod2.Margins.Top = 8;

  LblStokKod2.Margins.Left = 10;

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

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

  LblStokKod2.SetclProSettings(LblStokKod2.clProSettings);

  LblStokAd2 = MyForm.AddNewProLabel(PnlMalzemeKart2, 'LblStokAd2', 'Stok Adı: Makine Yağı 10W-40');

  LblStokAd2.Align = alTop;

  LblStokAd2.Height = 24;

  LblStokAd2.Margins.Left = 10;

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

  LblStokAd2.SetclProSettings(LblStokAd2.clProSettings);

  LblMiktar2 = MyForm.AddNewProLabel(PnlMalzemeKart2, 'LblMiktar2', 'Miktar: 2.5');

  LblMiktar2.Align = alTop;

  LblMiktar2.Height = 24;

  LblMiktar2.Margins.Left = 10;

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

  LblMiktar2.SetclProSettings(LblMiktar2.clProSettings);

  LblBirim2 = MyForm.AddNewProLabel(PnlMalzemeKart2, 'LblBirim2', 'Birim: Litre');

  LblBirim2.Align = alTop;

  LblBirim2.Height = 24;

  LblBirim2.Margins.Left = 10;

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

  LblBirim2.SetclProSettings(LblBirim2.clProSettings);

  LblFiyat2 = MyForm.AddNewProLabel(PnlMalzemeKart2, 'LblFiyat2', 'Fiyat: 120 TL');

  LblFiyat2.Align = alTop;

  LblFiyat2.Height = 24;

  LblFiyat2.Margins.Left = 10;

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

  LblFiyat2.SetclProSettings(LblFiyat2.clProSettings);

  LblToplam2 = MyForm.AddNewProLabel(PnlMalzemeKart2, 'LblToplam2', 'Toplam: 300 TL');

  LblToplam2.Align = alTop;

  LblToplam2.Height = 24;

  LblToplam2.Margins.Left = 10;

  LblToplam2.Margins.Bottom = 10;

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

  LblToplam2.SetclProSettings(LblToplam2.clProSettings);

  // ---------- DOKÜMAN SAYFASI ----------

  PnlBakimDokumanPage = MyForm.AddNewProPanel(PnlBakimHareketleri, 'PnlBakimDokumanPage');

  PnlBakimDokumanPage.Align = alClient;

  PnlBakimDokumanPage.Margins.Top = 12;

  PnlBakimDokumanPage.Margins.Left = 12;

  PnlBakimDokumanPage.Margins.Right = 12;

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

  PnlBakimDokumanPage.SetclProSettings(PnlBakimDokumanPage.clProSettings);

  ScrollDokuman = MyForm.AddNewVertScrollBox(PnlBakimDokumanPage, 'ScrollDokuman');

  ScrollDokuman.Align = alClient;

  PnlDokumanUst = MyForm.AddNewProPanel(ScrollDokuman, 'PnlDokumanUst');

  PnlDokumanUst.Align = alTop;

  PnlDokumanUst.Height = 86;

  PnlDokumanUst.Margins.Top = 10;

  PnlDokumanUst.Margins.Left = 6;

  PnlDokumanUst.Margins.Right = 6;

  PnlDokumanUst.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  PnlDokumanUst.clProSettings.BorderWidth = 1;

  PnlDokumanUst.clProSettings.RoundHeight = 8;

  PnlDokumanUst.clProSettings.RoundWidth = 8;

  PnlDokumanUst.SetclProSettings(PnlDokumanUst.clProSettings);

  LblDokumanBaslik = MyForm.AddNewProLabel(PnlDokumanUst, 'LblDokumanBaslik', 'Doküman Alanı');

  LblDokumanBaslik.Align = alTop;

  LblDokumanBaslik.Height = 28;

  LblDokumanBaslik.Margins.Top = 8;

  LblDokumanBaslik.Margins.Left = 10;

  LblDokumanBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#1F2937');

  LblDokumanBaslik.clProSettings.FontSize = 16;

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

  LblDokumanBaslik.SetclProSettings(LblDokumanBaslik.clProSettings);

  BtnDosyaYukle = MyForm.AddNewProButton(PnlDokumanUst, 'BtnDosyaYukle', 'Dosya Yükle');

  BtnDosyaYukle.Align = alBottom;

  BtnDosyaYukle.Height = 34;

  BtnDosyaYukle.Margins.Left = 10;

  BtnDosyaYukle.Margins.Right = 10;

  BtnDosyaYukle.Margins.Bottom = 8;

  BtnDosyaYukle.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B91C1C');

  BtnDosyaYukle.clProSettings.FontColor = clAlphaColor.clWhite;

  BtnDosyaYukle.clProSettings.BorderWidth = 0;

  BtnDosyaYukle.clProSettings.RoundHeight = 8;

  BtnDosyaYukle.clProSettings.RoundWidth = 8;

  BtnDosyaYukle.SetclProSettings(BtnDosyaYukle.clProSettings);

  PnlDokumanAlt = MyForm.AddNewProPanel(ScrollDokuman, 'PnlDokumanAlt');

  PnlDokumanAlt.Align = alTop;

  PnlDokumanAlt.Height = 165;

  PnlDokumanAlt.Margins.Top = 10;

  PnlDokumanAlt.Margins.Left = 6;

  PnlDokumanAlt.Margins.Right = 6;

  PnlDokumanAlt.clProSettings.BackgroundColor = clAlphaColor.clWhite;

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

  PnlDokumanAlt.clProSettings.BorderWidth = 1;

  PnlDokumanAlt.clProSettings.RoundHeight = 8;

  PnlDokumanAlt.clProSettings.RoundWidth = 8;

  PnlDokumanAlt.SetclProSettings(PnlDokumanAlt.clProSettings);

  MyForm.AddNewProLabel(PnlDokumanAlt, 'LblDokAciklama', 'Genel Açıklama');

  MemDokumanAciklama = MyForm.AddNewMemo(PnlDokumanAlt, 'MemDokumanAciklama', 'Doküman notu');

  MemDokumanAciklama.Align = alBottom;

  MemDokumanAciklama.Height = 105;

  MemDokumanAciklama.Margins.Top = 6;

  // ================= AÇILIŞ =================

  GoHome;

  MyForm.Run;

} kodumda bulanan filtre ekranına gidilmiyor ayrıca filtre kısmında olan kod ana kod yapıldığında çalışıyor ve bakım hareketleri kısmında olan verilerin dizaynı bozuldu tekrar olmuyor