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