iyi günler göksü.Aşağıdaki kodu bir denermisin
var analizForm: TclForm; MainPnl: TCLProPanel; ListView1: TClProListView; DesignerPanel1: TClProListViewDesignerPanel; habitLabel: TClProLabel; addBtn: TClProButton; Edit1: TClProEdit; Qry: TClSQLiteQuery;
// -------------------------------------------------------------------- // HABIT TABLOSU OLUŞTUR void CreateHabitsTable { try Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBHabits.db3', ''); Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS Habits (' + 'habitId INTEGER PRIMARY KEY AUTOINCREMENT,' + 'habitName TEXT NOT NULL' + ')'; Clomosy.DBSQLiteQuery.OpenOrExecute; except ShowMessage('Hata: ' + LastExceptionMessage); } }
// -------------------------------------------------------------------- // HABIT LİSTESİNİ YÜKLE void LoadHabitsToListView { try Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBHabits.db3', ''); Qry = Clomosy.DBSQLiteQueryWith( 'SELECT habitId as clRecord_GUID, habitName as MAIN_TEXT FROM Habits' ); Qry.OpenOrExecute; if Qry.Found { ListView1.clLoadProListViewDataFromDataset(Qry); } Qry.Close; except ShowMessage('Listeleme hatası: ' + LastExceptionMessage); } }
// -------------------------------------------------------------------- // HABIT EKLE void AddHabit { try Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'DBHabits.db3', ''); Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO Habits (habitName) VALUES (' + QuotedStr(Edit1.Text) + ')'; Clomosy.DBSQLiteQuery.OpenOrExecute;
ShowMessage('Alışkanlık eklendi: ' + Edit1.Text);
LoadHabitsToListView; except ShowMessage('Ekleme hatası: ' + LastExceptionMessage); } }
// -------------------------------------------------------------------- // LİSTEVIEW TASARIM PANELİ void CreateDesignerPanel { DesignerPanel1 = analizForm.AddNewProListViewDesignerPanel(ListView1, 'DesignerPanel1'); DesignerPanel1.Height = 100; DesignerPanel1.Width = 200; DesignerPanel1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B3FCE5'); DesignerPanel1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#16FF8C'); DesignerPanel1.clProSettings.BorderWidth = 2; DesignerPanel1.clProSettings.RoundHeight = 20; DesignerPanel1.clProSettings.RoundWidth = 20; DesignerPanel1.SetclProSettings(DesignerPanel1.clProSettings);
ListView1.SetDesignerPanel(DesignerPanel1);
habitLabel = analizForm.AddNewProLabel(DesignerPanel1, 'MAIN_TEXT', '-'); habitLabel.Align = alClient; habitLabel.clProSettings.FontSize = 16; habitLabel.Margins.Top = 10; habitLabel.Margins.Left = 10; habitLabel.SetclProSettings(habitLabel.clProSettings);
DesignerPanel1.AddPanelObject(habitLabel, clText); }
// -------------------------------------------------------------------- // LİSTEVIEW OLUŞTUR void CreateListView { ListView1 = analizForm.AddNewProListView(MainPnl, 'ListView1'); ListView1.Align = alClient; ListView1.Margins.Bottom = 20; ListView1.Margins.Top = 20; ListView1.Margins.Right = 20; ListView1.Margins.Left = 20; ListView1.clProSettings.ViewType = lvIcon; ListView1.clProSettings.ColCount = 1; ListView1.clProSettings.ItemHeight = 100; ListView1.clProSettings.ItemSpace = 10; ListView1.clProSettings.RoundHeight = 5; ListView1.clProSettings.RoundWidth = 5; ListView1.SetclProSettings(ListView1.clProSettings); }
// -------------------------------------------------------------------- // BUTON CLICK EVENTİ void OnAddBtnClick { AddHabit; }
// -------------------------------------------------------------------- // FORM BAŞLANGIÇ { analizForm = TclForm.Create(Self);
MainPnl = analizForm.AddNewProPanel(analizForm, 'MainPnl'); MainPnl.Align = alClient;
Edit1 = analizForm.AddNewProEdit(MainPnl, 'Edit1', ''); Edit1.Align = alTop; Edit1.Height = 50; Edit1.Margins.Top = 20; Edit1.Margins.Left = 20; Edit1.Margins.Right = 20; Edit1.clProSettings.BackGroundColor = clAlphaColor.clHexToColor('#CDB4DB'); Edit1.clProSettings.IsTransparent = True; Edit1.clProSettings.IsFill = False; Edit1.clProSettings.IsRound = True; Edit1.clProSettings.RoundHeight = 20; Edit1.clProSettings.RoundWidth = 20; Edit1.clProSettings.FontSize = 16; Edit1.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); Edit1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff'); Edit1.SetclProSettings(Edit1.clProSettings);
addBtn = analizForm.AddNewProButton(MainPnl, 'addBtn', 'Ekle'); addBtn.Align = alBottom; addBtn.Height = 50; addBtn.clProSettings.IsRound = True; addBtn.SetclProSettings(addBtn.clProSettings); analizForm.AddNewEvent(addBtn, tbeOnClick, 'OnAddBtnClick');
CreateListView; CreateDesignerPanel; CreateHabitsTable; LoadHabitsToListView;
analizForm.Run; }
|