Отправлено: 29.01.08 13:59. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)

Начало темы находится здесь, а теперь

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Готовится к опубликованию новая сборка №48, которая выйдет в конце недели.
Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне

Кратко, что нового:

- исправление обнаруженных ошибок и неточностей кода;
- новый класс HEADERIMAGE для Grid и Browse;
- свойство Address в Hyperlink может теперь открывать папку или файл на диске;
- добавлен NOTABSTOP класс для Browse;
- поддержка пользовательских компонентов (заимствована из оффициального релиза);
- расширения и исправления в библиотеках TsBrowse и PropGrid;
- обновлены сборки Харбор и HMGS-IDE;
- новые и обновленные старые примеры (как обычно ).

 Отправлено: 22.04.19 11:48. Заголовок: SergKis пишет: боле..

SergKis пишет:

цитата:

более четко отрабатывает установленный на колонки :nEditMove алгоритм

Я полностью доверяю Вашему программисткому чутью, потому что Вы - практик
Большое спасибо за Вашу помощь

 Отправлено: 22.04.19 11:52. Заголовок: PS Пример Tsb_addrec..

PS
Пример Tsb_addrecord_3. Line 94 добавляем

 
       :lCellBrw  := .T. 
       :lPostEditGo := .F. 
 и F4 прекрасно исполняет :nEditMove колонки 
 Пример App_TsbBox demo_misc.prg добавляем 
    sCols( Cust.COUNTRY, cHeading, 'Country'               ) 
    sCols( Cust.COUNTRY, nLineStyle , LINES_HORZ  ) 
    sCols( Cust.COUNTRY, nHLineStyle, LINES_HORZ  ) 
    sCols( Cust.COUNTRY, nFLineStyle, LINES_HORZ  ) 
    sCols( Cust.CITY, nLineStyle, LINES_HORZ   ) 
    sCols( Cust.CITY, cHeading, 'City'                  ) 
 получили объединенную колонку 
 

 Отправлено: 25.04.19 09:13. Заголовок: Выпустил новую сборк..

Выпустил новую сборку 19.04 для BCC 5.5.1 и компиляторов Harbour и xHarbour.

Базовый дистрибутив находится по адресу

http://hmgextended.com/files/CONTRIB/hmg-19.04-setup.exe

Также имеются дополнительные сборки для следующих Си-компиляторов:

- MinGW 8.3.1 32-bit для Harbour 3.2.0dev; (есть в наличии)

- MinGW 8.2.0 64-bit для Harbour 3.4.0dev; (есть в наличии)

- MS VisualC 2017 32-bit для Harbour 3.2.0dev; (путь и имя архива не изменял)

- MS VisualC 2017 64-bit для Harbour 3.2.0dev; (путь и имя архива не изменял)

- Pelles C 8.0 32-bit для xHarbour b10244; (под заказ)

- Pelles C 9.0 64-bit для xHarbour b10244; (под заказ)

- Borland/Embarcadero C++ 7.3 (32-bit) для Harbour 3.2.0dev; (под заказ)

- Borland/Embarcadero C++ 7.4 (32-bit) для Harbour 3.2.0dev; (под заказ) NEW

- Open Watcom C/C++ 2.0 (32-bit) для Harbour 3.2.0dev. (под заказ)

Благодарю за Ваше внимание

 Отправлено: 25.04.19 19:07. Заголовок: Григорий, а можно сд..

Григорий, а можно сделать тихое обновление под новую сборку 19.04 с учётом предложения для

::nClrLine := ::nCLR_GRAY     // изменить цвет линий между ячейками таблицы 

А то новой версии долго ждать придётся...
Заранее БОЛЬШОЕ СПАСИБО !

 Отправлено: 25.04.19 20:05. Заголовок: Andrey пишет: можно..

Andrey пишет:

цитата:

можно сделать тихое обновление

OK, завтра сделаю

 Отправлено: 26.04.19 09:26. Заголовок: Обновил установщик с..

Обновил установщик сборки 19.04 с учетом пожелания Andrey.

Что нового:
- добавил новую переменную :nCLR_Lines класса TSBrowse в метод Enabled()
для установки цвета линий сетки при блокировке грида.

 Отправлено: 26.04.19 12:24. Заголовок: gfilatov2002 Возвра..

gfilatov2002
Возвращаясь к вопросу, озвученного Haz

цитата:

С какой целью в METHOD TSBrowse:Edit() в CheckBox игнорируется VK_RETURN ?

