Clomosy | Forum : SQLite

SQLite : var MyForm: TclForm; MainPnl,...

Wed, 30 Jul 2025 16:22:46 +0000

Yazar: Emr.Erkmn
Konu: 1152
G�nderim Zaman�: 30 Temmuz 2025 Saat 16:22

var

MyForm: TclForm;

MainPnl, habit1pnl, ustPanel,baslik1pnl,secimPanel,mypanel: TclProPanel;

butonlar: array[0..31] of TClProButton;

i, j: Integer;

baslik1btn:TClProButton;

gunSayisi, ilkGun, haftalikIndex: Integer;

hedefSatir: TclProPanel;

gunler: array[0..6] of String;

gunEtiketleri: array[0..6] of TclProLabel;

vScroll: TClVertScrollBox;

aylar: array[0..11] of String;

ayLabel: TClProLabel;

satir1Label, satir1, satir2, satir3, satir4, satir5, satir6: TclProPanel;

yilbaslik:tclprolabel;

elimage:tclproimage;

secimaliskanlikbtn1,secimaliskanlikbtn2,secimaliskanlikbtn3,secimaliskanlikbtn4:TClProButton;

Imagecircle,Imagecircle2,Imagecircle3,Imagecircle4:tclproimage;

secimkapatbtn:TClProButton;

mybuton1,mybuton2,mybuton3,mybuton4:TClProButton;

gunIndex, satirIndex: Integer;

bosLabel: TclProLabel;

habitbaslik:tclprolabel;

habitQuery: TClSQLiteQuery;

gelenHabitAdi: String;

habitId: Integer;

habitname:String;

habitListQuery:TClSQLiteQuery;

secilenHabitId: Integer; // Se�ilen al��kanl�k ID'si

secilenHabitName: String; // Se�ilen al��kanl�k ad�

secilenHabitColor: String; // Se�ilen al��kanl�k rengi

void CreateTableHabitskayit;

{

try

{

Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBHabitDays.db3', '');

Clomosy.DBSQLiteQuery.SQL.Text =

'CREATE TABLE IF NOT EXISTS HabitDays (' +

'ID INTEGER PRIMARY KEY AUTOINCREMENT,' +

'habitId INTEGER,' +

'year INTEGER,' +

'month INTEGER,' +

'day INTEGER '+')';

Clomosy.DBSQLiteQuery.OpenOrExecute();

}

except

ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);

}

void CreateTableHabits;

{

try

{

Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBHabits.db3', '');

Clomosy.DBSQLiteQuery.SQL.Text =

'CREATE TABLE IF NOT EXISTS Habits (' +

'habitId INTEGER PRIMARY KEY AUTOINCREMENT,' +

'habitName TEXT,' +

'habitColor TEXT '+')';

Clomosy.DBSQLiteQuery.OpenOrExecute();

// �rnek al��kanl�klar� ekle

Clomosy.DBSQLiteQuery.SQL.Text =

'INSERT OR IGNORE INTO Habits (habitId, habitName, habitColor) VALUES ' +

'(1, ''Spor Yapmak'', ''#FF6B6B''),' + // K�rm�z�

'(2, ''�ngilizce �al��mak'', ''#4ECDC4''),' + // Ye�il

'(3, ''Kitap Okumak'', ''#45B7D1''),' + // Mavi

'(4, ''Meditasyon'', ''#96CEB4''),' + // A��k ye�il

'(5, ''Su ��mek'', ''#FFEAA7''),' + // Sar�

'(6, ''Kod Yazmak'', ''#DDA0DD'')'; // Mor

Clomosy.DBSQLiteQuery.OpenOrExecute();

}

except

ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);

}

void OnTakvimButonClick

var

tiklananBtn: TClProButton;

hintStr: String;

habitIdStr, ayStr, gunStr: String;

secilenAy, secilenGun, secilenYil: Integer;

i, altCizgiSayisi: Integer;

parca: String;

