var

  uForm : TclStyleForm;

  btnUnit : TclButton;

  edtUnit : TclEdit;

  edtUrunAdi, edtUrunAciklamasi, edtUrunStok, edtBarkodBilgi, edtUrunFiyat : TclEdit;

  btnInsert : TclButton;

  testListview : TClListView;

  Qry : TClSQLiteQuery;

  database, password : String;

  okutBtn: TclButton;

  Unit2 : TclUnit;

  isUnit2Open: Boolean = False; // Unit2'nin açık olup olmadığını belirleyecek kod

void BarkodOkut;

{ 

  uForm.CallBarcodeReader(edtBarkodBilgi); 

}

void SendToMyForm;

{

  CallerForm.clShow;

}

void GetData;

{

  try

    Qry = Clomosy.DBSQLiteQueryWith('SELECT ''Urun adi:'' || UrunAdi as MAIN_TEXT, ''Urun Fiyati:'' || UrunFiyat as SIDE_TEXT_CENTER, ''Urun stok:'' || UrunStok as SIDE_TEXT_TOP, ''Barkod No:'' || BarkodOkut as FOOTER_TEXT, ''Urun Açıklaması:'' || Aciklamasi as SUB_TEXT FROM Categories');

    Qry.OpenOrExecute;

    testListview.clLoadListViewDataFromDataset(Qry);

  except

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

  }

}

void InsertToDatabase;

{

  try

    Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Categories (UrunAdi, Aciklamasi, UrunStok, BarkodOkut, UrunFiyat) VALUES (' + QuotedStr(edtUrunAdi.Text) + ',' + QuotedStr(edtUrunAciklamasi.Text) + ',' + edtUrunStok.Text + ',' + QuotedStr(edtBarkodBilgi.Text) + ',' + edtUrunFiyat.Text + ')';

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    GetData;

    ShowMessage('Veri ekleme başarılı');

    edtUrunAdi.Text = '';

    edtUrunFiyat.Text = '';

    edtUrunAciklamasi.Text = '';

    edtUrunStok.Text = '';

    edtBarkodBilgi.Text = '';

  except

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

  } 

}

void dokunmaDurum;

{

  if (uForm.clFormGestureEvent_GestureID == 264 && !isUnit2Open) 

  {

    isUnit2Open = True; // Unit2'nin açık olduğunu belirleme

    Clomosy.RunUnit('Unit2');

  }

  else {

    ShowMessage('Calismadi');

  }

}

void Unit2CloseEvent;

{

  isUnit2Open = False; // Unit2 kapandığında sıfırlancak

}

{

  uForm = TclStyleForm.Create(Self);

  edtUrunAdi = uForm.AddNewEdit(uForm, 'edtUrunAdi', 'UrunAdi');

  edtUrunAdi.Align = alMostTop;

  edtUrunAciklamasi = uForm.AddNewEdit(uForm, 'edtUrunAciklamasi', 'Aciklamasi');

  edtUrunAciklamasi.Align = alMostTop;

  edtUrunFiyat = uForm.AddNewEdit(uForm, 'edtUrunFiyat', 'Urun Fiyati');

  edtUrunFiyat.Align = alMostTop;

  edtUrunStok = uForm.AddNewEdit(uForm, 'edtUrunStok', 'UrunStok');

  edtUrunStok.Align = alMostTop;

  okutBtn = uForm.AddNewButton(uForm, 'okutBtn', 'Barkodu okutunuz');

  okutBtn.TextSettings.Font.Size = 40;

  okutBtn.Height = 50;

  okutBtn.Align = alMostTop;

  edtBarkodBilgi = uForm.AddNewEdit(uForm, 'edtBarkodBilgi', 'Barkod No:');

  edtBarkodBilgi.Align = alMostTop;

  uForm.AddNewEvent(okutBtn, tbeOnMouseDown, 'BarkodOkut');

  testListview = uForm.AddNewListView(uForm, 'testListview');

  testListview.Align = alClient;

  btnInsert = uForm.AddNewButton(uForm, 'btnInsert', 'Ekle');

  btnInsert.Align = alBottom;

  btnInsert.Height = 55;

  uForm.AddNewEvent(btnInsert, tbeOnMouseDown, 'InsertToDatabase');

  uForm.clSetTouchIG(igLongTap, testListview);

  uForm.AddNewEvent(testListview, tbeOnGesture, 'dokunmaDurum');

  database = Clomosy.AppFilesPath + 'ClomosyDatabase.db3';

  password = '';

  try

    Clomosy.DBSQLiteConnect(database, password);

    Clomosy.DBSQLiteQuery.SQL.Text = 'CREATE TABLE IF NOT EXISTS Categories(UrunAdi Text, Aciklamasi Text, UrunStok Text, BarkodOkut Text, UrunFiyat Text)';

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    ShowMessage('Veri tabanına tablo ekleme işlemi başarılı!');

  except

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

  }

  GetData;

  uForm.Run;

}

--------------------------------------------------------------------

TclStyleForm

Syntax error.

Source position: 53,52

Clomosy Build : 20240709.111531

--------------------------------------------------------------------

bu hatayı veriyor ben Booleanı yanlış kullandığımı düşünüyorum ve hatayı bulamıyorum