Отправлено: 19.12.13 18:16. Заголовок: TsBrowse в Минигуи (продолжение)

TsBrows определяется в виде строки ПАРМЕТРОВ объекта и их значений
К примеру

цитата:

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

Здесь я собрал параметры из разных tBrows
Можно или нет и какие парметры заменить
выражением ( и каким) ?
oBrw2:....
oBrw2:....

 Отправлено: 25.06.15 13:46. Заголовок: Andrey пишет: Народ..

Andrey пишет:

цитата:

Народ, подскажите как убрать белизну

Решил вопрос ?
Тоже попал на это

 Отправлено: 25.06.15 21:23. Заголовок: Подсказали добрые лю..

Подсказали добрые люди oBrw:hBrush := CreateSolidBrush( 210, 210, 210 ) // заливаем чем надо

 Отправлено: 02.07.15 14:48. Заголовок: Понадобилось сделать..

Понадобилось сделать полноэкранный курсор.
Сделал oBrw:lCellBrw :=.F.
Пашет , но пропал курсорчик который на CELL , то есть нужен курсор внутри полноэкранного
курсора , что бы видеть в какой колонке стоим.
В консоли без проблем а тут как ?

Сделал авторастяжение колонки 6 oBrw:nAdjColumn := 6
Это не работает если oBrw:lNoHScroll := TRUE , какая связь nAdjColumn с гор. скролом не пойму.

 Отправлено: 02.07.15 14:53. Заголовок: Dima пишет: нужен ку..

Dima пишет:

цитата:

нужен курсор внутри полноэкранного

надо работать в режиме CELL и красить нужным цвеьом тек. строку row

 Отправлено: 02.07.15 15:01. Заголовок: SergKis красить чер..

SergKis
красить через Method TSBrowse: SetColor() ?
Вот это в каком положении должно быть oBrw:lCellBrw ?

 Отправлено: 02.07.15 15:16. Заголовок: Dima oBrw:lCellBrw ..

Dima
oBrw:lCellBrw := .T.
SetColor() см. надо для 1,2,5,6,11,12
сам только думал попробовать - реально не делал

 Отправлено: 02.07.15 15:55. Заголовок: SergKis Что то пока..

SergKis
Что то пока понять не могу как это правильно сделать.
В примерах (все пересмотрел) ни чего подобного нет а оно надо.

 Отправлено: 02.07.15 16:11. Заголовок: Dima Farом поищи в ..

