Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - bakım hareket
  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.

bakım hareket
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
kayra12 Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 23 Aralık 2024
Durum: Aktif Değil
Puanlar: 44 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra12 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: bakım hareket
    Gönderim Zamanı: 1 saat 49 Dakika Önce Saat 14:17

var

  MainForm: TclForm;

  PnlNavBar, PnlHome, PnlBakimRoot: TclProPanel;
  PnlBakimHeader, PnlBakimActionBar, PnlBakimFormPage, PnlBakimListPage, PnlBakimDetailPage: TclProPanel;
  PnlBakimFormFooter, PnlBakimDetailFooter: TclProPanel;

  LblNavTitle, LblHomeTitle, LblBakimTitle, LblSelectedInfo, LblBakimFormTitle, LblDetailTitle, LblEmptyInfo: TClProLabel;

  BtnBack: TClProButton;
  BtnMenuFiltre, BtnMenuBakim, BtnMenuAriza, BtnMenuBekleyenler: TClProButton;
  BtnYeniFis, BtnGuncelleFis, BtnSilFis, BtnMalzemeler, BtnDokuman, BtnTamamla, BtnYazdir: TClProButton;
  BtnKaydetFis, BtnVazgecFis, BtnDetayDon: TClProButton;

  ListBakim: TclListView;
  ScrollForm: TclVertScrollBox;

  GrpBelgeNo, GrpTarih, GrpBakimTipi, GrpBakimTuru, GrpBakimKodu, GrpMakineKodu, GrpBaglanti, GrpBaslangic, GrpBitis, GrpAciklama: TclProPanel;
  LblBelgeNo, LblTarih, LblBakimTipi, LblBakimTuru, LblBakimKodu, LblMakineKodu, LblBaglanti, LblBaslangic, LblBitis, LblAciklama: TClProLabel;
  EdtBelgeNo, EdtTarih, EdtBakimTipi, EdtBakimTuru, EdtBakimKodu, EdtMakineKodu, EdtBaglanti, EdtBaslangic, EdtBitis: TclProEdit;
  MemAciklama, MemDetail: TclMemo;

  BakimBelgeNo: array [0..19] of String;
  BakimTarih: array [0..19] of String;
  BakimTipi: array [0..19] of String;
  BakimTuru: array [0..19] of String;
  BakimKodu: array [0..19] of String;
  BakimMakineKodu: array [0..19] of String;
  BakimBaglanti: array [0..19] of String;
  BakimBaslangic: array [0..19] of String;
  BakimBitis: array [0..19] of String;
  BakimAciklama: array [0..19] of String;
  BakimDurum: array [0..19] of String;
  BakimMalzemeText: array [0..19] of String;
  BakimDokumanText: array [0..19] of String;

  BakimCount, SelectedBakimIndex, EditBakimIndex, DeleteBakimIndex: Integer;
  
  TmpIndex, TmpInt1, TmpInt2, TmpInt3, TmpInt4, TmpInt5: Integer;
  
  BakimJson, TmpText: String;




void StyleSurface(APanel: TclProPanel);
{
  APanel.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  APanel.clProSettings.BorderColor = clAlphaColor.clLtGray;
  APanel.clProSettings.BorderWidth = 1;
  APanel.clProSettings.IsFill = True;
  APanel.clProSettings.IsRound = True;
  APanel.clProSettings.RoundHeight = 12;
  APanel.clProSettings.RoundWidth = 12;
  APanel.SetclProSettings(APanel.clProSettings);
}


void StylePrimaryButton(AButton: TClProButton);
{
  AButton.clProSettings.BackgroundColor = clAlphaColor.clSteelblue;
  AButton.clProSettings.FontColor = clAlphaColor.clWhite;
  AButton.clProSettings.BorderColor = clAlphaColor.clSteelblue;
  AButton.clProSettings.BorderWidth = 1;
  AButton.clProSettings.IsFill = True;
  AButton.clProSettings.IsRound = True;
  AButton.clProSettings.RoundHeight = 10;
  AButton.clProSettings.RoundWidth = 10;
  AButton.clProSettings.FontSize = 12;
  AButton.clProSettings.TextSettings.Font.Style = [fsBold];
  AButton.SetclProSettings(AButton.clProSettings);
}


void StyleNeutralButton(AButton: TClProButton);
{
  AButton.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  AButton.clProSettings.FontColor = clAlphaColor.clNavy;
  AButton.clProSettings.BorderColor = clAlphaColor.clLtGray;
  AButton.clProSettings.BorderWidth = 1;
  AButton.clProSettings.IsFill = True;
  AButton.clProSettings.IsRound = True;
  AButton.clProSettings.RoundHeight = 10;
  AButton.clProSettings.RoundWidth = 10;
  AButton.clProSettings.FontSize = 12;
  AButton.clProSettings.TextSettings.Font.Style = [fsBold];
  AButton.SetclProSettings(AButton.clProSettings);
}


void StyleDangerButton(AButton: TClProButton);
{
  AButton.clProSettings.BackgroundColor = clAlphaColor.clCrimson;
  AButton.clProSettings.FontColor = clAlphaColor.clWhite;
  AButton.clProSettings.BorderColor = clAlphaColor.clCrimson;
  AButton.clProSettings.BorderWidth = 1;
  AButton.clProSettings.IsFill = True;
  AButton.clProSettings.IsRound = True;
  AButton.clProSettings.RoundHeight = 10;
  AButton.clProSettings.RoundWidth = 10;
  AButton.clProSettings.FontSize = 12;
  AButton.clProSettings.TextSettings.Font.Style = [fsBold];
  AButton.SetclProSettings(AButton.clProSettings);
}


void StyleSuccessButton(AButton: TClProButton);
{
  AButton.clProSettings.BackgroundColor = clAlphaColor.clMediumseagreen;
  AButton.clProSettings.FontColor = clAlphaColor.clWhite;
  AButton.clProSettings.BorderColor = clAlphaColor.clMediumseagreen;
  AButton.clProSettings.BorderWidth = 1;
  AButton.clProSettings.IsFill = True;
  AButton.clProSettings.IsRound = True;
  AButton.clProSettings.RoundHeight = 10;
  AButton.clProSettings.RoundWidth = 10;
  AButton.clProSettings.FontSize = 12;
  AButton.clProSettings.TextSettings.Font.Style = [fsBold];
  AButton.SetclProSettings(AButton.clProSettings);
}


void StyleInputPanel(APanel: TclProPanel);
{
  APanel.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  APanel.clProSettings.BorderColor = clAlphaColor.clLtGray;
  APanel.clProSettings.BorderWidth = 1;
  APanel.clProSettings.IsFill = True;
  APanel.clProSettings.IsRound = True;
  APanel.clProSettings.RoundHeight = 10;
  APanel.clProSettings.RoundWidth = 10;
  APanel.SetclProSettings(APanel.clProSettings);
}


void StyleInputLabel(ALabel: TClProLabel);
{
  ALabel.clProSettings.FontColor = clAlphaColor.clNavy;
  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.clLtGray;
  AEdit.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  AEdit.clProSettings.BorderWidth = 1;
  AEdit.clProSettings.IsFill = True;
  AEdit.clProSettings.IsRound = True;
  AEdit.clProSettings.RoundHeight = 8;
  AEdit.clProSettings.RoundWidth = 8;
  AEdit.SetclProSettings(AEdit.clProSettings);
}


