Отправлено: 21.01.11 12:38. Заголовок: Снова TSBrowse

Режим ввода новой записи не работает!
При вводе новой записи - Стрелка "Вниз" на последней записи
происходит ввод только одной записи - а дальше
(если есть индекс - выходит из режима ввода новой записи и
позиционирует запись по индексу) - или, сколько не нажимай
стрелку "Вниз" - ничего не происходит.
Попробуйте на примере Sample2 отключить индекс или
ввести в первое поле какой-нибудь код последний по индексу
(например: mmmm) и дальше стрелка вниз уже не идет.
Я проверил, что в этом случае работает блок (строка ~ 5120) h_tbrowse:

If ! ::lHitBottom .and. ! ::lAppendMode .and. ::bChange != nil
Eval( ::bChange, Self, ::oWnd:nLastKey )
EndIf

Григорий, можете дать Янушу эту информацию?

 Отправлено: 10.03.13 16:49. Заголовок: alex_II пишет: ввод..

alex_II пишет:

цитата:

ввод с клавиатуры благополучно попадал в ячейку TBROWSE

Благодарю за отклик!
Это будет исправлено в следующей сборке

 Отправлено: 05.06.13 16:26. Заголовок: DbAppend в Tbrowse М..

DbAppend в Tbrowse
Может кому пригодиться )
Долго (ну очень) боролся с корректным отображением в бровсе после DbAppend() - оставался мусор на экране в виде старых значений , который при движении курсора перерисовывался на правильные значения.

Использовал следующий алгоритм:
(есть индекс по Recno() - "RECNO" )

Примерный код по кнопке:
1) Dbappend()
2) nRec := RecNo()
3) nOrder := OrdSetFocus("RECNO")
4) oBrw:ExpSeek( NTOC(nRec), .F. )
5) OrdSetFocus(nOrder)
и были дальше безуспешные пляски со всякими Upstable, Reset и прочее .... пока не впихнул между строками 3 и 4 oBrw:SetFocus() и все заработало как надо. Чтоб больше не не мучиться добавил в исходник метода ExpSeek и ExpLocate строку ::SetFocus() в начале кода после ::lValidating := .T. и пересобрал библиотечку. Теперь добавление новой записи по кнопку в Tbrowse рисуется корректно
PS. Месяца 4 бился , а так просто оказалось )

 Отправлено: 28.10.13 14:52. Заголовок: SetBtnGet - требуется помощь зала

Устал биться с :SetBtnGet в TsBrowse при редактировании колонки 4 кнопку рисует, но нажатие на нее не отрабатывает
ткните пальцем, что не так в примере ?

#include "minigui.ch"
#include "tsbrowse.ch"

EXTERN TBBTNEVENTS

FUNC Connection()
LOCAL aArr := {}

AADD( aArr, {"Ena ", "Art01", "Mod01", "200"} )
AADD( aArr, {"Tria ", "Art03", "Mod01", "200"} )
AADD( aArr, {"Tessera ", "Art04", "Mod01", "200"} )


DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 600 ;
HEIGHT 200 ;
TITLE "" ;
MAIN ;
NOSIZE

DEFINE TBROWSE Grid ;
AT 35, 0 ;
OF Form_1 ;
WIDTH (Form_1.Width - 10) ;
HEIGHT (Form_1.Height - 70);
FONT "Verdana" ;
SIZE 9;
CELL;
EDIT

END TBROWSE


Grid:SetArray( aArr, .T. )

Grid:nHeightHead := 35
Grid:nHeightCell := 22

Grid:aColumns[1]:nWidth := 120
Grid:aColumns[1]:cHeading := "Col1"

Grid:aColumns[2]:nWidth := 70
Grid:aColumns[2]:cHeading := "Col2"

Grid:aColumns[3]:nWidth := 170
Grid:aColumns[3]:cHeading := "Col3 "

Grid:aColumns[4]:nWidth := 170
Grid:aColumns[4]:cHeading := "Col4"

Grid:SetBtnGet( 4, "", { |oEdit, xVar| MsgBox('AAAAAA') }, 26 )

END WINDOW

CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
RETURN NIL

 Отправлено: 28.10.13 16:07. Заголовок: Haz пишет: при реда..

Haz пишет:

цитата:

при редактировании колонки 4 кнопку рисует, но нажатие на нее не отрабатывает

Да, подтверждаю эту ошибку
Решил так:
заменил в методе Command класса TBtnBox строку
case nNotifyCode == 0 .And. nID == 0

на
case nNotifyCode == 512 .And. nID == 0

Прошу подтвердить правильность этого исправления на своем компьютере

 Отправлено: 28.10.13 16:13. Заголовок: Григорий , спасибо з..

Григорий , спасибо за оперативность !

gfilatov2002 пишет:

цитата:

Прошу подтвердить правильность этого исправления на своем компьютере

ПОДТВЕРЖДАЮ - отрабатывает вызов блока