Dima
Farом поищи в samples\advanced :SetColor(
будет список применения на разные ситуации - надо смотреть эти примеры

 Отправлено: 02.07.15 16:15. Заголовок: Dima oBrw:SetColor(..

Dima
oBrw:SetColor( { 1 }, { { || CLR_BLACK } } ) // 1 , текста в ячейках таблицы
oBrw:SetColor( { 2 }, { { || MyRGB(aBack2) } } ) // 2 , фона в ячейках таблицы
oBrw:SetColor( { 5 }, { { || CLR_BLACK } } ) // 5 , текста курсора, текст в ячейках с фокусом
oBrw:SetColor( { 6 }, { { || { 4915199,255} } } ) // 6 , фона курсора
oBrw:SetColor( { 11 }, { { || CLR_GRAY } } ) // 11, текста неактивного курсора (selected cell no focused)
oBrw:SetColor( { 12 }, { { || { RGB(255,255,74), RGB(240,240,0)}} } ) // 12, фона неактивного курсора (selected cell no focused)
у Andrey в примере есть такое

 Отправлено: 02.07.15 16:37. Заголовок: SergKis пишет: oBrw..

SergKis пишет:

цитата:

oBrw:SetColor( { 11 }, { { || CLR_GRAY } } ) // 11, текста неактивного курсора (selected cell no focused) oBrw:SetColor( { 12 }, { { || { RGB(255,255,74), RGB(240,240,0)}} } ) // 12, фона неактивного курсора (selected cell no focused)

Вот эти фичи как раз и не срабатывают......

 Отправлено: 02.07.15 17:56. Заголовок: Dima пишет: Вот эти..

Dima пишет:

цитата:

Вот эти фичи как раз и не срабатывают......

Я тоже наткнулся на не срабатывания этого кода.
Нужно ставить эти цвета ПОСЛЕ всех обработок до выхода из процедуры.

Типа:

oBrw3:bKeyDown := { | nKey | MyKeyAction3(nKey,oBrw9, ThisWindow.Name, 0), lOk := nKey != VK_ESCAPE }
oBrw3:bLDblClick:= { || MyAction3(oBrw9, ThisWindow.Name, 0) } // Двойной клик мышки на МАРКЕРЕ

oBrw3:SetColor( { 16 }, { { || { RGB(0,54,94) , RGB(aBack2[1],aBack2[2],aBack2[3]) } } } )
oBrw3:SetColor( { 17 }, { { || CLR_WHITE } } ) // 17, текста спецхидер

oBrw3:Refresh(.T.)

//oBrw3:nAt := 5 // передвинуть МАРКЕР на 5 строку
oBrw3:nCell := 4 // передвинуть МАРКЕР на 3 колонку
//oBrw3:GoPos( 5,3 ) // передвинуть МАРКЕР на 5 строку и 3 колонку

SetProperty(ThisWindow.Name, "oBrw3", "Setfocus" )
RETURN NIL

Смотри пример с многострочным браузером - https://cloud.mail.ru/public/DkoH/nSzvMbeCh

 Отправлено: 02.07.15 18:55. Заголовок: Dima наверно тут, у..

Dima
наверно тут, усложнив, выражение надо копать (раскраска четных\нечетных строк)
oBrw5:SetColor( { 2 }, { { || iif( oBrw5:nAt % 2 == 0, RGB(255,255,255), RGB(230, 230, 230) ) }})

 Отправлено: 02.07.15 18:57. Заголовок: PS. и ON CHANGE ..

PS.
и ON CHANGE

 Отправлено: 02.07.15 19:12. Заголовок: SergKis пишет: наве..

SergKis пишет:

цитата:

наверно тут, усложнив, выражение надо копать (раскраска четных\нечетных строк) oBrw5:SetColor( { 2 }, { { || iif( oBrw5:nAt % 2 == 0, RGB(255,255,255), RGB(230, 230, 230) ) }})

Видимо да , только условие там правильное надо задать.
Типа бровс в фокусе и NROW == не понятно с чем сравнить

ЗЫ
Has предлагает все делать в скипере.......это просто идея.

 Отправлено: 02.07.15 22:00. Заголовок: Вот так красит строк..

Вот так красит строку
oBrw:SetColor( { 2 }, { { || iif( obrw:nat == obrw:nRowPos, RGB(255, 255, 159),RGB(255,255,255) ) }})
Но курсор вниз (вверх) и окраска остается..........на строках где ранее полежал курсор...

 Отправлено: 02.07.15 22:26. Заголовок: Dima добавь к этому..

Dima
добавь к этому
oBrw:bChange := {|| oBrw:Refresh(.F.) }

 Отправлено: 02.07.15 23:11. Заголовок: SergKis пишет: oBrw..

SergKis пишет:

цитата:

oBrw:bChange := {|| oBrw:Refresh(.F.) }

Спасибо !
Работает . Но фон курсора на ячейке синий и белые буковки........я это не назначал.
Где крутить гайки ?

 Отправлено: 02.07.15 23:17. Заголовок: Dima пишет:Где крути..

Dima пишет:

цитата:

Где крутить гайки ?

тут
oBrw:SetColor( { 5 }, { { || CLR_BLACK } } ) // 5 , текста курсора, текст в ячейках с фокусом
oBrw:SetColor( { 6 }, { { || { 4915199,255} } } ) // 6 , фона курсора
назначены по умолчанию в oBrw:New(...)
aTmpColor[ 5 ] := GetSysColor( COLOR_CAPTIONTEXT ), ; // nClrForeFocu
aTmpColor[ 6 ] := GetSysColor( COLOR_ACTIVECAPTION ) // nClrFocuBack

 Отправлено: 03.07.15 09:36. Заголовок: SergKis С этим разо..

SergKis
С этим разобрался. Сенкс.
А как быть с oBrw:nAdjColumn , вроде ж должно автоматом выравнивать
ширину колонки под ширину бровса и все колонки должны вписаться в
ширину бровса. Колонок не много 10 штук с суперхеадером. Но нормально
не вписывается да и часть колонок уходит за пределы видимости и нужно скролить
вправо что бы их увидеть.
Задача простая , вписать все колонки четко в ширину бровса.
На ум приходит следующая идея.
Задать фиксированную ширину 9-и колонкам а затем присвоить
ширину 10-ой колонке которая будет равна Ширина бровса - ширины 9-и колонок.
Правильный подход или можно как то проще реализовать ?

 Отправлено: 03.07.15 10:14. Заголовок: Dima пишет:Правильны..

Dima пишет:

цитата:

Правильный подход или можно как то проще реализовать ?

Я TsBrowse, как ты Mdi отложил в ящик, использую Browse без горизонтального скролинга колонок (но на mdi окнах).
oBrw:nAdjColumn не пробовал (руки не дошли), но она на одну колонку (может и не так), т.е. на первом экране, а следующие - уже твои проблеммы. Можно ли подключать блоки кода на горизонт. скролинг (клавиши\мыша, для пересчета размеров видимых\невидимых колонок) не знаю.
В Browse (модиф. своя версия) делаем так:
- определяем колонки для скролинга (размер колонки для "нормального" показа всех прокручиваемых данных)
- width размер browse от колонок по окну (всегда, когда нет других контролов справа от browse) или считаем %-том от размера поля ширину в пиксклях, или просто задать от балды - поправят как надо мышой.
- клиент мышой может менять ширину любой колонки - это сохраняется в cfg под именем окна+browse и при след. входе в окно размеры колонок беруться от cfg (с mdi main окном и modal окнами, также размеры можно менять, сохраняются в cfg под именем окна)
- и при горизонт. скролинге (от номера скролинга) меняется выражение показа всей строки

 Отправлено: 03.07.15 10:29. Заголовок: SergKis Понял !..

SergKis
Понял !

 Отправлено: 04.07.15 21:38. Заголовок: Не очень понял как ц..

Не очень понял как цеплять к ячейке BMP[ICO] из ресурса по условию.
Может кто покажет простой пример или намек ?

 Отправлено: 04.07.15 22:02. Заголовок: Допустим в базе есть..

Допустим в базе есть поле Field->NEVENT (1,2,3,4,...) и по условию нужно показывать разные иконки.
Можно так:
Скрытый текст

////////////////////////////////////////////////////////////// // Выбор отображаемой иконки FUNCTION SetNumIcons() LOCAL RetBmp, mNEVENT := Field->NEVENT, ii ,RetIcon STATIC arrBmp:={},arrNameBmp:={} DO CASE CASE NEVENT = 0 RetIcon:="bEVENT0" CASE NEVENT = 1 RetIcon:="bEVENT1" CASE NEVENT = 2 RetIcon:="bEVENT2" CASE NEVENT = 3 RetIcon:="bEVENT3" OTHERWISE RetIcon:="bEVENT0" ENDCASE ii:=ascan(arrNameBmp,Reticon) if ii>0 RetBmp:=arrBmp[ii] else RetBmp:= LOADIMAGE(RetIcon) if !empty(RetBmp) aadd(arrBmp,RetBmp) aadd(arrNameBmp,RetIcon) endif endif RETURN RetBmp

Тогда в бровсе назначай поле показа на 4 поле:
// "Массив иконок bmp"
aBmp := {,,,"SetNumIcons()"}
IF LEN(aBmp) > 0
For ii:=1 to Len(aBmp)
if !Empty(aBmp[ii])
&cBrw:aColumns[ii]:uBmpCell := &("{||"+aBmp[ii]+"}")
&cBrw:aColumns[ii]:nAlign := nMakeLong( DT_CENTER, DT_CENTER )
endif
Next
ENDIF

Но у меня пример уж очень мудрённый, через ини-файл считывание полей, обработки и т.д.
Посмотри сам - https://cloud.mail.ru/public/Qimr/KjE9KUhcN

 Отправлено: 05.07.15 08:52. Заголовок: Andrey Сенкс. Надо ..

Andrey
Сенкс.
Надо было сразу суть объяснить (это 3 строки ) , ну да ладно сам понял.

 Отправлено: 05.07.15 08:58. Заголовок: Подсунул прозрачный ..

Подсунул прозрачный BMP и вывел в колонке , упс а у него есть свой фон.
Если ту же BMP вывести на кнопке , все нормально.
Как избавится от фона в бровсе для BMP ?

 Отправлено: 05.07.15 09:11. Заголовок: Andrey пишет: Но у ..

Andrey пишет:

цитата:

Но у меня пример уж очень мудрённый,

и более того , в процедуре по ON CHANGE есть вызов Refresh() , что 100% приводит к зависаниюбровса стоит его прогнать стрелками вниз/вверх

 Отправлено: 05.07.15 10:02. Заголовок: Dima Haz пишет: по ..

Dima
Haz пишет:

цитата:

по ON CHANGE есть вызов Refresh() , что 100% приводит к зависаниюбровса стоит его прогнать стрелками вниз/вверх

Мой (твой) пример Refresh(.F.) к зависанию не приводит, но по pgup или up ниже последней и назад - ломается веделенная закраска всей строки с фокусно ячейкой. Как то похитрее надо делать, может быть мтодом DrawLine(xRow) с цветами на пред.стоку и тек., без бутылки сразу не разберешься

 Отправлено: 05.07.15 10:15. Заголовок: Помогите с BMP разоб..

Помогите с BMP разобраться

 Отправлено: 05.07.15 10:33. Заголовок: SergKis пишет: Мой ..

SergKis пишет:

цитата:

Мой (твой) пример Refresh(.F.) к зависанию не приводит

Сергей, это пример с двойным курсором ?
Сделайте в нем строк поболее ( я тупо нагенерил 1000 ) и нажав стрелку вниз НЕ отпуская до конца , потом так же вверх и глюк как на блюдечке
Если отпускать стрелку вовремя - не проявляется.
Двойной курсор как оказалось - очень просто делается , у меня на работе пример , в понедельник кину Или лучше Дима может сейчас кинуть.


Dima пишет:

цитата:

О первой колонке с галей говорю.

если разговор только про галю , то тут БМП не нужна т.к есть стандартная галя по логическому полю
oBrw:aColumns[x]:lCheckBox := .T.

ЗЫ. с фоном БМП уже пытался разобраться - не вышло , бросил (((

 Отправлено: 05.07.15 11:00. Заголовок: Haz Не , галя не по..

Haz
Не , галя не подходит. Нужна BMP.
Подумал было что вот это ,что то изменит , но нет.
oBrw:lTransparent:=TRUE
Понятно что можно фон сделать который надо , но гиморно больно.
Для каждого фона для одного и того же BMP , держать кучку клонов
Оно как бы можно сырец ковырнуть и посмотреть что там происходит , но сходу
правильное место не нашел.
Похоже все рисуется в Сишнике в процедуре TSDrawCell

Haz пишет:

цитата:

Двойной курсор как оказалось - очень просто делается , у меня на работе пример , в понедельник кину Или лучше Дима может сейчас кинуть.

Да если надо выложу.

 Отправлено: 05.07.15 11:18. Заголовок: Dima пишет:Да если н..

Dima пишет:

цитата:

Да если надо выложу

Выложи. Пока TsBrowse отложил, но VO прогу переделывать придется, так что лучше сразу, потом сложнее будет.

 Отправлено: 05.07.15 11:19. Заголовок: Haz пишет:Сделайте в..

Haz пишет:

цитата:

Сделайте в нем строк поболее

так сделал и увидел

 Отправлено: 05.07.15 11:24. Заголовок: SergKis пишет: Выло..

SergKis пишет:

цитата:

Выложи.

Колонкам делаем экзекуцию

 
   for i := 1 To oBrw:nColCount() 
         oBrw:aColumns[ i ]:lFixLite := TRUE 
   next  
 

Красим так примерно (на вкус и цвет товарищей нет )

 
 oBrw:SetColor( { 6 }, { { |a,b,c| IF( c:nCell == b,{ RGB(198, 226, 255), RGB(0,196,196) },; 
                           { Rgb( 198, 226, 255 ), Rgb( 159, 207, 255 ) })  }   } )           
  
 

 Отправлено: 05.07.15 11:50. Заголовок: Да, работает. Спасиб..

Да, работает. Спасибо.
Видел в TSBrowse.chm

цитата:

DBLCURSOR DOUBLE CURSOR FIXED Activates the double cursor feature on the freezed columns.

Но догадаться, для чего это

цитата:

Активизирует функцию двойного курсора на отмороженных колонок

Google translit(c)

 Отправлено: 05.07.15 13:34. Заголовок: В общем нашел я мест..

В общем нашел я место где происходит вывод картинок
Это c_TBrowse.c
Функция
void DrawBitmap ( HDC hDC, HBITMAP hBitmap, int wRow, int wCol, int wWidth, int wHeight, DWORD dwRaster )
Есть там переменная
dwRaster = SRCCOPY;

Заменил ее на , с фоном порядочек , но цвет изображения инвертированный получился ,
по жизни он зеленый (галя на скрине выше) а вышла фиолетовая

У кого есть мысли ?

 Отправлено: 05.07.15 13:51. Заголовок: Dima пишет: У кого ..

Dima пишет:

цитата:

У кого есть мысли

а с этим пробовал SRCAND ?

 Отправлено: 05.07.15 13:57. Заголовок: Haz пишет: а с этим..

Haz пишет:

цитата:

а с этим пробовал SRCAND ?

конечно , результат черный фон.
пробовал даже комбинации ........

 Отправлено: 05.07.15 14:06. Заголовок: Игорь это у меня так..

Игорь это у меня такой кривой Axialis IconWorkshop оказывается. Пишет что прозрачный фон у
картинки а на самом деле нет.
Взял чужую картинку с прозрачным фоном , все отлично.
Посему сделать в сырце нужно вот так
dwRaster = SRCAND;

 Отправлено: 05.07.15 14:08. Заголовок: Dima пишет: Посему ..

Dima пишет:

цитата:

Посему сделать в сырце нужно вот так dwRaster = SRCAND;

Погоняю завтра на работе ...

 Отправлено: 05.07.15 14:53. Заголовок: я уже погонял. короч..

я уже погонял.
короче , фон BMP надо делать белый а не прозрачный.
интересно что у тебя получится.
вот с белым фоном


PS
Вот 2 BMP для теста
Один с прозрачным фоном , другой с белым
https://cloud.mail.ru/public/DMPk/TVHRgFZy6
https://cloud.mail.ru/public/AW9h/4igB1QSbr

 Отправлено: 05.07.15 20:31. Заголовок: Dima пишет: фон BMP ..

Dima пишет:

цитата:

фон BMP надо делать белый

Попробовал из VO bmp с белым фоном - полет нормальный.

 Отправлено: 05.07.15 21:25. Заголовок: Снова о Double Curso..

SergKis пишет:

цитата:

Попробовал из VO bmp с белым фоном - полет нормальный.

OK


Снова о Double Cursor.
Вот так выглядит , без особого тюнинга.

Но не трудно заметить что фон в 4 ячейке красится по условию и когда
курсор там лежит , то этой окраске труба


Еще вопрос:

 
  Full  oBrw:nLineStyle := 1  
  Only vertical lines  oBrw:nLineStyle := 2  
  Only horizontal lines  oBrw:nLineStyle := 4  
  No lines  oBrw:nLineStyle := 0  
 

Пока стоит у меня 1 , вроде ни чего так. В консоли если сравнивать была бы 2.
В общем пробнул все варианты включая 5 и 3
И так и не понял как лучше и как быстрее будет для самого бровса.
Быстрее будет конечно с nLineStyle := 0 , но выглядит как то вяло все
Кто как юзает ?

PS
Смотрел таблички в задачах на DELPHI , там летает все и ни чего не "подмаргивает" ,
просто хотелось улучшить Tsbrowse в плане прорисовки и скорости.

 Отправлено: 06.07.15 00:17. Заголовок: Dima пишет: Смотрел..

Dima пишет:

цитата:

Смотрел таблички в задачах на DELPHI , там летает все и ни чего не "подмаргивает"

Там двойная буферизация при выводе на экран. Кто нам сделает такое же в МиниГуи - вопрос открыт !

Dima пишет:

цитата:

просто хотелось улучшить Tsbrowse в плане прорисовки и скорости.

Аналогично.
Мне бы тоже хотелось иметь готовые примеры как нужно делать то или иное в Tsbrowse.

 Отправлено: 06.07.15 08:52. Заголовок: Andrey пишет: Там д..

Andrey пишет:

цитата:

Там двойная буферизация

Ну по идее (хотя в си я валенок) надо
в сырцах TsBrowse где идут вызовы SendMessage(...)
4-ым параметром передавать LVS_EX_DOUBLEBUFFER
Только надо знать в каком из них (SendMessage) это
сделать.

Хотя, нет.......
В Tsbrowse есть InitDialogBrowse , вот надо как то перед его вызовом поиграть
с doublebuffer := _HMG_aControlMiscData1 [i,19]
Возможно в Function _DefineTBrowse
в _HMG_aControlMiscData1 [k] := 0 , вместо этого сделать так
_HMG_aControlMiscData1 [k] := { , , , , , , , , , , , , , , , , , , TRUE }

 Отправлено: 06.07.15 09:12. Заголовок: Dima если меняем ис..

Dima
если меняем исходники TsBrowse, вопросик
А ты делел, по совету Haz, добавление cName (своего имени колонки) в TSColumn ?
CLASS TSColumn
DATA cName INIT ""
...
Я да, и еще тронул

 
 METHOD GetColumn( nCol )                                               CLASS TSBrowse 
   
    Default nCol := 1 
  
    IF hb_IsString( nCol ) 
       nCol := Max( AScan( ::aColumns, {|oCol| Upper(oCol:cName)==Upper(nCol) } ), 1) 
       RETURN ::aColumns[ nCol ]                       // returns a Column object 
    ENDIF 
  
    If nCol < 1 
       nCol := 1 
    ElseIf nCol > Len( ::aColumns ) 
       nCol := Len( ::aColumns ) 
    EndIf 
  
 Return ::aColumns[ nCol ]                       // returns a Column object 
 

может и еще надо было бы пройтись, но пока этим обхожусь

 Отправлено: 06.07.15 09:15. Заголовок: SergKis Нет этого н..

SergKis
Нет этого не делал.
О DoubleBuffer читал , мыслю верно ?
Я о _HMG_aControlMiscData1 [k] := 0 функции _DefineTBrowse

 Отправлено: 06.07.15 09:23. Заголовок: Dima так глубоко ещ..

Dima
так глубоко еще не лазил (как устроено не копал), по простым методам не прошел даже. Получается, как ты говорил "зашел на 5 минут", а вышел через неделю и не заметил. В Browse и вернулся по этим причинам.

 Отправлено: 06.07.15 09:33. Заголовок: Dima пишет:Я о _HMG_..

Dima пишет:

цитата:

Я о _HMG_aControlMiscData1 [k] := 0 функции _DefineTBrowse

В др.контролах это контейнер внутренних данных, в TsBrowse нашел только это METHOD EditExit line 3950

 
    If ValType( oCol:oEdit ) == "O" 
       DO CASE 
       CASE "TGETBOX" $ Upper( oCol:oEdit:ClassName() ) 
          ix := GetControlIndex ( ::cChildControl, ::cParentWnd ) 
          nKey := _HMG_aControlMiscData1 [ix][3] 
          SetFocus( ::hWnd )  // JP 1.59 
       CASE "TBTNBOX" $ Upper( oCol:oEdit:ClassName() ) .and. lSpinner 
 

не считая функции _DefineTBrowse

 Отправлено: 06.07.15 09:57. Заголовок: Тогда не понятно как..

Тогда не понятно как корректно в 19 элемент сложить TRUE

 Отправлено: 06.07.15 10:33. Заголовок: Dima LVS_EX_DOUBLEB..

Dima
LVS_EX_DOUBLEBUFFER - это для ListView, т.е. дл Browse, Grid

 Отправлено: 06.07.15 10:39. Заголовок: SergKis пишет: може..

SergKis пишет:

цитата:

может и еще надо было бы пройтись, но пока этим обхожусь

Сергей, я еще это менял ( номера строк примерные т.к. дома не актуальные исходники )

добавил код чтобы по ENTER и SPACE вызывался код дабл клика мышкой в широком курсоре
6396 Case !::lCellbrw .And. (nKey == 13 .Or. nKey == 32 )
If ::bLDblClick != Nil
Eval( ::bLDblClick )
EndIf
Otherwise



Выход из редактирования при потере фокуса ячейкой с СОХРАНЕНИЕМ редакции ( как Excel )

// if nKey == 0
3915 // lLostFocus := .T. Закоментировал и изменил условие ниже с nKey > 0 на nKey >= 0
// endif

3919 If ! lLostFocus .and. nKey >= 0 .and. (nKey != VK_ESCAPE .or. ::nColSpecHd != 0) .and. ;

 Отправлено: 06.07.15 10:40. Заголовок: Haz Спасибо. :sm36..

Haz
Спасибо.

 Отправлено: 06.07.15 10:41. Заголовок: SergKis пишет: LVS_..

SergKis пишет:

цитата:

LVS_EX_DOUBLEBUFFER - это для ListView, т.е. дл Browse, Grid

То есть не для TSBROWSE......??? , который в свою очередь юзает InitDialogBrowse из h_browse.prg в
котором и считывается doublebuffer := _HMG_aControlMiscData1 [i,19] и затем скармливается
SendMessage.
Можно тупо закоментить doublebuffer := _HMG_aControlMiscData1 [i,19]
и написать doublebuffer := TRUE

 Отправлено: 06.07.15 10:56. Заголовок: Dima это где ? не в..

Dima
это где ? не вижу, ткни

цитата:

который в свою очередь юзает InitDialogBrowse из h_browse.prg в котором и считывается doublebuffer := _HMG_aControlMiscData1 [i,19] и затем скармливается SendMessage.

 Отправлено: 06.07.15 11:06. Заголовок: Вызов InitDialogBrow..

Вызов InitDialogBrowse есть в SOURCE\TsBrowse\h_tbrowse.prg
Сам InitDialogBrowse живет в сырцах Минигуи в h_browse.prg ,
строка примерно 296
Там чуть ниже и считывается doublebuffer из массива _HMG_aControlMiscData1

 Отправлено: 06.07.15 11:18. Заголовок: туда попадаем при i..

туда попадаем при
if _HMG_BeginDialogActive
а унас ситуация else и
oBrw := TSBrowse():New( ControlName, nRow, nCol, nWidth, nHeight,;

 Отправлено: 06.07.15 13:29. Заголовок: SergKis Попробовал ..

SergKis
Попробовал сделать по аналогии с обычным бровсом в Function _DefineTBrowse
в самом конце перед Return

 
 if .Not. _HMG_DialogInMemory 
   SendMessage( ControlHandle, LVM_SETEXTENDEDLISTVIEWSTYLE, 0,  LVS_EX_DOUBLEBUFFER)   
 endif 
 

Пересобрал , видимого эффекта не обнаружил , все по старому............
Наверное там не все так просто если Григорий этого не сделал после того как в Grid и бровсе
был введен DOUBLEBUFFER.
Фсё , у меня мысли кончились в плане DOUBLEBUFFER

 Отправлено: 06.07.15 14:09. Заголовок: Dima LVS_EX_DOUBLEB..

Dima
LVS_EX_DOUBLEBUFFER это ListView контрол от Мвйкрософта и появилось то ли с Висты, то ли с 7ки, раньше вроде не было.
а TsBrowse типа самописный, так что ...

 Отправлено: 06.07.15 14:11. Заголовок: SergKis Понял. Посл..

SergKis
Понял.
Последняя попытка ;)
Пробнул вот так еще в своем сырце после END WINDOW
ListView_ChangeExtendedStyle ( GetControlHandle('oBrwm','MAGAZIN'), LVS_EX_DOUBLEBUFFER, NIL )
Эффекта не увидел. Тут не катит такое ?

PS
Похоже не катит........

 Отправлено: 06.07.15 14:45. Заголовок: SergKis А в обычном..

SergKis
А в обычном бровсе не TS , супер хидер возможен ?
Сделать двойной курсор можно ?

 Отправлено: 06.07.15 14:48. Заголовок: Dima пишет:Похоже не..

Dima пишет:

цитата:

Похоже не катит

Можно пробовать через WM_SETREDRAW, но это копать надо (и прокатит ли):

 
 // BAA 
 HB_FUNC( LOCKREDRAW ) 
 { 
   HWND hWnd = ( HWND ) hb_parnl( 1 ); 
  
   if( hb_parl(2) ) SendMessage( hWnd, WM_SETREDRAW, 0, 0); // .T. - блокировать  
   else             SendMessage( hWnd, WM_SETREDRAW, 1, 0); // .F. - разблокировать 
 } 
 

 Отправлено: 06.07.15 14:53. Заголовок: Dima пишет:А в обычн..

Dima пишет:

цитата:

А в обычном бровсе не TS , супер хидер возможен ? Сделать двойной курсор можно ?

Нет и многострочную строку тоже нельзя. Я горожу (1,2 места) простенький суперхидер от размеров колонок на базе ButtonEx, но сам понимаешь ...

 Отправлено: 06.07.15 14:55. Заголовок: Прокатило LOCKREDRAW..

Прокатило
LOCKREDRAW(GetControlHandle('oBrwm','MAGAZIN'),.T.)
только после этого бровс не рисуется совсем.
куда ее правильно пристроить ?

 Отправлено: 06.07.15 14:59. Заголовок: Dima пишет:куда ее п..

Dima пишет:

цитата:

куда ее правильно пристроить ?

Вот тут и копать начинать надо Я не очень влез в тексты TsBrowse, что бы ответить

 Отправлено: 06.07.15 15:04. Заголовок: Ладно пробну пихнуть..

Ладно пробну пихнуть ее METHOD Display() CLASS TSBrowse

 
    ::BeginPaint() 
    ::Paint() 
    ::EndPaint() 
  
 

Перед ::Paint() включу а после выключу

 Отправлено: 06.07.15 15:09. Заголовок: Сделал , шустрее бро..

Сделал , шустрее бровс не стал ))))

 Отправлено: 06.07.15 15:20. Заголовок: Dima пишет:Сделал , ..

Dima пишет:

цитата:

Сделал , шустрее бровс не стал

И не должен. Этим можно убрать мелькание.

 Отправлено: 06.07.15 15:22. Заголовок: SergKis пишет: Эти..

SergKis пишет:

цитата:

Этим можно убрать мелькание.

Оно осталось ;)
Таблица не мерцает а вот курсор да.

 Отправлено: 06.07.15 15:28. Заголовок: Dima Pasha писал Ещ..