function ShortText(Value: String): String;
{
  Value = Trim(Value);

  if (Length(Value) > 80)
    result = Copy(Value, 1, 80) + '...'
  else
    result = Value;
}


function HasJsonUnsafeChar(Value: String): Boolean;
{
  result = False;

  if (Pos('"', Value) > 0)
    result = True;
}


function IsDateTimeTextValid(Value: String): Boolean;
{
  result = False;
  Value = Trim(Value);

  if (Length(Value) <> 16)
    Exit;

  if (Copy(Value, 3, 1) <> '.')
    Exit;

  if (Copy(Value, 6, 1) <> '.')
    Exit;

  if (Copy(Value, 11, 1) <> ' ')
    Exit;

  if (Copy(Value, 14, 1) <> ':')
    Exit;

  TmpInt1 = StrToIntDef(Copy(Value, 1, 2), -1);
  TmpInt2 = StrToIntDef(Copy(Value, 4, 2), -1);
  TmpInt3 = StrToIntDef(Copy(Value, 7, 4), -1);
  TmpInt4 = StrToIntDef(Copy(Value, 12, 2), -1);
  TmpInt5 = StrToIntDef(Copy(Value, 15, 2), -1);

  if (TmpInt1 < 1)
    Exit;

  if (TmpInt1 > 31)
    Exit;

  if (TmpInt2 < 1)
    Exit;

  if (TmpInt2 > 12)
    Exit;

  if (TmpInt3 < 2000)
    Exit;

  if (TmpInt4 < 0)
    Exit;

  if (TmpInt4 > 23)
    Exit;

  if (TmpInt5 < 0)
    Exit;

  if (TmpInt5 > 59)
    Exit;

  result = True;
}


void FillDemoRecord(AIndex: Integer; ABelgeNo, ATarih, ATip, ATur, AKod, AMakine, ABaglanti, ABaslangic, ABitis, AAciklama, ADurum, AMalzeme, ADokuman: String);
{
  BakimBelgeNo[AIndex] = ABelgeNo;
  BakimTarih[AIndex] = ATarih;
  BakimTipi[AIndex] = ATip;
  BakimTuru[AIndex] = ATur;
  BakimKodu[AIndex] = AKod;
  BakimMakineKodu[AIndex] = AMakine;
  BakimBaglanti[AIndex] = ABaglanti;
  BakimBaslangic[AIndex] = ABaslangic;
  BakimBitis[AIndex] = ABitis;
  BakimAciklama[AIndex] = AAciklama;
  BakimDurum[AIndex] = ADurum;
  BakimMalzemeText[AIndex] = AMalzeme;
  BakimDokumanText[AIndex] = ADokuman;
}


void LoadDemoData;
{
  BakimCount = 5;

  FillDemoRecord(1,
    'BKM-2026-001',
    '08.04.2026',
    'Planli',
    'Periyodik',
    'PRD-01',
    'PRES-01',
    'Hat 1 Motor Grubu',
    '08.04.2026 09:00',
    '08.04.2026 11:10',
    'Aylik kontrol ve rulman sesi kontrolu yapildi.',
    'Tamamlandi',
    'Rulman - 2 Adet' + #13#10 + 'Kayis Spreyi - 1 Adet',
    'Kontrol_Formu_001.pdf' + #13#10 + 'Motor_Fotografi_001.jpg');

  FillDemoRecord(2,
    'BKM-2026-002',
    '11.04.2026',
    'Planli',
    'Koruyucu',
    'KRN-12',
    'KONV-03',
    'Hat 2 Tasiyici Bant',
    '11.04.2026 14:15',
    '11.04.2026 16:00',
    'Konveyor gerginligi ayarlandi ve emniyet muhafazasi kontrol edildi.',
    'Tamamlandi',
    'Rulo Civatasi - 6 Adet' + #13#10 + 'Gres - 1 Tup',
    'Bakim_Raporu_002.pdf');

  FillDemoRecord(3,
    'BKM-2026-003',
    '15.04.2026',
    'Plansiz',
    'Duzeltici',
    'HYD-05',
    'HIDROLIK-02',
    'Pres Yaglama Devresi',
    '15.04.2026 10:20',
    '15.04.2026 13:30',
    'Hidrolik hortum degisimi yapildi ve sizdirmazlik testi tamamlandi.',
    'Tamamlandi',
    'Hidrolik Hortum - 1 Adet' + #13#10 + 'Conta Takimi - 1 Set',
    'Sizdirmazlik_Test_003.pdf');

  FillDemoRecord(4,
    'BKM-2026-004',
    '18.04.2026',
    'Planli',
    'Periyodik',
    'FAN-07',
    'FAN-07',
    'Ikincil Sogutma Unitesi',
    '18.04.2026 08:40',
    '18.04.2026 10:00',
    'Fan kanatlarinda toz birikmesi temizlendi ve titresim degeri duzeldi.',
    'Devam Ediyor',
    'Temizlik Spreyi - 2 Adet' + #13#10 + 'Filtre - 1 Adet',
    'Temizlik_Kaydi_004.pdf');

  FillDemoRecord(5,
    'BKM-2026-005',
    '21.04.2026',
    'Planli',
    'Periyodik',
    'PKT-09',
    'PAKET-09',
    'Paketleme Istasyonu',
    '21.04.2026 09:30',
    '21.04.2026 12:00',
    'Sensor kalibrasyonu ve emniyet switch testleri planlandi.',
    'Planlandi',
    'Sensor - 2 Adet' + #13#10 + 'Kablo Baglanti Seti - 1 Paket',
    'Kalibrasyon_Formu_005.pdf');
}


void HideMainViews;
{
  PnlHome.Visible = False;
  PnlBakimRoot.Visible = False;
}


void HideBakimSubPages;
{
  PnlBakimListPage.Visible = False;
  PnlBakimFormPage.Visible = False;
  PnlBakimDetailPage.Visible = False;
}


void UpdateSelectionInfo;
{
  if (SelectedBakimIndex <= 0)
  {
    LblSelectedInfo.Caption = 'Secili kayit yok. Liste uzerinden bir bakim kaydi seciniz.';
  }
  else
  {
    LblSelectedInfo.Caption =
      'Belge No: ' + BakimBelgeNo[SelectedBakimIndex] + '  |  Makine: ' + BakimMakineKodu[SelectedBakimIndex] + #13#10 +
      'Durum: ' + BakimDurum[SelectedBakimIndex] + '  |  Baslangic: ' + BakimBaslangic[SelectedBakimIndex] + '  |  Bitis: ' + BakimBitis[SelectedBakimIndex];
  }
}


void BuildBakimJson;
{
  BakimJson = '[';

  for (TmpIndex = BakimCount downto 1)
  {
    if (BakimJson <> '[')
      BakimJson = BakimJson + ',';

    BakimJson = BakimJson +
      '{"RECORD_GUID":"' + IntToStr(TmpIndex) +
      '","MAIN_TEXT":"' + BakimBelgeNo[TmpIndex] +
      '","SUB_TEXT":"' + BakimMakineKodu[TmpIndex] + ' | ' + BakimTipi[TmpIndex] + ' / ' + BakimTuru[TmpIndex] +
      '","SIDE_TEXT_TOP":"' + BakimTarih[TmpIndex] +
      '","SIDE_TEXT_CENTER":"' + BakimDurum[TmpIndex] +
      '","SIDE_TEXT_BOTTOM":"' + BakimBaslangic[TmpIndex] +
      '","FOOTER_TEXT":"' + BakimBitis[TmpIndex] + '"}';
  }

  BakimJson = BakimJson + ']';
}


void RefreshBakimList;
{
  UpdateSelectionInfo;

  if (BakimCount <= 0)
  {
    LblEmptyInfo.Visible = True;
    LblEmptyInfo.Caption = 'Bakim kaydi bulunmuyor. Yeni Fis ile kayit olusturabilirsiniz.';
    ListBakim.Visible = False;
    Exit;
  }

  LblEmptyInfo.Visible = False;
  ListBakim.Visible = True;

  BuildBakimJson;
  ListBakim.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON(BakimJson));
}


