}
void yeniPanelKapat;
{
yeniPanel.Visible = false;
}
void yenipanelolustur
var
habitName: string;
{
habitname = Edit1.Text;
yeniPanel = analizForm.AddNewProPanel(analizForm, 'yeniPanel_' + habitname);
yeniPanel.Align = alClient;
yeniPanel.Visible = false;
yeniPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#AEE4FF');
yeniPanel.SetclProSettings(yeniPanel.clProSettings);
yeniLabel = analizForm.AddNewProLabel(yeniPanel, 'yenilabel_' , habitname+ ' TAKİBİ');//SOR
yeniLabel.Align = alTop;
yeniLabel.Height = 60;
yeniLabel.clProSettings.FontSize = 24;
yeniLabel.clProSettings.FontColor = clAlphaColor.clWhite;
yeniLabel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#6A9CFD');
yeniLabel.SetclProSettings(yeniLabel.clProSettings);
yeniTarih = analizForm.AddNewProLabel(yeniPanel, 'yeniTarih_' , 'Tarih: ' + DateToStr(Date));
yeniTarih.Align = alTop;
yeniTarih.Height = 40;
yeniTarih.Margins.Top = 20;
yeniTarih.clProSettings.FontSize = 18;
yeniTarih.clProSettings.FontColor = clAlphaColor.clWhite;
yeniTarih.SetclProSettings(yeniTarih.clProSettings);
yeniSaat = analizForm.AddNewProLabel(yeniPanel, 'yeniSaat_' , 'Saat: ' + TimeToStr(Time));
yeniSaat.Align = alTop;
yeniSaat.Height = 40;
yeniSaat.clProSettings.FontSize = 18;
yeniSaat.clProSettings.FontColor = clAlphaColor.clWhite;
yeniSaat.SetclProSettings(yeniSaat.clProSettings);
yeniTamamlaBtn = analizForm.AddNewProButton(yeniPanel, 'yeniTamamlaBtn_', habitname + 'TAMAMLANDI');
yeniTamamlaBtn.Align = alBottom;
yeniTamamlaBtn.Height = 80;
yeniTamamlaBtn.clProSettings.FontSize = 20;
yeniTamamlaBtn.clProSettings.FontColor = clAlphaColor.clWhite;
yeniTamamlaBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50');
yeniTamamlaBtn.clProSettings.IsRound = true;
yeniTamamlaBtn.SetclProSettings(yeniTamamlaBtn.clProSettings);
analizForm.AddNewEvent(yeniTamamlaBtn, tbeOnClick, 'TamamlaBtnclick');
yeniKapatBtn = analizForm.AddNewProButton(yeniPanel, 'yeniKapatBtn_' , habitname+ '❌ KAPAT');
yeniKapatBtn.Align = alBottom;
yeniKapatBtn.Height = 50;
yeniKapatBtn.clProSettings.FontColor = clAlphaColor.clWhite;
yeniKapatBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F44336');
yeniKapatBtn.clProSettings.IsRound = true;
yeniKapatBtn.SetclProSettings(yeniKapatBtn.clProSettings);
analizForm.AddNewEvent(yeniKapatBtn, tbeOnClick, 'YeniPanelKapat');
}
merhaba kodun bir kısmını attım kullanıcı yeni alışkanlık ekliyo listeye ve o alışkanlığa bastımda panelim açılıyor işleyiş kısmımda sorun yok sorun label ve buton kısmında kullanıcının yazdığı habitnamei göremiyorum nasıl yazmam gerek? teşekkür ederim
< id="BFI_" style="width: 1px; height: 1px; display: none;">