|
merhaba, vertscollbox eklemeye çalıştım ama yeni öğe eklendiğinde sorun yaşıyorum yardımcı olabilir misiniz
var homeForm: TclForm; vertScrollBox: TclVertScrollBox; panel, kartPanel, silPanel, bottomPanel, frontPanel, backPanel: TclProPanel; lblText,lblTurkish,lblEnglish: TclProLabel; currentId: String; btnSil,btnHome, btnIstatistik,btnOyun,btnAdd: TclProButton; mainPanel: TclProPanel; void FlipKart var senderPanel, front, back: TclProPanel; id: String; { senderPanel = TclProPanel(homeForm.ClSender); id = senderPanel.Hint;
front = Clomosy.FindComponent('front_' + id); back = Clomosy.FindComponent('back_' + id);
if front.Visible { front.Visible = False; back.Visible = True; } else { front.Visible = True; back.Visible = False; } }
void Addtiklandi; { Clomosy.RunUnit('Addbtn'); }
void hometiklandi; { Clomosy.RunUnit('Homebtn'); }
void istatistiktiklandi; { Clomosy.RunUnit('Istatistikbtn'); }
void btnoyuntiklandi; { Clomosy.RunUnit('Oyunbtn'); }
void SilButonuTiklandi var
btn: TclProButton; silinecekId: String; { btn = TclProButton(homeForm.ClSender); silinecekId = btn.Hint;
try { Clomosy.DBSQLiteQuery.Close; Clomosy.DBSQLiteQuery.SQL.Text = 'DELETE FROM kartlar WHERE id = ' + silinecekId; Clomosy.DBSQLiteQuery.OpenOrExecute;
Clomosy.RunUnit('Homebtn'); } except { } } }
{
homeForm = TclForm.Create(Self); homeForm.clSetCaption('Kayıtlı Kelimeler'); homeForm.SetFormBGImage(' https://i.imgur.com/fPwWs0H.jpeg" rel="nofollow - https://i.imgur.com/fPwWs0H.jpeg ');
panel = homeForm.AddNewProPanel(homeForm, 'panel'); panel.Align=alClient; vertScrollBox = homeForm.AddNewVertScrollBox(panel, ''); vertScrollBox.Align = alClient;
Clomosy.DBSQLiteQuery.Close; Clomosy.DBSQLiteQuery.SQL.Text = 'SELECT id, english, turkish FROM kartlar'; Clomosy.DBSQLiteQuery.OpenOrExecute;
while (not Clomosy.DBSQLiteQuery.Eof) { currentId = Clomosy.DBSQLiteQuery.FieldByName('id').AsString;
kartPanel = homeForm.AddNewProPanel(panel, 'kart_' + currentId); kartPanel.Align = alTop; kartPanel.Height = 100; kartPanel.Margins.Bottom = 10; kartPanel.ClProSettings.BackGroundColor = clAlphaColor.clHexToColor('#e6e6e6'); kartPanel.ClProSettings.RoundHeight = 10; kartPanel.ClProSettings.RoundWidth = 10; kartPanel.clProSettings.IsRound=True; kartPanel.clProSettings.RoundHeight=20; kartPanel.clProSettings.Roundwidth=20; kartPanel.SetclProSettings(kartPanel.ClProSettings);
// Ön Yüz frontPanel = homeForm.AddNewProPanel(kartPanel, 'front_' + currentId); frontPanel.Align = alClient; frontPanel.Visible = True; frontPanel.Hint = currentId;
lblEnglish = homeForm.AddNewProLabel(frontPanel, '', ''); lblEnglish.Align = alCenter; lblEnglish.Caption = 'EN: ' + Clomosy.DBSQLiteQuery.FieldByName('english').AsString; lblEnglish.ClProSettings.FontSize = 18; lblEnglish.ClProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); lblEnglish.SetclProSettings(lblEnglish.ClProSettings);
// Arka Yüz backPanel = homeForm.AddNewProPanel(kartPanel, 'back_' + currentId); backPanel.Align = alClient; backPanel.Visible = False; backPanel.Hint = currentId;
lblTurkish = homeForm.AddNewProLabel(backPanel, '', ''); lblTurkish.Align = alCenter; lblTurkish.Caption = 'TR: ' + Clomosy.DBSQLiteQuery.FieldByName('turkish').AsString; lblTurkish.ClProSettings.FontSize = 18; lblTurkish.ClProSettings.FontColor = clAlphaColor.clHexToColor('#000000'); lblTurkish.SetclProSettings(lblTurkish.ClProSettings);
// Sil Panel silPanel = homeForm.AddNewProPanel(kartPanel, ''); silPanel.Align = alRight; silPanel.Width = 60;
btnSil = homeForm.AddNewProButton(silPanel, '', 'Sil'); btnSil.Align = alClient; btnSil.ClProSettings.BackGroundColor = clAlphaColor.clHexToColor('#660000'); btnSil.SetclProSettings(btnSil.ClProSettings);
btnSil.Hint = currentId;
homeForm.AddNewEvent(btnSil, tbeOnClick, 'SilButonuTiklandi');
homeForm.AddNewEvent(btnSil, tbeOnClick, 'SilButonuTiklandi'); homeForm.AddNewEvent(frontPanel, tbeOnClick, 'FlipKart'); homeForm.AddNewEvent(backPanel, tbeOnClick, 'FlipKart');
Clomosy.DBSQLiteQuery.Next; }
bottomPanel=homeForm.AddNewProPanel(panel,'bottomPanel'); bottomPanel.Align=alMostBottom; bottomPanel.Align=alHorizontal; bottomPanel.Height=50; bottomPanel.Width=300; bottomPanel.clProSettings.RoundHeight=20; bottomPanel.clProSettings.Roundwidth=20; bottomPanel.clProSettings.IsTransparent =False; bottomPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff'); bottomPanel.clProSettings.BorderWidth = 2; bottomPanel.SetclProSettings(bottomPanel.clProSettings); // home btnHome = homeForm.AddNewProButton(bottomPanel, 'btnHome', ''); btnHome.Align = alLeft; btnHome.margins.left=20; btnHome.margins.bottom=10; btnHome.Width = 70; btnHome.Height = 70; btnHome.clProSettings.IsRound = True; btnHome.clProSettings.RoundHeight = 10; btnHome.clProSettings.RoundWidth = 10; btnHome.SetclProSettings(btnHome.clProSettings); homeForm.SetImage(btnHome,' https://i.imgur.com/FfEKaFY.png" rel="nofollow - https://i.imgur.com/FfEKaFY.png '); homeForm.AddNewEvent(btnHome, tbeOnClick, 'hometiklandi');
btnAdd = homeForm.AddNewProButton(bottomPanel, 'btnAdd', ''); btnAdd.Align = alLeft; btnAdd.margins.left=20; btnAdd.margins.bottom=10; btnAdd.Width = 70; btnAdd.Height = 70; btnAdd.clProSettings.IsRound = True; btnAdd.clProSettings.RoundHeight = 10; btnAdd.clProSettings.RoundWidth = 10; btnAdd.SetclProSettings(btnHome.clProSettings); homeForm.SetImage(btnAdd,' https://i.imgur.com/bB8i9zb.png" rel="nofollow - https://i.imgur.com/bB8i9zb.png '); homeForm.AddNewEvent(btnAdd, tbeOnClick, 'Addtiklandi');
btnOyun = homeForm.AddNewProButton(bottomPanel, 'btnOyun', ''); btnOyun.Align = alLeft; btnOyun.margins.left=20; btnOyun.margins.bottom=10; btnOyun.Width = 70; btnOyun.Height = 70; btnOyun.clProSettings.IsRound = True; btnOyun.clProSettings.RoundHeight = 10; btnOyun.clProSettings.RoundWidth = 10; btnOyun.SetclProSettings(btnOyun.clProSettings); homeForm.SetImage(btnOyun,' https://i.imgur.com/ewHakWR.png" rel="nofollow - https://i.imgur.com/ewHakWR.png '); homeForm.AddNewEvent(btnOyun, tbeOnClick, 'btnoyuntiklandi');
btnIstatistik = homeForm.AddNewProButton(bottomPanel, 'btnIstatistik', ''); btnIstatistik.Align = alLeft; btnIstatistik.margins.left=20; btnIstatistik.margins.bottom=10; btnIstatistik.Width = 70; btnIstatistik.Height = 70; btnIstatistik.clProSettings.IsRound = True; btnIstatistik.clProSettings.RoundHeight = 10; btnIstatistik.clProSettings.RoundWidth = 10; btnIstatistik.SetclProSettings(btnIstatistik.clProSettings); homeForm.SetImage(btnIstatistik,' https://i.imgur.com/n0uCd4p.png" rel="nofollow - https://i.imgur.com/n0uCd4p.png '); homeForm.AddNewEvent(btnIstatistik, tbeOnClick, 'istatistiktiklandi');
homeForm.Run; }
|