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

 Отправлено: 19.10.16 21:08. Заголовок: SergKis пишет: Прощ..

SergKis пишет:

цитата:

Проще удалить контрол Tsb и пересоздать новый

Совершенно с Вами согласен. Если уже создан контрол, то оформить его создание (удаление) в виде отдельной функции и использовать ее столько раз, сколько будет нужно - выглядит совершенно естественно.
Но хозяин - барин, и время и нервы его..

 Отправлено: 20.10.16 01:34. Заголовок: SergKis пишет: Толь..

SergKis пишет:

цитата:

Только во всей этой катавасии со сменой структуры и колонок (SuperHeader, Footer, цветов), большого смысла не вижу. Сначала показалось, что речь идет о смене с пустого файла на нормальный, а тут ... Проще удалить контрол Tsb и пересоздать новый, чем сохранять цвета, удалять колонки

Петр пишет:

цитата:

Если уже создан контрол, то оформить его создание (удаление) в виде отдельной функции и использовать ее столько раз, сколько будет нужно - выглядит совершенно естественно. Но хозяин - барин, и время и нервы его..

Ну теперь понятно как делать !
Спасибо за подсказку.

 Отправлено: 24.10.16 10:04. Заголовок: Как можно сделать фу..

Как можно сделать функцию чтения текущего цвета, чтобы его (цвет) потом передавать для другого условия ?
Например, если поставить два условия:

 
      // --- меняем цвета текста в ячейках таблицы --( oCol:nClrFore = oBrw:SetColor({1}...)--- 
      AEval(oBrw:aColumns, {|oCol,nCol| oCol:nClrFore := { |a,b,o| ; 
                              iif( (o:cAlias)->ERR_4 == -1 , CLR_HRED, CLR_BLACK ) } }) 
      AEval(oBrw:aColumns, {|oCol,nCol| oCol:nClrFore := { |a,b,o| ; 
                              iif( (o:cAlias)->ERR_4 == 1 , CLR_HBLUE, CLR_BLACK ) } })

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

Можно ли как то сделать типа так: ???

  
      AEval(oBrw:aColumns, {|oCol,nCol| oCol:nClrFore := { |a,b,o| ; 
                              iif( (o:cAlias)->ERR_4 == -1 , CLR_HRED, MyCLR() ) } }) 
      AEval(oBrw:aColumns, {|oCol,nCol| oCol:nClrFore := { |a,b,o| ; 
                              iif( (o:cAlias)->ERR_4 == 1 , CLR_HBLUE, MyCLR() ) } })

Ну может ещё параметр передавать в MyCLR() нужно...

 Отправлено: 24.10.16 17:05. Заголовок: Блин, что то я ступи..

Блин, что то я ступил... Решение то простое. Совсем заработался...
AEval(oBrw:aColumns, {|oCol,nCol| oCol:nClrFore := { |a,b,o| MyTsbColorText( (o:cAlias)->ERR_4 ) } } )
..............
////////////////////////////////////////////////////////////
STATIC FUNCTION MyTsbColorText(nVal)
LOCAL nColor

IF nVal == -1
nColor := CLR_HRED
ELSEIF nVal == 1
nColor := CLR_HBLUE
ELSE
nColor := CLR_BLACK
ENDIF

RETURN nColor

 Отправлено: 25.10.16 23:17. Заголовок: А вы знаете, что в М..

А вы знаете, что в МиниГуи 16.09 содержится 5796 файлов - размером 85,5 Мб ?
А в папке Include 90 файлов занимают 1,01 Мб ?
А папка исходников SAMPLES с *.prg весит 8,85 Мб и кол-во файлов 1003 и самые первые исходники датированы 2003 годом ?
Все эти сведения смотрите в новом примере Tsbrowse у Григория !

 Отправлено: 26.10.16 13:52. Заголовок: Andrey При чем тут ..

Andrey
При чем тут твое сообщение и название темы ?
О каком примере речь ?

PS
Хорошая трава у тебя однако

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

Dima пишет:

цитата:

При чем тут твое сообщение и название темы ? О каком примере речь ?

Скорее всего, Андрей написал новый пример на тему использование Tsbrowse в MiniGUI и надеется, что Григорий его опубликует в новом релизе.

 Отправлено: 26.10.16 14:46. Заголовок: Петр пишет: Андрей ..

Петр пишет:

цитата:

Андрей написал новый пример на тему использование Tsbrowse в MiniGUI

Так и есть

Петр пишет:

цитата:

Григорий его опубликует в новом релизе

Да, я включил этот пример после небольшой чистки в 4-ю бету.

Петр
Выложил 4-ю бета-сборку на ftp по прежнему адресу

 Отправлено: 26.10.16 15:02. Заголовок: Обратил внимание h_t..

Обратил внимание h_tbrowse.prg в методе Excel2 если выводит цифровые данные по шаблону
допустим 999999.99 -> то результат будет с одним знаком после запятой и меньшим в 10 раз.
Раньше не обращал внимание - все работало.
Крутил блок со строки 4374: if "@Z " $ ::aColumns[ nCol ]:cPicture .or. LEN(cPic) > 3
пока результата не добился...

 Отправлено: 26.10.16 20:12. Заголовок: Петр пишет: Скорее ..

Петр пишет:

цитата:

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

Нет, не я написал. SergKis сделал.

 Отправлено: 01.11.16 12:00. Заголовок: Всем привет. Вопрос ..