Dima
Pasha писал

цитата:

Еще tbrowse любит все время опрашивать RecCount(), на каждой записи...

может еще в эту сторону смотреть для увеличения быстроты
А по поводу мерцания ничего не скажу - нет мыслей

 Отправлено: 06.07.15 15:32. Заголовок: SergKis пишет: Еще ..

SergKis пишет:

цитата:

Еще tbrowse любит все время опрашивать RecCount(),

я пока на массиве юграю , поэтому RecCount() не при делах.
Всё мысли и у меня кончились......с утра думал минут 5 поиграть а уже скоро 16-00 ))

 Отправлено: 06.07.15 15:42. Заголовок: Dima пишет:с утра ду..

Dima пишет:

цитата:

с утра думал минут 5 поиграть а уже скоро 16-00

Вот и я волевым усилием отложил TsBrowse, а то сядешь играть ..., а неделя прошла.
Работа стоит, а время идет (c)

 Отправлено: 06.07.15 15:47. Заголовок: SergKis пишет: сяде..

SergKis пишет:

цитата:

сядешь играть ..., а неделя прошла.

Это точно
Смотрю там всем рисованием занимается сишная функция
HB_FUNC( TSDRAWCELL )
возможно надо там копать , но в сях я не силен.

 Отправлено: 06.07.15 16:32. Заголовок: Еще вопрос по TS :s..

