Отправлено: 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:....

 Отправлено: 28.05.14 13:28. Заголовок: Andrey Я выше уже п..

Andrey

цитата:

Я выше уже писал: "В нем есть функция обработки всех клавиш MyKeyAction().

Мне надо отловить события перемещения по Бровз : Up, Down и др.
На них хочу повесить действие.

А MyKeyAction их не отлавливает

 Отправлено: 28.05.14 13:37. Заголовок: Достиг цели- повесил..

Достиг цели- повесил действие на событие ON CHANGE для TBROWS.
По видимому оно всегда генерируется .

 Отправлено: 28.05.14 13:37. Заголовок: Vlad04 пишет: Мне н..

Vlad04 пишет:

цитата:

Мне надо отловить события перемещения по Бровз : Up, Down и др. На них хочу повесить действие.

Попробуй так, возможно подойдет , отлавливает не сами перемещения а последствия этих перемещения
oBrw:bOnDraw := { || Action() }

 Отправлено: 28.05.14 13:56. Заголовок: Haz пишет: повесил ..

Haz пишет:

цитата:

повесил действие на событие ON CHANGE

onchange не ловит перемещения по строке

 Отправлено: 28.05.14 20:15. Заголовок: Vlad04 пишет: Мне н..

Vlad04 пишет:

цитата:

Мне надо отловить события перемещения по Бровз : Up, Down и др. На них хочу повесить действие.

А что за действие на эти клавиши хочешь отловить ?

 Отправлено: 29.05.14 09:13. Заголовок: Andrey А что за дей..

Andrey

цитата:

А что за действие на эти клавиши хочешь отловить ?

Очищать переменную с результатами поиска

Обновлять на форме значения из таблица, которые не отображены в Бровзе

 Отправлено: 30.05.14 15:44. Заголовок: Для получения символ..

Для получения символа из кода клавиши nKey:
&cBrw:bKeyDown := { | nKey | MyKeyAction(nKey,cBrw, cParent, 0), lOk := nKey != VK_ESCAPE }

Vlad04 пишет:

цитата:

Независимо от раскладки клавиатуры всегда возвращает англиЦкие. Так должно быть ?

Смотри пример, только для получения маленьких буковок исправь символы в массивах.
MiniGUI\SAMPLES\BASIC\IncrementalSearch
Функция
Static Function KeyToChar( nVirtKey )

 Отправлено: 01.06.14 20:03. Заголовок: a_sidorov Хорошая п..

a_sidorov
Хорошая подсказка. Пример с бровз почти готов. Остались мелочи- стрелочки (порядок индексирования) на заголовках столбцов на изменения с клавиатуры - не геагирует.

 Отправлено: 01.06.14 21:12. Заголовок: Vlad04 пишет: Остал..

Vlad04 пишет:

цитата:

Остались мелочи- стрелочки (порядок индексирования) на заголовках столбцов на изменения с клавиатуры - не геагирует.

Возьми с примера Tsb_dir, я здесь где то выкладывал его.

 Отправлено: 02.06.14 12:41. Заголовок: Есть хороший пример ..

Есть хороший пример :\MiniGUI\SAMPLES\BASIC\SavePos

А как бы сделать настройку цветов для TBROWSE по такому же принципу ?
Для начала - есть ли возможность вывести ВСЕ переменные цвета в TBROWSE ?

 Отправлено: 03.06.14 23:13. Заголовок: Andrey пишет: Для н..

Andrey пишет:

цитата:

Для начала - есть ли возможность вывести ВСЕ переменные цвета в TBROWSE

все цвета в данных :aColumns[]

DATA nClrFore, nClrBack // cell colors
DATA nClrHeadBack, nClrHeadFore // headers colors
DATA nClrSpcHdBack, nClrSpcHdFore,nClrSpcHdActive // special headers colors
DATA nClrFocuBack, nClrFocuFore // focused cell colors
DATA nClrEditBack, nClrEditFore // editing cell colors
DATA nClrFootBack, nClrFootFore // footers colors
DATA nClrSeleBack, nClrSeleFore // Focused inactive colors
DATA nClrOrdeBack, nClrOrdeFore // order control column colors
DATA nClr3DLCell, nClr3DLHead, nClr3DLFoot, nClr3DLSpcHd // light color for 3d text
DATA nClr3DSCell, nClr3DSHead, nClr3DSFoot, nClr3DSSpcHd // shadow color for 3d text