{

// E�er hen�z al��kanl�k se�ilmemi�se uyar� ver

if (secilenHabitId == 0) {

ShowMessage('�nce bir al��kanl�k se�in!');

}

tiklananBtn = TClProButton(MyForm.clSender);

hintStr = tiklananBtn.Hint; // �rnek: "3_15" (ay_g�n)

ayStr = '';

gunStr = '';

parca = '';

altCizgiSayisi = 0;

for (i = 1 to Length(hintStr)) {

if (hintStr == '_') {

ayStr = parca;

parca = '';

altCizgiSayisi = altCizgiSayisi + 1;

} else {

parca = parca + hintStr;

}

gunStr = parca;

if ((ayStr <> '') && (gunStr <> '')) {

secilenAy = StrToInt(ayStr);

secilenGun = StrToInt(gunStr);

secilenYil = 2026;

try {

Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBHabitDays.db3', '');

// �nce bu tarihte bu al��kanl�k i�in kay�t var m� kontrol et

Clomosy.DBSQLiteQuery.SQL.Text =

'SELECT COUNT(*) as kayitSayisi FROM HabitDays WHERE ' +

'habitId = ' + IntToStr(secilenHabitId) + ' AND ' +

'year = ' + IntToStr(secilenYil) + ' AND ' +

'month = ' + IntToStr(secilenAy) + ' AND ' +

'day = ' + IntToStr(secilenGun);

Clomosy.DBSQLiteQuery.OpenOrExecute();

if (Clomosy.DBSQLiteQuery.FieldByName('kayitSayisi').AsInteger == 0) {

// Kay�t yoksa ekle

Clomosy.DBSQLiteQuery.SQL.Text =

'INSERT INTO HabitDays (habitId, year, month, day) VALUES (' +

IntToStr(secilenHabitId) + ',' +

IntToStr(secilenYil) + ',' +

IntToStr(secilenAy) + ',' +

IntToStr(secilenGun) + ')';

Clomosy.DBSQLiteQuery.OpenOrExecute();

// Butonun rengini se�ilen al��kanl�k rengine de�i�tir

tiklananBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(secilenHabitColor);

tiklananBtn.SetclProSettings(tiklananBtn.clProSettings);

ShowMessage(secilenHabitName + ' al��kanl�� i�in ' +

IntToStr(secilenGun) + '.' + IntToStr(secilenAy) + ' tarihi kaydedildi!');

} else {

// Kay�t varsa sil

Clomosy.DBSQLiteQuery.SQL.Text =

'DELETE FROM HabitDays WHERE ' +

'habitId = ' + IntToStr(secilenHabitId) + ' AND ' +

'year = ' + IntToStr(secilenYil) + ' AND ' +

'month = ' + IntToStr(secilenAy) + ' AND ' +

'day = ' + IntToStr(secilenGun);

Clomosy.DBSQLiteQuery.OpenOrExecute();

// Butonun rengini geri al

tiklananBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF'); // Beyaz

tiklananBtn.SetclProSettings(tiklananBtn.clProSettings);

ShowMessage(secilenHabitName + ' al��kanl�� i�in ' +

IntToStr(secilenGun) + '.' + IntToStr(secilenAy) + ' tarihi silindi!');

}

except {

ShowMessage('Hata olu�tu: ' + LastExceptionMessage);

}

void AliskanlikButonlariOlustur

var

habitName: String;

habitId: Integer;

habitColor: String;

habitQuery: TClSQLiteQuery;

yeniBtn: TClProButton;

habitIndex: Integer;

{

try {

Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBHabits.db3', '');

habitQuery = Clomosy.DBSQLiteQueryWith('SELECT habitId, habitName, habitColor FROM Habits ORDER BY habitId');

habitQuery.OpenOrExecute;

habitIndex = 1;

while (not habitQuery.Eof) {

habitId = habitQuery.FieldByName('habitId').AsInteger;

habitName = habitQuery.FieldByName('habitName').AsString;

habitColor = habitQuery.FieldByName('habitColor').AsString;

// Yeni al��kanl�k butonu olu�tur

yeniBtn = MyForm.AddNewProButton(secimPanel, 'habitBtn_' + IntToStr(habitId), habitName);

yeniBtn.Align = alTop;

yeniBtn.Margins.Top = 5;

yeniBtn.Width = 100;

yeniBtn.Height = 50;

yeniBtn.clProSettings.IsRound = True;

yeniBtn.clProSettings.FontSize = 14;

yeniBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor(habitColor);

yeniBtn.clProSettings.BorderWidth = 3;

yeniBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(habitColor);

yeniBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

yeniBtn.Hint = IntToStr(habitId) + '|' + habitColor; // Habit ID ve rengi Hint'e sakla

yeniBtn.SetclProSettings(yeniBtn.clProSettings);

MyForm.AddNewEvent(yeniBtn, tbeOnClick, 'OnHabitButtonClick');

habitIndex = habitIndex + 1;

habitQuery.Next;

}

except {

ShowMessage('Butonlar olu�turulurken hata: ' + LastExceptionMessage);

}

void KayitliGunleriIsaretle

var

kayitQuery: TClSQLiteQuery;

kayitAy, kayitGun: Integer;

butonAdi: String;

hedefButon: TClProButton;

{

try {

if (secilenHabitId == 0)

Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBHabitDays.db3', '');

kayitQuery = Clomosy.DBSQLiteQueryWith(

'SELECT month, day FROM HabitDays WHERE habitId = ' + IntToStr(secilenHabitId) +

' AND year = 2026 ORDER BY month, day'

);

kayitQuery.OpenOrExecute;

while (not kayitQuery.Eof) {

kayitAy = kayitQuery.FieldByName('month').AsInteger;

kayitGun = kayitQuery.FieldByName('day').AsInteger;

// Buton ad�n� olu�tur (ay-1 ��nk� array 0'dan ba�lar)

butonAdi = 'btn' + IntToStr(kayitAy - 1) + '_' + IntToStr(kayitGun - 1);

// Butonu bul ve rengini de�i�tir

hedefButon = TClProButton(MyForm.FindComponent(butonAdi));

if (hedefButon <> nil) {

hedefButon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(secilenHabitColor);

hedefButon.SetclProSettings(hedefButon.clProSettings);

}

kayitQuery.Next;

}

except {

ShowMessage('Kay�tl� g�nler i�aretlenirken hata: ' + LastExceptionMessage);

}

void OnHabitButtonClick

var

tiklananBtn: TClProButton;

tiklananHabitName: String;

tiklananHabitId: String;

tiklananHabitColor: String;

hintStr: String;

i, pipeIndex: Integer;

{

tiklananBtn = TClProButton(MyForm.clSender);

tiklananHabitName = tiklananBtn.Text;

hintStr = tiklananBtn.Hint;

// Hint'ten ID ve rengi al (manuel parsing)

pipeIndex = 0;

for (i = 1 to Length(hintStr)) {

if (hintStr == '|') {

pipeIndex = i;

break;

}

if (pipeIndex > 0) {

tiklananHabitId = Copy(hintStr, 1, pipeIndex - 1);

tiklananHabitColor = Copy(hintStr, pipeIndex + 1, Length(hintStr) - pipeIndex);

} else {

tiklananHabitId = hintStr;

tiklananHabitColor = '#90EE90'; // Varsay�lan ye�il

}

// Se�ilen al��kanl�k bilgilerini sakla

secilenHabitId = StrToInt(tiklananHabitId);

secilenHabitName = tiklananHabitName;

secilenHabitColor = tiklananHabitColor;

// Ba�l�� g�ncelle

habitbaslik.Text = 'ALI�KANLIK: ' + tiklananHabitName;

// Se�im panelini gizle

secimPanel.Visible = false;

// Kay�tl� g�nleri i�aretle

KayitliGunleriIsaretle();

ShowMessage(tiklananHabitName + ' al��kanl�� se�ildi! Art�k takvimde g�nlere t�klayabilirsiniz.');

}

void aliskanlikclick

{

secimpanel.Visible = not secimpanel.Visible;

}

function GunSayisi(ay: Integer; yil: Integer): Integer

{

if ((ay == 1) || (ay == 3) || (ay == 5) || (ay == 7) || (ay == 8) || (ay == 10) || (ay == 12))

Result = 31

else if ((ay == 4) || (ay == 6) || (ay == 9) || (ay == 11))

Result = 30

else if (ay == 2)

{

if ((yil mod 4 == 0) && ((yil mod 100 <> 0) || (yil mod 400 == 0)))

Result = 29

else

Result = 28

}

else

Result = 0

}

function AyIlkGunuHaftaninKaci(ay: Integer; yil: Integer): Integer

var

d, m, y, k, j, h,gun: Integer

{

d = 1

if ay < 3

{

ay = ay + 12

yil = yil - 1

}

m = ay

y = yil mod 100

j = yil div 100

h = (d + (13*(m + 1)) div 5 + y + (y div 4) + (j div 4) + 5*j) mod 7

gun = (h + 5) mod 7 //

Result = gun

}

void TakvimCiz(ay,yil: Integer)

var

gunSayisi, ilkGun, i, haftalikIndex: Integer;

hedefSatir: TclProPanel;

gunEtiketi: TclProLabel;

{

gunSayisi = GunSayisi(ay, yil)

ilkGun = AyIlkGunuHaftaninKaci(ay, yil)

for i = 0 to gunSayisi - 1

{

haftalikIndex = i + ilkGun - 1

if (haftalikIndex < 7)

hedefSatir = satir1

else if (haftalikIndex < 14)

hedefSatir = satir2

else if (haftalikIndex < 21)

hedefSatir = satir3

else if (haftalikIndex < 28)

hedefSatir = satir4

else

hedefSatir = satir5

gunEtiketi = MyForm.AddNewProLabel(

hedefSatir,

'lblGun_' + IntToStr(ay) + '_' + IntToStr(i + 1),

IntToStr(i + 1)

)

gunEtiketi.Align = alRight

gunEtiketi.Margins.Right = 18

gunEtiketi.Margins.Left = 3

gunEtiketi.Width = 30

gunEtiketi.clProSettings.FontSize = 14

gunEtiketi.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000')

gunEtiketi.clProSettings.FontVertAlign = palLeading

gunEtiketi.clProSettings.FontHorzAlign = palcenter

gunEtiketi.SetclProSettings(gunEtiketi.clProSettings)

}

{

MyForm = TclForm.Create(Self);

MainPnl = myForm.AddNewProPanel(myForm, 'MainPnl');

MainPnl.Align = alClient;

MainPnl.Align=alCenter;

MainPnl.Height=630;

MainPnl.Width=400;

MainPnl.clProSettings.RoundHeight=40;

MainPnl.clProSettings.Roundwidth=40;

MainPnl.clProSettings.IsTransparent =False;

MainPnl.SetclProSettings(MainPnl.clProSettings);

habit1pnl = MyForm.AddNewProPanel(MainPnl, 'habit1pnl');

habit1pnl.Align = alClient;

habit1pnl.SetclProSettings(habit1pnl.clProSettings);

baslik1pnl = MyForm.AddNewProPanel(habit1pnl, 'baslik1pnl');

baslik1pnl.Align = alTop;

baslik1pnl.Margins.left=11;

baslik1pnl.Height = 100;

baslik1pnl.width = 200;

baslik1pnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#cccccc');

baslik1pnl.clProSettings.BorderWidth = 1;

baslik1pnl.SetclProSettings(baslik1pnl.clProSettings);

yilbaslik = myform.AddNewProLabel(baslik1pnl,'yilbaslik','YILLIK ALI�KANLIK TAK�B�');

yilbaslik.Align = altop;

yilbaslik.margins.left=60;

yilbaslik.Width = 300;

yilbaslik.Height = 30;

yilbaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

yilbaslik.clProSettings.FontSize = 20;

yilbaslik.clProSettings.FontVertAlign = palcenter;

yilbaslik.clProSettings.FontHorzAlign = palLeading;

yilbaslik.clProSettings.TextSettings.Font.Style = [fsBold];

yilbaslik.clProSettings.IsFill = True;

yilbaslik.clProSettings.IsRound = True;

yilbaslik.SetclProSettings(yilbaslik.clProSettings);

habitbaslik = myform.AddNewProLabel(baslik1pnl,'habitbaslik','ALI�KANLIK:');

habitbaslik.Align = alcenter;

habitbaslik.margins.left=210;

habitbaslik.margins.right=30;

habitbaslik.Width = 300;

habitbaslik.Height = 30;

habitbaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

habitbaslik.clProSettings.FontSize = 15;

habitbaslik.clProSettings.FontVertAlign = palcenter;

habitbaslik.clProSettings.FontHorzAlign = palLeading;

habitbaslik.clProSettings.TextSettings.Font.Style = [fsBold];

habitbaslik.clProSettings.IsFill = True;

habitbaslik.clProSettings.IsRound = True;

habitbaslik.SetclProSettings(habitbaslik.clProSettings);

baslik1btn = MyForm.AddNewProButton(baslik1pnl, 'baslik1btn', 'Al��kanl�klar');

baslik1btn.Align = alcenter;

baslik1btn.Width = 100;

baslik1btn.Height = 50;

baslik1btn.Margins.Right = 240;

baslik1btn.clProSettings.IsRound = True;

baslik1btn.clProSettings.FontSize = 14;

baslik1btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ea9eff');

baslik1btn.clProSettings.BorderWidth = 2;

baslik1btn.SetclProSettings(baslik1btn.clProSettings);

MyForm.AddNewEvent(baslik1btn, tbeOnClick, 'aliskanlikclick');

////////////////////////////////////////////////////////////////////////////////

secimPanel=MyForm.AddNewProPanel(MainPnl,'secimPanel');

secimPanel.Align = AlCenter;

secimpanel.margins.right=170;

secimpanel.margins.bottom=200;

secimPanel.Width = 200;

secimPanel.Height =250;

secimPanel.clProSettings.IsRound = True;

secimPanel.visible=false;

secimPanel.SetclProSettings(secimPanel.clProSettings);

///////////////////////////////////////////////////////////////////////////////7

elImage = myForm.AddNewProImage(baslik1pnl, 'elImage');

elImage.Align = alcenter;

elimage.margins.right=140;

elImage.margins.top=25;

elImage.Width = 22;

elImage.Height = 24;

myForm.SetImage(elImage, 'https://i.imgur.com/4bxFXAo.png');

//////////////////////////////////////////////////////////////////////////////////////7

vScroll = MyForm.AddNewVertScrollBox(habit1pnl, 'vScroll');

vScroll.Align = alClient;

aylar = ['Ocak','�ubat','Mart','Nisan','May�s','Haziran','Temmuz','A�ustos','Eyl�l','Ekim','Kas�m','Aral�k'];

for (j = 0 to 11) {

ustPanel = MyForm.AddNewProPanel(vScroll, 'ustPanel' + IntToStr(j));

ustPanel.Align = alTop;

ustPanel.Width = vScroll.Width;

ustPanel.Margins.Left = 0;

ustPanel.Margins.Right = 0;

ustPanel.Height = 400;

ustPanel.Margins.Top = 10;

ustPanel.clProSettings.RoundHeight = 10;

ustPanel.clProSettings.RoundWidth = 10;

ustPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#cccccc');

ustPanel.clProSettings.BorderWidth = 2;

ustPanel.SetclProSettings(ustPanel.clProSettings);

ayLabel = MyForm.AddNewProLabel(ustPanel, 'ayLabel' + IntToStr(j), aylar[j] + ', 2026');

ayLabel.Align = alTop;

aylabel.Margins.left=20;

ayLabel.Height = 50;

ayLabel.clProSettings.FontSize = 18;

ayLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

ayLabel.clProSettings.TextSettings.Font.Style = [fsBold];

ayLabel.SetclProSettings(ayLabel.clProSettings);

satir1Label = MyForm.AddNewProPanel(ustPanel, 'satir1Label' + IntToStr(j));

satir1Label.Align = alTop;

satir1Label.Height = 24;

gunler = ['Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat', 'Sun'];

for (i = 0 to 6) {

gunEtiketleri = MyForm.AddNewProLabel(satir1Label, 'lblGun' + IntToStr(j) + '_' + IntToStr(i), gunler);

gunEtiketleri.Align = alLeft;

gunEtiketleri.Margins.left = 18;

gunEtiketleri.Margins.right= 3;

gunEtiketleri.Width = 30;

gunEtiketleri.clProSettings.FontSize = 14;

gunEtiketleri.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

gunEtiketleri.clProSettings.FontVertAlign = palLeading;

gunEtiketleri.clProSettings.FontHorzAlign = palcenter;

gunEtiketleri.SetclProSettings(gunEtiketleri.clProSettings);

}

satir1 = MyForm.AddNewProPanel(ustPanel, 'satir1' + IntToStr(j)); satir1.Align = alTop; satir1.margins.left = 12; satir1.Height = 40;

satir2 = MyForm.AddNewProPanel(ustPanel, 'satir2' + IntToStr(j)); satir2.Align = alTop; satir2.margins.left = 12; satir2.Height = 40;

satir3 = MyForm.AddNewProPanel(ustPanel, 'satir3' + IntToStr(j)); satir3.Align = alTop; satir3.margins.left = 12; satir3.Height = 40;

satir4 = MyForm.AddNewProPanel(ustPanel, 'satir4' + IntToStr(j)); satir4.Align = alTop; satir4.margins.left = 12; satir4.Height = 40;

satir5 = MyForm.AddNewProPanel(ustPanel, 'satir5' + IntToStr(j)); satir5.Align = alTop; satir5.margins.left = 12; satir5.Height = 40;

satir6 = MyForm.AddNewProPanel(ustPanel, 'satir6' + IntToStr(j)); satir6.Align = alTop; satir6.margins.left = 12; satir6.Height = 40;

gunSayisi = GunSayisi(j + 1, 2026);

ilkGun = AyIlkGunuHaftaninKaci(j + 1, 2026); // 0: Pazartesi, 6: Pazar

for (i = 0 to ilkGun - 1) {

bosLabel = MyForm.AddNewProLabel(satir1, 'lblBos' + IntToStr(j) + '_' + IntToStr(i), '');

bosLabel.Align = alLeft;

bosLabel.Width = 45;

bosLabel.Height = 32;

bosLabel.Margins.Right = 2;

bosLabel.Margins.Top = 4;

bosLabel.Margins.Left = 4;

}

for (i = 0 to gunSayisi - 1) {

gunIndex = (i + ilkGun) mod 7; // 0: Pazartesi, 6: Pazar

satirIndex = (i + ilkGun) div 7; // 0: ilk sat�r, 1: ikinci sat�r, ...

if (satirIndex == 0) hedefSatir = satir1;

else if (satirIndex == 1) hedefSatir = satir2;

else if (satirIndex == 2) hedefSatir = satir3;

else if (satirIndex == 3) hedefSatir = satir4;

else if (satirIndex == 4) hedefSatir = satir5;

else hedefSatir = satir6;

butonlar = MyForm.AddNewProButton(hedefSatir, 'btn' + IntToStr(j) + '_' + IntToStr(i), IntToStr(i + 1));

butonlar.Hint = IntToStr(j + 1) + '_' + IntToStr(i + 1);

butonlar.Align = alLeft;

butonlar.Margins.Right = 2;

butonlar.Margins.Top = 4;

butonlar.Margins.Left = 4;

butonlar.Width = 45;

butonlar.Height = 32;

butonlar.clProSettings.PictureSource = 'https://i.imgur.com/exBB3ZA.png';

butonlar.clProSettings.PictureAutoFit = true;

butonlar.clProSettings.IsRound = true;

butonlar.clProSettings.FontSize = 9;

butonlar.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

butonlar.SetclProSettings(butonlar.clProSettings);

MyForm.AddNewEvent(butonlar, tbeOnClick, 'OnTakvimButonClick');

}

mypanel=myForm.AddNewProPanel(MainPnl,'mypanel');

mypanel.Align=alMostBottom;

mypanel.Align=alHorizontal;

mypanel.Height=200;

mypanel.Width=300;

mypanel.clProSettings.RoundHeight=20;

mypanel.clProSettings.Roundwidth=20;

mypanel.clProSettings.IsTransparent =False;

mypanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');

mypanel.clProSettings.BorderWidth = 2;

mypanel.SetclProSettings(mypanel.clProSettings);

mybuton1=myForm.AddNewProButton(mypanel, 'mybuton1', '');

mybuton1.Align = alLeft;

mybuton1.margins.left=50;

mybuton1.margins.bottom=130;

mybuton1.Width = 40;

mybuton1.Height = 40;

mybuton1.clProSettings.IsRound = True;

mybuton1.clProSettings.RoundHeight = 10;

mybuton1.clProSettings.RoundWidth = 10;

mybuton1.SetclProSettings(mybuton1.clProSettings);

myForm.SetImage(mybuton1,'https://i.imgur.com/KcmLm4h.png');

mybuton2=myForm.AddNewProButton(mypanel, 'mybuton2', '');

mybuton2.Align = alLeft;

mybuton2.margins.left=45;

mybuton2.margins.bottom=130;

mybuton2.Width = 40;

mybuton2.Height = 40;

mybuton2.clProSettings.IsRound = True;

mybuton2.clProSettings.RoundHeight = 10;

mybuton2.clProSettings.RoundWidth = 10;

mybuton2.SetclProSettings(mybuton2.clProSettings);

myForm.SetImage(mybuton2,'https://i.imgur.com/mcpG1Ot.png');

mybuton3=myForm.AddNewProButton(mypanel, 'mybuton3', '');

mybuton3.Align = alLeft;

mybuton3.margins.left=45;

mybuton3.margins.bottom=130;

mybuton3.Width = 40;

mybuton3.Height = 40;

mybuton3.clProSettings.IsRound = True;

mybuton3.clProSettings.RoundHeight = 10;

mybuton3.clProSettings.RoundWidth = 10;

mybuton3.SetclProSettings(mybuton3.clProSettings);

myForm.SetImage(mybuton3,'https://i.imgur.com/yOGrUe4.png');

mybuton4=myForm.AddNewProButton(mypanel, 'mybuton4', '');

mybuton4.Align = alMostRight;

mybuton4.margins.right=50;

mybuton4.margins.bottom=130;

mybuton4.Width = 40;

mybuton4.Height = 40;

mybuton4.clProSettings.IsRound = True;

mybuton4.clProSettings.RoundHeight = 10;

mybuton4.clProSettings.RoundWidth = 10;

mybuton4.SetclProSettings(mybuton4.clProSettings);

myForm.SetImage(mybuton4,'https://i.imgur.com/dKnXBVF.png');

CreateTableHabitskayit;

CreateTableHabits;

AliskanlikButonlariOlustur;

MyForm.Run;

}

Kodu kendin de �al��t�r�r m�s�n?

SQLite : kodun yapısında clomosy'nin...

Wed, 30 Jul 2025 15:05:26 +0000
Yazar: goksuselvi
Konu: 1152
G�nderim Zaman�: 30 Temmuz 2025 Saat 15:05

kodun yap�s�nda clomosy'nin desteklemedi�i metotlar var tekrar soruna bakabilir misin?< id="BFI_" style="width: 1px; height: 1px; display: none;">

TRANSLATE with x

< name="Menu_svid" ="text" id="Menu_svid" style="display:none;" autocomplete="on" value="en" ="."> < name="Menu_textid" ="text" id="Menu_textid" style="display:none;" autocomplete="on" ="."> English

Arabic Hebrew Polish
Bulgarian Hindi Portuguese
Catalan Hmong Daw Romanian
Chinese Simplified Hungarian Russian
Chinese Traditional Indonesian Slovak
Czech Italian Slovenian
Danish Japanese Spanish
Dutch Klingon Swedish
English Korean Thai
Estonian Latvian Turkish
Finnish Lithuanian Ukrainian
French Malay Urdu
German Maltese Vietnamese
Greek Norwegian Welsh
Haitian Creole Persian

var LanguageMenu; var LanguageMenu_keys=["ar","bg","ca","zh-CHS","zh-CHT","cs","da","nl","en","et","fi","fr","de","el","ht","he","hi","mww","hu","id","it","ja","tlh","ko","lv","lt","ms","mt","no","fa","pl","pt","ro","ru","sk","sl","es","sv","th","tr","uk","ur","vi","cy"]; var LanguageMenu_values=["Arabic","Bulgarian","Catalan","Chinese Simplified","Chinese Traditional","Czech","Danish","Dutch","English","Estonian","Finnish","French","German","Greek","Haitian Creole","Hebrew","Hindi","Hmong Daw","Hungarian","Indonesian","Italian","Japanese","Klingon","Korean","Latvian","Lithuanian","Malay","Maltese","Norwegian","Persian","Polish","Portuguese","Romanian","Russian","Slovak","Slovenian","Spanish","Swedish","Thai","Turkish","Ukrainian","Urdu","Vietnamese","Welsh"]; var LanguageMenu_callback=function(){ }; var LanguageMenu_popupid='__LanguageMenu_popup';

TRANSLATE with

COPY THE URL BELOW

< name="ShareText" ="text" id="ShareText" readonly="readonly" =".">

Back
< name="EmailSubject" ="" id="EmailSubject" value="Check out page in 0 translated from 1"> < name="Email" ="" id="Email" value="Translated: 0%0d%0aOriginal: 1%0d%0a%0d%0aAutomatic translation powered by Microsoft� Translator%0d%0ahttp://www.bing.com/translator?ref=MSTWidget"> < ="" id="ShareHelpText" value=" allows visitors to launch page and automatically translate it to 0.">

EMBED THE SNIPPET BELOW IN YOUR SITE

< name="SnippetText" ="text" id="SnippetText" readonly="readonly" value="
< ='text/'>setTimeout(function(){var s=document.createElement('script');s.type='text/javascript';s.charset='UTF-8';s.src=((location && location.href && location.href.indexOf('https') == 0)?'https://ssl.microsofttranslator.com':'http://www.microsofttranslator.com')+'/ajax/v3/WidgetV3.ashx?siteData=ueOIGRSKkd965FeEGM5JtQ**&ctf=true&ui=true&settings=manual&from=en';var p=document.getElementsByTagName('head')[0]||document.documentElement;p.insertBefore(s,p.firstChild); },0);" onclick="this.select()">

Enable collaborative features and customize widget: Bing Webmaster Portal

Back

var intervalId = setInterval(function () { if (MtPopUpList) { LanguageMenu = new MtPopUpList(); var langMenu = document.getElementById(LanguageMenu_popupid); var origLangDiv = document.createElement("div"); origLangDiv.id = "OriginalLanguageDiv"; origLangDiv.innerHTML = "ORIGINAL: "; langMenu.appendChild(origLangDiv); LanguageMenu.Init('LanguageMenu', LanguageMenu_keys, LanguageMenu_values, LanguageMenu_callback, LanguageMenu_popupid); window["LanguageMenu"] = LanguageMenu; clearInterval(intervalId); } }, 1);

SQLite : Merhaba Göksu,senin eksik olan...

Wed, 30 Jul 2025 14:03:57 +0000
Yazar: CelalTugay
Konu: 1152
G�nderim Zaman�: 30 Temmuz 2025 Saat 14:03

Merhaba G�ksu,
senin eksik olan void OnHabitButtonClick k�sm�na
void OnHabitButtonClick
var
tiklananBtn: TClProButton;
tiklananHabitName: String;
panelName: String;
selectedHabitId: Integer;
daysQuery: TClSQLiteQuery;
yil, ay, gun: Integer;
{
try {
tiklananBtn = TClProButton(MyForm.clSender);
tiklananHabitName = tiklananBtn.Text;

// Ba�l�� g�ncelle
habitbaslik.Text = 'ALI�KANLIK: ' + tiklananHabitName;

// Se�ilen al��kanl��n ID'sini buton ad�ndan �ek
// �rnek: habitBtn_3 => ID: 3
selectedHabitId = StrToInt(tiklananBtn.Name.Replace('habitBtn_', ''));

// Veritaban�na ba�lan
Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBHabitDays.db3', '');

// 2026 y�l�ndaki verileri �ek (istenirse y�l dinamik yap�labilir)
daysQuery = Clomosy.DBSQLiteQueryWith(
'SELECT year, month, day FROM HabitDays WHERE habitId = :id AND year = :yil'
);
daysQuery.Params.ParamByName('id').AsInteger = selectedHabitId;
daysQuery.Params.ParamByName('yil').AsInteger = 2026;
daysQuery.OpenOrExecute;

// Takvimdeki t�m g�n butonlar�n� resetle (varsa renk/ikon)
for (i = 0 to 11) {
for (j = 0 to 31) {
if (Assigned(butonlar[j])) {
butonlar[j].clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
butonlar[j].clProSettings.PictureSource = '';
butonlar[j].SetclProSettings(butonlar[j].clProSettings);
}
}
}

// G�nleri i�aretle
while (not daysQuery.Eof) {
ay = daysQuery.FieldByName('month').AsInteger;
gun = daysQuery.FieldByName('day').AsInteger;

// �rnek buton ad�: btn3_14 (Mart ay�n�n 15. g�n�)
panelName = 'btn' + IntToStr(ay - 1) + '_' + IntToStr(gun - 1);
if (MyForm.ControlExists(panelName)) {
tiklananBtn = TClProButton(MyForm.FindComponent(panelName));

// Arka plan� ye�il yap veya ikon koy
tiklananBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#00aa00');
tiklananBtn.clProSettings.PictureSource = 'https://i.imgur.com/QAvBAvU.png'; // �rnek tik ikonu
tiklananBtn.clProSettings.PictureAutoFit = true;
tiklananBtn.SetclProSettings(tiklananBtn.clProSettings);
}

daysQuery.Next;
}
}
except {
ShowMessage('Hata olu�tu: ' + LastExceptionMessage);
}
}

�eklinde yaz�p butonlar�n tan�mlar�n� da yapt�ysan �al��r diye umuyorum.
iyi �al��malar.

SQLite : var MyForm: TclForm; MainPnl,...

Wed, 30 Jul 2025 10:04:48 +0000
Yazar: goksuselvi
Konu: 1152
G�nderim Zaman�: 30 Temmuz 2025 Saat 10:04

var
MyForm: TclForm;
MainPnl, habit1pnl, ustPanel,baslik1pnl,secimPanel,mypanel: TclProPanel;
butonlar: array[0..31] of TClProButton;
i, j: Integer;
baslik1btn:TClProButton;
gunSayisi, ilkGun, haftalikIndex: Integer;
hedefSatir: TclProPanel;
gunler: array[0..6] of String;
gunEtiketleri: array[0..6] of TclProLabel;
vScroll: TClVertScrollBox;
aylar: array[0..11] of String;
ayLabel: TClProLabel;
satir1Label, satir1, satir2, satir3, satir4, satir5, satir6: TclProPanel;
yilbaslik:tclprolabel;
elimage:tclproimage;
secimaliskanlikbtn1,secimaliskanlikbtn2,secimaliskanlikbtn3,secimaliskanlikbtn4:TClProButton;
Imagecircle,Imagecircle2,Imagecircle3,Imagecircle4:tclproimage;
secimkapatbtn:TClProButton;
mybuton1,mybuton2,mybuton3,mybuton4:TClProButton;
gunIndex, satirIndex: Integer;
bosLabel: TclProLabel;
habitbaslik:tclprolabel;
habitQuery: TClSQLiteQuery;
gelenHabitAdi: String;
habitId: Integer;
habitname:String;
habitListQuery:TClSQLiteQuery;

void AliskanlikButonlariOlustur
var
habitName: String;
habitId: Integer;
habitQuery: TClSQLiteQuery;
yeniBtn: TClProButton;
habitIndex: Integer;
{
try {
Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBHabits.db3', '');

habitQuery = Clomosy.DBSQLiteQueryWith('SELECT habitId, habitName FROM Habits ORDER BY habitId');
habitQuery.OpenOrExecute;

habitIndex = 1;
while (not habitQuery.Eof) {
habitId = habitQuery.FieldByName('habitId').AsInteger;
habitName = habitQuery.FieldByName('habitName').AsString;

// Yeni al��kanl�k butonu olu�tur
yeniBtn = MyForm.AddNewProButton(secimPanel, 'habitBtn_' + IntToStr(habitId), habitName);
yeniBtn.Align = alTop;
yeniBtn.Margins.Top = 5;
yeniBtn.Width = 100;
yeniBtn.Height = 50;
yeniBtn.clProSettings.IsRound = True;
yeniBtn.clProSettings.FontSize = 14;
yeniBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ea9eff');
yeniBtn.clProSettings.BorderWidth = 2;
yeniBtn.SetclProSettings(yeniBtn.clProSettings);

MyForm.AddNewEvent(yeniBtn, tbeOnClick, 'OnHabitButtonClick');

habitIndex = habitIndex + 1;
habitQuery.Next;
}
}
except {
ShowMessage('Butonlar olu�turulurken hata: ' + LastExceptionMessage);
}
}
}




void CreateTableHabitskayit;
{
try
{
Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBHabitDays.db3', '');
Clomosy.DBSQLiteQuery.SQL.Text =
'CREATE TABLE IF NOT EXISTS HabitDays (' +
'ID INTEGER PRIMARY KEY AUTOINCREMENT,' +
'habitId INTEGER,' +
'year INTEGER,' +
'month INTEGER,' +
'day INTEGER '+')';
Clomosy.DBSQLiteQuery.OpenOrExecute();
}
except
ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);
}
}





////////////7////YAPAMADIM////////////////////////7
void OnHabitButtonClick
var
tiklananBtn: TClProButton;
tiklananHabitName: String;
panelName: String;

{
tiklananBtn = TClProButton(MyForm.clSender);
tiklananHabitName = tiklananBtn.Text;


habitbaslik.Text = 'ALI�KANLIK: ' + tiklananHabitName;



}



void aliskanlikclick

{
secimpanel.Visible = not secimpanel.Visible;
}


function GunSayisi(ay: Integer; yil: Integer): Integer
{
if ((ay == 1) || (ay == 3) || (ay == 5) || (ay == 7) || (ay == 8) || (ay == 10) || (ay == 12))
Result = 31
else if ((ay == 4) || (ay == 6) || (ay == 9) || (ay == 11))
Result = 30
else if (ay == 2)
{
if ((yil mod 4 == 0) && ((yil mod 100 <> 0) || (yil mod 400 == 0)))
Result = 29
else
Result = 28
}
else
Result = 0
}

function AyIlkGunuHaftaninKaci(ay: Integer; yil: Integer): Integer
var
d, m, y, k, j, h,gun: Integer
{

d = 1
if ay < 3
{
ay = ay + 12
yil = yil - 1
}

m = ay
y = yil mod 100
j = yil div 100

h = (d + (13*(m + 1)) div 5 + y + (y div 4) + (j div 4) + 5*j) mod 7
gun = (h + 5) mod 7 //
Result = gun
}

void TakvimCiz(ay,yil: Integer)
var
gunSayisi, ilkGun, i, haftalikIndex: Integer;
hedefSatir: TclProPanel;
gunEtiketi: TclProLabel;
{
gunSayisi = GunSayisi(ay, yil)
ilkGun = AyIlkGunuHaftaninKaci(ay, yil)

for i = 0 to gunSayisi - 1
{
haftalikIndex = i + ilkGun - 1

if (haftalikIndex < 7)
hedefSatir = satir1
else if (haftalikIndex < 14)
hedefSatir = satir2
else if (haftalikIndex < 21)
hedefSatir = satir3
else if (haftalikIndex < 28)
hedefSatir = satir4
else
hedefSatir = satir5

gunEtiketi = MyForm.AddNewProLabel(
hedefSatir,
'lblGun_' + IntToStr(ay) + '_' + IntToStr(i + 1),
IntToStr(i + 1)
)

gunEtiketi.Align = alRight
gunEtiketi.Margins.Right = 18
gunEtiketi.Margins.Left = 3
gunEtiketi.Width = 30
gunEtiketi.clProSettings.FontSize = 14
gunEtiketi.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000')
gunEtiketi.clProSettings.FontVertAlign = palLeading
gunEtiketi.clProSettings.FontHorzAlign = palcenter
gunEtiketi.SetclProSettings(gunEtiketi.clProSettings)
}
}


{
MyForm = TclForm.Create(Self);

MainPnl = myForm.AddNewProPanel(myForm, 'MainPnl');
MainPnl.Align = alClient;

MainPnl.Align=alCenter;
MainPnl.Height=630;
MainPnl.Width=400;
MainPnl.clProSettings.RoundHeight=40;
MainPnl.clProSettings.Roundwidth=40;
MainPnl.clProSettings.IsTransparent =False;
MainPnl.SetclProSettings(MainPnl.clProSettings);


habit1pnl = MyForm.AddNewProPanel(MainPnl, 'habit1pnl');
habit1pnl.Align = alClient;
habit1pnl.SetclProSettings(habit1pnl.clProSettings);

baslik1pnl = MyForm.AddNewProPanel(habit1pnl, 'baslik1pnl');
baslik1pnl.Align = alTop;
baslik1pnl.Margins.left=11;
baslik1pnl.Height = 100;
baslik1pnl.width = 200;
baslik1pnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#cccccc');
baslik1pnl.clProSettings.BorderWidth = 1;
baslik1pnl.SetclProSettings(baslik1pnl.clProSettings);


yilbaslik = myform.AddNewProLabel(baslik1pnl,'yilbaslik','YILLIK ALI�KANLIK TAK�B�');
yilbaslik.Align = altop;
yilbaslik.margins.left=60;
yilbaslik.Width = 300;
yilbaslik.Height = 30;
yilbaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
yilbaslik.clProSettings.FontSize = 20;
yilbaslik.clProSettings.FontVertAlign = palcenter;
yilbaslik.clProSettings.FontHorzAlign = palLeading;
yilbaslik.clProSettings.TextSettings.Font.Style = [fsBold];
yilbaslik.clProSettings.IsFill = True;
yilbaslik.clProSettings.IsRound = True;
yilbaslik.SetclProSettings(yilbaslik.clProSettings);

habitbaslik = myform.AddNewProLabel(baslik1pnl,'habitbaslik','ALI�KANLIK:');
habitbaslik.Align = alcenter;
habitbaslik.margins.left=210;
habitbaslik.margins.right=30;
habitbaslik.Width = 300;
habitbaslik.Height = 30;
habitbaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
habitbaslik.clProSettings.FontSize = 15;
habitbaslik.clProSettings.FontVertAlign = palcenter;
habitbaslik.clProSettings.FontHorzAlign = palLeading;
habitbaslik.clProSettings.TextSettings.Font.Style = [fsBold];
habitbaslik.clProSettings.IsFill = True;
habitbaslik.clProSettings.IsRound = True;
habitbaslik.SetclProSettings(habitbaslik.clProSettings);




baslik1btn = MyForm.AddNewProButton(baslik1pnl, 'baslik1btn', 'Al��kanl�klar');
baslik1btn.Align = alcenter;
baslik1btn.Width = 100;
baslik1btn.Height = 50;
baslik1btn.Margins.Right = 240;
baslik1btn.clProSettings.IsRound = True;
baslik1btn.clProSettings.FontSize = 14;
baslik1btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ea9eff');
baslik1btn.clProSettings.BorderWidth = 2;
baslik1btn.SetclProSettings(baslik1btn.clProSettings);
MyForm.AddNewEvent(baslik1btn, tbeOnClick, 'aliskanlikclick');
////////////////////////////////////////////////////////////////////////////////
secimPanel=MyForm.AddNewProPanel(MainPnl,'secimPanel');
secimPanel.Align = AlCenter;
secimpanel.margins.right=170;
secimpanel.margins.bottom=200;
secimPanel.Width = 200;
secimPanel.Height =250;
secimPanel.clProSettings.IsRound = True;
secimPanel.visible=false;
secimPanel.SetclProSettings(secimPanel.clProSettings);

///////////////////////////////////////////////////////////////////////////////7

elImage = myForm.AddNewProImage(baslik1pnl, 'elImage');
elImage.Align = alcenter;
elimage.margins.right=140;
elImage.margins.top=25;
elImage.Width = 22;
elImage.Height = 24;
myForm.SetImage(elImage, 'https://i.imgur.com/4bxFXAo.png');


//////////////////////////////////////////////////////////////////////////////////////7
vScroll = MyForm.AddNewVertScrollBox(habit1pnl, 'vScroll');
vScroll.Align = alClient;

aylar = ['Ocak','�ubat','Mart','Nisan','May�s','Haziran','Temmuz','A�ustos','Eyl�l','Ekim','Kas�m','Aral�k'];


for (j = 0 to 11) {

ustPanel = MyForm.AddNewProPanel(vScroll, 'ustPanel' + IntToStr(j));
ustPanel.Align = alTop;
ustPanel.Width = vScroll.Width;
ustPanel.Margins.Left = 0;
ustPanel.Margins.Right = 0;
ustPanel.Height = 400;
ustPanel.Margins.Top = 10;
ustPanel.clProSettings.RoundHeight = 10;
ustPanel.clProSettings.RoundWidth = 10;
ustPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#cccccc');
ustPanel.clProSettings.BorderWidth = 2;
ustPanel.SetclProSettings(ustPanel.clProSettings);

ayLabel = MyForm.AddNewProLabel(ustPanel, 'ayLabel' + IntToStr(j), aylar[j] + ', 2026');
ayLabel.Align = alTop;
aylabel.Margins.left=20;
ayLabel.Height = 50;
ayLabel.clProSettings.FontSize = 18;
ayLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
ayLabel.clProSettings.TextSettings.Font.Style = [fsBold];
ayLabel.SetclProSettings(ayLabel.clProSettings);

satir1Label = MyForm.AddNewProPanel(ustPanel, 'satir1Label' + IntToStr(j));
satir1Label.Align = alTop;
satir1Label.Height = 24;

gunler = ['Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat', 'Sun'];
for (i = 0 to 6) {
gunEtiketleri = MyForm.AddNewProLabel(satir1Label, 'lblGun' + IntToStr(j) + '_' + IntToStr(i), gunler);
gunEtiketleri.Align = alLeft;
gunEtiketleri.Margins.left = 18;
gunEtiketleri.Margins.right= 3;
gunEtiketleri.Width = 30;
gunEtiketleri.clProSettings.FontSize = 14;
gunEtiketleri.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
gunEtiketleri.clProSettings.FontVertAlign = palLeading;
gunEtiketleri.clProSettings.FontHorzAlign = palcenter;
gunEtiketleri.SetclProSettings(gunEtiketleri.clProSettings);
}


satir1 = MyForm.AddNewProPanel(ustPanel, 'satir1' + IntToStr(j)); satir1.Align = alTop; satir1.margins.left = 12; satir1.Height = 40;
satir2 = MyForm.AddNewProPanel(ustPanel, 'satir2' + IntToStr(j)); satir2.Align = alTop; satir2.margins.left = 12; satir2.Height = 40;
satir3 = MyForm.AddNewProPanel(ustPanel, 'satir3' + IntToStr(j)); satir3.Align = alTop; satir3.margins.left = 12; satir3.Height = 40;
satir4 = MyForm.AddNewProPanel(ustPanel, 'satir4' + IntToStr(j)); satir4.Align = alTop; satir4.margins.left = 12; satir4.Height = 40;
satir5 = MyForm.AddNewProPanel(ustPanel, 'satir5' + IntToStr(j)); satir5.Align = alTop; satir5.margins.left = 12; satir5.Height = 40;
satir6 = MyForm.AddNewProPanel(ustPanel, 'satir6' + IntToStr(j)); satir6.Align = alTop; satir6.margins.left = 12; satir6.Height = 40;


gunSayisi = GunSayisi(j + 1, 2026);
ilkGun = AyIlkGunuHaftaninKaci(j + 1, 2026); // 0: Pazartesi, 6: Pazar


for (i = 0 to ilkGun - 1) {
bosLabel = MyForm.AddNewProLabel(satir1, 'lblBos' + IntToStr(j) + '_' + IntToStr(i), '');
bosLabel.Align = alLeft;
bosLabel.Width = 45;
bosLabel.Height = 32;
bosLabel.Margins.Right = 2;
bosLabel.Margins.Top = 4;
bosLabel.Margins.Left = 4;
}

for (i = 0 to gunSayisi - 1) {
gunIndex = (i + ilkGun) mod 7; // 0: Pazartesi, 6: Pazar
satirIndex = (i + ilkGun) div 7; // 0: ilk sat�r, 1: ikinci sat�r, ...

if (satirIndex == 0) hedefSatir = satir1;
else if (satirIndex == 1) hedefSatir = satir2;
else if (satirIndex == 2) hedefSatir = satir3;
else if (satirIndex == 3) hedefSatir = satir4;
else if (satirIndex == 4) hedefSatir = satir5;
else hedefSatir = satir6;

butonlar = MyForm.AddNewProButton(hedefSatir, 'btn' + IntToStr(j) + '_' + IntToStr(i), IntToStr(i + 1));
butonlar.Align = alLeft;
butonlar.Margins.Right = 2;
butonlar.Margins.Top = 4;
butonlar.Margins.Left = 4;
butonlar.Width = 45;
butonlar.Height = 32;
butonlar.clProSettings.PictureSource = 'https://i.imgur.com/exBB3ZA.png';
butonlar.clProSettings.PictureAutoFit = true;
butonlar.clProSettings.IsRound = true;
butonlar.clProSettings.FontSize = 9;
butonlar.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
butonlar.SetclProSettings(butonlar.clProSettings);
}
}

mypanel=myForm.AddNewProPanel(MainPnl,'mypanel');
mypanel.Align=alMostBottom;
mypanel.Align=alHorizontal;
mypanel.Height=200;
mypanel.Width=300;
mypanel.clProSettings.RoundHeight=20;
mypanel.clProSettings.Roundwidth=20;
mypanel.clProSettings.IsTransparent =False;
mypanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');
mypanel.clProSettings.BorderWidth = 2;
mypanel.SetclProSettings(mypanel.clProSettings);

mybuton1=myForm.AddNewProButton(mypanel, 'mybuton1', '');
mybuton1.Align = alLeft;
mybuton1.margins.left=50;
mybuton1.margins.bottom=130;
mybuton1.Width = 40;
mybuton1.Height = 40;
mybuton1.clProSettings.IsRound = True;
mybuton1.clProSettings.RoundHeight = 10;
mybuton1.clProSettings.RoundWidth = 10;
mybuton1.SetclProSettings(mybuton1.clProSettings);
myForm.SetImage(mybuton1,'https://i.imgur.com/KcmLm4h.png');

mybuton2=myForm.AddNewProButton(mypanel, 'mybuton2', '');
mybuton2.Align = alLeft;
mybuton2.margins.left=45;
mybuton2.margins.bottom=130;
mybuton2.Width = 40;
mybuton2.Height = 40;
mybuton2.clProSettings.IsRound = True;
mybuton2.clProSettings.RoundHeight = 10;
mybuton2.clProSettings.RoundWidth = 10;
mybuton2.SetclProSettings(mybuton2.clProSettings);
myForm.SetImage(mybuton2,'https://i.imgur.com/mcpG1Ot.png');

mybuton3=myForm.AddNewProButton(mypanel, 'mybuton3', '');
mybuton3.Align = alLeft;
mybuton3.margins.left=45;
mybuton3.margins.bottom=130;
mybuton3.Width = 40;
mybuton3.Height = 40;
mybuton3.clProSettings.IsRound = True;
mybuton3.clProSettings.RoundHeight = 10;
mybuton3.clProSettings.RoundWidth = 10;
mybuton3.SetclProSettings(mybuton3.clProSettings);
myForm.SetImage(mybuton3,'https://i.imgur.com/yOGrUe4.png');


mybuton4=myForm.AddNewProButton(mypanel, 'mybuton4', '');
mybuton4.Align = alMostRight;
mybuton4.margins.right=50;
mybuton4.margins.bottom=130;
mybuton4.Width = 40;
mybuton4.Height = 40;
mybuton4.clProSettings.IsRound = True;
mybuton4.clProSettings.RoundHeight = 10;
mybuton4.clProSettings.RoundWidth = 10;
mybuton4.SetclProSettings(mybuton4.clProSettings);
myForm.SetImage(mybuton4,'https://i.imgur.com/dKnXBVF.png');



AliskanlikButonlariOlustur;
MyForm.Run;
}

Merhaba,al��kanl�k butonuma bast��mda ba�l�k o al��kanl��m oluyo ve onun �zerinden sql ba�lant�s� yap�p butonlara basmak istiyorum her al��kanl��a �zel ama kodu yazamad�m yard�m ederseniz sevinirim isterseniz sayfan�n veri ald�� unittin kodunu da atabilirim.
< id="BFI_" style="width: 1px; height: 1px; display: none;">

TRANSLATE with x

< name="Menu_svid" ="text" id="Menu_svid" style="display:none;" autocomplete="on" value="en" ="."> < name="Menu_textid" ="text" id="Menu_textid" style="display:none;" autocomplete="on" ="."> English

Arabic Hebrew Polish
Bulgarian Hindi Portuguese
Catalan Hmong Daw Romanian
Chinese Simplified Hungarian Russian
Chinese Traditional Indonesian Slovak
Czech Italian Slovenian
Danish Japanese Spanish
Dutch Klingon Swedish
English Korean Thai
Estonian Latvian Turkish
Finnish Lithuanian Ukrainian
French Malay Urdu
German Maltese Vietnamese
Greek Norwegian Welsh
Haitian Creole Persian

var LanguageMenu; var LanguageMenu_keys=["ar","bg","ca","zh-CHS","zh-CHT","cs","da","nl","en","et","fi","fr","de","el","ht","he","hi","mww","hu","id","it","ja","tlh","ko","lv","lt","ms","mt","no","fa","pl","pt","ro","ru","sk","sl","es","sv","th","tr","uk","ur","vi","cy"]; var LanguageMenu_values=["Arabic","Bulgarian","Catalan","Chinese Simplified","Chinese Traditional","Czech","Danish","Dutch","English","Estonian","Finnish","French","German","Greek","Haitian Creole","Hebrew","Hindi","Hmong Daw","Hungarian","Indonesian","Italian","Japanese","Klingon","Korean","Latvian","Lithuanian","Malay","Maltese","Norwegian","Persian","Polish","Portuguese","Romanian","Russian","Slovak","Slovenian","Spanish","Swedish","Thai","Turkish","Ukrainian","Urdu","Vietnamese","Welsh"]; var LanguageMenu_callback=function(){ }; var LanguageMenu_popupid='__LanguageMenu_popup';

TRANSLATE with

COPY THE URL BELOW

< name="ShareText" ="text" id="ShareText" readonly="readonly" =".">

Back
< name="EmailSubject" ="" id="EmailSubject" value="Check out page in 0 translated from 1"> < name="Email" ="" id="Email" value="Translated: 0%0d%0aOriginal: 1%0d%0a%0d%0aAutomatic translation powered by Microsoft� Translator%0d%0ahttp://www.bing.com/translator?ref=MSTWidget"> < ="" id="ShareHelpText" value=" allows visitors to launch page and automatically translate it to 0.">

EMBED THE SNIPPET BELOW IN YOUR SITE

< name="SnippetText" ="text" id="SnippetText" readonly="readonly" value="
< ='text/'>setTimeout(function(){var s=document.createElement('script');s.type='text/javascript';s.charset='UTF-8';s.src=((location && location.href && location.href.indexOf('https') == 0)?'https://ssl.microsofttranslator.com':'http://www.microsofttranslator.com')+'/ajax/v3/WidgetV3.ashx?siteData=ueOIGRSKkd965FeEGM5JtQ**&ctf=true&ui=true&settings=manual&from=en';var p=document.getElementsByTagName('head')[0]||document.documentElement;p.insertBefore(s,p.firstChild); },0);" onclick="this.select()">

Enable collaborative features and customize widget: Bing Webmaster Portal

Back

var intervalId = setInterval(function () { if (MtPopUpList) { LanguageMenu = new MtPopUpList(); var langMenu = document.getElementById(LanguageMenu_popupid); var origLangDiv = document.createElement("div"); origLangDiv.id = "OriginalLanguageDiv"; origLangDiv.innerHTML = "ORIGINAL: "; langMenu.appendChild(origLangDiv); LanguageMenu.Init('LanguageMenu', LanguageMenu_keys, LanguageMenu_values, LanguageMenu_callback, LanguageMenu_popupid); window["LanguageMenu"] = LanguageMenu; clearInterval(intervalId); } }, 1);

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian