|
var BakimForm: TclForm; PnlBakimRoot, PnlNavBar, PnlHeaderTop, PnlHeaderForm: TclProPanel; BtnScroll: TclHorzScrollBox; PnlMiddleGrid, PnlMiddleTabs: TclProPanel; PnlTabHeader, PnlTabContent: TclProPanel;
LblNavTitle, LblGridTitle: TClProLabel;
BtnGeri, BtnYeni, BtnKaydet, BtnSil: TClProButton; BtnTabTalimat, BtnTabOperator: TClProButton;
GrpBelgeNo, GrpTarih, GrpBakimTipi, GrpBakimTuru, GrpBakimKodu, GrpMakineKodu, GrpBaglanti, GrpBaslangic, GrpBitis, GrpBaslangicSaat, GrpBitisSaat, GrpKisiSayisi, GrpCariKodu, GrpAciklama: TclProPanel; LblBelgeNo, LblTarih, LblBakimTipi, LblBakimTuru, LblBakimKodu, LblMakineKodu, LblBaglanti, LblBaslangic, LblBitis, LblBaslangicSaat, LblBitisSaat, LblKisiSayisi, LblCariKodu, LblAciklama: TClProLabel; EdtBelgeNo, EdtTarih, EdtBakimTipi, EdtBakimTuru, EdtBakimKodu, EdtMakineKodu, EdtBaglanti, EdtBaslangic, EdtBitis, EdtBaslangicSaat, EdtBitisSaat, EdtKisiSayisi, EdtCariKodu, EdtAciklama: TclProEdit;
ListGrid: TClProListView; ListGridDesigner: TClProListViewDesignerPanel; LblMalzemeBaslikItem, LblMalzemeAltItem: TClProLabel;
MemTabContent: TclMemo; ScrollForm: TclVertScrollBox;
MyJsonItems: String; MalzemeBaslikKucuk: Boolean; PnlMalzemeGiris, PnlMalzemeSatir1, PnlMalzemeSatir2: TclProPanel; EdtMalzemeAdi, EdtMalzemeAdet, EdtMalzemeFiyat: TclProEdit; BtnYeniMalzemeEkle, BtnMetinBoyutu: TClProButton;
// ===================================================================== // --- TASARIM PROSEDÜRLERİ --- // =====================================================================
void StyleSurface(APanel: TclProPanel); { APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F4F5F7'); APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#D1D5DB'); APanel.clProSettings.BorderWidth = 1; APanel.clProSettings.IsFill = True; APanel.clProSettings.IsRound = False; APanel.SetclProSettings(APanel.clProSettings); }
void StyleHeaderBar(APanel: TclProPanel); { APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E5E7EB'); APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#9CA3AF'); APanel.clProSettings.BorderWidth = 1; APanel.clProSettings.IsFill = True; APanel.SetclProSettings(APanel.clProSettings); }
void StyleActionButton(AButton: TClProButton); { AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F9FAFB'); AButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#374151'); AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#9CA3AF'); AButton.clProSettings.BorderWidth = 1; AButton.clProSettings.IsFill = True; AButton.clProSettings.IsRound = False; AButton.clProSettings.FontSize = 12; AButton.clProSettings.TextSettings.Font.Style = [fsBold]; AButton.SetclProSettings(AButton.clProSettings); }
void StyleTabButtonActive(AButton: TClProButton); { AButton.clProSettings.BackgroundColor = clAlphaColor.clWhite; AButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#2563EB'); AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#D1D5DB'); AButton.clProSettings.BorderWidth = 1; AButton.clProSettings.IsFill = True; AButton.clProSettings.FontSize = 12; AButton.clProSettings.TextSettings.Font.Style = [fsBold]; AButton.SetclProSettings(AButton.clProSettings); }
void StyleTabButtonInactive(AButton: TClProButton); { AButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E5E7EB'); AButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#4B5563'); AButton.clProSettings.BorderColor = clAlphaColor.clHexToColor('#9CA3AF'); AButton.clProSettings.BorderWidth = 1; AButton.clProSettings.IsFill = True; AButton.clProSettings.FontSize = 12; AButton.SetclProSettings(AButton.clProSettings); }
void StyleInputPanel(APanel: TclProPanel); { APanel.clProSettings.BackgroundColor = clAlphaColor.clWhite; APanel.clProSettings.BorderWidth = 0; APanel.clProSettings.IsFill = False; APanel.SetclProSettings(APanel.clProSettings); }
void StyleInputLabel(ALabel: TClProLabel); { ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#374151'); 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.clHexToColor('#9CA3AF'); AEdit.clProSettings.BackgroundColor = clAlphaColor.clWhite; AEdit.clProSettings.BorderWidth = 1; AEdit.clProSettings.IsFill = True; AEdit.clProSettings.FontSize = 12; AEdit.SetclProSettings(AEdit.clProSettings); }
void StyleSectionTitle(ALabel: TClProLabel); { ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#111827'); ALabel.clProSettings.FontSize = 11; ALabel.clProSettings.TextSettings.Font.Style = [fsBold]; ALabel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D1D5DB'); ALabel.clProSettings.IsFill = True; ALabel.SetclProSettings(ALabel.clProSettings); }
void StyleMalzemeBaslik(ALabel: TClProLabel); { ALabel.clProSettings.FontColor = clAlphaColor.clBlack; ALabel.clProSettings.FontSize = 17; ALabel.clProSettings.TextSettings.Font.Style = [fsBold]; ALabel.SetclProSettings(ALabel.clProSettings); }
void StyleMalzemeAlt(ALabel: TClProLabel); { ALabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#111827'); ALabel.clProSettings.FontSize = 14; ALabel.SetclProSettings(ALabel.clProSettings); }
// ===================================================================== // --- MANTIK PROSEDÜRLERİ --- // =====================================================================
void GoBack; { BakimForm.Close; }
void MalzemeListeSablonHazirla; { ListGridDesigner = BakimForm.AddNewProListViewDesignerPanel(ListGrid, 'ListGridDesigner'); ListGridDesigner.Align = alTop; ListGridDesigner.Height = 78; ListGridDesigner.Width = 350;
ListGridDesigner.clProSettings.BackgroundColor = clAlphaColor.clWhite; ListGridDesigner.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB'); ListGridDesigner.clProSettings.BorderWidth = 1; ListGridDesigner.clProSettings.IsFill = True; ListGridDesigner.clProSettings.IsRound = False; ListGridDesigner.SetclProSettings(ListGridDesigner.clProSettings);
LblMalzemeBaslikItem = BakimForm.AddNewProLabel(ListGridDesigner, 'MAIN_TEXT', ''); LblMalzemeBaslikItem.Align = alTop; LblMalzemeBaslikItem.Height = 38; LblMalzemeBaslikItem.Margins.Left = 12; LblMalzemeBaslikItem.Margins.Right = 12; LblMalzemeBaslikItem.Margins.Top = 8; StyleMalzemeBaslik(LblMalzemeBaslikItem);
LblMalzemeAltItem = BakimForm.AddNewProLabel(ListGridDesigner, 'SUB_TEXT', ''); LblMalzemeAltItem.Align = alTop; LblMalzemeAltItem.Height = 28; LblMalzemeAltItem.Margins.Left = 12; LblMalzemeAltItem.Margins.Right = 12; StyleMalzemeAlt(LblMalzemeAltItem);
ListGridDesigner.AddPanelObject(LblMalzemeBaslikItem, clCaption); ListGridDesigner.AddPanelObject(LblMalzemeAltItem, clText);
ListGrid.SetDesignerPanel(ListGridDesigner); }
void GridGuncelle; { if (MyJsonItems == '') { ListGrid.clLoadProListViewDataFromDataset( Clomosy.ClDataSetFromJSON('[{"MAIN_TEXT":"Listede malzeme yok","SUB_TEXT":"Yeni malzeme ekleyebilirsiniz."}]') ); } else { ListGrid.clLoadProListViewDataFromDataset( Clomosy.ClDataSetFromJSON('[' + MyJsonItems + ']') ); } }
void MalzemeBaslikFontUygula; { if (MalzemeBaslikKucuk) { LblMalzemeBaslikItem.clProSettings.FontSize = 13; } else { LblMalzemeBaslikItem.clProSettings.FontSize = 17; }
LblMalzemeBaslikItem.SetclProSettings(LblMalzemeBaslikItem.clProSettings); ListGrid.SetDesignerPanel(ListGridDesigner); }
void ToggleTextSize; { MalzemeBaslikKucuk = not MalzemeBaslikKucuk; MalzemeBaslikFontUygula; GridGuncelle; }
void ShowTalimatlar; { StyleTabButtonActive(BtnTabTalimat); StyleTabButtonInactive(BtnTabOperator); MemTabContent.Lines.Text = '1. Makine enerjisini kesin.' + #13#10 + '2. Guvenlik kilidini takin.' + #13#10 + '3. Rulman yataklarini kontrol edin.'; }
void ShowOperatorler; { StyleTabButtonInactive(BtnTabTalimat); StyleTabButtonActive(BtnTabOperator); MemTabContent.Lines.Text = '1. Operator: Ahmet Yilmaz (Mekanik)' + #13#10 + '2. Operator: Mehmet Kaya (Elektrik)'; }
void SatirEkle; var YeniItem, AltMetin: String; { if (EdtMalzemeAdi.Text == '') { ShowMessage('Lutfen malzeme adini yazin!'); exit; } AltMetin = 'Miktar: ' + EdtMalzemeAdet.Text + ' | Tutar: ' + EdtMalzemeFiyat.Text + ' TL'; YeniItem = '{"MAIN_TEXT":"' + EdtMalzemeAdi.Text + '","SUB_TEXT":"' + AltMetin + '"}'; if (MyJsonItems == '') { MyJsonItems = YeniItem; } else { MyJsonItems = MyJsonItems + ',' + YeniItem; } GridGuncelle; EdtMalzemeAdi.Text = ''; EdtMalzemeAdet.Text = ''; EdtMalzemeFiyat.Text = ''; }
void FormuTemizle; { EdtBelgeNo.Text = ''; EdtTarih.Text = 'GG.AA.YYYY'; EdtBakimTipi.Text = 'Seciniz...'; EdtBakimTuru.Text = 'Seciniz...'; EdtBakimKodu.Text = ''; EdtMakineKodu.Text = '...Seciniz'; EdtBaglanti.Text = ''; EdtBaslangic.Text = 'GG.AA.YYYY'; EdtBaslangicSaat.Text = 'SS:DD'; EdtBitis.Text = 'GG.AA.YYYY'; EdtBitisSaat.Text = 'SS:DD'; EdtKisiSayisi.Text = '0'; EdtCariKodu.Text = '...Seciniz'; EdtAciklama.Text = ''; EdtMalzemeAdi.Text = ''; EdtMalzemeAdet.Text = ''; EdtMalzemeFiyat.Text = ''; MyJsonItems = ''; GridGuncelle; }
void BtnYeniClick; { FormuTemizle; ShowMessage('Form temizlendi. Yeni kayit olusturabilirsiniz.'); }
void BtnSilClick; { FormuTemizle; ShowMessage('Tum kayitlar silindi ve ekran temizlendi!'); }
void BtnKaydetClick; { if (EdtBelgeNo.Text == '') { ShowMessage('Lutfen kaydetmeden once Belge No giriniz!'); } else { ShowMessage(EdtBelgeNo.Text + ' numarali belge basariyla kaydedildi!'); FormuTemizle; } }
// ===================================================================== // --- ANA BLOK (BAKIM FORMU) --- // ===================================================================== { BakimForm = TclForm.Create(Self); BakimForm.LytTopBar.Visible = False; BakimForm.BtnGoBack.Visible = False; BakimForm.BtnFormMenu.Visible = False; MyJsonItems = '{"MAIN_TEXT":"Rulman (6204 ZZ)","SUB_TEXT":"Miktar: 2 Adet | Tutar: 450 TL"},{"MAIN_TEXT":"Sentetik Makine Yagi (10W-40)","SUB_TEXT":"Miktar: 3 Litre | Tutar: 850 TL"},{"MAIN_TEXT":"Motor Kayisi (V-Kayis)","SUB_TEXT":"Miktar: 1 Adet | Tutar: 300 TL"}'; MalzemeBaslikKucuk = False;
PnlBakimRoot = BakimForm.AddNewProPanel(BakimForm, 'PnlBakimRoot'); PnlBakimRoot.Align = alClient; StyleSurface(PnlBakimRoot);
PnlNavBar = BakimForm.AddNewProPanel(PnlBakimRoot, 'PnlNavBar'); PnlNavBar.Align = alTop; PnlNavBar.Height = 50; PnlNavBar.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4B5563'); PnlNavBar.clProSettings.IsFill = True; PnlNavBar.SetclProSettings(PnlNavBar.clProSettings);
BtnGeri = BakimForm.AddNewProButton(PnlNavBar, 'BtnGeri', '<'); BtnGeri.Align = alLeft; BtnGeri.Width = 60; BtnGeri.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); BtnGeri.clProSettings.FontColor = clAlphaColor.clHexToColor('#111827'); BtnGeri.clProSettings.IsFill = True; BtnGeri.clProSettings.FontSize = 14; BtnGeri.clProSettings.TextSettings.Font.Style = [fsBold]; BtnGeri.SetclProSettings(BtnGeri.clProSettings); BakimForm.AddNewEvent(BtnGeri, tbeOnClick, 'GoBack');
LblNavTitle = BakimForm.AddNewProLabel(PnlNavBar, 'LblNavTitle', 'Bakim Hareket Kayitlari'); LblNavTitle.Align = alLeft; LblNavTitle.Width = 250; LblNavTitle.Margins.Left = 5; LblNavTitle.Margins.Top = 10; LblNavTitle.clProSettings.FontColor = clAlphaColor.clWhite; LblNavTitle.clProSettings.FontSize = 15; LblNavTitle.clProSettings.TextSettings.Font.Style = [fsBold]; LblNavTitle.SetclProSettings(LblNavTitle.clProSettings);
ScrollForm = BakimForm.AddNewVertScrollBox(PnlBakimRoot, 'ScrollForm'); ScrollForm.Align = alClient;
PnlHeaderTop = BakimForm.AddNewProPanel(ScrollForm, 'PnlHeaderTop'); PnlHeaderTop.Align = alTop; PnlHeaderTop.Height = 55; StyleHeaderBar(PnlHeaderTop);
BtnScroll = BakimForm.AddNewHorzScrollBox(PnlHeaderTop, 'BtnScroll'); BtnScroll.Align = alClient; BtnScroll.Margins.Left = 5; BtnScroll.Margins.Right = 5;
BtnYeni = BakimForm.AddNewProButton(BtnScroll, 'BtnYeni', 'Yeni'); BtnYeni.Align = alLeft; BtnYeni.Width = 70; BtnYeni.Margins.Left = 5; BtnYeni.Margins.Top = 8; BtnYeni.Margins.Bottom = 8; StyleActionButton(BtnYeni);
BtnKaydet = BakimForm.AddNewProButton(BtnScroll, 'BtnKaydet', 'Kaydet'); BtnKaydet.Align = alLeft; BtnKaydet.Width = 80; BtnKaydet.Margins.Left = 5; BtnKaydet.Margins.Top = 8; BtnKaydet.Margins.Bottom = 8; StyleActionButton(BtnKaydet);
BtnSil = BakimForm.AddNewProButton(BtnScroll, 'BtnSil', 'Sil'); BtnSil.Align = alLeft; BtnSil.Width = 70; BtnSil.Margins.Left = 5; BtnSil.Margins.Top = 8; BtnSil.Margins.Bottom = 8; StyleActionButton(BtnSil);
BakimForm.AddNewEvent(BtnYeni, tbeOnClick, 'BtnYeniClick'); BakimForm.AddNewEvent(BtnKaydet, tbeOnClick, 'BtnKaydetClick'); BakimForm.AddNewEvent(BtnSil, tbeOnClick, 'BtnSilClick');
PnlHeaderForm = BakimForm.AddNewProPanel(ScrollForm, 'PnlHeaderForm'); PnlHeaderForm.Align = alTop; PnlHeaderForm.Height = 610; PnlHeaderForm.Margins.Top = 10; PnlHeaderForm.Margins.Left = 5; PnlHeaderForm.Margins.Right = 5; StyleSurface(PnlHeaderForm);
GrpBelgeNo = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBelgeNo'); GrpBelgeNo.Align = alTop; GrpBelgeNo.Height = 50; GrpBelgeNo.Margins.Top = 5; StyleInputPanel(GrpBelgeNo);
LblBelgeNo = BakimForm.AddNewProLabel(GrpBelgeNo, 'LblBelgeNo', 'Belge No:'); LblBelgeNo.Align = alTop; LblBelgeNo.Height = 20; LblBelgeNo.Margins.Left = 10; StyleInputLabel(LblBelgeNo);
EdtBelgeNo = BakimForm.AddNewProEdit(GrpBelgeNo, 'EdtBelgeNo', ''); EdtBelgeNo.Align = alClient; EdtBelgeNo.Margins.Left = 10; EdtBelgeNo.Margins.Right = 10; StyleInputEdit(EdtBelgeNo);
GrpTarih = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpTarih'); GrpTarih.Align = alTop; GrpTarih.Height = 50; StyleInputPanel(GrpTarih);
LblTarih = BakimForm.AddNewProLabel(GrpTarih, 'LblTarih', 'Tarih:'); LblTarih.Align = alTop; LblTarih.Height = 20; LblTarih.Margins.Left = 10; StyleInputLabel(LblTarih);
EdtTarih = BakimForm.AddNewProEdit(GrpTarih, 'EdtTarih', 'GG.AA.YYYY'); EdtTarih.Align = alClient; EdtTarih.Margins.Left = 10; EdtTarih.Margins.Right = 10; StyleInputEdit(EdtTarih);
GrpBakimTipi = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBakimTipi'); GrpBakimTipi.Align = alTop; GrpBakimTipi.Height = 50; StyleInputPanel(GrpBakimTipi);
LblBakimTipi = BakimForm.AddNewProLabel(GrpBakimTipi, 'LblBakimTipi', 'Bakim Tipi:'); LblBakimTipi.Align = alTop; LblBakimTipi.Height = 20; LblBakimTipi.Margins.Left = 10; StyleInputLabel(LblBakimTipi);
EdtBakimTipi = BakimForm.AddNewProEdit(GrpBakimTipi, 'EdtBakimTipi', 'Seciniz...'); EdtBakimTipi.Align = alClient; EdtBakimTipi.Margins.Left = 10; EdtBakimTipi.Margins.Right = 10; StyleInputEdit(EdtBakimTipi);
GrpBakimTuru = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBakimTuru'); GrpBakimTuru.Align = alTop; GrpBakimTuru.Height = 50; StyleInputPanel(GrpBakimTuru);
LblBakimTuru = BakimForm.AddNewProLabel(GrpBakimTuru, 'LblBakimTuru', 'Bakim Turu:'); LblBakimTuru.Align = alTop; LblBakimTuru.Height = 20; LblBakimTuru.Margins.Left = 10; StyleInputLabel(LblBakimTuru);
EdtBakimTuru = BakimForm.AddNewProEdit(GrpBakimTuru, 'EdtBakimTuru', 'Seciniz...'); EdtBakimTuru.Align = alClient; EdtBakimTuru.Margins.Left = 10; EdtBakimTuru.Margins.Right = 10; StyleInputEdit(EdtBakimTuru);
GrpBakimKodu = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBakimKodu'); GrpBakimKodu.Align = alTop; GrpBakimKodu.Height = 50; StyleInputPanel(GrpBakimKodu);
LblBakimKodu = BakimForm.AddNewProLabel(GrpBakimKodu, 'LblBakimKodu', 'Bakim Kodu:'); LblBakimKodu.Align = alTop; LblBakimKodu.Height = 20; LblBakimKodu.Margins.Left = 10; StyleInputLabel(LblBakimKodu);
EdtBakimKodu = BakimForm.AddNewProEdit(GrpBakimKodu, 'EdtBakimKodu', ''); EdtBakimKodu.Align = alClient; EdtBakimKodu.Margins.Left = 10; EdtBakimKodu.Margins.Right = 10; StyleInputEdit(EdtBakimKodu);
GrpMakineKodu = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpMakineKodu'); GrpMakineKodu.Align = alTop; GrpMakineKodu.Height = 50; StyleInputPanel(GrpMakineKodu);
LblMakineKodu = BakimForm.AddNewProLabel(GrpMakineKodu, 'LblMakineKodu', 'Makine Kodu:'); LblMakineKodu.Align = alTop; LblMakineKodu.Height = 20; LblMakineKodu.Margins.Left = 10; StyleInputLabel(LblMakineKodu);
EdtMakineKodu = BakimForm.AddNewProEdit(GrpMakineKodu, 'EdtMakineKodu', '...Seciniz'); EdtMakineKodu.Align = alClient; EdtMakineKodu.Margins.Left = 10; EdtMakineKodu.Margins.Right = 10; StyleInputEdit(EdtMakineKodu);
GrpBaglanti = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBaglanti'); GrpBaglanti.Align = alTop; GrpBaglanti.Height = 50; StyleInputPanel(GrpBaglanti);
LblBaglanti = BakimForm.AddNewProLabel(GrpBaglanti, 'LblBaglanti', 'Bakim Baglantisi:'); LblBaglanti.Align = alTop; LblBaglanti.Height = 20; LblBaglanti.Margins.Left = 10; StyleInputLabel(LblBaglanti);
EdtBaglanti = BakimForm.AddNewProEdit(GrpBaglanti, 'EdtBaglanti', ''); EdtBaglanti.Align = alClient; EdtBaglanti.Margins.Left = 10; EdtBaglanti.Margins.Right = 10; StyleInputEdit(EdtBaglanti);
GrpBaslangic = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBaslangic'); GrpBaslangic.Align = alTop; GrpBaslangic.Height = 50; StyleInputPanel(GrpBaslangic);
LblBaslangic = BakimForm.AddNewProLabel(GrpBaslangic, 'LblBaslangic', 'Baslangic Trh/Saat:'); LblBaslangic.Align = alTop; LblBaslangic.Height = 20; LblBaslangic.Margins.Left = 10; StyleInputLabel(LblBaslangic);
EdtBaslangicSaat = BakimForm.AddNewProEdit(GrpBaslangic, 'EdtBaslangicSaat', 'SS:DD'); EdtBaslangicSaat.Align = alRight; EdtBaslangicSaat.Width = 80; EdtBaslangicSaat.Margins.Right = 10; StyleInputEdit(EdtBaslangicSaat);
EdtBaslangic = BakimForm.AddNewProEdit(GrpBaslangic, 'EdtBaslangic', 'GG.AA.YYYY'); EdtBaslangic.Align = alClient; EdtBaslangic.Margins.Left = 10; EdtBaslangic.Margins.Right = 5; StyleInputEdit(EdtBaslangic);
GrpBitis = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpBitis'); GrpBitis.Align = alTop; GrpBitis.Height = 50; StyleInputPanel(GrpBitis);
LblBitis = BakimForm.AddNewProLabel(GrpBitis, 'LblBitis', 'Bitis Trh/Saat:'); LblBitis.Align = alTop; LblBitis.Height = 20; LblBitis.Margins.Left = 10; StyleInputLabel(LblBitis);
EdtBitisSaat = BakimForm.AddNewProEdit(GrpBitis, 'EdtBitisSaat', 'SS:DD'); EdtBitisSaat.Align = alRight; EdtBitisSaat.Width = 80; EdtBitisSaat.Margins.Right = 10; StyleInputEdit(EdtBitisSaat);
EdtBitis = BakimForm.AddNewProEdit(GrpBitis, 'EdtBitis', 'GG.AA.YYYY'); EdtBitis.Align = alClient; EdtBitis.Margins.Left = 10; EdtBitis.Margins.Right = 5; StyleInputEdit(EdtBitis);
GrpKisiSayisi = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpKisiSayisi'); GrpKisiSayisi.Align = alTop; GrpKisiSayisi.Height = 50; StyleInputPanel(GrpKisiSayisi);
LblKisiSayisi = BakimForm.AddNewProLabel(GrpKisiSayisi, 'LblKisiSayisi', 'Kisi Sayisi:'); LblKisiSayisi.Align = alTop; LblKisiSayisi.Height = 20; LblKisiSayisi.Margins.Left = 10; StyleInputLabel(LblKisiSayisi);
EdtKisiSayisi = BakimForm.AddNewProEdit(GrpKisiSayisi, 'EdtKisiSayisi', '0'); EdtKisiSayisi.Align = alClient; EdtKisiSayisi.Margins.Left = 10; EdtKisiSayisi.Margins.Right = 10; StyleInputEdit(EdtKisiSayisi);
GrpCariKodu = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpCariKodu'); GrpCariKodu.Align = alTop; GrpCariKodu.Height = 50; StyleInputPanel(GrpCariKodu);
LblCariKodu = BakimForm.AddNewProLabel(GrpCariKodu, 'LblCariKodu', 'Cari Kodu:'); LblCariKodu.Align = alTop; LblCariKodu.Height = 20; LblCariKodu.Margins.Left = 10; StyleInputLabel(LblCariKodu);
EdtCariKodu = BakimForm.AddNewProEdit(GrpCariKodu, 'EdtCariKodu', '...Seciniz'); EdtCariKodu.Align = alClient; EdtCariKodu.Margins.Left = 10; EdtCariKodu.Margins.Right = 10; StyleInputEdit(EdtCariKodu);
GrpAciklama = BakimForm.AddNewProPanel(PnlHeaderForm, 'GrpAciklama'); GrpAciklama.Align = alTop; GrpAciklama.Height = 50; StyleInputPanel(GrpAciklama);
LblAciklama = BakimForm.AddNewProLabel(GrpAciklama, 'LblAciklama', 'Genel Kayit Aciklamasi:'); LblAciklama.Align = alTop; LblAciklama.Height = 20; LblAciklama.Margins.Left = 10; StyleInputLabel(LblAciklama);
EdtAciklama = BakimForm.AddNewProEdit(GrpAciklama, 'EdtAciklama', ''); EdtAciklama.Align = alClient; EdtAciklama.Margins.Left = 10; EdtAciklama.Margins.Right = 10; StyleInputEdit(EdtAciklama);
// --- GRID (LISTE) VE YENİ MALZEME TASARIM PANELI --- PnlMiddleGrid = BakimForm.AddNewProPanel(ScrollForm, 'PnlMiddleGrid'); PnlMiddleGrid.Align = alTop; PnlMiddleGrid.Height = 310; PnlMiddleGrid.Margins.Top = 10; PnlMiddleGrid.Margins.Left = 5; PnlMiddleGrid.Margins.Right = 5; StyleSurface(PnlMiddleGrid);
LblGridTitle = BakimForm.AddNewProLabel(PnlMiddleGrid, 'LblGridTitle', ' Kullanilan Malzeme / Maliyet Satirlari'); LblGridTitle.Align = alTop; LblGridTitle.Height = 25; StyleSectionTitle(LblGridTitle);
PnlMalzemeGiris = BakimForm.AddNewProPanel(PnlMiddleGrid, 'PnlMalzemeGiris'); PnlMalzemeGiris.Align = alTop; PnlMalzemeGiris.Height = 80; PnlMalzemeGiris.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E5E7EB'); PnlMalzemeGiris.clProSettings.IsFill = True; PnlMalzemeGiris.SetclProSettings(PnlMalzemeGiris.clProSettings); PnlMalzemeSatir1 = BakimForm.AddNewProPanel(PnlMalzemeGiris, 'PnlMalzemeSatir1'); PnlMalzemeSatir1.Align = alTop; PnlMalzemeSatir1.Height = 40; BtnMetinBoyutu = BakimForm.AddNewProButton(PnlMalzemeSatir1, 'BtnMetinBoyutu', 'Buyuk Yaz'); BtnMetinBoyutu.Align = alRight; BtnMetinBoyutu.Width = 80; BtnMetinBoyutu.Margins.Right = 5; BtnMetinBoyutu.Margins.Top = 5; BtnMetinBoyutu.Margins.Bottom = 5; StyleActionButton(BtnMetinBoyutu); BakimForm.AddNewEvent(BtnMetinBoyutu, tbeOnClick, 'ToggleTextSize');
EdtMalzemeAdi = BakimForm.AddNewProEdit(PnlMalzemeSatir1, 'EdtMalzemeAdi', 'Malzeme Adini Yaziniz...'); EdtMalzemeAdi.Align = alClient; EdtMalzemeAdi.Margins.Top = 5; EdtMalzemeAdi.Margins.Bottom = 5; EdtMalzemeAdi.Margins.Left = 5; EdtMalzemeAdi.Margins.Right = 5; StyleInputEdit(EdtMalzemeAdi);
PnlMalzemeSatir2 = BakimForm.AddNewProPanel(PnlMalzemeGiris, 'PnlMalzemeSatir2'); PnlMalzemeSatir2.Align = alTop; PnlMalzemeSatir2.Height = 40; BtnYeniMalzemeEkle = BakimForm.AddNewProButton(PnlMalzemeSatir2, 'BtnYeniMalzemeEkle', 'Listeye Ekle'); BtnYeniMalzemeEkle.Align = alRight; BtnYeniMalzemeEkle.Width = 100; BtnYeniMalzemeEkle.Margins.Right = 5; BtnYeniMalzemeEkle.Margins.Bottom = 5; StyleActionButton(BtnYeniMalzemeEkle); BakimForm.AddNewEvent(BtnYeniMalzemeEkle, tbeOnClick, 'SatirEkle');
EdtMalzemeAdet = BakimForm.AddNewProEdit(PnlMalzemeSatir2, 'EdtMalzemeAdet', 'Adet / Miktar'); EdtMalzemeAdet.Align = alLeft; EdtMalzemeAdet.Width = 100; EdtMalzemeAdet.Margins.Left = 5; EdtMalzemeAdet.Margins.Bottom = 5; StyleInputEdit(EdtMalzemeAdet);
EdtMalzemeFiyat = BakimForm.AddNewProEdit(PnlMalzemeSatir2, 'EdtMalzemeFiyat', 'Tutar (TL)'); EdtMalzemeFiyat.Align = alClient; EdtMalzemeFiyat.Margins.Left = 5; EdtMalzemeFiyat.Margins.Right = 5; EdtMalzemeFiyat.Margins.Bottom = 5; StyleInputEdit(EdtMalzemeFiyat);
ListGrid = BakimForm.AddNewProListView(PnlMiddleGrid, 'ListGrid'); ListGrid.Align = alClient; ListGrid.Margins.Top = 2; ListGrid.ListType = 'vertical'; ListGrid.clProSettings.ViewType = lvIcon; ListGrid.clProSettings.ColCount = 1; ListGrid.clProSettings.ItemHeight = 78; ListGrid.clProSettings.ItemSpace = 0; ListGrid.clProSettings.BorderWidth = 0; ListGrid.SetclProSettings(ListGrid.clProSettings);
MalzemeListeSablonHazirla; GridGuncelle;
// --- SEKMELER --- PnlMiddleTabs = BakimForm.AddNewProPanel(ScrollForm, 'PnlMiddleTabs'); PnlMiddleTabs.Align = alTop; PnlMiddleTabs.Height = 250; PnlMiddleTabs.Margins.Top = 10; PnlMiddleTabs.Margins.Left = 5; PnlMiddleTabs.Margins.Right = 5; PnlMiddleTabs.Margins.Bottom = 20; StyleSurface(PnlMiddleTabs);
PnlTabHeader = BakimForm.AddNewProPanel(PnlMiddleTabs, 'PnlTabHeader'); PnlTabHeader.Align = alTop; PnlTabHeader.Height = 40; StyleHeaderBar(PnlTabHeader);
BtnTabTalimat = BakimForm.AddNewProButton(PnlTabHeader, 'BtnTabTalimat', 'Talimatlar'); BtnTabTalimat.Align = alLeft; BtnTabTalimat.Width = BakimForm.clWidth / 2; StyleTabButtonActive(BtnTabTalimat); BakimForm.AddNewEvent(BtnTabTalimat, tbeOnClick, 'ShowTalimatlar');
BtnTabOperator = BakimForm.AddNewProButton(PnlTabHeader, 'BtnTabOperator', 'Operatorler'); BtnTabOperator.Align = alClient; StyleTabButtonInactive(BtnTabOperator); BakimForm.AddNewEvent(BtnTabOperator, tbeOnClick, 'ShowOperatorler');
PnlTabContent = BakimForm.AddNewProPanel(PnlMiddleTabs, 'PnlTabContent'); PnlTabContent.Align = alClient; StyleInputPanel(PnlTabContent); MemTabContent = BakimForm.AddNewMemo(PnlTabContent, 'MemTabContent', ''); MemTabContent.Align = alClient; MemTabContent.Margins.Top = 2; MemTabContent.Margins.Bottom = 2; MemTabContent.Margins.Left = 2; MemTabContent.Margins.Right = 2; ShowTalimatlar;
BakimForm.Run; } kodumda bulunan buyuk yaz butonu basıldığında bütün yazıları küçültsün tekrar basıldığında eski haline getirsin bunu yapmaya çalışıyorum ancak olmadı 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">
|