Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - vertscollbox kullanımı
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

vertscollbox kullanımı

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
dilarayaprak Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2025
Konum: konya
Durum: Aktif Değil
Puanlar: 24
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı dilarayaprak Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: vertscollbox kullanımı
    Gönderim Zamanı: 21 Saat 31 Dakika Önce Saat 09:46
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');

  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'); 
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'); 
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');
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');
homeForm.AddNewEvent(btnIstatistik, tbeOnClick, 'istatistiktiklandi');

 homeForm.Run;
 
}
Yukarı Dön
Sudesigirci Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 24 Haziran 2025
Konum: KONYA
Durum: Aktif Değil
Puanlar: 145
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (1) Teşekkürler(1)   Alıntı Sudesigirci Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 20 Saat 41 Dakika Önce Saat 10:36
Merhaba Dilara,

kartPanel = homeForm.AddNewProPanel(vertScrollBox, 'kart_' + currentId);
bu satırı bu şekilde değiştirerek tekrar deneyebilir misin?

iyi çalışmalar dilerim.
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,090 Saniyede Yüklendi.