Alaska Software Inc. - Unusual behaviour with TopDown screen
Username: Password:
AuthorTopic: Unusual behaviour with TopDown screen
Philip G JacksonUnusual behaviour with TopDown screen
on Thu, 23 May 2013 17:58:08 +1200
I have the following code that creates a couple of Says (tdmsay) and 
Gets (tdSle) and a browse. The browse is perfect and I can click on 
column headings but the get behaviour is such that I have to double 
click on them and when I do that, I can only type digits into them.

They are initialised as character strings of 20 spaces.

LOCAL cSeekSle     := space(20)
LOCAL oSeekSle
LOCAL cFilterSle   := space(20)
LOCAL oFilterSle

Then further down

 Create says and gets
tdMsay(2,1,1,6,'Find',oDlg:DrawingArea)
oSeekSle := tdSle(2, 10, 20, oDlg:DrawingArea)
oSeekSle:DataLink := {|x| IF(X==NIL, cSeekSle, cSeekSle :=X)}
oSeekSle:Create()
oSeekSle:SetData()

tdMsay(2,40,1,6,'Filter',oDlg:DrawingArea)
oFilterSle := tdSle(2, 50, 20, oDlg:DrawingArea)
oFilterSle:DataLink := {|x| IF(X==NIL, cFilterSle, cFilterSle := X)}
oFilterSle:Create()
oFilterSle:SetData()

nTopLines := 3  make room for browse beneath
aPres := {{XBP_PP_HILITE_FGCLR,GRA_CLR_BLACK}      ,;  Hilite colors
           {XBP_PP_HILITE_BGCLR,tdPBL}             ,;   White/Blue
           {XBP_PP_COL_DA_FGCLR,tdBLK}            ,;  browse row colors
           {XBP_PP_COL_DA_BGCLR,GRA_CLR_WHITE}, tdRGB({240,240,240})} l
           {XBP_PP_COL_DA_ROWSEPARATOR,XBPCOL_SEP_NONE}   ,; 
           {XBP_PP_COL_DA_COLSEPARATOR,XBPCOL_SEP_NONE}   ,; 
           {XBP_PP_COL_DA_CELLFRAMELAYOUT,XBPFRAME_BOX+XBPFRAME_DOTTED},;
           {XBP_PP_COL_DA_FRAMELAYOUT ,XBPFRAME_RECESSED} ,; 
           {XBP_PP_COL_HA_FGCLR ,tdBLK}      ,;  Column Header colors
           {XBP_PP_COL_HA_BGCLR ,tdPGN}     ,;  Black/Lt Blue tdPBL
           {XBP_PP_COL_FA_FGCLR ,tdBLK}    ,;  Column Footer colors
           {XBP_PP_COL_FA_BGCLR ,tdPTN}}    Black/Pale Tan
SELECT (nArea)
oBrowse[1] := tdHiBrow(1+nTopLines, 0.3, (nBottomPos-nTopLines)*0.9, ;
      nWidthUsed, .f., .t., .f., oDlg:drawingArea, aCols,;
     cNewFont, aPres,.t.,.T.,'r',.f.,,,.f.,,nil, nArea,, ,GRA_CLR_WHITE)
oBrowse[1]:Show()
aBrowse[1] := oBrowse[1]

Attached is a small graphic of what the screen looks like.

Anyone have any idea of what is happening here?

Cheers

Phil Jackson


BrowseExample.JPG
Miran ZupanRe: Unusual behaviour with TopDown screen
on Thu, 23 May 2013 09:28:24 +0200
Maybe this helps
My incremental search routine, sort coloum is defined with buttons "po posti" (post number)
and "po kraju" (name of the city...)

Best regards
Miran Zupan


Demo1.jpg
SIF_PTT.PRG
Philip G JacksonRe: Unusual behaviour with TopDown screen
on Fri, 24 May 2013 10:42:02 +1200
Thanks Miran

I got it working with Raymond's suggestion and I managed to fix the 
behaviour.

Cheers

Phil Jackson

On 5/23/2013 7:28 PM, Miran Zupan wrote:
> Maybe this helps
> My incremental search routine, sort coloum is defined with buttons "po
> posti" (post number)
> and "po kraju" (name of the city...)
>
> Best regards
> Miran Zupan
>
>