Форум » FiveWin » TSBrowse » Ответить

TSBrowse

fil: В TSBrowse при изменении высоты строки несовсем верно работает scrollbar Кроме того TSBrowse не работает с CDX Кто-нить боролся с этим ?

Ответов - 6

ММК: fil пишет: Кроме того TSBrowse не работает с CDX Кто-нить боролся с этим ? Работает он со всем, что используется. Так что бороться надо с чем-то другим :))) Ты проверь , а сдх у тебя именно в ЭТОЙ програмульке работает?

fil: Если не использовать Six, Comix.., то TSBrowse просит функцию ORDKEYNO() коей нет в Clipper.lib 5.2 она есть в 5.3 - что, нужно поставить Clipper.lib 5.3 ?

ММК: fil пишет: что, нужно поставить Clipper.lib 5.3 ? Знаешь , по хорошему уже пора в холдильник водочку ставить :)) Новый Год на носу :)) FW у меня работал со всеми версиями клиппера. Сначало Six.Из за глючности перешел на Comix, Тоже не очень вариант :) Такчто лушше ставь хХарбор :)))


fil: Ты либо по теме пиши либо водочку в холодильник ставь, котлеты отдельно мухи тож..

ММК: fil пишет: котлеты отдельно мухи тож.. Как Вы со мной ... сурово. Ну ладно , Новый Год. Смотрим бровс: 13.- "TSBrowse" supports several RDD'S: DBFCDX, COMIX, ADS, SIX, DBFNTX, as well as objects like oDbf, oCtx, oTree and Arrays. (other RDD's can be added as soon as I get the definition of some database functions that they handle) Теперь можно поинтересоваться в исходниках :) Обратите внимание, когда идет обращение к ORDKEYNO() If cRDDName == "COMIX" ::cDriver := "COMIX" ::bTagOrder := &( "{|uTag|OrdSetFocus(uTag)}" ) cType := Type( "cmKeyNo()" ) If ( ::lClipMore := ( cType == "C" .or. cType == "UI" ) ) ::bKeyNo := &( "{|cTag|cmKeyNo(cTag) }" ) ::bLogicLen := If( ::lFilterMode,; {||(::cAlias)->(Self:RecCount(::uValue1))}, ; &( "{|cTag| cmKeyCount( cTag ) }" ) ) ::bGoToPos := &( "{|n| cmKeyGoTo( n ) }" ) Else ::bKeyNo := &( "{|cTag|cmxKeyNo(cTag)}" ) ::bLogicLen := If( ::lFilterMode,; {||(::cAlias)->(Self:RecCount(::uValue1))}, ; &( "{|cTag| cmxKeyCount( cTag ) }" ) ) ::bGoToPos := &( "{|n| cmxKeyGoTo( n ) }" ) EndIf Elseif cRDDName $ "DBFCDX_DBFCDX" ::cDriver := "CDX" ::bKeyNo := &( "{|uTag|OrdKeyNo(uTag)}" ) ::bLogicLen := If( ::lFilterMode,; {||(::cAlias)->(Self:RecCount(::uValue1))}, ; &( "{|cTag|OrdKeyCount(cTag)}" ) ) ::bGoToPos := &( "{|n|OrdKeyGoTo(n) }" ) ::bTagOrder := &( "{|uTag|OrdSetFocus(uTag)}" ) Elseif "XAX" $ cRDDName ::cDriver := "ADS" ::bKeyNo := &( "{||AX_KeyNo()}" ) ::bLogicLen := If( ::lFilterMode,; {||(::cAlias)->(Self:RecCount(::uValue1))}, ; &( "{|cTag| AX_KeyCount( cTag ) }" ) ) ::bTagOrder := &( "{|uTag|OrdSetFocus(uTag)}" ) Elseif "ADS" $ cRDDName ::cDriver := "ADS" ::bKeyNo := &( "{||ADSKeyNo()}" ) ::bLogicLen := If( ::lFilterMode,; {||(::cAlias)->(Self:RecCount(::uValue1))}, ; &( "{|cTag| ADSKeyCount( cTag,, 1 ) }" ) ) ::bTagOrder := &( "{|uTag|OrdSetFocus(uTag)}" ) Elseif cRDDName $ "DBFNSX_SIXCDX_SIXNSX_SIXMDX" ::cDriver := "NSX" ::bKeyNo := &( "{||sx_KeyNo()}" ) ::bLogicLen := If( ::lFilterMode,; {||(::cAlias)->(Self:RecCount(::uValue1))}, ; &( "{|cTag| Sx_KeyCount(cTag)}" ) ) ::bGoToPos := &( "{|n| sx_KeyGoTo( n ) }" ) cType := Type( "sx_SetTagO()" ) If cType == "C" .or. cType == "UI" ::bTagOrder := &( "{|cTag| sx_SetTagOrder( cTag ) }" ) Else ::bTagOrder := &( "{|cTag| OrdSetFocus(cTag) }" ) EndIf Else // DBFNTX considered default RDD ::cDriver := "NTX" Ну и так далее... Если бы был текст Вашей пр-мы может и можно было бы что подсказать. А так общий вопрос-общий ответ. И еще. Сегодня переходить на слиппер 5.3 , на мой взгляд, смысла нет .Еще раз извините повторюсь - лучше хХарбор .

Григорьев Владимир: ММК пишет: И еще. Сегодня переходить на слиппер 5.3 , на мой взгляд, смысла нет У каждого время течет по разному!



полная версия страницы