![]() |
| 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. |
arıza listesi hatası |
Yanıt Yaz
|
| Yazar | |
kayra12
Deneyimli Üye
Kayıt Tarihi: 23 Aralık 2024 Durum: Aktif Değil Puanlar: 42 |
Mesaj Seçenekleri
Teşekkürler(0)
Alıntı Cevapla
Konu: arıza listesi hatasıGönderim Zamanı: 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 |
|
![]() |
|
Emr.Erkmn
Moderatör
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 789 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 3 Saat 14 Dakika Önce Saat 09:57 |
|
var MyForm: TclForm; PnlTop, PnlLeft, PnlRight, PnlDetail: TclProPanel; LblTitle: TclProLabel; LeftScroll: TclVertScrollBox; PnlItem1, PnlItem2, PnlItem3: TclProPanel; LblItemMakine1, LblItemMakine2, LblItemMakine3: TclProLabel; LblItemAriza1, LblItemAriza2, LblItemAriza3: TclProLabel; LblItemDurum1, LblItemDurum2, LblItemDurum3: TclProLabel; LblDetayBaslik: TclProLabel; EdtMakine, EdtEkip: TclProEdit; MemoNeden, MemoCozum: TclMemo; BtnKaydet, BtnYeni: TclProButton; { MyForm = TclForm.Create(Self); MyForm.SetFormColor('#EEF2F7', '', clGNone); 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); PnlLeft = MyForm.AddNewProPanel(MyForm, 'PnlLeft'); PnlLeft.Align = alLeft; PnlLeft.Width = 180; PnlLeft.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F9FAFB'); PnlLeft.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB'); PnlLeft.clProSettings.BorderWidth = 1; PnlLeft.SetclProSettings(PnlLeft.clProSettings); LeftScroll = MyForm.AddNewVertScrollBox(PnlLeft, 'LeftScroll'); LeftScroll.Align = alClient; PnlItem1 = MyForm.AddNewProPanel(LeftScroll, '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; LblItemMakine1.Margins.Left = 15; LblItemMakine1.Margins.Top = 10; LblItemMakine1.clProSettings.TextSettings.Font.Style = [fsBold]; LblItemMakine1.SetclProSettings(LblItemMakine1.clProSettings); LblItemAriza1 = MyForm.AddNewProLabel(PnlItem1, 'LblItemAriza1', 'Motor aşırı ısınma'); LblItemAriza1.Align = alTop; LblItemAriza1.Margins.Left = 15; LblItemDurum1 = MyForm.AddNewProLabel(PnlItem1, 'LblItemDurum1', 'Durum: Açık'); LblItemDurum1.Align = alTop; LblItemDurum1.Margins.Left = 15; LblItemDurum1.clProSettings.FontColor = clAlphaColor.clHexToColor('#DC2626'); LblItemDurum1.SetclProSettings(LblItemDurum1.clProSettings); PnlItem2 = MyForm.AddNewProPanel(LeftScroll, '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; LblItemMakine2.Margins.Left = 15; LblItemMakine2.Margins.Top = 10; LblItemMakine2.clProSettings.TextSettings.Font.Style = [fsBold]; LblItemMakine2.SetclProSettings(LblItemMakine2.clProSettings); LblItemAriza2 = MyForm.AddNewProLabel(PnlItem2, 'LblItemAriza2', 'Basınç düşüklüğü'); LblItemAriza2.Align = alTop; LblItemAriza2.Margins.Left = 15; LblItemDurum2 = MyForm.AddNewProLabel(PnlItem2, 'LblItemDurum2', 'Durum: İşlemde'); LblItemDurum2.Align = alTop; LblItemDurum2.Margins.Left = 15; LblItemDurum2.clProSettings.FontColor = clAlphaColor.clHexToColor('#D97706'); LblItemDurum2.SetclProSettings(LblItemDurum2.clProSettings); PnlItem3 = MyForm.AddNewProPanel(LeftScroll, '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; LblItemMakine3.Margins.Left = 15; LblItemMakine3.Margins.Top = 10; LblItemMakine3.clProSettings.TextSettings.Font.Style = [fsBold]; LblItemMakine3.SetclProSettings(LblItemMakine3.clProSettings); LblItemAriza3 = MyForm.AddNewProLabel(PnlItem3, 'LblItemAriza3', 'Lens hatası'); LblItemAriza3.Align = alTop; LblItemAriza3.Margins.Left = 15; LblItemDurum3 = MyForm.AddNewProLabel(PnlItem3, 'LblItemDurum3', 'Durum: Kapalı'); LblItemDurum3.Align = alTop; LblItemDurum3.Margins.Left = 15; LblItemDurum3.clProSettings.FontColor = clAlphaColor.clHexToColor('#059669'); LblItemDurum3.SetclProSettings(LblItemDurum3.clProSettings); PnlRight = MyForm.AddNewProPanel(MyForm, 'PnlRight'); PnlRight.Align = alClient; PnlRight.clProSettings.BackgroundColor = clAlphaColor.clWhite; PnlRight.SetclProSettings(PnlRight.clProSettings); BtnKaydet = MyForm.AddNewProButton(PnlRight, 'BtnKaydet', 'TAMİRİ KAYDET'); BtnKaydet.Align = alBottom; BtnKaydet.Height = 50; BtnKaydet.Margins.top = 15; BtnKaydet.Margins.Left = 15; BtnKaydet.Margins.Right = 15; BtnKaydet.Margins.bottom = 15; BtnKaydet.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#DC2626'); BtnKaydet.clProSettings.FontColor = clAlphaColor.clWhite; BtnKaydet.clProSettings.RoundHeight = 10; BtnKaydet.clProSettings.RoundWidth = 10; BtnKaydet.SetclProSettings(BtnKaydet.clProSettings); BtnYeni = MyForm.AddNewProButton(PnlRight, 'BtnYeni', 'YENİ ARIZA EKLE'); BtnYeni.Align = alBottom; BtnYeni.Height = 50; BtnYeni.Margins.Left = 15; BtnYeni.Margins.Right = 15; BtnYeni.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#374151'); BtnYeni.clProSettings.FontColor = clAlphaColor.clWhite; BtnYeni.clProSettings.RoundHeight = 10; BtnYeni.clProSettings.RoundWidth = 10; BtnYeni.SetclProSettings(BtnYeni.clProSettings); PnlDetail = MyForm.AddNewProPanel(PnlRight, 'PnlDetail'); PnlDetail.Align = alClient; PnlDetail.Margins.top = 20; PnlDetail.Margins.Left = 20; PnlDetail.Margins.Right = 20; PnlDetail.Margins.bottom = 20; LblDetayBaslik = MyForm.AddNewProLabel(PnlDetail, 'LblDetayBaslik', 'ARIZA DETAY & TAMİR BİLGİSİ'); LblDetayBaslik.Align = alTop; LblDetayBaslik.Height = 40; LblDetayBaslik.clProSettings.FontSize = 18; LblDetayBaslik.clProSettings.TextSettings.Font.Style = [fsBold]; LblDetayBaslik.SetclProSettings(LblDetayBaslik.clProSettings); EdtMakine = MyForm.AddNewProEdit(PnlDetail, 'EdtMakine', 'Makine adı'); EdtMakine.Align = alTop; EdtMakine.Height = 45; EdtMakine.Margins.Top = 15; EdtMakine.clProSettings.BorderColor = clAlphaColor.clHexToColor('#D1D5DB'); EdtMakine.clProSettings.BorderWidth = 1; EdtMakine.clProSettings.RoundHeight = 8; EdtMakine.clProSettings.RoundWidth = 8; EdtMakine.SetclProSettings(EdtMakine.clProSettings); EdtEkip = MyForm.AddNewProEdit(PnlDetail, 'EdtEkip', 'Onaran ekip'); EdtEkip.Align = alTop; EdtEkip.Height = 45; EdtEkip.Margins.Top = 15; EdtEkip.clProSettings.BorderColor = clAlphaColor.clHexToColor('#D1D5DB'); EdtEkip.clProSettings.BorderWidth = 1; EdtEkip.clProSettings.RoundHeight = 8; EdtEkip.clProSettings.RoundWidth = 8; EdtEkip.SetclProSettings(EdtEkip.clProSettings); MemoNeden = MyForm.AddNewMemo(PnlDetail, 'MemoNeden', 'Arıza nedeni (zorunlu)'); MemoNeden.Align = alTop; MemoNeden.Height = 100; MemoNeden.Margins.Top = 15; MemoCozum = MyForm.AddNewMemo(PnlDetail, 'MemoCozum', 'Nasıl düzeltildi (zorunlu)'); MemoCozum.Align = alTop; MemoCozum.Height = 120; MemoCozum.Margins.Top = 15; MyForm.Run; } 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">
|
|
![]() |
|
Yanıt Yaz
|
|
| Tweet |
| Forum Atla | Forum İzinleri ![]() Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |