|
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">
|