Еще вопрос по TS
Если зажать и держать PGDN , то листается не весь бровс целиком как ожидалось
а только в пределах строки курсора.
Этот эффект как то отключается ?
Смотрел oBrw:lPageMode , это не то.

PS
Глянул , не отключается. Только лишь переделкой лечится.

 Отправлено: 07.07.15 22:49. Заголовок: Стрес-тест для TBROW..

Стрес-тест для TBROWSA.
Открываю базу через инет (Leto) - 5 миллионов записей, при создании окна и TBROWSA тормозит немного 5-7 сек., но ничего открывает по выбору 97 тыс. записей... маркер немного вальяжно ходит... Но этоже всётаки 97 тыс. записей в бровсе....
Единственно глюк - на скролинге не отображается положение в базе и если за него подвигать вверх/вниз - ВИСНЕТ НАГЛУХО !
Что там можно исправить ?
Исходники здесь - https://cloud.mail.ru/public/6Tw4/JGGSA941Q

 Отправлено: 07.07.15 23:11. Заголовок: Andrey пишет: Откры..

Andrey пишет:

цитата:

Открываю базу через инет (Leto)

Лето не у всех установлен , так что давай тест под CDX

PS
Копирайт рано вешать )))

 Отправлено: 08.07.15 07:04. Заголовок: Dima пишет: Лето не..

