Merhaba Sümeyye
var MainForm: TclForm; ScaledLayout: TclScaledLayout; HeaderPnl: TclProPanel; MainPnl: TclProPanel; TitleLbl: TclProLabel; DescLbl: TclProLabel; NoteEdt: TclProEdit; SaveBtn: TclProButton; ClearBtn: TclProButton; ResultLbl: TclProLabel;
void SaveNote; var LNote: String; { LNote = NoteEdt.Text;
if (LNote == '') { ShowMessage('Lütfen bir not yazınız.'); } else { ResultLbl.Text = 'KAYDEDİLEN NOT: ' + LNote; NoteEdt.Text = ''; } }
void ClearNote; { NoteEdt.Text = ''; ResultLbl.Text = 'Henüz not eklenmedi.'; }
void CreateHeader; { HeaderPnl = MainForm.AddNewProPanel(ScaledLayout, 'HeaderPnl'); HeaderPnl.Align = alTop; HeaderPnl.Height = 125; HeaderPnl.Margins.Top = 20; HeaderPnl.Margins.Left = 20; HeaderPnl.Margins.Right = 20; HeaderPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4F46E5'); HeaderPnl.clProSettings.RoundWidth = 20; HeaderPnl.clProSettings.RoundHeight = 20; HeaderPnl.clProSettings.IsFill = True; HeaderPnl.SetclProSettings(HeaderPnl.clProSettings);
TitleLbl = MainForm.AddNewProLabel(HeaderPnl, 'TitleLbl', 'MOTİVASYON NOTLARI'); TitleLbl.Align = alTop; TitleLbl.Height = 55; TitleLbl.Margins.Top = 18; TitleLbl.Margins.Left = 15; TitleLbl.Margins.Right = 15; TitleLbl.clProSettings.FontColor = clAlphaColor.clWhite; TitleLbl.clProSettings.FontSize = 16; TitleLbl.clProSettings.TextSettings.Font.Style = [fsBold]; TitleLbl.clProSettings.FontHorzAlign = palCenter; TitleLbl.SetclProSettings(TitleLbl.clProSettings);
DescLbl = MainForm.AddNewProLabel(HeaderPnl, 'DescLbl', 'Bugün kendin için küçük bir not bırak.'); DescLbl.Align = alTop; DescLbl.Height = 40; DescLbl.Margins.Left = 15; DescLbl.Margins.Right = 15; DescLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#E0E7FF'); DescLbl.clProSettings.FontSize = 12; DescLbl.clProSettings.FontHorzAlign = palCenter; DescLbl.SetclProSettings(DescLbl.clProSettings); }
void CreateMainContent; { MainPnl = MainForm.AddNewProPanel(ScaledLayout, 'MainPnl'); MainPnl.Align = alClient; MainPnl.Margins.Top = 20; MainPnl.Margins.Left = 20; MainPnl.Margins.Right = 20; MainPnl.Margins.Bottom = 20; MainPnl.clProSettings.BackgroundColor = clAlphaColor.clWhite; MainPnl.clProSettings.RoundWidth = 20; MainPnl.clProSettings.RoundHeight = 20; MainPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E5E7EB'); MainPnl.clProSettings.BorderWidth = 1; MainPnl.clProSettings.IsFill = True; MainPnl.SetclProSettings(MainPnl.clProSettings);
NoteEdt = MainForm.AddNewProEdit(MainPnl, 'NoteEdt', ''); NoteEdt.Align = alTop; NoteEdt.Height = 60; NoteEdt.Margins.Top = 25; NoteEdt.Margins.Left = 15; NoteEdt.Margins.Right = 15; NoteEdt.Margins.Bottom = 18; NoteEdt.TextPrompt = 'Notunu yaz...'; NoteEdt.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F9FAFB'); NoteEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#D1D5DB'); NoteEdt.clProSettings.BorderWidth = 1; NoteEdt.clProSettings.RoundWidth = 8; NoteEdt.clProSettings.RoundHeight = 8; NoteEdt.clProSettings.IsFill = True; NoteEdt.SetclProSettings(NoteEdt.clProSettings);
SaveBtn = MainForm.AddNewProButton(MainPnl, 'SaveBtn', 'KAYDET'); SaveBtn.Align = alTop; SaveBtn.Height = 55; SaveBtn.Margins.Left = 15; SaveBtn.Margins.Right = 15; SaveBtn.Margins.Bottom = 12; SaveBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22C55E'); SaveBtn.clProSettings.FontColor = clAlphaColor.clWhite; SaveBtn.clProSettings.TextSettings.Font.Style = [fsBold]; SaveBtn.clProSettings.RoundWidth = 14; SaveBtn.clProSettings.RoundHeight = 14; SaveBtn.clProSettings.IsFill = True; SaveBtn.SetclProSettings(SaveBtn.clProSettings);
ClearBtn = MainForm.AddNewProButton(MainPnl, 'ClearBtn', 'TEMİZLE'); ClearBtn.Align = alTop; ClearBtn.Height = 55; ClearBtn.Margins.Left = 15; ClearBtn.Margins.Right = 15; ClearBtn.Margins.Bottom = 25; ClearBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E5E7EB'); ClearBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#374151'); ClearBtn.clProSettings.TextSettings.Font.Style = [fsBold]; ClearBtn.clProSettings.RoundWidth = 14; ClearBtn.clProSettings.RoundHeight = 14; ClearBtn.clProSettings.IsFill = True; ClearBtn.SetclProSettings(ClearBtn.clProSettings);
ResultLbl = MainForm.AddNewProLabel(MainPnl, 'ResultLbl', 'Henüz not eklenmedi.'); ResultLbl.Align = alTop; ResultLbl.Height = 100; ResultLbl.Margins.Left = 15; ResultLbl.Margins.Right = 15; ResultLbl.Margins.Top = 10; ResultLbl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F3F4F6'); ResultLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#1F2937'); ResultLbl.clProSettings.FontSize = 13; ResultLbl.clProSettings.RoundWidth = 14; ResultLbl.clProSettings.RoundHeight = 14; ResultLbl.clProSettings.IsFill = True; ResultLbl.clProSettings.FontHorzAlign = palCenter; ResultLbl.clProSettings.FontVertAlign = palCenter; ResultLbl.SetclProSettings(ResultLbl.clProSettings);
MainForm.AddNewEvent(SaveBtn, tbeOnClick, 'SaveNote'); MainForm.AddNewEvent(ClearBtn, tbeOnClick, 'ClearNote'); }
void BuildUI; { CreateHeader; CreateMainContent; }
{ MainForm = TclForm.Create(Self); MainForm.SetFormColor('#F3F4F6', '#F3F4F6', clGNone);
ScaledLayout = MainForm.AddNewScaledLayout(MainForm, 'ScaledLayout'); ScaledLayout.Align = alClient; ScaledLayout.OriginalHeight = 750; ScaledLayout.OriginalWidth = 350;
BuildUI;
MainForm.FormWaiting.Visible = False; MainForm.BtnFormMenu.Visible = False; MainForm.BtnGoBack.Visible = False;
MainForm.Run; }
bileşenlere özellik atamalarını tek tek yaparsan aldığın hata çözülecektir https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">
|