Автор | Сообщение |
Vlad04
|
| постоянный участник
|
Пост N: 420
Зарегистрирован: 13.10.05
|
|
Отправлено: 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:....
|
|
|
Ответов - 301
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
All
[только новые]
|
|
Vlad04
|
| постоянный участник
|
Пост N: 444
Зарегистрирован: 13.10.05
|
|
Отправлено: 28.05.14 13:28. Заголовок: Andrey Я выше уже п..
Andrey цитата: | Я выше уже писал: "В нем есть функция обработки всех клавиш MyKeyAction(). |
| Мне надо отловить события перемещения по Бровз : Up, Down и др. На них хочу повесить действие. А MyKeyAction их не отлавливает
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 445
Зарегистрирован: 13.10.05
|
|
Отправлено: 28.05.14 13:37. Заголовок: Достиг цели- повесил..
Достиг цели- повесил действие на событие ON CHANGE для TBROWS. По видимому оно всегда генерируется .
|
|
|
Haz
|
| |
Пост N: 245
Зарегистрирован: 20.02.11
|
|
Отправлено: 28.05.14 13:37. Заголовок: Vlad04 пишет: Мне н..
Vlad04 пишет: цитата: | Мне надо отловить события перемещения по Бровз : Up, Down и др. На них хочу повесить действие. |
| Попробуй так, возможно подойдет , отлавливает не сами перемещения а последствия этих перемещения oBrw:bOnDraw := { || Action() }
|
|
|
Haz
|
| |
Пост N: 246
Зарегистрирован: 20.02.11
|
|
Отправлено: 28.05.14 13:56. Заголовок: Haz пишет: повесил ..
Haz пишет: цитата: | повесил действие на событие ON CHANGE |
| onchange не ловит перемещения по строке
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3399
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.05.14 20:15. Заголовок: Vlad04 пишет: Мне н..
Vlad04 пишет: цитата: | Мне надо отловить события перемещения по Бровз : Up, Down и др. На них хочу повесить действие. |
| А что за действие на эти клавиши хочешь отловить ?
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 446
Зарегистрирован: 13.10.05
|
|
Отправлено: 29.05.14 09:13. Заголовок: Andrey А что за дей..
Andrey цитата: | А что за действие на эти клавиши хочешь отловить ? |
| Очищать переменную с результатами поиска Обновлять на форме значения из таблица, которые не отображены в Бровзе
|
|
|
a_sidorov
|
| |
Пост N: 45
Зарегистрирован: 07.06.08
|
|
Отправлено: 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 )
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 447
Зарегистрирован: 13.10.05
|
|
Отправлено: 01.06.14 20:03. Заголовок: a_sidorov Хорошая п..
a_sidorov Хорошая подсказка. Пример с бровз почти готов. Остались мелочи- стрелочки (порядок индексирования) на заголовках столбцов на изменения с клавиатуры - не геагирует.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3401
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.06.14 21:12. Заголовок: Vlad04 пишет: Остал..
Vlad04 пишет: цитата: | Остались мелочи- стрелочки (порядок индексирования) на заголовках столбцов на изменения с клавиатуры - не геагирует. |
| Возьми с примера Tsb_dir, я здесь где то выкладывал его.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3402
Зарегистрирован: 12.09.06
|
|
Отправлено: 02.06.14 12:41. Заголовок: Есть хороший пример ..
Есть хороший пример :\MiniGUI\SAMPLES\BASIC\SavePos А как бы сделать настройку цветов для TBROWSE по такому же принципу ? Для начала - есть ли возможность вывести ВСЕ переменные цвета в TBROWSE ?
|
|
|
Haz
|
| |
Пост N: 247
Зарегистрирован: 20.02.11
|
|
Отправлено: 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() их назначает см исходник
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3405
Зарегистрирован: 12.09.06
|
|
Отправлено: 04.06.14 04:39. Заголовок: Haz пишет: все цвет..
Haz пишет: цитата: | все цвета в данных :aColumns[] |
| А как их в цикле вывести допустим в файл или массив ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 321
Зарегистрирован: 17.02.12
|
|
Отправлено: 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)) - весь массив цветов
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 322
Зарегистрирован: 17.02.12
|
|
Отправлено: 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
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3406
Зарегистрирован: 12.09.06
|
|
Отправлено: 04.06.14 11:42. Заголовок: SergKis пишет: это ..
SergKis пишет: цитата: | это я погорячился. в aColumns - объекты для каждой колонки. в объекте колонки есть методы SaveColor() и RestColor(). |
| Спасибо БОЛЬШОЕ ! Буду пробовать....
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 323
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.06.14 12:48. Заголовок: Andrey пишет:Буду пр..
Andrey пишет: смотри TsColumn.prg. обрати внимание - в методах SaveColor() и RestColor() не задействован oCol:aColorsBack[20], элемент oCol:nClrSpcHdActive - не знаю насколько он важен ...
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 594
Зарегистрирован: 11.02.10
|
|
Отправлено: 04.06.14 15:02. Заголовок: SergKis пишет: в ме..
SergKis пишет: цитата: | в методах SaveColor() и RestColor() не задействован oCol:aColorsBack[20], элемент oCol:nClrSpcHdActive |
| Благодарю за сообщение! Поправил для следующей сборки
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 448
Зарегистрирован: 13.10.05
|
|
Отправлено: 07.06.14 08:17. Заголовок: Пример Почти рабочий..
Пример Почти рабочий пример(pass 654321) 3 базы открываются используя 1 программник Часть инструкций вынесены во внешний файл.В консоле я всё выносил полностью. Остались проблемы. Стрелочки на заголовках столбцов , ну и другие мелочи. Сортировка меняется по F3.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3529
Зарегистрирован: 12.09.06
|
|
Отправлено: 04.08.14 11:17. Заголовок: Во многих примерах е..
Во многих примерах есть удобные кнопки навигации по TBROWSE. Какой лучше делать для своего ? Нужно с *.ICO и надпись !
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 377
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.08.14 13:39. Заголовок: Andrey пишет:Какой л..
Andrey пишет: цитата: | Какой лучше делать для своего ? |
| А что не так в примерах (для использования) \SAMPLES\BASIC\TOOLBAR, TOOLBAR_1, ..., ToolBarEx_2 ?
|
|
|
Ответов - 301
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
All
[только новые]
|
|