At xbrowse() function, this is not translated using FW language traslation:
- Code: Select all Expand view
- if lAutoSort
nRow := oBrw:nTop
oBrw:nTop += 14
nFilter := If( oBrw:lIncrFilter, 2, 1 )
nSeekWild := If( oBrw:lSeekWild, 2, 1 )
@ nRow - 1, 10 COMBOBOX nFilter SIZE 60, If( IsAppThemed(), 14, 60 ) PIXEL OF oDlg ;
ITEMS { "Search For", "Show Only" } ;
ON CHANGE ( oBrw:Seek( "" ), oBrw:lIncrFilter := nFilter > 1, oBrw:SetFocus() )
@ nRow - 1, 72 COMBOBOX nSeekWild ;
size 60, If( IsAppThemed(), 14, 60 ) pixel of oDlg ;
ITEMS { "Starting With", "Containing" } ;
on change ( oBrw:lSeekWild := ( nSeekWild > 1 ), oBrw:Seek( "" ), oBrw:SetFocus() )
@ nRow, 135 SAY oBrw:oSeek prompt oBrw:cSeek ;
SIZE 100,10 PIXEL UPDATE OF oDlg ;
COLOR CLR_RED,CLR_YELLOW
ATail( oDlg:aControls ):Cargo := 155
endif
Thank you.