Форум » GUI » TsBrowse в Минигуи (продолжение) » Ответить
TsBrowse в Минигуи (продолжение)
Vlad04: TsBrows определяется в виде строки ПАРМЕТРОВ объекта и их значений К примеру [quote] DEFINE TBROWSE oBrw2 ; AT 60,450 ; ALIAS cAlias ; OF Form1 ; WIDTH 330 ; HEIGHT 340 ; FONT "Verdana" ; SIZE 9 ; ON DBLCLICK CopyRec(); ON GOTFOCUS fModelo_Hab(2) ; AUTOFILTER ; CELLED EDIT; VALUE nRec; GRID [/quote] Здесь я собрал параметры из разных tBrows Можно или нет и какие парметры заменить выражением ( и каким) ? oBrw2:.... oBrw2:....
Haz: Andrey пишет: Только прелодер все равно белый, без лепестков Ты же сам в прошлом посте писал как это лечится
Dima: Haz пишет: Ты же сам в прошлом посте писал как это лечится Он забыл типа
Andrey: Всем привет ! Вопрос не могу решить, помогите пожалуйста. Таблица небольшая, на экран помещается, даже остаётся много пустого места. Добавляю туда ещё запись и не могу - показать на экране всю таблицу целикоми чтобы маркер был на добавленной записи. Причём есть индекс по полю, из-за него последняя запись в таблице не становиться последней, а чуток ранее. Делаю так:[pre2] oBrw:Reset() oBrw:Refresh(.T.) ItogoNN(oBrw) oBrw:SetOrder(2, , .F. ) // сортировка по столбцу 2 .... // мои вычисления позиции nRow в таблице oBrw:GoPos(nRow,5) // уст. МАРКЕР на ХХ строку и ХХ колонку oBrw:GotoRec( nRow, nRow-1 ) // ??? уст. МАРКЕР на ХХ строку и показать таблицу с 1-ой позиции строк oBrw:SetFocus() DO EVENTS[/pre2]
Haz: Andrey пишет: oBrw:GotoRec( nRow, nRow-1 ) GotoRec первым параметром принимает номер записи а не номер строки
Andrey: Haz пишет: GotoRec первым параметром принимает номер записи а не номер строки В данном случае у меня в таблице номер записи равен номеру строки, т.е. у меня таблица через SetArrayTo()
SergKis: Andrey пишет В данном случае у меня в таблице номер записи равен номеру строки, т.е. у меня таблица через SetArrayTo() [pre2]METHOD GotoRec( nRec, nRowPos ) CLASS TSBrowse LOCAL cAlias LOCAL nSkip LOCAL n LOCAL nRecSave LOCAL lRet := .F. LOCAL lReCount := .F. IF ::lIsDbf ... [/pre2]
Haz: Andrey пишет: последняя запись в таблице не становиться последней, а чуток ранее. Andrey пишет: oBrw:GotoRec( nRow, nRow-1 ) Не вдаваясь что такое setarrayto Если номер записи равен номеру строки и надо попасть на последнюю Объяснни. что значит nRow - 1
Dima: Haz пишет: Объяснни. что значит nRow - 1 Да он не помнит уже...склероз ))
Andrey: Haz пишет: Объяснни. что значит nRow - 1 Пробовал по разному, сначала было oBrw:GotoRec( nRow, nRow ), всё равно таблица 1 позицию выдает с 9 строки таблицы. Потом сделал так oBrw:GotoRec( nRow, nRow -1 ) - без разницы. Методом научного тыка сегодня сделал. Нужно так оказывается: [pre2] oBrw:Reset() oBrw:Refresh(.T.) ItogoNN(oBrw) oBrw:SetOrder(2, , .F. ) // сортировка по столбцу 2 .... // мои вычисления позиции nRow в таблице Eval( oBrw:bGoTop ) // переход на начало таблицы oBrw:GoPos(nRow,5) // уст. МАРКЕР на ХХ строку и ХХ колонку oBrw:GotoRec( nRow, nRow-1 ) // ??? уст. МАРКЕР на ХХ строку и показать таблицу с 1-ой позиции строк oBrw:SetFocus() DO EVENTS[/pre2] Спасибо вам за этот отличный метод !!!
SergKis: Andrey пишет у меня таблица через SetArrayTo() Это означает таблица в массиве тсб, в таком случае :GotoRec(...) полностью игнорирует свои внутренности, т.е. НЕ РАБОТАЕТ, т.к. значение :lIsDbf = .F.
Haz: SergKis пишет: т.е. НЕ РАБОТАЕТ, т.к. значение :lIsDbf = .F. Пришёл Сергей и сдал военную тайну от том что goto на recno это только для dbf Надо было терпеть до последнего
Andrey: Haz пишет: Пришёл Сергей и сдал военную тайну от том что goto на recno это только для dbf Ну хоть что то стало понятней !
SergKis: Haz пишет Надо было терпеть до последнего Игорь, тянуть нельзя было, Андрей до сих пор верит в Деда Мороза, что загружает SetArrayTo(), а не TsBrowse. Что дальше было бы ? Теперь можно быть спокойным, Андрей пишет Ну хоть что то стало понятней !
Andrey: Всем привет ! Заметил такую странность у себя в проектах использующие Tsbrowse/ Для Суперхидера цвет текста не работает ! Вот хотя бы для примера Tsb_Export, там цвет указан желтый, а всегда показывает черный. [pre2] :SetColor( {17}, { { || CLR_YELLOW } } ) // 17, текста спецхидер[/pre2] Пробовал и так, как и для шапки и подвала таблицы: [pre2] :SetColor( {17}, { CLR_YELLOW } ) // 17, текста спецхидер[/pre2] Почему ? Какой правильный синтаксис ?
gfilatov2002: Andrey пишет: Для Суперхидера цвет текста не работает Эта ошибка будет исправлена в следующей сборке
krutoff: Может не в той теме пишу, но продублирую. Попробовал XLSXML - отлично! Но заказчик захотел поле Number 16 знаков для номера банк.карты и вывод успешно загнулся. Я доковырял до модуля xlsxml_s.prg строка 123: ::writeData( "Number", row, column, AllTrim( Str( xData, 18, 6 ) ), style ) Получается, если разрядность больше - идут звезды при выводе. Не знаю, кто поддерживает этот модуль, - поправьте, плз. Андрей - Tsb_Export - отличный пример! В Tsb2xml.prg -> FUNCTION XmlSetDefault: вместо oCol:XML_FootFont идет 2 раза присваивание oCol:XML_HdrFont -поправьте, плз.
Haz: krutoff пишет: о заказчик захотел поле Number 16 знаков для номера банк.карты и вывод успешно загнулся. выводи как строку например вместо этого oObj:writeNumber( nRow, 13, 1234567890123456789, "numberRight" ) выводи так oObj:writeString( nRow, 13, ntoc(1234567890123456789), "numberRight" )
Andrey: Всем привет ! Как боротся с отгрызанными стрелками ? Если делаю oBrw:Hide() или просто сохраняю/перечитываю цвета у бровса, то выходит так: Только после того как мышкой встаю на линию скролинга, то тогда появляются стрелки. Юзер будет просто в шоке.... Как с этим бороться ?
SergKis: Andrey пишет Как с этим бороться ? Попробуй добавить последними командами [pre2] obrw:ResetVScroll( .T. ) obrw:oVScroll:SetRange( 0, 0 ) obrw:oHScroll:SetRange( 0, 0 ) obrw:Refresh() If ! obrw:lNoHScroll .and. obrw:oHScroll != Nil obrw:oHScroll:SetPos( obrw:nCell ) EndIf obrw:ResetVScroll( .T. ) obrw:oHScroll:SetRange( 0, 0 ) [/pre2]
Andrey: Всем привет ! Вот нашёл небольшой глюк:
полная версия страницы