void ShowBakimListPage;
{
  HideBakimSubPages;
  PnlBakimHeader.Visible = True;
  PnlBakimActionBar.Visible = True;
  PnlBakimListPage.Visible = True;
  RefreshBakimList;
}


void ShowBakimFormPage;
{
  HideBakimSubPages;
  PnlBakimHeader.Visible = False;
  PnlBakimActionBar.Visible = False;
  PnlBakimFormPage.Visible = True;
}


void ShowBakimDetailPage;
{
  HideBakimSubPages;
  PnlBakimHeader.Visible = False;
  PnlBakimActionBar.Visible = False;
  PnlBakimDetailPage.Visible = True;
}


void GoHome;
{
  HideMainViews;
  BtnBack.Visible = False;
  LblNavTitle.Caption = 'Makine Bakim ve Onarim Yonetim Sistemi';
  PnlHome.Visible = True;
}


void OpenBakimHareketleri;
{
  HideMainViews;
  BtnBack.Visible = True;
  LblNavTitle.Caption = 'Bakim Hareketleri';
  PnlBakimRoot.Visible = True;


  ShowBakimListPage;
}


void OpenFiltre;
{
  Clomosy.RunUnit('uFiltre');
}


void OpenAriza;
{
  Clomosy.RunUnit('uAriza');
}


void OpenBekleyenler;
{
  Clomosy.RunUnit('uBekleyenler');
}


void SelectBakimKaydi;
{
  SelectedBakimIndex = StrToIntDef(ListBakim.clSelectedItemData('RECORD_GUID'), 0);
  RefreshBakimList;
}


void ClearBakimForm;
{
  EdtBelgeNo.Text = '';
  EdtTarih.Text = '';
  EdtBakimTipi.Text = '';
  EdtBakimTuru.Text = '';
  EdtBakimKodu.Text = '';
  EdtMakineKodu.Text = '';
  EdtBaglanti.Text = '';
  EdtBaslangic.Text = '';
  EdtBitis.Text = '';
  MemAciklama.Lines.Text = '';
}


void FillFormFromRecord;
{
  if (EditBakimIndex <= 0)
    Exit;

  EdtBelgeNo.Text = BakimBelgeNo[EditBakimIndex];
  EdtTarih.Text = BakimTarih[EditBakimIndex];
  EdtBakimTipi.Text = BakimTipi[EditBakimIndex];
  EdtBakimTuru.Text = BakimTuru[EditBakimIndex];
  EdtBakimKodu.Text = BakimKodu[EditBakimIndex];
  EdtMakineKodu.Text = BakimMakineKodu[EditBakimIndex];
  EdtBaglanti.Text = BakimBaglanti[EditBakimIndex];
  EdtBaslangic.Text = BakimBaslangic[EditBakimIndex];
  EdtBitis.Text = BakimBitis[EditBakimIndex];
  MemAciklama.Lines.Text = BakimAciklama[EditBakimIndex];
}


function ValidateBakimForm: Boolean;
{
  result = False;

  if (Trim(EdtBelgeNo.Text) == '')
  {
    ShowMessage('Belge No zorunludur.');
    Exit;
  }

  if (Trim(EdtMakineKodu.Text) == '')
  {
    ShowMessage('Makine Kodu zorunludur.');
    Exit;
  }

  if (Trim(EdtBaslangic.Text) == '')
  {
    ShowMessage('Baslangic Tarihi / Saat zorunludur.');
    Exit;
  }

  if (Trim(EdtBitis.Text) == '')
  {
    ShowMessage('Bitis Tarihi / Saat zorunludur.');
    Exit;
  }

  if (not IsDateTimeTextValid(EdtBaslangic.Text))
  {
    ShowMessage('Baslangic bilgisi GG.AA.YYYY SS:DD formatinda olmali.');
    Exit;
  }

  if (not IsDateTimeTextValid(EdtBitis.Text))
  {
    ShowMessage('Bitis bilgisi GG.AA.YYYY SS:DD formatinda olmali.');
    Exit;
  }

  if (HasJsonUnsafeChar(EdtBelgeNo.Text))
  {
    ShowMessage('Belge No alaninda cift tirnak kullanmayiniz.');
    Exit;
  }

  if (HasJsonUnsafeChar(EdtMakineKodu.Text))
  {
    ShowMessage('Makine Kodu alaninda cift tirnak kullanmayiniz.');
    Exit;
  }

  result = True;
}


void YeniFis;
{
  EditBakimIndex = 0;
  LblBakimFormTitle.Caption = 'Yeni Bakim Fisi';
  ClearBakimForm;
  ShowBakimFormPage;
}


void GuncelleFis;
{
  if (SelectedBakimIndex <= 0)
  {
    ShowMessage('Guncellemek icin once bir kayit seciniz.');
    Exit;
  }

  EditBakimIndex = SelectedBakimIndex;
  LblBakimFormTitle.Caption = 'Bakim Fisini Guncelle';
  FillFormFromRecord;
  ShowBakimFormPage;
}


void VazgecFis;
{
  ShowBakimListPage;
}


void KaydetFis;
{
  if (not ValidateBakimForm)
    Exit;

  if (EditBakimIndex == 0)
  {
    if (BakimCount >= 20)
    {
      ShowMessage('Maksimum bakim kaydi sayisina ulasildi.');
      Exit;
    }

    BakimCount = BakimCount + 1;
    EditBakimIndex = BakimCount;
    BakimDurum[EditBakimIndex] = 'Planlandi';
    BakimMalzemeText[EditBakimIndex] = 'Malzeme girisi bekleniyor.';
    BakimDokumanText[EditBakimIndex] = 'Dokuman eklenmedi.';
  }

  BakimBelgeNo[EditBakimIndex] = Trim(EdtBelgeNo.Text);
  BakimTarih[EditBakimIndex] = Trim(EdtTarih.Text);
  if (BakimTarih[EditBakimIndex] == '')
    BakimTarih[EditBakimIndex] = Copy(Trim(EdtBaslangic.Text), 1, 10);

  BakimTipi[EditBakimIndex] = Trim(EdtBakimTipi.Text);
  BakimTuru[EditBakimIndex] = Trim(EdtBakimTuru.Text);
  BakimKodu[EditBakimIndex] = Trim(EdtBakimKodu.Text);
  BakimMakineKodu[EditBakimIndex] = Trim(EdtMakineKodu.Text);
  BakimBaglanti[EditBakimIndex] = Trim(EdtBaglanti.Text);
  BakimBaslangic[EditBakimIndex] = Trim(EdtBaslangic.Text);
  BakimBitis[EditBakimIndex] = Trim(EdtBitis.Text);
  BakimAciklama[EditBakimIndex] = Trim(MemAciklama.Lines.Text);

  SelectedBakimIndex = EditBakimIndex;
  ShowBakimListPage;
}


