Apex True Dbgrid 6.0 Crack
Argimiro Krishnamoorthy
Pro Cycling Manager is a nice tool to play games. It has 3D game engine which is not extended and overhauled. Race decors are created from true-life geographical data and enhanced with lighting and shading effects, for a stunning race experience.
Hangover Helper Pro is your only true friend when you wake up somewhere unknown, with a hangover, after attending a social event involving consumption of alcoholic beverages. The easy and headache friendly panorama-layout starts out by letting you
The ChunkSize can less than or equal to 65280 bytes and not64K as mentioned in the online documentation. This is true forall the chunking methods GetChunk, GetChunkByte, GetChunkByte ,GetChunkByteEx and ReadChunk.
Whenever the Data Controlsunderlying Recordset is moved to EOF or BOF, the grid will notpaint properly if the user attempts to use it while in thatstate. So, each time you are finished using ORADC1.Recordset inyour code it is advisable to check for BOF and EOF, and if ittrue, do a MoveFirst followed by a MoveLast in the case of EOF orMoveLast followed by MoveFirst in the case of BOF. This willcause the rows to be repainted.
Whenever the Data Controlsunderlying Recordset is moved to EOF or BOF, the grid will notpaint properly if the user attempts to use it while in thatstate. So, each time you are finished using ORADC1.Recordset inyour code it is advisable to check for EOF or BOF, and if it istrue, do a MoveLast in the case of EOF, and do a MoveLastfollowed by a MoveFirst in the case of BOF.
I am trying to write the code for the UnboundReadDataEx event. I have a
problem when Startlocation is Null and Offset is 0. What the heck is
supposed to be done here?
Cheers
Charles
Tue, 03 Sep 2002 03:00:00 GMT Stoil Marino
#2 / 2 True DBGrid UnboundReadDataEx Hi Charles,
There are good examples that come with the true DBGrid that show you how to
handle this. Here is some code from one of my projects that actually is not
much different from the above mentioned examples. Note that it comes very
handy if you make several helper functions that will handle the Bookmark to
Index and back conversion as well as generating a new bookmark.
The function GetUserData() (not shown in here) simply fetches data from an
array that serves as a data source for the grid.
miLineCount is the current number of rows in the grid.
You will probably need to modify this code for your needs.
Regards,
Stoil
'This is the Grid Event code:
Private Sub tdbquery_UnboundReadDataEx(ByVal RowBuf As RowBuffer,
StartLocation As Variant, ByVal OffSet As Long, ApproximatePosition As
Long)
' UnboundReadData is fired by an unbound grid whenever
' it requires data for display. This event will fire
' when the grid is first shown, when Refresh or ReBind
' is used, when the grid is scrolled, and after a
' record in the grid is modified and the user commits
' the change by moving off of the current row. The
' grid fetches data in "chunks", and the number of rows
' the grid is asking for is given by RowBuf.RowCount.
' RowBuf is the row buffer where you place the data
' the bookmarks for the rows that the grid is
' requesting to display. It will also hold the number
' of rows that were successfully supplied to the grid.
' StartLocation is a bookmark which, together with
' Offset, specifies the row for the programmer to start
' transferring data. A StartLocation of Null indicates
' a request for data from BOF or EOF.
' Offset specifies the relative position (from
' StartLocation) of the row for the programmer to start
' transferring data. A positive number indicates a
' forward relative position while a negative number
' indicates a backward relative position. Regardless
' of whether the rows to be read are before or after
' StartLocation, rows are always fetched going forward
' (this is why there is no ReadPriorRows parameter to
' the procedure).
' If you page down on the grid, for instance, the new
' top row of the grid will have an index greater than
' the StartLocation (Offset > 0). If you page up on
' the grid, the new index is less than that of
' StartLocation, so Offset < 0. If StartLocation is
' a bookmark to row N, the grid always asks for row
' data in the following order:
' (N + Offset), (N + Offset + 1), (N + Offset + 2)...
' ApproximatePosition is a value you can set to indicate
' the ordinal position of (StartLocation + Offset).
' Setting this variable will enhance the ability of the
' grid to display its vertical scroll bar accurately.
' If the exact ordinal position of the new location is
'' not known, you can set it to a reasonable,
' approximate value, or just ignore this parameter.
Dim ColIndex As Integer, J As Integer
Dim RowsFetched As Integer, i As Long
Dim NewPosition As Long, Bookmark As Variant
RowsFetched = 0
'Debug.Print "UnboundReadDataEx: ", Now
For i = 0 To RowBuf.RowCount - 1
' Get the bookmark of the next available row
Bookmark = GetRelativeBookmark(StartLocation, _
OffSet + i)
' If the next row is BOF or EOF, then stop fetching
' and return any rows fetched up to this point.
If IsNull(Bookmark) Then Exit For
' Place the record data into the row buffer
For J = 0 To RowBuf.ColumnCount - 1
ColIndex = RowBuf.ColumnIndex(i, J)
RowBuf.Value(i, J) = GetUserData(Bookmark, _
ColIndex)
Next J
' Set the bookmark for the row
RowBuf.Bookmark(i) = Bookmark
' Increment the count of fetched rows
RowsFetched = RowsFetched + 1
Next i
' Tell the grid how many rows were fetched
RowBuf.RowCount = RowsFetched
' Set the approximate scroll bar position. Only
' nonnegative values of IndexFromBookmark() are valid.
NewPosition = IndexFromBookmark(StartLocation, OffSet)
If NewPosition >= 0 Then
ApproximatePosition = NewPosition
End If
End Sub
'These are the helper functions:
Private Function GetRelativeBookmark(BookMk As Variant, OffSet As Long) As
Variant
' GetRelativeBookmark is used to get a bookmark for a
' row that is a specified number of rows away from the
' given row. Offset specifies the number of rows to
' move. A positive Offset indicates that the desired
' row is after the one referred to by Bookmark, and a
' negative Offset means it is before the one referred
' to by Bookmark.
Dim index As Long
' compute the rowindex for the desired row
index = IndexFromBookmark(BookMk, OffSet)
If index < 0 Or index >= miLineCount Then
' invalid row (e.g., EOF or BOF)
GetRelativeBookmark = Null
Else
GetRelativeBookmark = MakeBookmark(index)
End If
End Function
Private Function IndexFromBookmark(BookMk As Variant, OffSet As Long) As
Long
' This support function is used only by the remaining
' support functions. It is not used directly by the
' unbound events.
' IndexFromBookmark computes the row index that
' corresponds to a row that is (Offset) rows from the
' row specified by the Bookmark parameter. For example,
' if Bookmark refers to the index 50 of the dataset
' array and Offset = -10, then IndexFromBookmark will
' return 50 + (-10), or 40. Thus to get the index of
' the row specified by the bookmark itself, call
' IndexFromBookmark with an Offset of 0. If the given
' Bookmark is Null, it refers to BOF or EOF. If
' Offset < 0, the grid is requesting rows before the
' row specified by Bookmark, and so we must be at EOF
' because prior rows do not exist for BOF. Conversely,
' if Offset > 0, we are at BOF.
Dim index As Long
If IsNull(BookMk) Then
' A null bookmark signifies EOF or BOF (which one depends on whether we
are trying to
' Read Rows Prior to Bookmk or rows after Bookmk)
If OffSet < 0 Then
' the grid is asking for rows prior to Bookmk
' we want EOF since you can not read rows prior to BOF
' (miLineCount - 1) is the last element of the array, so
miLineCount is the index for our EOF marker
index = miLineCount + OffSet
Else ' the grid is asking for rows after Bookmk
' we want BOF since you can not read rows after EOF
' the first element of the array is 0, so -1 is the index for
our BOF marker
IndexFromBookmark = -1 + OffSet
End If
Else
' convet the string to a long integer
index = Val(BookMk) + OffSet
End If
' if by chance we get an invalid index, set it to a bogus value to
cause an error
If index >= 0 And index < miLineCount Then
IndexFromBookmark = index
Else
'invalid bookmark
IndexFromBookmark = -9999
End If
End Function
Private Function MakeBookmark(index As Long) As Variant
' For consistency, this is the *only* function that will create
bookmarks
' When using string bookmarks, use Str$() to produce bookmarks that
are_
' at least 2 bytes in length
' Index - value on which our bookmark is based
MakeBookmark = Format$(index, gLineNumFormat)
End Function
Quote:
> Hello all
> I am trying to write the code for the UnboundReadDataEx event. I have a
> problem when Startlocation is Null and Offset is 0. What the heck is
> supposed to be done here?
> Cheers
> Charles
computer_2();
Tue, 03 Sep 2002 03:00:00 GMT Page 1 of 1
[ 2 post ] Relevant Pages 1. APEX True DBGrid vs. Sheridan DATA WIDGETS DBGrid