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ı: 9 Saat 54 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
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 805 		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ı: 7 Saat 54 Dakika Önce Saat 16:17
Merhaba Kayra Bey, 
Sadece ilgili birimi atmanız yeterli kod tarafında.
Ben çalıştırdığımda .exe de tasarımda bir bozukluk çıkmadı
Mobil için daha farklı ayarlar yapılabilir.  Punto küçülme vs diğer özellikler üzernde oynamadan yeterli 


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,040 Saniyede Yüklendi.