void AskDeleteFis;
{
  if (SelectedBakimIndex <= 0)
  {
    ShowMessage('Silmek icin once bir kayit seciniz.');
    Exit;
  }

  DeleteBakimIndex = SelectedBakimIndex;
  Clomosy.AskAndCall('Secili bakim kaydi silinsin mi?', 'ConfirmDeleteFis', 'CancelDeleteFis');
}


void ConfirmDeleteFis;
{
  

  for (TmpIndex = DeleteBakimIndex to BakimCount - 1)
  {
    BakimBelgeNo[TmpIndex] = BakimBelgeNo[TmpIndex + 1];
    BakimTarih[TmpIndex] = BakimTarih[TmpIndex + 1];
    BakimTipi[TmpIndex] = BakimTipi[TmpIndex + 1];
    BakimTuru[TmpIndex] = BakimTuru[TmpIndex + 1];
    BakimKodu[TmpIndex] = BakimKodu[TmpIndex + 1];
    BakimMakineKodu[TmpIndex] = BakimMakineKodu[TmpIndex + 1];
    BakimBaglanti[TmpIndex] = BakimBaglanti[TmpIndex + 1];
    BakimBaslangic[TmpIndex] = BakimBaslangic[TmpIndex + 1];
    BakimBitis[TmpIndex] = BakimBitis[TmpIndex + 1];
    BakimAciklama[TmpIndex] = BakimAciklama[TmpIndex + 1];
    BakimDurum[TmpIndex] = BakimDurum[TmpIndex + 1];
    BakimMalzemeText[TmpIndex] = BakimMalzemeText[TmpIndex + 1];
    BakimDokumanText[TmpIndex] = BakimDokumanText[TmpIndex + 1];
  }

  BakimCount = BakimCount - 1;

  if (BakimCount == 0)
    SelectedBakimIndex = 0
  else if (DeleteBakimIndex > BakimCount)
    SelectedBakimIndex = BakimCount
  else
    SelectedBakimIndex = DeleteBakimIndex;

  ShowBakimListPage;
}


void CancelDeleteFis;
{
}


void TamamlaFis;
{
  if (SelectedBakimIndex <= 0)
  {
    ShowMessage('Tamamlamak icin once bir kayit seciniz.');
    Exit;
  }

  BakimDurum[SelectedBakimIndex] = 'Tamamlandi';
  RefreshBakimList;
}


void YazdirFis;
{
  if (SelectedBakimIndex <= 0)
  {
    ShowMessage('Yazdirmak icin once bir kayit seciniz.');
    Exit;
  }

  TmpText =
 'Belge No: ' + BakimBelgeNo[SelectedBakimIndex] + Chr(13) + Chr(10) +
 'Tarih: ' + BakimTarih[SelectedBakimIndex] + Chr(13) + Chr(10) +
 'Bakim Tipi: ' + BakimTipi[SelectedBakimIndex] + Chr(13) + Chr(10) +
 'Bakim Turu: ' + BakimTuru[SelectedBakimIndex] + Chr(13) + Chr(10) +
 'Bakim Kodu: ' + BakimKodu[SelectedBakimIndex] + Chr(13) + Chr(10) +
 'Makine Kodu: ' + BakimMakineKodu[SelectedBakimIndex] + Chr(13) + Chr(10) +
 'Baglanti: ' + BakimBaglanti[SelectedBakimIndex] + Chr(13) + Chr(10) +
 'Baslangic: ' + BakimBaslangic[SelectedBakimIndex] + Chr(13) + Chr(10) +
 'Bitis: ' + BakimBitis[SelectedBakimIndex] + Chr(13) + Chr(10) +
 'Aciklama: ' + BakimAciklama[SelectedBakimIndex];

  ShowMessage(TmpText);
}


void ShowMalzemeler;
{
  if (SelectedBakimIndex <= 0)
  {
    ShowMessage('Malzeme listesini acmak icin once bir kayit seciniz.');
    Exit;
  }

  LblDetailTitle.Caption = 'Malzemeler - ' + BakimBelgeNo[SelectedBakimIndex];
  MemDetail.Lines.Text = BakimMalzemeText[SelectedBakimIndex];
  ShowBakimDetailPage;
}


void ShowDokuman;
{
  if (SelectedBakimIndex <= 0)
  {
    ShowMessage('Dokuman alanini acmak icin once bir kayit seciniz.');
    Exit;
  }

  LblDetailTitle.Caption = 'Dokuman - ' + BakimBelgeNo[SelectedBakimIndex];
  MemDetail.Lines.Text = BakimDokumanText[SelectedBakimIndex];
  ShowBakimDetailPage;
}


void CloseDetail;
{
  ShowBakimListPage;
}