а метод Setcolor() их назначает см исходник

 Отправлено: 04.06.14 04:39. Заголовок: Haz пишет: все цвет..

Haz пишет:

цитата:

все цвета в данных :aColumns[]

А как их в цикле вывести допустим в файл или массив ?

 Отправлено: 04.06.14 08:36. Заголовок: Andrey пишет:А как и..

Andrey пишет:

цитата:

А как их в цикле вывести допустим в файл или массив ?

hb_memowrit("All_Columns.txt", hb_valtoexp(oBrw:aColumns)) - весь массив aColumns

 
 a := {} 
 for i := 1 to len(oBrw:aColumns) 
 aAdd(a, {oBrw:aColumns[ i ]:nClrFore,  ; 
          oBrw:aColumns[ i ]:nClrBack, ; 
          oBrw:aColumns[ i ]:nClrHeadBack, ; 
           и далее по списку,  ; 
         ) 
 next 
 hb_memowrit("All_Color.txt", hb_valtoexp(a))  - весь массив цветов 
 

 Отправлено: 04.06.14 09:16. Заголовок: SergKis пишет:hb_mem..

SergKis пишет:

цитата:

hb_memowrit("All_Columns.txt", hb_valtoexp(oBrw:aColumns)) - весь массив aColumns

это я погорячился. в aColumns - объекты для каждой колонки.
в объекте колонки есть методы SaveColor() и RestColor().
Сохранить:
a := {}
for i := 1 to len(oBrw:aColumns)
oCol := oBrw:aColumns[ i ]
oCol:SaveColor()
aAdd(a, oCol:aColorsBack)
next
hb_memowrit("Col_Color.txt", hb_valtoexp(a))

Восстановить:
a := &( hb_memoread("Col_Color.txt") )
for i := 1 to len(oBrw:aColumns)
oCol := oBrw:aColumns[ i ]
oCol:aColorsBack := a[ i ]
oCol:RestColor()
next

 Отправлено: 04.06.14 11:42. Заголовок: SergKis пишет: это ..

SergKis пишет:

цитата:

это я погорячился. в aColumns - объекты для каждой колонки. в объекте колонки есть методы SaveColor() и RestColor().

Спасибо БОЛЬШОЕ !
Буду пробовать....

 Отправлено: 04.06.14 12:48. Заголовок: Andrey пишет:Буду пр..

Andrey пишет:

цитата:

Буду пробовать....

смотри TsColumn.prg.
обрати внимание - в методах SaveColor() и RestColor() не задействован oCol:aColorsBack[20], элемент oCol:nClrSpcHdActive - не знаю насколько он важен ...

 Отправлено: 04.06.14 15:02. Заголовок: SergKis пишет: в ме..

SergKis пишет:

цитата:

в методах SaveColor() и RestColor() не задействован oCol:aColorsBack[20], элемент oCol:nClrSpcHdActive

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

 Отправлено: 07.06.14 08:17. Заголовок: Пример Почти рабочий..

Пример
Почти рабочий пример(pass 654321)
3 базы открываются используя 1 программник
Часть инструкций вынесены во внешний файл.В консоле я всё выносил полностью.
Остались проблемы.
Стрелочки на заголовках столбцов , ну и другие мелочи.
Сортировка меняется по F3.

 Отправлено: 04.08.14 11:17. Заголовок: Во многих примерах е..

Во многих примерах есть удобные кнопки навигации по TBROWSE.




Какой лучше делать для своего ?
Нужно с *.ICO и надпись !

 Отправлено: 04.08.14 13:39. Заголовок: Andrey пишет:Какой л..

Andrey пишет:

цитата:

Какой лучше делать для своего ?

А что не так в примерах (для использования) \SAMPLES\BASIC\TOOLBAR, TOOLBAR_1, ..., ToolBarEx_2 ?