Xailer & OZ Software

Dear developers!
Is there any way to determine TBrowse's active cell coordinates (in pixels)?
I cannot calculate it by myself because I have nRowHeight = 0
Thank you. Oleg.

Oleg,
Take a loook at TBrwColumn:OnDrawCell event
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Oleg" <info@cluster.samara.ru> escribió en el mensaje
news:[email=4648330b@ozsrv2.ozlan.local...]4648330b@ozsrv2.ozlan.local...[/email]
> Dear developers!
>
> Is there any way to determine TBrowse's active cell coordinates (in
> pixels)?
> I cannot calculate it by myself because I have nRowHeight = 0
>
> Thank you. Oleg.
>

Oleg,
Take a loook at TBrwColumn:OnDrawCell event
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Oleg" <info@cluster.samara.ru> escribió en el mensaje
news:[email=4648330b@ozsrv2.ozlan.local...]4648330b@ozsrv2.ozlan.local...[/email]
> Dear developers!
>
> Is there any way to determine TBrowse's active cell coordinates (in
> pixels)?
> I cannot calculate it by myself because I have nRowHeight = 0
>
> Thank you. Oleg.
>

Oleg,
Include this method on your own overloaded TBrwColumn class.
Regards,
METHOD GetGridEditBounds() CLASS TBrwColumn
LOCAL nRow, nCol, nWidth, nHeight, nSel
WITH OBJECT ::oParent
nSel := :nRowSel
nRow := ( nSel * :nIntRowHeight ) + :HeaderHeight()
nCol := ::nDisplayCol
nWidth := ::nWidth - 2
nHeight := :nIntRowHeight - 2
IF :nColDividerStyle < blINSET .AND. ::nPos > 1
nCol--
nWidth++
ENDIF
IF :nColDividerStyle == blNOLINES
nWidth++
ENDIF
IF :nRowDividerStyle < blINSET
nHeight++
ENDIF
IF :nRowDividerStyle == blNOLINES
nHeight++
ENDIF
END WITH
RETURN {nCol, nRow, nWidth, nHeight }
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Oleg" <info@cluster.samara.ru> escribió en el mensaje
news:[email=4648aa95@ozsrv2.ozlan.local...]4648aa95@ozsrv2.ozlan.local...[/email]
> Ignacio!
>
> Thank you for answer.
>
> I need this because I try to make my own editing for TBrowse.
> OnDraw event is too "expensive", it calls too many times (for every
> drawing cell).
> It would be great if you provide TBrowse class with method
> GetCellRect(nRowPos, nColumnPos) -> aRect
>
> Is it possible?
>
> Thank you. Oleg.
>

Oleg,
Include this method on your own overloaded TBrwColumn class.
Regards,
METHOD GetGridEditBounds() CLASS TBrwColumn
LOCAL nRow, nCol, nWidth, nHeight, nSel
WITH OBJECT ::oParent
nSel := :nRowSel
nRow := ( nSel * :nIntRowHeight ) + :HeaderHeight()
nCol := ::nDisplayCol
nWidth := ::nWidth - 2
nHeight := :nIntRowHeight - 2
IF :nColDividerStyle < blINSET .AND. ::nPos > 1
nCol--
nWidth++
ENDIF
IF :nColDividerStyle == blNOLINES
nWidth++
ENDIF
IF :nRowDividerStyle < blINSET
nHeight++
ENDIF
IF :nRowDividerStyle == blNOLINES
nHeight++
ENDIF
END WITH
RETURN {nCol, nRow, nWidth, nHeight }
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Oleg" <info@cluster.samara.ru> escribió en el mensaje
news:[email=4648aa95@ozsrv2.ozlan.local...]4648aa95@ozsrv2.ozlan.local...[/email]
> Ignacio!
>
> Thank you for answer.
>
> I need this because I try to make my own editing for TBrowse.
> OnDraw event is too "expensive", it calls too many times (for every
> drawing cell).
> It would be great if you provide TBrowse class with method
> GetCellRect(nRowPos, nColumnPos) -> aRect
>
> Is it possible?
>
> Thank you. Oleg.
>

Ignacio!
Thank you for answer.
I need this because I try to make my own editing for TBrowse.
OnDraw event is too "expensive", it calls too many times (for every drawing
cell).
It would be great if you provide TBrowse class with method
GetCellRect(nRowPos, nColumnPos) -> aRect
Is it possible?
Thank you. Oleg.

Ignacio!
Thank you for answer.
I need this because I try to make my own editing for TBrowse.
OnDraw event is too "expensive", it calls too many times (for every drawing
cell).
It would be great if you provide TBrowse class with method
GetCellRect(nRowPos, nColumnPos) -> aRect
Is it possible?
Thank you. Oleg.

Ignacio!
Thank you very much. Your code is working fine with small correction
nRow := ( (nSel-1) * :nIntRowHeight ) + :HeaderHeight()
Regards, Oleg.

Ignacio!
Thank you very much. Your code is working fine with small correction
nRow := ( (nSel-1) * :nIntRowHeight ) + :HeaderHeight()
Regards, Oleg.