{
  MainForm = TclForm.Create(Self);

  LoadDemoData;
  SelectedBakimIndex = BakimCount;
  EditBakimIndex = 0;
  DeleteBakimIndex = 0;

  PnlNavBar = MainForm.AddNewProPanel(MainForm, 'PnlNavBar');
  PnlNavBar.Align = alTop;
  PnlNavBar.Height = 68;
  PnlNavBar.clProSettings.BackgroundColor = clAlphaColor.clNavy;
  PnlNavBar.clProSettings.BorderWidth = 0;
  PnlNavBar.clProSettings.IsFill = True;
  PnlNavBar.SetclProSettings(PnlNavBar.clProSettings);

  BtnBack = MainForm.AddNewProButton(PnlNavBar, 'BtnBack', '<');
  BtnBack.Align = alLeft;
  BtnBack.Width = 50;
  BtnBack.Margins.Left = 12;
  BtnBack.Margins.Top = 12;
  BtnBack.Margins.Bottom = 12;
  StyleNeutralButton(BtnBack);
  MainForm.AddNewEvent(BtnBack, tbeOnClick, 'GoHome');

  LblNavTitle = MainForm.AddNewProLabel(PnlNavBar, 'LblNavTitle', 'Makine Bakim ve Onarim Yonetim Sistemi');
  LblNavTitle.Align = alClient;
  LblNavTitle.Margins.Left = 14;
  LblNavTitle.clProSettings.FontColor = clAlphaColor.clWhite;
  LblNavTitle.clProSettings.FontSize = 18;
  LblNavTitle.clProSettings.WordWrap = True;
  LblNavTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblNavTitle.SetclProSettings(LblNavTitle.clProSettings);

  PnlHome = MainForm.AddNewProPanel(MainForm, 'PnlHome');
  PnlHome.Align = alClient;
  PnlHome.clProSettings.BackgroundColor = clAlphaColor.clWhitesmoke;
  PnlHome.clProSettings.BorderWidth = 0;
  PnlHome.clProSettings.IsFill = True;
  PnlHome.SetclProSettings(PnlHome.clProSettings);

  LblHomeTitle = MainForm.AddNewProLabel(PnlHome, 'LblHomeTitle', 'Ana Menu');
  LblHomeTitle.Align = alTop;
  LblHomeTitle.Height = 48;
  LblHomeTitle.Margins.Top = 20;
  LblHomeTitle.Margins.Left = 18;
  LblHomeTitle.clProSettings.FontColor = clAlphaColor.clNavy;
  LblHomeTitle.clProSettings.FontSize = 22;
  LblHomeTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblHomeTitle.SetclProSettings(LblHomeTitle.clProSettings);

  BtnMenuFiltre = MainForm.AddNewProButton(PnlHome, 'BtnMenuFiltre', 'Filtre');
  BtnMenuFiltre.Align = alTop;
  BtnMenuFiltre.Height = 82;
  BtnMenuFiltre.Margins.Top = 18;
  BtnMenuFiltre.Margins.Left = 18;
  BtnMenuFiltre.Margins.Right = 18;
  StyleNeutralButton(BtnMenuFiltre);
  MainForm.AddNewEvent(BtnMenuFiltre, tbeOnClick, 'OpenFiltre');

  BtnMenuBakim = MainForm.AddNewProButton(PnlHome, 'BtnMenuBakim', 'Bakim Hareketleri');
  BtnMenuBakim.Align = alTop;
  BtnMenuBakim.Height = 82;
  BtnMenuBakim.Margins.Top = 14;
  BtnMenuBakim.Margins.Left = 18;
  BtnMenuBakim.Margins.Right = 18;
  StylePrimaryButton(BtnMenuBakim);
  MainForm.AddNewEvent(BtnMenuBakim, tbeOnClick, 'OpenBakimHareketleri');

  BtnMenuAriza = MainForm.AddNewProButton(PnlHome, 'BtnMenuAriza', 'Ariza');
  BtnMenuAriza.Align = alTop;
  BtnMenuAriza.Height = 82;
  BtnMenuAriza.Margins.Top = 14;
  BtnMenuAriza.Margins.Left = 18;
  BtnMenuAriza.Margins.Right = 18;
  StyleNeutralButton(BtnMenuAriza);
  MainForm.AddNewEvent(BtnMenuAriza, tbeOnClick, 'OpenAriza');

  BtnMenuBekleyenler = MainForm.AddNewProButton(PnlHome, 'BtnMenuBekleyenler', 'Bekleyenler');
  BtnMenuBekleyenler.Align = alTop;
  BtnMenuBekleyenler.Height = 82;
  BtnMenuBekleyenler.Margins.Top = 14;
  BtnMenuBekleyenler.Margins.Left = 18;
  BtnMenuBekleyenler.Margins.Right = 18;
  StyleNeutralButton(BtnMenuBekleyenler);
  MainForm.AddNewEvent(BtnMenuBekleyenler, tbeOnClick, 'OpenBekleyenler');

  PnlBakimRoot = MainForm.AddNewProPanel(MainForm, 'PnlBakimRoot');
  PnlBakimRoot.Align = alClient;
  PnlBakimRoot.clProSettings.BackgroundColor = clAlphaColor.clWhitesmoke;
  PnlBakimRoot.clProSettings.BorderWidth = 0;
  PnlBakimRoot.clProSettings.IsFill = True;
  PnlBakimRoot.SetclProSettings(PnlBakimRoot.clProSettings);

  PnlBakimHeader = MainForm.AddNewProPanel(PnlBakimRoot, 'PnlBakimHeader');
  PnlBakimHeader.Align = alTop;
  PnlBakimHeader.Height = 108;
  PnlBakimHeader.Margins.Top = 10;
  PnlBakimHeader.Margins.Left = 12;
  PnlBakimHeader.Margins.Right = 12;
  StyleSurface(PnlBakimHeader);

  BtnSilFis = MainForm.AddNewProButton(PnlBakimHeader, 'BtnSilFis', 'Sil');
  BtnSilFis.Align = alRight;
  BtnSilFis.Width = 76;
  BtnSilFis.Margins.Right = 10;
  BtnSilFis.Margins.Top = 10;
  BtnSilFis.Margins.Bottom = 10;
  StyleDangerButton(BtnSilFis);
  MainForm.AddNewEvent(BtnSilFis, tbeOnClick, 'AskDeleteFis');

  BtnGuncelleFis = MainForm.AddNewProButton(PnlBakimHeader, 'BtnGuncelleFis', 'Guncelle');
  BtnGuncelleFis.Align = alRight;
  BtnGuncelleFis.Width = 100;
  BtnGuncelleFis.Margins.Right = 8;
  BtnGuncelleFis.Margins.Top = 10;
  BtnGuncelleFis.Margins.Bottom = 10;
  StyleNeutralButton(BtnGuncelleFis);
  MainForm.AddNewEvent(BtnGuncelleFis, tbeOnClick, 'GuncelleFis');

  LblBakimTitle = MainForm.AddNewProLabel(PnlBakimHeader, 'LblBakimTitle', 'Bakim Listesi');
  LblBakimTitle.Align = alTop;
  LblBakimTitle.Height = 28;
  LblBakimTitle.Margins.Top = 8;
  LblBakimTitle.Margins.Left = 10;
  LblBakimTitle.clProSettings.FontColor = clAlphaColor.clNavy;
  LblBakimTitle.clProSettings.FontSize = 16;
  LblBakimTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblBakimTitle.SetclProSettings(LblBakimTitle.clProSettings);

  LblSelectedInfo = MainForm.AddNewProLabel(PnlBakimHeader, 'LblSelectedInfo', '');
  LblSelectedInfo.Align = alClient;
  LblSelectedInfo.Margins.Left = 10;
  LblSelectedInfo.Margins.Right = 8;
  LblSelectedInfo.Margins.Bottom = 10;
  LblSelectedInfo.clProSettings.FontColor = clAlphaColor.clBlack;
  LblSelectedInfo.clProSettings.FontSize = 11;
  LblSelectedInfo.clProSettings.WordWrap = True;
  LblSelectedInfo.SetclProSettings(LblSelectedInfo.clProSettings);

  PnlBakimActionBar = MainForm.AddNewProPanel(PnlBakimRoot, 'PnlBakimActionBar');
  PnlBakimActionBar.Align = alBottom;
  PnlBakimActionBar.Height = 104;
  PnlBakimActionBar.Margins.Left = 12;
  PnlBakimActionBar.Margins.Right = 12;
  PnlBakimActionBar.Margins.Bottom = 12;
  StyleSurface(PnlBakimActionBar);

  BtnYeniFis = MainForm.AddNewProButton(PnlBakimActionBar, 'BtnYeniFis', 'Yeni Fis');
  BtnYeniFis.Align = alLeft;
  BtnYeniFis.Width = 96;
  BtnYeniFis.Margins.Left = 10;
  BtnYeniFis.Margins.Top = 12;
  BtnYeniFis.Margins.Bottom = 12;
  StylePrimaryButton(BtnYeniFis);
  MainForm.AddNewEvent(BtnYeniFis, tbeOnClick, 'YeniFis');

  BtnMalzemeler = MainForm.AddNewProButton(PnlBakimActionBar, 'BtnMalzemeler', 'Malzemeler');
  BtnMalzemeler.Align = alLeft;
  BtnMalzemeler.Width = 112;
  BtnMalzemeler.Margins.Left = 8;
  BtnMalzemeler.Margins.Top = 12;
  BtnMalzemeler.Margins.Bottom = 12;
  StyleNeutralButton(BtnMalzemeler);
  MainForm.AddNewEvent(BtnMalzemeler, tbeOnClick, 'ShowMalzemeler');

  BtnDokuman = MainForm.AddNewProButton(PnlBakimActionBar, 'BtnDokuman', 'Dokuman');
  BtnDokuman.Align = alLeft;
  BtnDokuman.Width = 102;
  BtnDokuman.Margins.Left = 8;
  BtnDokuman.Margins.Top = 12;
  BtnDokuman.Margins.Bottom = 12;
  StyleNeutralButton(BtnDokuman);
  MainForm.AddNewEvent(BtnDokuman, tbeOnClick, 'ShowDokuman');

  BtnTamamla = MainForm.AddNewProButton(PnlBakimActionBar, 'BtnTamamla', 'Tamamla');
  BtnTamamla.Align = alRight;
  BtnTamamla.Width = 96;
  BtnTamamla.Margins.Right = 10;
  BtnTamamla.Margins.Top = 12;
  BtnTamamla.Margins.Bottom = 12;
  StyleSuccessButton(BtnTamamla);
  MainForm.AddNewEvent(BtnTamamla, tbeOnClick, 'TamamlaFis');

  BtnYazdir = MainForm.AddNewProButton(PnlBakimActionBar, 'BtnYazdir', 'Yazdir');
  BtnYazdir.Align = alRight;
  BtnYazdir.Width = 92;
  BtnYazdir.Margins.Right = 8;
  BtnYazdir.Margins.Top = 12;
  BtnYazdir.Margins.Bottom = 12;
  StyleNeutralButton(BtnYazdir);
  MainForm.AddNewEvent(BtnYazdir, tbeOnClick, 'YazdirFis');

  PnlBakimListPage = MainForm.AddNewProPanel(PnlBakimRoot, 'PnlBakimListPage');
  PnlBakimListPage.Align = alClient;
  PnlBakimListPage.clProSettings.BackgroundColor = clAlphaColor.clWhitesmoke;
  PnlBakimListPage.clProSettings.BorderWidth = 0;
  PnlBakimListPage.clProSettings.IsFill = True;
  PnlBakimListPage.SetclProSettings(PnlBakimListPage.clProSettings);

  LblEmptyInfo = MainForm.AddNewProLabel(PnlBakimListPage, 'LblEmptyInfo', '');
  LblEmptyInfo.Align = alTop;
  LblEmptyInfo.Height = 40;
  LblEmptyInfo.Margins.Left = 14;
  LblEmptyInfo.Margins.Right = 14;
  LblEmptyInfo.Margins.Top = 8;
  LblEmptyInfo.clProSettings.FontColor = clAlphaColor.clDkGray;
  LblEmptyInfo.clProSettings.WordWrap = True;
  LblEmptyInfo.SetclProSettings(LblEmptyInfo.clProSettings);

  ListBakim = MainForm.AddNewListView(PnlBakimListPage, 'ListBakim');
  ListBakim.Align = alClient;
  ListBakim.Margins.Left = 12;
  ListBakim.Margins.Right = 12;
  ListBakim.Margins.Top = 8;
  ListBakim.Margins.Bottom = 8;
  MainForm.AddNewEvent(ListBakim, tbeOnItemClick, 'SelectBakimKaydi');

  PnlBakimFormPage = MainForm.AddNewProPanel(PnlBakimRoot, 'PnlBakimFormPage');
  PnlBakimFormPage.Align = alClient;
  PnlBakimFormPage.clProSettings.BackgroundColor = clAlphaColor.clWhitesmoke;
  PnlBakimFormPage.clProSettings.BorderWidth = 0;
  PnlBakimFormPage.clProSettings.IsFill = True;
  PnlBakimFormPage.SetclProSettings(PnlBakimFormPage.clProSettings);

  LblBakimFormTitle = MainForm.AddNewProLabel(PnlBakimFormPage, 'LblBakimFormTitle', 'Yeni Bakim Fisi');
  LblBakimFormTitle.Align = alTop;
  LblBakimFormTitle.Height = 38;
  LblBakimFormTitle.Margins.Left = 16;
  LblBakimFormTitle.Margins.Top = 12;
  LblBakimFormTitle.clProSettings.FontColor = clAlphaColor.clNavy;
  LblBakimFormTitle.clProSettings.FontSize = 18;
  LblBakimFormTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblBakimFormTitle.SetclProSettings(LblBakimFormTitle.clProSettings);

  PnlBakimFormFooter = MainForm.AddNewProPanel(PnlBakimFormPage, 'PnlBakimFormFooter');
  PnlBakimFormFooter.Align = alBottom;
  PnlBakimFormFooter.Height = 58;
  PnlBakimFormFooter.Margins.Left = 12;
  PnlBakimFormFooter.Margins.Right = 12;
  PnlBakimFormFooter.Margins.Bottom = 12;
  StyleSurface(PnlBakimFormFooter);

  BtnVazgecFis = MainForm.AddNewProButton(PnlBakimFormFooter, 'BtnVazgecFis', 'Vazgec');
  BtnVazgecFis.Align = alRight;
  BtnVazgecFis.Width = 90;
  BtnVazgecFis.Margins.Right = 10;
  BtnVazgecFis.Margins.Top = 10;
  BtnVazgecFis.Margins.Bottom = 10;
  StyleNeutralButton(BtnVazgecFis);
  MainForm.AddNewEvent(BtnVazgecFis, tbeOnClick, 'VazgecFis');

  BtnKaydetFis = MainForm.AddNewProButton(PnlBakimFormFooter, 'BtnKaydetFis', 'Kaydet');
  BtnKaydetFis.Align = alRight;
  BtnKaydetFis.Width = 90;
  BtnKaydetFis.Margins.Right = 8;
  BtnKaydetFis.Margins.Top = 10;
  BtnKaydetFis.Margins.Bottom = 10;
  StylePrimaryButton(BtnKaydetFis);
  MainForm.AddNewEvent(BtnKaydetFis, tbeOnClick, 'KaydetFis');

  ScrollForm = MainForm.AddNewVertScrollBox(PnlBakimFormPage, 'ScrollForm');
  ScrollForm.Align = alClient;

  GrpBelgeNo = MainForm.AddNewProPanel(ScrollForm, 'GrpBelgeNo');
  GrpBelgeNo.Align = alTop;
  GrpBelgeNo.Height = 82;
  GrpBelgeNo.Margins.Top = 10;
  GrpBelgeNo.Margins.Left = 12;
  GrpBelgeNo.Margins.Right = 12;
  StyleInputPanel(GrpBelgeNo);

  LblBelgeNo = MainForm.AddNewProLabel(GrpBelgeNo, 'LblBelgeNo', 'Belge No *');
  LblBelgeNo.Align = alTop;
  LblBelgeNo.Height = 24;
  LblBelgeNo.Margins.Top = 8;
  LblBelgeNo.Margins.Left = 10;
  StyleInputLabel(LblBelgeNo);

  EdtBelgeNo = MainForm.AddNewProEdit(GrpBelgeNo, 'EdtBelgeNo', 'Belge No');
  EdtBelgeNo.Align = alBottom;
  EdtBelgeNo.Height = 40;
  EdtBelgeNo.Margins.Left = 10;
  EdtBelgeNo.Margins.Right = 10;
  EdtBelgeNo.Margins.Bottom = 8;
  StyleInputEdit(EdtBelgeNo);

  GrpTarih = MainForm.AddNewProPanel(ScrollForm, 'GrpTarih');
  GrpTarih.Align = alTop;
  GrpTarih.Height = 82;
  GrpTarih.Margins.Top = 10;
  GrpTarih.Margins.Left = 12;
  GrpTarih.Margins.Right = 12;
  StyleInputPanel(GrpTarih);

  LblTarih = MainForm.AddNewProLabel(GrpTarih, 'LblTarih', 'Tarih');
  LblTarih.Align = alTop;
  LblTarih.Height = 24;
  LblTarih.Margins.Top = 8;
  LblTarih.Margins.Left = 10;
  StyleInputLabel(LblTarih);

  EdtTarih = MainForm.AddNewProEdit(GrpTarih, 'EdtTarih', 'GG.AA.YYYY');
  EdtTarih.Align = alBottom;
  EdtTarih.Height = 40;
  EdtTarih.Margins.Left = 10;
  EdtTarih.Margins.Right = 10;
  EdtTarih.Margins.Bottom = 8;
  StyleInputEdit(EdtTarih);

  GrpBakimTipi = MainForm.AddNewProPanel(ScrollForm, 'GrpBakimTipi');
  GrpBakimTipi.Align = alTop;
  GrpBakimTipi.Height = 82;
  GrpBakimTipi.Margins.Top = 10;
  GrpBakimTipi.Margins.Left = 12;
  GrpBakimTipi.Margins.Right = 12;
  StyleInputPanel(GrpBakimTipi);

  LblBakimTipi = MainForm.AddNewProLabel(GrpBakimTipi, 'LblBakimTipi', 'Bakim Tipi');
  LblBakimTipi.Align = alTop;
  LblBakimTipi.Height = 24;
  LblBakimTipi.Margins.Top = 8;
  LblBakimTipi.Margins.Left = 10;
  StyleInputLabel(LblBakimTipi);

  EdtBakimTipi = MainForm.AddNewProEdit(GrpBakimTipi, 'EdtBakimTipi', 'Planli veya Plansiz');
  EdtBakimTipi.Align = alBottom;
  EdtBakimTipi.Height = 40;
  EdtBakimTipi.Margins.Left = 10;
  EdtBakimTipi.Margins.Right = 10;
  EdtBakimTipi.Margins.Bottom = 8;
  StyleInputEdit(EdtBakimTipi);

  GrpBakimTuru = MainForm.AddNewProPanel(ScrollForm, 'GrpBakimTuru');
  GrpBakimTuru.Align = alTop;
  GrpBakimTuru.Height = 82;
  GrpBakimTuru.Margins.Top = 10;
  GrpBakimTuru.Margins.Left = 12;
  GrpBakimTuru.Margins.Right = 12;
  StyleInputPanel(GrpBakimTuru);

  LblBakimTuru = MainForm.AddNewProLabel(GrpBakimTuru, 'LblBakimTuru', 'Bakim Turu');
  LblBakimTuru.Align = alTop;
  LblBakimTuru.Height = 24;
  LblBakimTuru.Margins.Top = 8;
  LblBakimTuru.Margins.Left = 10;
  StyleInputLabel(LblBakimTuru);

  EdtBakimTuru = MainForm.AddNewProEdit(GrpBakimTuru, 'EdtBakimTuru', 'Periyodik veya Duzeltici');
  EdtBakimTuru.Align = alBottom;
  EdtBakimTuru.Height = 40;
  EdtBakimTuru.Margins.Left = 10;
  EdtBakimTuru.Margins.Right = 10;
  EdtBakimTuru.Margins.Bottom = 8;
  StyleInputEdit(EdtBakimTuru);

  GrpBakimKodu = MainForm.AddNewProPanel(ScrollForm, 'GrpBakimKodu');
  GrpBakimKodu.Align = alTop;
  GrpBakimKodu.Height = 82;
  GrpBakimKodu.Margins.Top = 10;
  GrpBakimKodu.Margins.Left = 12;
  GrpBakimKodu.Margins.Right = 12;
  StyleInputPanel(GrpBakimKodu);

  LblBakimKodu = MainForm.AddNewProLabel(GrpBakimKodu, 'LblBakimKodu', 'Bakim Kodu');
  LblBakimKodu.Align = alTop;
  LblBakimKodu.Height = 24;
  LblBakimKodu.Margins.Top = 8;
  LblBakimKodu.Margins.Left = 10;
  StyleInputLabel(LblBakimKodu);

  EdtBakimKodu = MainForm.AddNewProEdit(GrpBakimKodu, 'EdtBakimKodu', 'Bakim Kodu');
  EdtBakimKodu.Align = alBottom;
  EdtBakimKodu.Height = 40;
  EdtBakimKodu.Margins.Left = 10;
  EdtBakimKodu.Margins.Right = 10;
  EdtBakimKodu.Margins.Bottom = 8;
  StyleInputEdit(EdtBakimKodu);

  GrpMakineKodu = MainForm.AddNewProPanel(ScrollForm, 'GrpMakineKodu');
  GrpMakineKodu.Align = alTop;
  GrpMakineKodu.Height = 82;
  GrpMakineKodu.Margins.Top = 10;
  GrpMakineKodu.Margins.Left = 12;
  GrpMakineKodu.Margins.Right = 12;
  StyleInputPanel(GrpMakineKodu);

  LblMakineKodu = MainForm.AddNewProLabel(GrpMakineKodu, 'LblMakineKodu', 'Makine Kodu *');
  LblMakineKodu.Align = alTop;
  LblMakineKodu.Height = 24;
  LblMakineKodu.Margins.Top = 8;
  LblMakineKodu.Margins.Left = 10;
  StyleInputLabel(LblMakineKodu);

  EdtMakineKodu = MainForm.AddNewProEdit(GrpMakineKodu, 'EdtMakineKodu', 'Makine Kodu');
  EdtMakineKodu.Align = alBottom;
  EdtMakineKodu.Height = 40;
  EdtMakineKodu.Margins.Left = 10;
  EdtMakineKodu.Margins.Right = 10;
  EdtMakineKodu.Margins.Bottom = 8;
  StyleInputEdit(EdtMakineKodu);

  GrpBaglanti = MainForm.AddNewProPanel(ScrollForm, 'GrpBaglanti');
  GrpBaglanti.Align = alTop;
  GrpBaglanti.Height = 82;
  GrpBaglanti.Margins.Top = 10;
  GrpBaglanti.Margins.Left = 12;
  GrpBaglanti.Margins.Right = 12;
  StyleInputPanel(GrpBaglanti);

  LblBaglanti = MainForm.AddNewProLabel(GrpBaglanti, 'LblBaglanti', 'Bakim Baglantisi');
  LblBaglanti.Align = alTop;
  LblBaglanti.Height = 24;
  LblBaglanti.Margins.Top = 8;
  LblBaglanti.Margins.Left = 10;
  StyleInputLabel(LblBaglanti);

  EdtBaglanti = MainForm.AddNewProEdit(GrpBaglanti, 'EdtBaglanti', 'Bakim Baglantisi');
  EdtBaglanti.Align = alBottom;
  EdtBaglanti.Height = 40;
  EdtBaglanti.Margins.Left = 10;
  EdtBaglanti.Margins.Right = 10;
  EdtBaglanti.Margins.Bottom = 8;
  StyleInputEdit(EdtBaglanti);

  GrpBaslangic = MainForm.AddNewProPanel(ScrollForm, 'GrpBaslangic');
  GrpBaslangic.Align = alTop;
  GrpBaslangic.Height = 82;
  GrpBaslangic.Margins.Top = 10;
  GrpBaslangic.Margins.Left = 12;
  GrpBaslangic.Margins.Right = 12;
  StyleInputPanel(GrpBaslangic);

  LblBaslangic = MainForm.AddNewProLabel(GrpBaslangic, 'LblBaslangic', 'Baslangic Tarihi / Saat *');
  LblBaslangic.Align = alTop;
  LblBaslangic.Height = 24;
  LblBaslangic.Margins.Top = 8;
  LblBaslangic.Margins.Left = 10;
  StyleInputLabel(LblBaslangic);

  EdtBaslangic = MainForm.AddNewProEdit(GrpBaslangic, 'EdtBaslangic', 'GG.AA.YYYY SS:DD');
  EdtBaslangic.Align = alBottom;
  EdtBaslangic.Height = 40;
  EdtBaslangic.Margins.Left = 10;
  EdtBaslangic.Margins.Right = 10;
  EdtBaslangic.Margins.Bottom = 8;
  StyleInputEdit(EdtBaslangic);

  GrpBitis = MainForm.AddNewProPanel(ScrollForm, 'GrpBitis');
  GrpBitis.Align = alTop;
  GrpBitis.Height = 82;
  GrpBitis.Margins.Top = 10;
  GrpBitis.Margins.Left = 12;
  GrpBitis.Margins.Right = 12;
  StyleInputPanel(GrpBitis);

  LblBitis = MainForm.AddNewProLabel(GrpBitis, 'LblBitis', 'Bitis Tarihi / Saat *');
  LblBitis.Align = alTop;
  LblBitis.Height = 24;
  LblBitis.Margins.Top = 8;
  LblBitis.Margins.Left = 10;
  StyleInputLabel(LblBitis);

  EdtBitis = MainForm.AddNewProEdit(GrpBitis, 'EdtBitis', 'GG.AA.YYYY SS:DD');
  EdtBitis.Align = alBottom;
  EdtBitis.Height = 40;
  EdtBitis.Margins.Left = 10;
  EdtBitis.Margins.Right = 10;
  EdtBitis.Margins.Bottom = 8;
  StyleInputEdit(EdtBitis);

  GrpAciklama = MainForm.AddNewProPanel(ScrollForm, 'GrpAciklama');
  GrpAciklama.Align = alTop;
  GrpAciklama.Height = 170;
  GrpAciklama.Margins.Top = 10;
  GrpAciklama.Margins.Left = 12;
  GrpAciklama.Margins.Right = 12;
  GrpAciklama.Margins.Bottom = 18;
  StyleInputPanel(GrpAciklama);

  LblAciklama = MainForm.AddNewProLabel(GrpAciklama, 'LblAciklama', 'Aciklama');
  LblAciklama.Align = alTop;
  LblAciklama.Height = 24;
  LblAciklama.Margins.Top = 8;
  LblAciklama.Margins.Left = 10;
  StyleInputLabel(LblAciklama);

  MemAciklama = MainForm.AddNewMemo(GrpAciklama, 'MemAciklama', 'Aciklama');
  MemAciklama.Align = alClient;
  MemAciklama.Margins.Left = 10;
  MemAciklama.Margins.Right = 10;
  MemAciklama.Margins.Top = 6;
  MemAciklama.Margins.Bottom = 10;

  PnlBakimDetailPage = MainForm.AddNewProPanel(PnlBakimRoot, 'PnlBakimDetailPage');
  PnlBakimDetailPage.Align = alClient;
  PnlBakimDetailPage.clProSettings.BackgroundColor = clAlphaColor.clWhitesmoke;
  PnlBakimDetailPage.clProSettings.BorderWidth = 0;
  PnlBakimDetailPage.clProSettings.IsFill = True;
  PnlBakimDetailPage.SetclProSettings(PnlBakimDetailPage.clProSettings);

  LblDetailTitle = MainForm.AddNewProLabel(PnlBakimDetailPage, 'LblDetailTitle', 'Detay');
  LblDetailTitle.Align = alTop;
  LblDetailTitle.Height = 38;
  LblDetailTitle.Margins.Left = 16;
  LblDetailTitle.Margins.Top = 12;
  LblDetailTitle.clProSettings.FontColor = clAlphaColor.clNavy;
  LblDetailTitle.clProSettings.FontSize = 18;
  LblDetailTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblDetailTitle.SetclProSettings(LblDetailTitle.clProSettings);

  PnlBakimDetailFooter = MainForm.AddNewProPanel(PnlBakimDetailPage, 'PnlBakimDetailFooter');
  PnlBakimDetailFooter.Align = alBottom;
  PnlBakimDetailFooter.Height = 58;
  PnlBakimDetailFooter.Margins.Left = 12;
  PnlBakimDetailFooter.Margins.Right = 12;
  PnlBakimDetailFooter.Margins.Bottom = 12;
  StyleSurface(PnlBakimDetailFooter);

  BtnDetayDon = MainForm.AddNewProButton(PnlBakimDetailFooter, 'BtnDetayDon', 'Listeye Don');
  BtnDetayDon.Align = alRight;
  BtnDetayDon.Width = 120;
  BtnDetayDon.Margins.Right = 10;
  BtnDetayDon.Margins.Top = 10;
  BtnDetayDon.Margins.Bottom = 10;
  StylePrimaryButton(BtnDetayDon);
  MainForm.AddNewEvent(BtnDetayDon, tbeOnClick, 'CloseDetail');

  MemDetail = MainForm.AddNewMemo(PnlBakimDetailPage, 'MemDetail', '');
  MemDetail.Align = alClient;
  MemDetail.Margins.Left = 12;
  MemDetail.Margins.Right = 12;
  MemDetail.Margins.Top = 12;
  MemDetail.Margins.Bottom = 12;
  MemDetail.ReadOnly = True;

  GoHome;
  RefreshBakimList;
  MainForm.Run;
}
 yaptığım mobil uygulamada yeni fiş yazdır gibi kutucuklar birbirine girdi ve  gün ve ay olan kısımda saat ve dk olan yer kodu bozuyor 
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,031 Saniyede Yüklendi.