Dima пишет:

цитата:

Лето не у всех установлен , так что давай тест под CDX

Там переключатель есть на DBFCDX, будет работать стандартный драйвер.
Только при первом запуске надо кнопку "колёсико" выбрать и указать кол-во записей для создания базы !
Если заново нужно создать базу, то нужно удалить уже созданную базу.

Копирайт потом общий повешу, без вашей общей помощи - не создал бы такой тест !

 Отправлено: 08.07.15 08:25. Заголовок: Andrey пишет:Что там..

Andrey пишет:

цитата:

Что там можно исправить ?

-установить

цитата:

RddInfo( RDDI_BUFKEYCOUNT, <lSet>,, [nConnection] ) По умолчаниюю флаг RDDI_BUFKEYCOUNT не установлен. Если он не установлен, функция ordKeyCount() запращивает значение количества ключей с сервера, если установлен - использует последнее значение, полученное с сервера. RddInfo( RDDI_BUFKEYNO, <lSet>,, [nConnection] ) По умолчаниюю флаг RDDI_BUFKEYNO не установлен. Если он не установлен, функция ordKeyNo() запращивает значение сервера, если установлен - использует последнее значение, полученное с сервера.

-убрать OdKeyCount из on change
-не знаю как skip буффер заполняется данными из fpt, но я бы мах избавился от memo полей, с инф. типа адрес, телефон, ...

 Отправлено: 08.07.15 08:30. Заголовок: SergKis пишет: -не ..

