'=======================================================
'B4XTable1.Initialize(Activity, "B4XTable1")
' editCol = B4XTable1.AddColumn("Επεξεργασία", B4XTable1.COLUMN_TYPE_TEXT)
' editCol.Sortable = False
' editCol.Width = 127dip
' B4XTable1.RowHeight = 50dip
' B4XTable1.NumberOfFrozenColumns = 1
' B4XTable1.AddColumn("Κωδικός", B4XTable1.COLUMN_TYPE_TEXT)
' B4XTable1.AddColumn("Περιγραφή", B4XTable1.COLUMN_TYPE_TEXT)
B4XTable1.AddColumn("Μ.Μ.", B4XTable1.COLUMN_TYPE_TEXT)
' B4XTable1.AddColumn("Τιμή", B4XTable1.COLUMN_TYPE_NUMBERS)
' B4XTable1.AddColumn("1η Εκπτ.", B4XTable1.COLUMN_TYPE_NUMBERS)
' B4XTable1.AddColumn("2η Εκπτ.", B4XTable1.COLUMN_TYPE_NUMBERS)
' B4XTable1.AddColumn("Ποσότητα", B4XTable1.COLUMN_TYPE_NUMBERS)
' B4XTable1.AddColumn("Σύνολο", B4XTable1.COLUMN_TYPE_NUMBERS)
' B4XTable1.AddColumn("% Φ.Π.Α.", B4XTable1.COLUMN_TYPE_NUMBERS)
' B4XTable1.AddColumn("Φ.Π.Α.", B4XTable1.COLUMN_TYPE_NUMBERS)
' B4XTable1.AddColumn("Σχόλιο", B4XTable1.COLUMN_TYPE_TEXT)
' PrefDialog.Initialize(Activity, "Επεξεγασία είδους", 300dip, 300dip)
' PrefDialog.AddNumberItem("PPrice", "Τιμή")
' PrefDialog.AddOptionsItem("QQuant123", "Ποσότητα123", Array(1.23, 1.45, 1.68))
' PrefDialog.AddNumberItem("QQuant", "Ποσότητα")
' PrefDialog.AddTextItem("CComment", "Σχόλιο")
' PrefDialog.SearchTemplate.MaxNumberOfItemsToShow = 300
' B4XTable1.BuildLayoutsCache(B4XTable1.MaximumRowsPerPage)
'Sleep(0)
'B4XTable1.SearchField.mBase.Visible=False
' For i = 1 To editCol.CellsLayouts.Size - 1
' Dim p As B4XView = editCol.CellsLayouts.Get(i)
' p.AddView(CreateButton("btnEdit", Chr(0xF044)), 2dip, 5dip, 40dip, 40dip)
' p.AddView(CreateButton("btnDelete", Chr(0xF00D)), 44dip, 5dip, 40dip, 40dip)
' 'p.AddView(EdTb.CreateButton("btnDuplicate",Chr(0xF0C5)), 85dip, 5dip, 40dip, 40dip)
' Next
'B4XTable1.SetData(Data)
'=======================================================