Отправлено: 01.04.10 11:02. Заголовок: Ох уж этот TsBrowse

Уважаемые, подскажите, в каком месте ошибка?

Скрытый текст

#include 'minigui.ch' #include 'tsbrowse.ch' function main() use spr33 new define window win1 width 400,400 main @ 10,10 button bt1 caption 'Go' action {||fn1()} @ 40,10 tbrowse tb1 width 300 height 300; workarea 'spr33'; fields spr33->nID, spr33->cName end window return function fn1() win1.tb1.refresh(.t.) return .t.

после сборки ругается на строку win1.tb1.refresh(.t.) ( Error E0030 Syntax error "syntax error at '('" )
если убираю .t. то собирается нормально, но не прорисовывается браузер.
если следом за win1.tb1.refresh() дописываю строку win1.tb1.paint(), то ругается иначе ( Error E0030 Syntax error "syntax error at '.'" )
та же ошибка пишется, если я пишу win1.tb1.gotop()

Плиз, подскажите где грабли искать???

Пример я усреднил, чтобы отобразить сущность...

 Отправлено: 01.04.10 11:08. Заголовок: и еще одна вещь в до..

и еще одна вещь в догонку...
если меняю tbrowse на browse, естественно меняю кой какие синтаксические особенности, то все кроме числовых поля выводятся <R-Next> вместо текста...
вот уж странно это, ведь поле но может быть неопределенным, оно реально есть и ошибка в имени поля исключена, проверил все текстовые поля.

 Отправлено: 01.04.10 12:21. Заголовок: tb1:Refresh(.t.)..

tb1:Refresh(.t.)

 Отправлено: 06.04.10 14:47. Заголовок: krutoff пишет: tb1:..

krutoff пишет:

цитата:

tb1:Refresh(.t.)

за подсказку - респект!

все ссылки типа tb1: работают безупречно, но вот теперь вопрос...
я устанавливаю фильтр на таблицу, которая прорисована в гриде и получаю следующее, если в фильтр попадает несколько строк, то все последующие фильтры отображаются нормально, а если попадает всего одна, то другие фильтры отображают только одну (первую) строку, если ткнуть мышкой в предполагаемое место выбранных строк, то оказывается там что-то есть, подвигал туда сюда, все прорисовалось...
как это победить?

 Отправлено: 06.04.10 15:29. Заголовок: вопрос снят, решилос..

вопрос снят, решилось последовательностью

tb1:gobottom()
tb1:gotop()
tb1:refresh(.t.)

но почему так, пока не выяснил...

 Отправлено: 06.04.10 19:00. Заголовок: Я тоже пользовался ..

Я тоже пользовался методом "научного тыка"
и просмотром ит тестированием исходников.
Наверное, при этих командах происходит активизация перерисовки TSBROWSE.
В общем, надо смотреть последовательность выполнения в исходниках...

 Отправлено: 26.04.10 14:24. Заголовок: Не идет сборка приме..

Не идет сборка примера по TSBROWSE в IDE.
Выдается сообщение
Error: Unresolved external '_HB_FUN__DEFINETBROWSE' referenced from C:\MINIGUI\IDE\SAMPLES\TSBROWSE\OBJ\DEMO.OBJ
Хотя , если вызвать compile.bat , все работает нормально.
Вероятно, у меня не настроены Preferences. Не подскажете, может кто-то сталкивался с этим. Версия HMG 1.82

 Отправлено: 26.04.10 15:06. Заголовок: davir пишет: Вероят..

davir пишет:

цитата:

Вероятно, у меня не настроены Preferences.

Просто добавьте библиотеку tsbrowse.lib, включая полный путь к ней, в поле для дополнительных библиотек

 Отправлено: 27.04.10 05:01. Заголовок: Все получилось!Спаси..

Все получилось!Спасибо !

 Отправлено: 07.05.10 10:58. Заголовок: Не могу понять, как..

Не могу понять, как действуют кодовые блоки uDATA при работе с TSBrowse?
что нужно подать на входе, что должно получаться на выходе.
Столкнулся при создании окна изменения параметров программы пользователем.
Имеется вспомогательный zpr.dbf- файл описаний
Броуз из 2-х колонок: Первая не должна редактироваться (там названия показателей zpr->Naz), 2-я сами показатели (zpr->Pole )разного типа из разных DBF(,например "cfg->Name") .
Обе колонки отображаются, а редактирование показателей не происходит.

 Отправлено: 23.05.10 08:11. Заголовок: Как узнать координат..

Как узнать координаты текущей ячейки в TSBrowse ?

 Отправлено: 23.05.10 13:15. Заголовок: Уточняю свой вопрос...

Уточняю свой вопрос.
Для ввода значений разных типов в одну и ту же колонку TSBrowse применяю блок для внешнего редактирования (bExtEdit). Непосредственно редактирование произвожу в диалоге или InputWindow() т.е. в другом окне. Все вроде бы работает но заводить окно для ввода ОДНОГО значения будет неудобно пользователям (лишние манипуляции с мышкой ).
Проще говоря, возможно ли для каждого ряда в TSBROWSE навешивать свой ТЕХTBOX или GetBox или DATEPICKER и т.п.

Хочу попробовать определять эти контролы в старшем окне, на месте активной ячейки, чтобы было похоже на стандатное редактирование TSBROWSE.

Нужно знать координаты (ряд,колонка)ячейки ТSBROWSE в пикселях,

 Отправлено: 25.05.10 10:57. Заголовок: В Случае создания Co..

В Случае создания ComboBox для редактирования ячейки:
aItems := {'Да','Нет'}
aData := { 1,0 }
oBrw:SetData(nCol,Nil,{aItems, aData} )
Ну а aItems и aData можно хоть с файла, хоть самому назначить

 Отправлено: 29.05.10 07:55. Заголовок: С координатами актив..

С координатами активной ячейки вроде бы разобрался.
************************
Func GetCellPos(oBrw)
* Коордитаты активной ячейки TBROWSE
************************
Priv MyRow,MyCol,MyWidth,MyHeight,n1,n0
n0:=0
Priv MyoCol
MyoCol := oBrw:aColumns[oBrw:nCell ]
For nI := obrw:nColPos To oBrw:nCell - 1
n0:=n0 + oBrw:GetColSizes()[ nI ]
Next
MyRow := oBrw:nRowPos - 1
MyRow := ( myRow * oBrw:nHeightCell ) + oBrw:nHeightHead + ;
oBrw:nHeightSuper + oBrw:nHeightSpecHd + If( MyoCol:l3DLook, 2, 0 )
MyCol := n0 + If( MyoCol:l3DLook, 2, 0 )
MyWidth := oBrw:GetColSizes()[oBrw:nCell ] - If( MyoCol:l3DLook, 2, 0 )
MyHeight := oBrw:nHeightCell - If(MyoCol:l3DLook, 1, -1 )
Return {MyRow,MyCol,MyWidth,MyHeight}

Может кому-то пригодится ?

 Отправлено: 26.07.10 17:06. Заголовок: При использовании ме..

При использовании метода oBrw:SetData(nCol,Nil,{aItems, aData} ) выбор нужного значения в комбобоксе приходится подтверждать Enter-ом. А нельзя обойтись только мышкой, как в обычном Combobox.