SergKis пишет:

цитата:

-не знаю как skip буффер заполняется данными из fpt, но я бы мах избавился от memo полей, с инф. типа адрес, телефон, ...

Ну это сложно. Юзера вечно хотят свои примечания писать. Адрес, телефон в этом тесте просто выступают как образец.
А так конечно согласен, чем меньше мемо, тем лучше.

SergKis пишет:

цитата:

RddInfo( RDDI_BUFKEYCOUNT, <lSet>,, [nConnection] )

А в каком месте программы ?
Там где Leto коннектится или в другом месте ?

 Отправлено: 08.07.15 08:42. Заголовок: Andrey пишет:Ну это ..

Andrey пишет:

цитата:

Ну это сложно. Юзера вечно хотят свои примечания писать

У нас "хвост управляет собакой" или наоборот ?
Я делаю поле через разделитель ~0.5k-3k как для aTokens

цитата:

Там где Leto коннектится или в другом месте ?

RddInfo - инф. для rdd, вот и ставь соответственно

 Отправлено: 08.07.15 11:30. Заголовок: Сергей а ништяки тип..

Сергей а ништяки типа RDDI_BUFKEYNO , RDDI_BUFKEYCOUNT это для Leto только ?
Посмотрел DBINFO.CH там нет такого.

 Отправлено: 08.07.15 11:32. Заголовок: Andrey пишет: Стрес..

Andrey пишет:

цитата:

Стрес-тест для TBROWSA.

Тест конечно стресс но не для бровса,, а для автора т.к. надо немного менять код
1. Переписать так чтобы не было везде понатыкано MyFocusBrw() , как минимум в ON CHANGE - это место крайне чувствительно ко всяким лишним действиям
2. Когда ставиться Scope - бровс об это ничего не знает , ему не сказали что логическая длина базы съехала. Отсюда и косяк на скролере ( пример как сказать есть в TSBFilter , что фильтр что скоп итог один - бровсу кормят не то количество на которое он инициализировался ) - нужен :Reset()
3. Нагенерил 100 000 на локальном компе тормозов нет

PS. Сергей верно сказал - мемо поля это помойка в которой тяжело искать , и уменьшай объем передаваемых данных в буфер записи при Skip. Узкое место скорость передачи

PPS Вспомнил позднее - по поводу мемо полей мы уже говорили и ты что то делал подобное - мемо показывать не в бровсе а в отдельной области окна , и только для текущей записи . Читать мемо можно c задержкой , чтоб не тормозил бровс при навигации . Я у себя тупо через таймер и массив комманд реализовал , по ON CHANGE в массив комманд пишется N записи по которой перечитать мемо и обнуляется счетчик задержки примерно 500 мс. При контроле этого счетчика , если он достиг 500 читаем последнее значение из массива и по нему мемо, при этом обнуляя массив. Т.е мемо подчитывается через пол секунды после того как пользователь перестал давить на кнопки управления

 Отправлено: 08.07.15 14:27. Заголовок: Dima пишет: ништяки ..

Dima пишет:

цитата:

ништяки типа RDDI_BUFKEYNO , RDDI_BUFKEYCOUNT это для Leto только ?

Ты совершенно прав, цитата и ништяки из letodb, а cdx и без них тянет.

 Отправлено: 08.07.15 14:33. Заголовок: SergKis пишет: а cd..

SergKis пишет:

цитата:

а cdx и без них тянет

Да меня больше ADSCDX интересовал.

 Отправлено: 08.07.15 14:34. Заголовок: Haz пишет:и уменьшай..

Haz пишет:

цитата:

и уменьшай объем передаваемых данных в буфер записи при Skip. Узкое место скорость передачи

Для browse лучше skip буфер делать в кол-во строк browse, иначе идет набор рывками (особенно видно в модемном соединении), для TSB, думаю тоже, не пробовал с letodb (пока с cdx вопросы)

 Отправлено: 08.07.15 14:42. Заголовок: Dima пишет:Да меня б..

