Автор | Сообщение |
|
| |
Пост N: 5760
Зарегистрирован: 17.05.05
|
|
Отправлено: 23.06.16 21:20. Заголовок: [?] Простой вопрос
Есть главное окно программы , в нем живут несколько CHILD окон (не MDI). В процедуре ON INTERACTIVECLOSE главного окна есть блок кода , если он вернет TRUE тогда закроется главное окно и программа завершится. А вот если блок кода вернул FALSE , то как вернуть фокус ввода на окно на котором был фокус ввода до нажатия крестика главного окна ?
|
|
|
Ответов - 151
, стр:
1
2
3
4
5
6
7
8
All
[только новые]
|
|
|
| |
Пост N: 1029
Зарегистрирован: 20.02.11
|
|
Отправлено: 14.07.16 09:04. Заголовок: Dima пишет: Не рабо..
Dima пишет: работает с работы скину рабочий пример
|
|
|
|
| |
Пост N: 5872
Зарегистрирован: 17.05.05
|
|
Отправлено: 14.07.16 09:27. Заголовок: Haz пишет: с работы..
Haz пишет: цитата: | с работы скину рабочий пример |
| OK Тут дело такое или его отключить что не вышло или его починить что бы не глючил с базой ADS Глюк выглядит так (если потаскать за верт. скролл)
|
|
|
|
| |
Пост N: 1030
Зарегистрирован: 20.02.11
|
|
Отправлено: 14.07.16 10:52. Заголовок: Haz пишет: работает..
Haz пишет: цитата: | работает с работы скину рабочий пример |
| Найди вертикальный скрол Записей в бровсе 1000 http://shot.qip.ru/00Qz9C-610KPoqqQy/ кусок кода из Tsb_Cursor DEFINE TBROWSE oBrw AT 17, 0 ; OF Form_0 ; WIDTH Form_0.WIDTH - 2 * GetBorderWidth() ; HEIGHT Form_0.HEIGHT - GetTitleHeight() - GetTitleHeight() - ; GetProperty( "Form_0", "StatusBar", "Height" ) - 2 * GetBorderHeight() ; GRID ; SELECTOR TRUE; FONT "Arial" SIZE 12 oBrw:lNoVScroll := TRUE oBrw:oVScroll := NIL oBrw:SetArray( aDatos, .T. )
|
|
|
|
| |
Пост N: 5873
Зарегистрирован: 17.05.05
|
|
Отправлено: 14.07.16 11:28. Заголовок: Haz пишет: Найди ве..
Haz пишет: Попробуй его не найти если бровс по базе На массиве он да убивается.
|
|
|
|
| |
Пост N: 1031
Зарегистрирован: 20.02.11
|
|
Отправлено: 14.07.16 12:14. Заголовок: Dima пишет: Попробу..
Dima пишет: цитата: | Попробуй его не найти если бровс по базе |
| попробовал oBrw:bChange := {|| oBrw:oVScroll:SetRange( 0, 0 ) } не нашел
|
|
|
|
| |
Пост N: 5874
Зарегистрирован: 17.05.05
|
|
Отправлено: 14.07.16 14:11. Заголовок: Haz пишет: oBrw:bCh..
|
|
|
|
| |
Пост N: 5875
Зарегистрирован: 17.05.05
|
|
Отправлено: 14.07.16 21:46. Заголовок: TS бровс , футер име..
TS бровс , футер имеет 5 строк. Хотелось бы его раскрасить нежным цветом по условию , но он ловит только то что ему покормили в :cFooting. К базе он не привязан , пока не представляю как это сделать. Есть у кого идеи как это сделать в Setcolor ({ 9 ,10}.....)?
|
|
|
|
| |
Пост N: 1032
Зарегистрирован: 20.02.11
|
|
Отправлено: 14.07.16 23:11. Заголовок: Dima пишет: Есть у ..
Dima пишет: цитата: | Есть у кого идеи как это сделать в Setcolor ({ 9 ,10}.....)? |
| как и ячейки не катит ? т.е. вместо массива цветов - блок кода который по условию дает нужный массив
|
|
|
|
| постоянный участник
|
Пост N: 1072
Зарегистрирован: 17.02.12
|
|
Отправлено: 14.07.16 23:48. Заголовок: Dima пишет: Есть у к..
Dima пишет: цитата: | Есть у кого идеи как это сделать в Setcolor ({ 9 ,10}.....)? |
| For i := 1 To len(oBrw:aColumns) oCol := oBrw:aColumns[ i ] oCol::nClrFootBack := {|nCol,oBr| MyFootBack(nCol, oBr) } oCol::nClrFootFore := {|nCol,oBr| MyFootFore(nCol, oBr) } Next ... Static Function MyFootBack( nCol, oBrw ) Local oCol := oBrw:nCol, nClr := CLR_YELLOW // или RGB( 255, 255, 0 ) If oCol:cName == "ID" nClr := CLR_RED ElseIf oCol:cName == "NAME" nClr := CLR_HMAGENTA ... EndIf Return nClr Static Function MyFootFore( nCol, oBrw ) Local oCol := oBrw:nCol, nClr := CLR_YELLOW // или RGB( 255, 255, 0 ) If oCol:cName == "ID" nClr := CLR_HBLUE ElseIf oCol:cName == "NAME" nClr := CLR_BLACK ... EndIf Return nClr как то так
|
|
|
|
| постоянный участник
|
Пост N: 1073
Зарегистрирован: 17.02.12
|
|
Отправлено: 14.07.16 23:53. Заголовок: PS вместо Local oCol..
PS вместо Local oCol := oBrw:nCol надо Local oCol := oBrw:aColumns[nCol]
|
|
|
|
| постоянный участник
|
Пост N: 1074
Зарегистрирован: 17.02.12
|
|
Отправлено: 15.07.16 00:35. Заголовок: PS 2 для градиентной..
PS 2 для градиентной заливки возвращать можно nClr := { CLR_..., CLR_...} или блоки кода nClr := { {|nCol,oBr| RGB(...)}, {|nCol,oBr| RGB(...)} } для хранения цветов и др. инф. для работы с блоками колонок хорошо исп. oCol:Cargo oBrw:GetColumn("ID"):Cargo := { CLR_YELOW, CLR_BLUE, CLR_GREEN,...} и в функциях значения брать из oCol:Cargo
|
|
|
|
|
| |
Пост N: 5876
Зарегистрирован: 17.05.05
|
|
Отправлено: 15.07.16 08:29. Заголовок: SergKis Haz Я навер..
SergKis Haz Я наверное не корректно поставил вопрос Говорю о раскраске псевдо строк футера , ведь по определению он однострочный. Но добавив нужное кол-во CRLF можно сделать вид что он многострочный. То что можно столбцы по условию покрасить это понятно. Вот такой футер к примеру
|
|
|
|
| постоянный участник
|
Пост N: 1075
Зарегистрирован: 17.02.12
|
|
Отправлено: 15.07.16 08:58. Заголовок: Dima Раскрасить мож..
Dima Раскрасить можно ВСЕ строки футера в один цвет. для разноцветных строк можно пробнуть другой Tsb без header, footer, связав его с размерами и событиями изм. размеров. Если правильно прнял твою хотелку
|
|
|
|
| |
Пост N: 5877
Зарегистрирован: 17.05.05
|
|
Отправлено: 15.07.16 09:11. Заголовок: SergKis Понял...
SergKis Понял.
|
|
|
|
| постоянный участник
|
Пост N: 1076
Зарегистрирован: 17.02.12
|
|
Отправлено: 15.07.16 09:24. Заголовок: Dima Возможно проще..
Dima Возможно проще сделать по клику на футер (с сокращенным кол-вом строк) на раскрытие др. Tsb расшифровки этих данных, т.к. упр. футером на Tsb с 2мя HScroll-ами и изм. рамеров может оказаться затрудненным
|
|
|
|
| |
Пост N: 5878
Зарегистрирован: 17.05.05
|
|
Отправлено: 15.07.16 09:27. Заголовок: SergKis Кстати да в..
SergKis Кстати да вариант , по клику или наведению на него мыши , хотя с наведением наверное не получится , TS не умеет такого.
|
|
|
|
| постоянный участник
|
Пост N: 1077
Зарегистрирован: 17.02.12
|
|
Отправлено: 15.07.16 10:02. Заголовок: Dima Можно еще проб..
Dima Можно еще пробнуть Label-на футоре, с цветами и при oBrw:DrawFooter() перепоказывать их, но ... это пробовать (как бы label под футером tsb не оказался)
|
|
|
|
| постоянный участник
|
Пост N: 1078
Зарегистрирован: 17.02.12
|
|
Отправлено: 15.07.16 10:06. Заголовок: Dima пишет хотя с на..
Dima пишет цитата: | хотя с наведением наверное не получится , TS не умеет такого. |
| см. блок кода на ToolTip (мышой на футер) - может что получится
|
|
|
|
| |
Пост N: 5879
Зарегистрирован: 17.05.05
|
|
Отправлено: 15.07.16 10:21. Заголовок: SergKis пишет: см. ..
SergKis пишет: Ты наверное про cToolTip Он ведь долго не живет , показался на время и пропал
|
|
|
|
| постоянный участник
|
Пост N: 1079
Зарегистрирован: 17.02.12
|
|
Отправлено: 15.07.16 10:34. Заголовок: Dima Да. Но провери..
Dima Да. Но проверить, что нет контрола\окна можно и при отсутсвии послать сообщение, к примеру, на FK_F25 вполне можно
|
|
|
Ответов - 151
, стр:
1
2
3
4
5
6
7
8
All
[только новые]
|
|