Всем привет.
Вопрос возник по бровсу.

На окне имею Tsbrowse с вертикальной линией скролинга и подвалом.
Делаю - oBrw:Enabled( .F. ) // отключить показ TBROWSE
Шапка таблицы становится серой, сама таблица пропадает, а подвал и скролинг остаются.
Это должно быть так или это глюк ?
Как убрать скролинг и подвал ?

 Отправлено: 01.11.16 16:05. Заголовок: Andrey сделай SetP..

Andrey
сделай
SetProperty(oBrw:cParentWnd, oBrw:cControlName, "Enabled", .F.)

 Отправлено: 01.11.16 16:09. Заголовок: Andrey Если хочешь ..

Andrey
Если хочешь скрыть tsb, делай oBrw:Hide()

 Отправлено: 01.11.16 16:43. Заголовок: krutoff пишет: Обра..

krutoff пишет:

цитата:

Обратил внимание h_tbrowse.prg в методе Excel2 если выводит цифровые данные по шаблону допустим 999999.99 -> то результат будет с одним знаком после запятой и меньшим в 10 раз. Раньше не обращал внимание - все работало. Крутил блок со строки 4374: if "@Z " $ ::aColumns[ nCol ]:cPicture .or. LEN(cPic) > 3 пока результата не добился...

Неужели у всех цифровые поля с копейками нормально в Excel выводятся?
Или никто в XLS TSBrowse не выводит?

 Отправлено: 01.11.16 17:05. Заголовок: SergKis пишет: сдел..

SergKis пишет:

цитата:

сделай SetProperty(oBrw:cParentWnd, oBrw:cControlName, "Enabled", .F.)

Не помогает ! Остаётся так же: со скролингом и подвалом таблицы. Версия 16.09 !

SergKis пишет:

цитата:

Если хочешь скрыть tsb, делай oBrw:Hide()

Это получше.... Пока пойдёт !
Но я хотел бы на дальнем фоне оставить таблицу заблокированную, на будущее...

 Отправлено: 01.11.16 17:10. Заголовок: krutoff пишет: Неуж..

krutoff пишет:

цитата:

Неужели у всех цифровые поля с копейками нормально в Excel выводятся?

У меня тоже нет второго 0. выводит только 0.0, вторую цифру после нуля обрезает.

 Отправлено: 01.11.16 17:25. Заголовок: Andrey пишет Не помо..

Andrey пишет

цитата:

Не помогает ! Остаётся так же: со скролингом и подвалом таблицы. Версия 16.09 !

версия 2.07. oBrw:Enabled(.F.) - как утебя, SetProperty(...) - все хорошо, таблица блокирована, отображение норма

 Отправлено: 04.11.16 18:25. Заголовок: Опять глюк поймал.....

Опять глюк поймал...
Сделал меню (2 колонки) из Tsbrowse, назначил только блок кода на обработку:

oBrw:aColumns[1]:bPrevEdit := {|| MenuRun(), FALSE }   
 oBrw:aColumns[2]:bPrevEdit := {|| MenuRun(), FALSE }   
 ..... 
 STATIC FUNCTION MenuRun() 
 .... 
          SetProperty(oBrw:cParentWnd, oBrw:cControlName, "Enabled", .F.) 
          oBrw:Hide()    // отключить показ Tsbrowse 
          Menu2Start("RUN new function", oBrw:nAt )  
          oBrw:Show()  // включить показ Tsbrowse 
          SetProperty(oBrw:cParentWnd, oBrw:cControlName, "Enabled", .T.)  
          oBrw:Refresh(.T.) 
          Form_2.oBrw.Setfocus 
  
  RETURN Nil

Функцию обработки при изменении позиции маркера не использую.
//oBrw:bChange := { |oBrw| ChangeTable(oBrw) }

В функции Menu2Start("RUN new function", oBrw:nAt ) - всё равно происходит показ таблицы oBrw ! Почему ?
Мышкой по клацаешь (или стрелками с Enter используешь) и таблица вся появляется...
Что нужно добавить чтобы таблица не появлялась в функции Menu2Start() ?

 Отправлено: 05.11.16 18:42. Заголовок: Andrey пишет: В фун..

Andrey пишет:

цитата:

В функции Menu2Start("RUN new function", oBrw:nAt )

Ты ведь покажешь что в ней живет ?
Телепаты в отпуске.

PS
Только не надо мне ее на мыло слать , сюда пиши.

 Отправлено: 05.11.16 19:32. Заголовок: Dima пишет: Ты ведь..

Dima пишет:

цитата:

Ты ведь покажешь что в ней живет ? Телепаты в отпуске.

Да в той функции нет обращений к объектам таблицы. Только кнопочки и смена фона.
Я разобрался с этим. Оказывается всё просто, нужно

SetProperty(oBrw:cParentWnd, oBrw:cControlName, "Enabled", .F.)  
           oBrw:Hide()    // отключить показ Tsbrowse 

поместить в саму функцию Menu2Start(), а

oBrw:Show()  // включить показ Tsbrowse  
           SetProperty(oBrw:cParentWnd, oBrw:cControlName, "Enabled", .T.)   
           oBrw:Refresh(.T.)  
           Form_2.oBrw.Setfocus 

поставить перед выходом из функции Menu2Start() ! И глюк пропал...
Замена мест слагаемых - меняет действие глюка.