Dima пишет:

цитата:

Да меня больше ADSCDX интересовал.

Думаю, надо править сырец TSB, ввести переменную и заносить значение OrdKeyCount() при создании TSB, а в блоках кода по умолчанию (и своих) использовать ее, когда надо, самому обновлять значение переменной.

 Отправлено: 08.07.15 16:04. Заголовок: Haz пишет: Тест кон..

Haz пишет:

цитата:

Тест конечно стресс но не для бровса,, а для автора т.к. надо немного менять код

Для этого и вас всех просил посмотреть !

Haz пишет:

цитата:

3. Нагенерил 100 000 на локальном компе тормозов нет

Нужно по сетке хотя бы проверить.... И побольше базу ....

 Отправлено: 08.07.15 16:48. Заголовок: Haz пишет: Когда ст..

Haz пишет:

цитата:

Когда ставиться Scope - бровс об это ничего не знает

А вот с этого места можно поподробнее как для домохозяек ?
Если я работаю по сети и в базе 100 записей. Завел новую запись 101 а по сети
в это время добавили запись 102 , я ее не увижу ?
В консоли с этим нет проблем.
Молчу уже про Scope , Фильтра.........

 Отправлено: 08.07.15 20:12. Заголовок: Dima пишет: В консо..

Dima пишет:

цитата:

В консоли с этим нет проблем.

думаю и в консоли при сформированном бровсе по полной базе , а какая то прцудура выставит фильтр , то бровсу как минимум :RefreshAll() потребуется .
Проблемы такие же как и в консоли , к примеру если коллега отредактирует запись которая у меня висит перед глазами в бровсе , я не увижу изменений пока не обновлю запись

 Отправлено: 08.07.15 20:13. Заголовок: SergKis пишет: Для ..

SergKis пишет:

цитата:

Для browse лучше skip буфер делать в кол-во строк browse,

Спасибо, проверю !

 Отправлено: 08.07.15 21:23. Заголовок: Haz пишет: то бровс..

Haz пишет:

цитата:

то бровсу как минимум :RefreshAll() потребуется .

Конечно я его делаю и в консоли , когда это требует логика проги.
Все понял !

 Отправлено: 03.08.15 08:14. Заголовок: Смотрю проблема cVal..

Смотрю проблема cValToChar(xValue) для чисел так и не решилась с давних времен
http://clipper.borda.ru/?1-20-0-00000485-000-0-0-1150783273 Пост N: 191

 
 FUNCTION cValToChar( xValue ) 
  
    LOCAL cType := ValType( xValue ) 
    LOCAL cValue := "", nDecimals 
  
    if cType == 'N' 
         if xValue == int(xValue) 
            nDecimals := 0 
         else 
            nDecimals := Set( _SET_DECIMALS ) 
         endif 
    endif 
    DO CASE 
       CASE cType $  "CM";  cValue := xValue 
       CASE cType == "N" ;  cValue := LTrim( Str( xValue, 20, nDecimals ) ) 
 ... 
 на мой взгляд применение (убрав строки определения nDecimals) 
       CASE cType == "N" ;  cValue := hb_ntos( xValue) 
 работают правильнее для разных значений дробной части числа 
 

 Отправлено: 03.08.15 10:52. Заголовок: SergKis пишет: проб..

SergKis пишет:

цитата:

проблема cValToChar(xValue) для чисел так и не решилась

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

 Отправлено: 03.08.15 14:39. Заголовок: Подскажите (не вижу)..

Подскажите (не вижу), есть ли в MiniGui готовая функция для получения объекта TSBrowse по имени контрола и формы. Типа

 
 FUNCTION _GetObjTSBrowse( ControlName, ParentForm, nIndex) 
 LOCAL oBrw 
 LOCAL i := iif(pCount() > 2, nIndex, GetControlIndex(ControlName,ParentForm)) 
  IF i > 0; oBrw:= _HMG_aControlIds [ i ] 
  ENDIF 
 RETURN oBrw 
 

 Отправлено: 03.08.15 16:03. Заголовок: SergKis пишет: есть..

SergKis пишет:

цитата:

есть ли в MiniGui готовая функция для получения объекта TSBrowse

Нет такой функции

 Отправлено: 03.08.15 16:24. Заголовок: gfilatov2002 пишет:Н..

gfilatov2002 пишет:

цитата:

Нет такой функции

Выпадает TsBrowse из общей организации MiniGui. Нет тогда и min псевдообъекта oTSB := wForma.Magazin.Object

 Отправлено: 12.08.15 19:53. Заголовок: Всем привет. Тестир..

Всем привет.
Тестирую TBROWSE через сервер на медленном соединение...
Не очень приятно видеть как TBROWSE медленно перерисовывает окно и саму таблицу.
В терминалке была команда DispBegin() и DispEnd().
Есть ли такая команда для МиниГуи TBROWSE ?

 Отправлено: 12.08.15 21:22. Заголовок: Andrey пишет: Тести..

Andrey пишет:

цитата:

Тестирую TBROWSE через сервер на медленном соединение...

Тут тема про TSBROWSE...

ЗЫ
А по вопросу , коли медленный коннект повесь какой то индикатор или типа того...

 Отправлено: 12.08.15 21:33. Заголовок: Dima пишет: При чем..

Dima пишет:

цитата:

Тут тема про TSBROWSE...

Как читаю, так и написал:
DEFINE TBROWSE oBrw3 ;
AT 160,2 ;
WIDTH nWinWidth-2*2 ;
HEIGHT nWinHeight - 160*2 ;
ON CHANGE { || ChangeBrowse("oBrw3") } ;
ON GOTFOCUS ChangeBrowse("oBrw3") ;
BACKCOLOR aBackColor ;
CELL
и т.д.

 Отправлено: 12.08.15 21:37. Заголовок: Andrey Думаешь Disp..

Andrey
Думаешь DispBegin() и DispEnd() ......аналоги...помогут ?
Что то сомневаюсь.

PS
Есть там BeginPaint() и EndPaint()

 Отправлено: 12.08.15 21:42. Заголовок: Dima пишет: А по во..

Dima пишет:

цитата:

А по вопросу , коли медленный коннект повесь какой то индикатор или типа того...

Во первых не знаю как определить - медленный коннект или нет ?
Во вторых - видно как TSBROWSE строит по ячейкам таблицу - визуально, медленно и не спеша.
А при нажатии на стрелки- вверх/вниз видно как перерисовывается маркер/курсор.
Для терминального TBROWSE были команды DispBegin() и DispEnd(), т.е. саму перерисовку пользователь не видел.
Это классные команды !

