Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - font değiştirme
  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.

font değiştirme
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
kayra.55 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 17 Kasım 2025
Durum: Aktif Değil
Puanlar: 25 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra.55 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: font değiştirme
    Gönderim Zamanı: 1 saat 46 Dakika Önce Saat 18:00
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" 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: 833 		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ı: 1 saat 24 Dakika Önce Saat 18:22
Merhaba Kayra,

Bunun için 
doküman sitesinde yer alana hazır kütüphane fonksiyonlarını kullanabilirsin.
https://www.docs.clomosy.com/System_Library#String_Functions

https://www.docs.clomosy.com/AnsiLowerCase ve https://www.docs.clomosy.com/AnsiUpperCase ihtiyacını karşılayacağını düşüyorum 
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,078 Saniyede Yüklendi.