Public Sub LoadSQLiteDB(SQLite As SQL, Query As String, AutomaticWidths As Boolean)
Dim Curs As Cursor
(This is line 1989:) Curs = SQLite.ExecQuery(Query)
cAutomaticWidths = AutomaticWidths
mNumberOfColumns = Curs.ColumnCount
innerClearAll(mNumberOfColumns)
Dim Headers(mNumberOfColumns) As String
Dim ColumnWidths(mNumberOfColumns) As Int
Dim HeaderWidths(mNumberOfColumns) As Int
Dim DataWidths(mNumberOfColumns) As Int
Dim cColumnDataType(mNumberOfColumns) As String
Dim col, row As Int
Dim str As String
For col = 0 To mNumberOfColumns - 1
cColumnDataType(col) = "TEXT"
Headers(col) = Curs.GetColumnName(col)
If AutomaticWidths = False Then
ColumnWidths(col) = 130dip
HeaderWidths(col) = 130dip
DataWidths(col) = 130dip
Else
HeaderWidths(col) = cvs.MeasureStringWidth(Headers(col), Typeface.DEFAULT, cTextSize) + ExtraWidth
DataWidths(col) = 0
For row = 0 To Curs.RowCount - 1
Curs.Position = row
str = Curs.GetString2(col)
If str <> Null Then
DataWidths(col) = Max(DataWidths(col), cvs.MeasureStringWidth(str, Typeface.DEFAULT, cTextSize) + ExtraWidth)
End If
Next
ColumnWidths(col) = Max(HeaderWidths(col), DataWidths(col))
End If
Next
SetHeader(Headers)
SetColumnsWidths(ColumnWidths)
For row = 0 To Curs.RowCount - 1
Dim R(mNumberOfColumns), str As String
For col = 0 To mNumberOfColumns - 1
Curs.Position = row
str = Curs.GetString2(col)
If str <> Null Then
R(col) = str
Else
R(col) = ""
End If
Next
AddRow(R)
Next
Curs.Close
' Log(Data.Size)
End Sub