Вот и хотелось бы узнать как провернуть такой же финт для TSBROWSE ?

 Отправлено: 12.08.15 21:55. Заголовок: Andrey Сделай проще..

Andrey
Сделай проще )))
Напиши , идет загрузка данных в лейбе индикатора а уж после загрузки покажи бровс.
Не то ?

 Отправлено: 12.08.15 22:05. Заголовок: Dima пишет: Напиши ..

Dima пишет:

цитата:

Напиши , идет загрузка данных в лейбе индикатора а уж после загрузки покажи бровс. Не то ?

То что надо. А как сделать то ?
Я сейчас на медленном коннекте вижу как прорисовывается вся таблица.

 Отправлено: 12.08.15 22:44. Заголовок: Andrey пишет:Я сейча..

Andrey пишет:

цитата:

Я сейчас на медленном коннекте вижу как прорисовывается вся таблица.

Все верно, tbrows ходит (skip-ует) по базе, время обновления skip-буф. мало, он снова заполняется и получаешь то, что видишь

цитата:

То что надо. А как сделать то ?

Твой же пример WAIT_WINDOW с потоком и без, сделай аналогично, повесь анимацию, отбери в массив или memio и показывай.

 Отправлено: 20.08.15 14:16. Заголовок: Помогите разобраться..

Помогите разобраться с глюком мышки.

Пример MiniGUI\SAMPLES\Advanced\Tsb_config
На самом Tsbrowse нажимаем правую кнопку мышки и выбираем "Enable display of deleted records"
Клавиша PgDown до последней странице - нумерация строк (1-я колонка) в Tsbrowse - нормальная.
Если крутить колёсиком мышки - нумерация строк (1-я колонка) неправильная.
Как исправить ?

 Отправлено: 20.08.15 14:52. Заголовок: Собрал в новой верси..

Собрал в новой версии MiniGUI 2.5.1 - глюк тоже есть !
Вот так выглядит на экране:


Если листать клавишей PageDown - то глюка нет !
Помогите пожалуйста исправить, юзера будут просто ВОПИТЬ - куда делись договора...

 Отправлено: 24.08.15 18:06. Заголовок: Andrey пишет: Если ..

Andrey пишет:

цитата:

Если листать клавишей PageDown - то глюка нет

Это не глюк , минигуй тут не причем. Это ошибки алгоритма заложенного в пример. Меняй алгоритм и не переназначай внутренние переменные бровса если не уверен в том как это работает.
Нет времени заниматься поиском косяков в чужом коде , вот куски кода которые корректно работают

 
       SET DELETED OFF 
 .... 
       INDEX ON Number TAG "ALL"  
       INDEX ON Number TAG "DEL" FOR ( !Deleted() ) 
  
 .... 
  
    oBrw:bChange := { || oBrwChange() } 
  
 .... 
   
   STATIC FUNCTION oBrwChange() 
       LOCAL cVal := HB_NToS( (oBrw:cAlias)->(OrdKeyNo()) ) + ' / ' + HB_NToS( (oBrw:cAlias)->(OrdKeyCount()) ) 
       Form_0.StatusBar.Item(3) := " RecnO: " + cVal 
       Form_0.oBrw.Setfocus 
   RETURN Nil 
  
 .... 
 FUNCTION RecnoViewDel(lVal) 
     LOCAL cMsg 
  
     IF lVal  
        (oBrw:cAlias)->(DbSetOrder("ALL")) 
        cMsg := "Included a display of deleted records !" 
     ELSE 
        (oBrw:cAlias)->(DbSetOrder("DEL")) 
        cMsg := "Offline mode display of deleted records !" 
     ENDIF 
  
     oBrw:Reset() 
  
     MsgInfo(cMsg ) 
  
     Eval( oBrw:bChange ) 
 RETURN Nil 
  
 

 Отправлено: 24.08.15 23:37. Заголовок: Haz Спасибо ! Буду п..

Haz Спасибо !
Буду переделывать....
И еще заметил странность, если подёргать клавишами PageDown, PageUP а потом погонять клавишей стрелка вниз,
то TsBrowse вешает программу наглухо.

 Отправлено: 25.08.15 10:38. Заголовок: Andrey пишет: TsBro..

Andrey пишет:

цитата:

TsBrowse вешает программу наглухо.

Все верно, так и должно быть
Перечитай эту ветку, один форумчанин примерно месяц назад. уже указывал тебе на эти грабли в твоем примере.

 Отправлено: 25.08.15 17:51. Заголовок: Haz пишет: Перечита..

Haz пишет:

цитата:

Перечитай эту ветку, один форумчанин примерно месяц назад. уже указывал тебе на эти грабли в твоем примере.

Да пока сам на грабли еще раз не наткнёшься, ни фига не запомнишь !
Только не всегда это происходит...

Пост N: 586
Haz пишет:

цитата:

и более того , в процедуре по ON CHANGE есть вызов Refresh() , что 100% приводит к зависаниюбровса стоит его прогнать стрелками вниз/вверх

Пост N: 717
SergKis пишет:

цитата:

Мой (твой) пример Refresh(.F.) к зависанию не приводит, но по pgup или up ниже последней и назад - ломается веделенная закраска всей строки с фокусно ячейкой. Как то похитрее надо делать, может быть мтодом DrawLine(xRow) с цветами на пред.стоку и тек., без бутылки сразу не разберешься

Так же ломается счетчик записей левой колонки.
Можно туда прикрутить в саму БИБЛИОТЕКУ - чтобы это не ломалось ?

 Отправлено: 25.08.15 17:57. Заголовок: в чем проблема ? пок..

в чем проблема ? показывай в первой колонке OrdKeyNo()

 Отправлено: 25.08.15 18:17. Заголовок: Haz пишет: Только н..

Andrey пишет:

цитата:

Только не всегда это происходит...

Это происходит ВСЕГДА если в ON CHANGE есть Refresh() и бежать по длинной базе не отрывая пальца по стрелки вниз или вверх достаточно долго.

Если почитать дальше 717 714 поста то там есть и пост 587 и ответ на него 716 . Читать надо внимательнее

 Отправлено: 25.08.15 18:28. Заголовок: Andrey пишет: Так ж..

Andrey пишет:

цитата:

Так же ломается счетчик записей левой колонки.

в DBFCDX нет логического нумератора строк , кроме как номер ключа при наличии индекса.
в TSBrowse ::nAt - тоже не нумератор , он может и отрицательные значения принимать
Поэтому как отобразить логический номер - головняк разработчика программы где используется TSBrowse

PS nAt совпадает с логическим номером только при бровсе по массиву.