Bottom alignment of xBrowse!? ( Solved! )

[JC]

Dear friends,

I want to alignment a get to bottom of xbrowse, with your width, but I can't do!

Code: Select all  Expand view

@ 1, 1 GET oBrwGet VAR uBrwGet OF oBrw:oWnd

oBrwGet:move( oBrw:nHeight, oBrw:nLeft, oBrw:nBottom, 20, .T. )
     //:move( nTop, nLeft, nBottom, nRight, lRepaint )

oBrwGet:refresh()
oBrwGet:setFocus()

Please, somebody help me!!!!

[Daniel Garcia-Gil]

create get outside browse area exactly bottom margin

Code: Select all  Expand view

#include "FiveWin.ch"
#include "xbrowse.ch"

// xbrowse imagen button get

function main()

local oDlg, oBrw
local aArray := {}
local uVal
local nI
local oGet
local nWdGet := 0

for nI = 1 to 20
aadd( aArray, { "Row:"+StrZero(nI,2)+" Col:01",;
                        "Row:"+StrZero(nI,2)+" Col:02",;
                        "Row:"+StrZero(nI,2)+" Col:03",;
                        "Row:"+StrZero(nI,2)+" Col:04",;
                        "Row:"+StrZero(nI,2)+" Col:05",;
                        "Row:"+StrZero(nI,2)+" Col:06" } )
next

DEFINE DIALOG oDlg Title "Test xBrowse " size 700,300


oBrw:= txbrowse():new( oDlg )
oBrw:nRowHeight := 25
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:SetArray( aArray )
oBrw:nTop := 0
oBrw:nLeft := 0
oBrw:nBottom := 50
oBrw:nRight := 100
oBrw:CreateFromCode()

nWdGet := oBrw:BrwWidth() + ;
               if( oBrw:lVScroll, GetSysMetrics( 20 ), 0 )

@ oBrw:nBottom, oBrw:nLeft get oGet var uVal of oDlg pixel size nWdGet, 10

ACTIVATE DIALOG oDlg center

return nil

[JC]

Daniel,

Thank you for your tip, but not work.
I get your suggest and tried this... now it's ok!

Code: Select all  Expand view

nWdGet := oBrw:brwWidth() + iif( oBrw:lVScroll, getSysMetrics( 20 ), 0 )

@ ( oBrw:nTop + oBrw:nHeight ) - 20, oBrw:nLeft GET oBrwGet VAR uBrwGet OF oBrw:oWnd PIXEL SIZE nWdGet, 20