Sayfayı Yazdır | Pencereyi Kapat

arıza listesi hatası

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1443
Tarih: 18 Nisan 2026 Saat 18:47
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: arıza listesi hatası
Mesajı Yazan: kayra12
Konu: arıza listesi hatası
Mesaj Tarihi: 18 Nisan 2026 Saat 15:12
var
  MyForm: TclForm;

  // PANELLER
  PnlTop, PnlLeft, PnlRight, PnlDetail: TclProPanel;

  // BAŞLIK
  LblTitle: TclProLabel;

  // ARIZA LİSTESİ
  PnlItem1, PnlItem2, PnlItem3: TclProPanel;
  LblItemMakine1, LblItemMakine2, LblItemMakine3: TclProLabel;
  LblItemAriza1, LblItemAriza2, LblItemAriza3: TclProLabel;
  LblItemDurum1, LblItemDurum2, LblItemDurum3: TclProLabel;

  // DETAY
  LblDetayBaslik: TclProLabel;
  EdtMakine, EdtEkip: TclProEdit;
  MemoNeden, MemoCozum: TclMemo;

  // BUTON
  BtnKaydet, BtnYeni: TclProButton;

{
  MyForm = TclForm.Create(Self);
  MyForm.SetFormColor('#EEF2F7', '', clGNone);

  // =========================
  // TOP BAR
  // =========================
  PnlTop = MyForm.AddNewProPanel(MyForm, 'PnlTop');
  PnlTop.Align = alTop;
  PnlTop.Height = 60;
  PnlTop.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F1D1D');
  PnlTop.SetclProSettings(PnlTop.clProSettings);

  LblTitle = MyForm.AddNewProLabel(PnlTop, 'LblTitle', 'ARIZA & TAMİR YÖNETİM SİSTEMİ');
  LblTitle.Align = alClient;
  LblTitle.clProSettings.FontColor = clAlphaColor.clWhite;
  LblTitle.clProSettings.FontSize = 18;
  LblTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblTitle.SetclProSettings(LblTitle.clProSettings);

  // =========================
  // SOL PANEL
  // =========================
  PnlLeft = MyForm.AddNewProPanel(MyForm, 'PnlLeft');
  PnlLeft.Align = alLeft;
  PnlLeft.Width = 320;
  PnlLeft.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F9FAFB');
  PnlLeft.SetclProSettings(PnlLeft.clProSettings);

  // ---------- ITEM 1
  PnlItem1 = MyForm.AddNewProPanel(PnlLeft, 'PnlItem1');
  PnlItem1.Align = alTop;
  PnlItem1.Height = 100;
  PnlItem1.Margins.Top = 10;
  PnlItem1.Margins.Left = 10;
  PnlItem1.Margins.Right = 10;
  PnlItem1.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  PnlItem1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB');
  PnlItem1.clProSettings.BorderWidth = 1;
  PnlItem1.clProSettings.RoundHeight = 10;
  PnlItem1.clProSettings.RoundWidth = 10;
  PnlItem1.SetclProSettings(PnlItem1.clProSettings);

  LblItemMakine1 = MyForm.AddNewProLabel(PnlItem1, 'LblItemMakine1', 'CNC TORNA MK-01');
  LblItemMakine1.Align = alTop;

  LblItemAriza1 = MyForm.AddNewProLabel(PnlItem1, 'LblItemAriza1', 'Motor aşırı ısınma');
  LblItemAriza1.Align = alTop;

  LblItemDurum1 = MyForm.AddNewProLabel(PnlItem1, 'LblItemDurum1', 'Durum: Açık');
  LblItemDurum1.Align = alTop;

  // ---------- ITEM 2
  PnlItem2 = MyForm.AddNewProPanel(PnlLeft, 'PnlItem2');
  PnlItem2.Align = alTop;
  PnlItem2.Height = 100;
  PnlItem2.Margins.Top = 10;
  PnlItem2.Margins.Left = 10;
  PnlItem2.Margins.Right = 10;
  PnlItem2.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  PnlItem2.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB');
  PnlItem2.clProSettings.BorderWidth = 1;
  PnlItem2.clProSettings.RoundHeight = 10;
  PnlItem2.clProSettings.RoundWidth = 10;
  PnlItem2.SetclProSettings(PnlItem2.clProSettings);

  LblItemMakine2 = MyForm.AddNewProLabel(PnlItem2, 'LblItemMakine2', 'KOMPRESÖR KP-02');
  LblItemMakine2.Align = alTop;

  LblItemAriza2 = MyForm.AddNewProLabel(PnlItem2, 'LblItemAriza2', 'Basınç düşüklüğü');
  LblItemAriza2.Align = alTop;

  LblItemDurum2 = MyForm.AddNewProLabel(PnlItem2, 'LblItemDurum2', 'Durum: İşlemde');
  LblItemDurum2.Align = alTop;

  // ---------- ITEM 3
  PnlItem3 = MyForm.AddNewProPanel(PnlLeft, 'PnlItem3');
  PnlItem3.Align = alTop;
  PnlItem3.Height = 100;
  PnlItem3.Margins.Top = 10;
  PnlItem3.Margins.Left = 10;
  PnlItem3.Margins.Right = 10;
  PnlItem3.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  PnlItem3.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB');
  PnlItem3.clProSettings.BorderWidth = 1;
  PnlItem3.clProSettings.RoundHeight = 10;
  PnlItem3.clProSettings.RoundWidth = 10;
  PnlItem3.SetclProSettings(PnlItem3.clProSettings);

  LblItemMakine3 = MyForm.AddNewProLabel(PnlItem3, 'LblItemMakine3', 'LAZER LK-04');
  LblItemMakine3.Align = alTop;

  LblItemAriza3 = MyForm.AddNewProLabel(PnlItem3, 'LblItemAriza3', 'Lens hatası');
  LblItemAriza3.Align = alTop;

  LblItemDurum3 = MyForm.AddNewProLabel(PnlItem3, 'LblItemDurum3', 'Durum: Kapalı');
  LblItemDurum3.Align = alTop;

  // =========================
  // SAĞ PANEL
  // =========================
  PnlRight = MyForm.AddNewProPanel(MyForm, 'PnlRight');
  PnlRight.Align = alClient;
  PnlRight.clProSettings.BackgroundColor = clAlphaColor.clWhite;
  PnlRight.SetclProSettings(PnlRight.clProSettings);

  // DETAY CONTAINER
  PnlDetail = MyForm.AddNewProPanel(PnlRight, 'PnlDetail');
  PnlDetail.Align = alClient;
  PnlDetail.Margins.Left = 10;
  PnlDetail.Margins.Right = 10;
  PnlDetail.Margins.Top = 10;

  // BAŞLIK
  LblDetayBaslik = MyForm.AddNewProLabel(PnlDetail, 'LblDetayBaslik', 'ARIZA DETAY & TAMİR BİLGİSİ');
  LblDetayBaslik.Align = alTop;
  LblDetayBaslik.Height = 40;
  LblDetayBaslik.clProSettings.FontSize = 16;
  LblDetayBaslik.clProSettings.TextSettings.Font.Style = [fsBold];
  LblDetayBaslik.SetclProSettings(LblDetayBaslik.clProSettings);

  // INPUTLAR
  EdtMakine = MyForm.AddNewProEdit(PnlDetail, 'EdtMakine', 'Makine adı');
  EdtMakine.Align = alTop;
  EdtMakine.Margins.Top = 10;

  EdtEkip = MyForm.AddNewProEdit(PnlDetail, 'EdtEkip', 'Onaran ekip');
  EdtEkip.Align = alTop;
  EdtEkip.Margins.Top = 10;

  MemoNeden = MyForm.AddNewMemo(PnlDetail, 'MemoNeden', 'Arıza nedeni (zorunlu)');
  MemoNeden.Align = alTop;
  MemoNeden.Height = 100;
  MemoNeden.Margins.Top = 10;

  MemoCozum = MyForm.AddNewMemo(PnlDetail, 'MemoCozum', 'Nasıl düzeltildi (zorunlu)');
  MemoCozum.Align = alTop;
  MemoCozum.Height = 120;
  MemoCozum.Margins.Top = 10;

  // BUTONLAR
  BtnYeni = MyForm.AddNewProButton(PnlRight, 'BtnYeni', 'YENİ ARIZA EKLE');
  BtnYeni.Align = alBottom;
  BtnYeni.Height = 45;
  BtnYeni.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#374151');
  BtnYeni.clProSettings.FontColor = clAlphaColor.clWhite;
  BtnYeni.SetclProSettings(BtnYeni.clProSettings);

  BtnKaydet = MyForm.AddNewProButton(PnlRight, 'BtnKaydet', 'TAMİRİ KAYDET');
  BtnKaydet.Align = alBottom;
  BtnKaydet.Height = 45;
  BtnKaydet.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#DC2626');
  BtnKaydet.clProSettings.FontColor = clAlphaColor.clWhite;
  BtnKaydet.SetclProSettings(BtnKaydet.clProSettings);

  MyForm.Run;
}. kod şunda çalışıyor ama dinamik olmuyor yardım edermisiniz


https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - 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">



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net