Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - unit hatası
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

unit hatası
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
kayra.55 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 17 Kasım 2025
Durum: Aktif Değil
Puanlar: 23 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra.55 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: unit hatası
    Gönderim Zamanı: 14 Saat 29 Dakika Önce Saat 13:52
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 

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 793 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 11 Saat 41 Dakika Önce Saat 16:40
Şu an projeyi çalıştırdığım zaman filtre ekranına gidiyor ve karşıma sadece bekleyenler ekranı yazılı bir ekran geliyor. 
Bakım hareketleri kısmında yer alan bozukluğu da 
https://www.docs.clomosy.com/index.php?title=Pro_Object_Properties kısmından  FontVertAlign ve  FontHorzAlign özellikerinden düzeltebilirsin https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
kayra.55 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 17 Kasım 2025
Durum: Aktif Değil
Puanlar: 23 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra.55 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 11 Saat 22 Dakika Önce Saat 16:59
sorun çözülmedi filtre kısmının içinde olan veriler yok gelmiyor https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 793 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 10 Saat 55 Dakika Önce Saat 17:26
Kod içerisinde filtre butonu yeni birimi değil kod içerisinde yazdığın paneli açıyor sebebi bu
Filtre butonuna çağırdığın prosedür ilgili birim olmalıhttps://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,046 Saniyede Yüklendi.