Отправлено: 23.06.16 21:20. Заголовок: [?] Простой вопрос

Есть главное окно программы , в нем живут несколько CHILD окон (не MDI).
В процедуре ON INTERACTIVECLOSE главного окна есть блок кода , если он вернет
TRUE тогда закроется главное окно и программа завершится.
А вот если блок кода вернул FALSE , то как вернуть фокус ввода на окно на котором
был фокус ввода до нажатия крестика главного окна ?

 Отправлено: 14.07.16 09:04. Заголовок: Dima пишет: Не рабо..

Dima пишет:

цитата:

Не работает однако

работает
с работы скину рабочий пример

 Отправлено: 14.07.16 09:27. Заголовок: Haz пишет: с работы..

Haz пишет:

цитата:

с работы скину рабочий пример

OK
Тут дело такое или его отключить что не вышло или его починить что бы не глючил с базой ADS
Глюк выглядит так (если потаскать за верт. скролл)

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

 Отправлено: 14.07.16 11:28. Заголовок: Haz пишет: Найди ве..

Haz пишет:

цитата:

Найди вертикальный скрол

Попробуй его не найти если бровс по базе
На массиве он да убивается.

 Отправлено: 14.07.16 12:14. Заголовок: Dima пишет: Попробу..

Dima пишет:

цитата:

Попробуй его не найти если бровс по базе

попробовал
oBrw:bChange := {|| oBrw:oVScroll:SetRange( 0, 0 ) }
не нашел

 Отправлено: 14.07.16 14:11. Заголовок: Haz пишет: oBrw:bCh..

Haz пишет:

цитата:

oBrw:bChange := {|| oBrw:oVScroll:SetRange( 0, 0 ) }

Точно , ты писал в феврале про это тут http://clipper.borda.ru/?1-1-0-00000457-000-10001-0-1467579659

Странно что Андрей мучался

 Отправлено: 14.07.16 21:46. Заголовок: TS бровс , футер име..

TS бровс , футер имеет 5 строк.
Хотелось бы его раскрасить нежным цветом по условию , но он ловит только то что ему покормили в :cFooting.
К базе он не привязан , пока не представляю как это сделать.
Есть у кого идеи как это сделать в Setcolor ({ 9 ,10}.....)?

 Отправлено: 14.07.16 23:11. Заголовок: Dima пишет: Есть у ..

Dima пишет:

цитата:

Есть у кого идеи как это сделать в Setcolor ({ 9 ,10}.....)?

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

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

как то так

 Отправлено: 14.07.16 23:53. Заголовок: PS вместо Local oCol..

PS
вместо
Local oCol := oBrw:nCol
надо
Local oCol := oBrw:aColumns[nCol]

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

 Отправлено: 15.07.16 08:29. Заголовок: SergKis Haz Я навер..

SergKis Haz
Я наверное не корректно поставил вопрос
Говорю о раскраске псевдо строк футера , ведь по определению он однострочный.
Но добавив нужное кол-во CRLF можно сделать вид что он многострочный.
То что можно столбцы по условию покрасить это понятно.
Вот такой футер к примеру

 Отправлено: 15.07.16 08:58. Заголовок: Dima Раскрасить мож..

Dima
Раскрасить можно ВСЕ строки футера в один цвет. для разноцветных строк можно пробнуть другой
Tsb без header, footer, связав его с размерами и событиями изм. размеров. Если правильно прнял твою хотелку

 Отправлено: 15.07.16 09:11. Заголовок: SergKis Понял...

SergKis
Понял.

 Отправлено: 15.07.16 09:24. Заголовок: Dima Возможно проще..

Dima
Возможно проще сделать по клику на футер (с сокращенным кол-вом строк) на раскрытие др. Tsb расшифровки этих данных,
т.к. упр. футером на Tsb с 2мя HScroll-ами и изм. рамеров может оказаться затрудненным

 Отправлено: 15.07.16 09:27. Заголовок: SergKis Кстати да в..

SergKis
Кстати да вариант , по клику или наведению на него мыши , хотя с наведением наверное не получится , TS не умеет такого.

 Отправлено: 15.07.16 10:02. Заголовок: Dima Можно еще проб..

Dima
Можно еще пробнуть Label-на футоре, с цветами и при oBrw:DrawFooter() перепоказывать их, но ... это пробовать
(как бы label под футером tsb не оказался)

 Отправлено: 15.07.16 10:06. Заголовок: Dima пишет хотя с на..

Dima пишет

цитата:

хотя с наведением наверное не получится , TS не умеет такого.

см. блок кода на ToolTip (мышой на футер) - может что получится

 Отправлено: 15.07.16 10:21. Заголовок: SergKis пишет: см. ..

SergKis пишет:

цитата:

см. блок кода на ToolTip

Ты наверное про cToolTip
Он ведь долго не живет , показался на время и пропал

 Отправлено: 15.07.16 10:34. Заголовок: Dima Да. Но провери..

Dima
Да. Но проверить, что нет контрола\окна можно и при отсутсвии послать сообщение, к примеру, на FK_F25 вполне можно