Clomosy | Forum : kod hatası

Clomosy | Forum : kod hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 06 Jul 2026 19:19:10 +0000 Mon, 06 Jul 2026 16:42:29 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1588 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[kod hatası : Merhaba Sümeyyevar MainForm: TclForm;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1588&PID=3666#3666 Yazar: Emr.Erkmn
Konu: 1588
Gönderim Zamanı: 06 Temmuz 2026 Saat 16:42

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" 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">]]> Mon, 06 Jul 2026 16:42:29 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1588&PID=3666#3666 <![CDATA[kod hatası : var MainForm: TCLForm; ScaledLayout:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1588&PID=3665#3665 Yazar: smeye
Konu: 1588
Gönderim Zamanı: 06 Temmuz 2026 Saat 16:05

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":"#4F46E5",

"RoundWidth":20,

"RoundHeight":20

}';

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.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.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":"#FFFFFF",

"RoundWidth":20,

"RoundHeight":20,

"BorderColor":"#E5E7EB",

"BorderWidth":1

}';

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.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":"#22C55E",

"RoundWidth":14,

"RoundHeight":14

}';

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":"#E5E7EB",

"RoundWidth":14,

"RoundHeight":14

}';

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":"#F3F4F6",

"RoundWidth":14,

"RoundHeight":14

}';

ResultLbl.SetclProSettings(ResultLbl.clProSettings);

MainForm.AddNewEvent(SaveBtn, tbeOnClick, 'SaveNote');

MainForm.AddNewEvent(ClearBtn, tbeOnClick, 'ClearNote');

}

void BuildUI;

{

CreateHeader;

CreateMainContent;

}

{

MainForm = TCLForm.Create(Self);

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;

}

kod hatası

RUNTIME ERROR

File library Main: Could not convert variant of type (UnicodeString) into type (Int64) when evaluating instruction CallProc ($FFFFFFFF,$FF,$17AAA70,$0,"clProSettings").

Stack content is: [Null,Null,Null,Null...].

Source position: 47,25

Position: 47, 25

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">]]> Mon, 06 Jul 2026 16:05:15 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1588&PID=3665#3665