в теме http://clipper.borda.ru/?1-1-0-00000526-000-280-0
В некоторых ситуациях, на ChecBox проще производить действия, чем используя :aBitMaps на цифрах и отсутствие VK_RETURN мешает. Давайте добавим, предложенное Игорем, с правкой

 
 DATA lCheckBoxNoReturn  INIT .T. 
 ... 
 METHOD Edit( uVar, nCell, nKey, nKeyFlags, cPicture, bValid, nClrFore, ; 
 ... 
    If cType == "L" .and. oCol:lCheckBox  
  
       If nKey != VK_RETURN  .or. ! ::lCheckBoxNoReturn 
  
          If Upper( Chr( nKey ) ) $ "YCST1" 
             ::lChanged := uVar == .F. 
             uVar := .T. 
          ElseIf Upper( Chr( nKey ) ) $ "FN0" 
             ::lChanged := uVar == .T. 
             uVar := .F. 
          ElseIf nKey == VK_SPACE .or. nKey == VK_RETURN 
             uVar := ! uValue 
             ::lChanged := .T. 
          Else 
             Return 0 
          EndIf 
 ... 
 

 Отправлено: 26.04.19 12:36. Заголовок: SergKis пишет: на C..

SergKis пишет:

цитата:

на ChecBox проще производить действия

Теперь стало понятнее предложение Игоря

SergKis пишет:

цитата:

Давайте добавим, предложенное Игорем, с правкой

Добавлю, конечно...
Благодарю за разъяснение

P.S. Снова обновил установщик сборки 19.04 с учетом вышеуказанных изменений в TSBrowse

 Отправлено: 26.04.19 14:22. Заголовок: gfilatov2002 Меня д..

gfilatov2002
Меня дернули, стояли над душой, потому отослал с ошибкой, ИЗВИНИТЕ.
Это должна быть не глобальная установка, а установка на колонку с CheckBox, т.е.

 
 CLASS TSColumn 
  DATA lCheckBoxNoReturn  INIT .T.  
 и 
        If nKey != VK_RETURN  .or. ! oCol:lCheckBoxNoReturn  
 

 Отправлено: 26.04.19 14:24. Заголовок: PS С глобальной то ж..

PS
С глобальной то же можно, но трудности будут при наличии в строке нескольких ChecBox,
а VK_RETURN нужен не всем

 Отправлено: 26.04.19 14:53. Заголовок: SergKis пишет: долж..

SergKis пишет:

цитата:

должна быть не глобальная установка, а установка на колонку с CheckBox

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

 Отправлено: 26.04.19 20:01. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Теперь стало понятнее предложение Игоря

Только мне расскажите зачем VK_RETURN в игноре.
Не понимаю как это помогает работать с чекбоксом
Я не придираюсь. Хочу понять логику автора

 Отправлено: 26.04.19 20:32. Заголовок: Haz пишет Не понимаю..

Haz пишет

цитата:

Не понимаю как это помогает работать с чекбоксом

Вроде, если поставить oCol:nEditMove != 0, не помню на память, то по VK_RETURN должна исполнится команда перемещения на др. колонку или строку и колонку

 Отправлено: 26.04.19 20:38. Заголовок: SergKis пишет: Врод..

SergKis пишет:

цитата:

Вроде, если поставить oCol:nEditMove

Так это по любой колонке ПОСЛЕ редактирования. А сейчас по ENTER не пускает в редакцию. И я не врубаюсь зачем это сделано

 Отправлено: 26.04.19 20:44. Заголовок: Haz В данном случае..

Haz
В данном случае, если колонка lEdit == .T., то Enter просто переместится на след. колонку без исправления.
В этом логика есть. К примеру всегда ставлю на combobox NOTABSTOP, т.к. стрелками легко сбить значение.
Тут такой же случай, тыкаем enter на колонках, без реальной модификации и допрыгиваем до нужной колонки.
Перепрыгивая и CheckBox без изменений.

 Отправлено: 26.04.19 20:45. Заголовок: Haz пишет: я не вру..

Haz пишет:

цитата:

я не врубаюсь зачем это сделано

Возможно, автор библиотеки хотел имитировать поведение обычного CheckBox, который не изменяет свое значение при нажатии клавиши Enter, а реагирует на ПРОБЕЛ

 Отправлено: 26.04.19 20:52. Заголовок: SergKis пишет: Пере..

SergKis пишет:

цитата:

Перепрыгивая и CheckBox без изменений.

Это аргумент, но все равно слабоват.
т. е. защита о дурака. Тогда логичнее было бы делать запрет VK_RETURN только при nEditMove <> 0

 Отправлено: 26.04.19 20:59. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Возможно, автор библиотеки хотел имитировать поведение обычного CheckBox, который не изменяет свое значение при нажатии клавиши Enter, а реагирует на ПРОБЕЛ

Да, Сергей примерно о том же говорит.
Но у меня пользователи практически до оргазма доходят в попытках энтером переключить значение чекбокса.
Думаю все же опциональность здесь точно необходима.
Спасибо, мысль автора пррояснили.

 Отправлено: 26.04.19 22:38. Заголовок: Haz пишет Думаю все ..

Haz пишет

цитата:

Думаю все же опциональность здесь точно необходима.

К примеру :nEditMove - перемещение на след. строку на CheckBox (ставим по опции, до этого прыгала по горизонтали)
Тогда:
Space - ставим\снимаем галочку и переходим на след. строку в той же колонке.
Enter просто перемещает на след. строку в той же колонке.
В целом удобно, без мыши проделать операции.

 Отправлено: 27.04.19 07:37. Заголовок: Haz пишет Думаю все ..

Haz пишет

цитата:

Думаю все же опциональность здесь точно необходима.

Можно сделать, что бы не вводить, переменную tsbrowse

 
 METHOD LoadFields( lEditable, lChecBoxNoReturn ) CLASS TSBrowse 
 ... 
       If cType == "L" 
          ATail( ::aColumns ):lCheckBox := .T. 
          If HB_ISLOGICAL(lChecBoxNoReturn) 
             ATail( ::aColumns ):lCheckBoxNoReturn := lChecBoxNoReturn 
          EndIf 
       EndIf 
 ... 
 

или вводить переменную tsbrowse в Nil и в tscolumn для checkbox:lChecBoxNoReturn устанавливать от нее, если задана