Автор | Сообщение |
gfilatov
|
| модератор
|
Пост N: 699
Зарегистрирован: 25.05.05
|
|
Отправлено: 29.01.08 13:59. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
gfilatov2002
|
| moderator
|
Пост N: 1846
Зарегистрирован: 11.02.10
|
|
Отправлено: 01.04.21 12:55. Заголовок: SergKis пишет: Хоро..
SergKis пишет: цитата: | Хорошо бы с nKey иметь похожую ф-ю |
| Да, такая функция уже есть в Харборе - hb_UChar(nKey) SergKis пишет: Я обновил архив уникод версии 21.03 с учетом последних изменений, посмотрите, пожалуйста
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3673
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.04.21 14:32. Заголовок: gfilatov2002 пишет G..
gfilatov2002 пишет цитата: | GetBox уже заработал с русским языком |
| Забрал архив, TGET от 01.04.2021 Взял пример GetBox\demo.prg -> utf8 с bom, изменил Скрытый текст
#include "hmg.ch" REQUEST HB_CODEPAGE_UTF8 REQUEST HB_CODEPAGE_RU1251 *----------------------------- Function MAIN() *----------------------------- SET CODEPAGE TO UNICODE SET CENTURY ON SET DATE ANSI SET ShowDetailError ON SET DELETED ON SET BROWSESYNC ON SET FONT TO "Arial", 10 ...
| ввода русских букв нет, курсор перемещается с набранной буквой, вместо буквы [] квадратик
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1847
Зарегистрирован: 11.02.10
|
|
Отправлено: 01.04.21 14:40. Заголовок: SergKis пишет: ввод..
SergKis пишет: Да, все верно - надо было еще править Tget класс для корректной обработки шаблонов ввода. Сейчас этот пример уже заработал, осталось поправить BackSpace, и можно залить исправленный архив. Кстати, Ваш пример с использованием TBrowse теперь тоже понимает русский язык
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1848
Зарегистрирован: 11.02.10
|
|
Отправлено: 01.04.21 16:07. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | осталось поправить BackSpace |
| Запарился исправлять TGet класс и его стыковку c GetBox. Сейчас все заработало, выложил исправленный архив для проверки. Прошу прощения за задержку...
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3674
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.04.21 17:22. Заголовок: gfilatov2002 пишет З..
gfilatov2002 пишет цитата: | Запарился исправлять TGet класс и его стыковку c GetBox |
| Попробовал вариант #translate SubStr( <s> , <p> ) => hb_USubStr( <s>, <p> ) #translate SubStr( <s> , <p>, <l> ) => hb_USubStr( <s>, <p>, <l> ) #translate Left( <s> , <l> ) => hb_ULeft( <s>, <l> ) #translate Right( <s> , <l> ) => hb_URight( <s>, <l> ) #translate At( <c> , <s> ) => hb_UAt( <c>, <s> ) #translate RAt( <c> , <s> ) => hb_URAt( <c>, <s> ) Работает, вроде, по -pOut.prg смотрел Сложнее с Len(...), надо смотреть только для строк, я так понимаю Или что то не учитываю ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3675
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.04.21 17:40. Заголовок: PS По поводу Len(.....
PS По поводу Len(...), может так FUNCTION __Len( x ) IF HB_ISCHAR( x ) ; RETURN hb_ULen( x ) ENDIF RETURN Len( x ) #translate Len( <s> ) => __Len( <s> )
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3676
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.04.21 17:50. Заголовок: PS2 Еще #translate ..
PS2 Еще #translate PadR( <s> , <l> ) => hb_UPadR( <s> , <l> ) #translate PadC( <s> , <l> ) => hb_UPadC( <s> , <l> ) #translate PadL( <s> , <l> ) => hb_UPadL( <s> , <l> )
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3677
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.04.21 18:47. Заголовок: gfilatov2002 пишет С..
gfilatov2002 пишет цитата: | Сейчас все заработало, выложил исправленный архив для проверки. |
| Примеры GetBox\demo.prg и вариант App_OppReport отработали с RU и LV языками Пример тсб тут https://TransFiles.ru/5c5r6
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3678
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.04.21 20:47. Заголовок: gfilatov2002 Из кол..
gfilatov2002 Из колонки по Ctrl+C и Ctrl+V в редактор с utf8 все ok! А обратно, из редактора utf8 в колонку вставка ломает текст.
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1849
Зарегистрирован: 11.02.10
|
|
Отправлено: 01.04.21 21:28. Заголовок: SergKis пишет: обра..
SergKis пишет: цитата: | обратно, из редактора utf8 в колонку вставка ломает текст |
| Уже поправил эту ошибку Благодарю за сообщение P.S. Выложил для проверки архив сборки с последними исправлениями.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3679
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.04.21 01:38. Заголовок: gfilatov2002 Собрал..
gfilatov2002 Собрал пример unicode, dbf ru1251 https://TransFiles.ru/231cz Показывает ok! :Edit нет, не пойму uValue в TGetBox должна в utf8 попадать, но ... бяки в корректировке
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3680
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.04.21 01:44. Заголовок: PS На последней сбор..
PS На последней сборке так же все
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3681
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.04.21 08:52. Заголовок: gfilatov2002 Нашел ..
gfilatov2002 Нашел Скрытый текст
METHOD bDataEval( oCol, xVal, nCol ) CLASS TSBrowse ... IF xVal == NIL // FieldGet DEFAULT nCol := ::nCell IF HB_ISBLOCK( oCol:bValue ) IF lNoAls ; xVal := Eval( oCol:bValue, NIL, Self, nCol, oCol ) ELSE ; xVal := ( cAlias )->( Eval( oCol:bValue, NIL, Self, nCol, oCol ) ) ENDIF ELSE IF lNoAls ; xVal := Eval( oCol:bData ) ELSE ; xVal := ( cAlias )->( Eval( oCol:bData ) ) ENDIF ENDIF IF HB_ISBLOCK( oCol:bDecode ) //.AND. nCol != NIL IF lNoAls ; xVal := Eval( oCol:bDecode, xVal, Self, nCol, oCol ) ELSE ; xVal := ( cAlias )->( Eval( oCol:bDecode, xVal, Self, nCol, oCol ) ) ENDIF ENDIF ELSE // FieldPut DEFAULT nCol := ::nCell IF HB_ISBLOCK( oCol:bEncode ) //.AND. nCol != NIL IF lNoAls ; xVal := Eval( oCol:bEncode, xVal, Self, nCol, oCol ) ELSE ; xVal := ( cAlias )->( Eval( oCol:bEncode, xVal, Self, nCol, oCol ) ) ENDIF ENDIF
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3682
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.04.21 09:39. Заголовок: PS Добавил колонку с..
PS Добавил колонку с cdp DEWIN, работает (ввод через Clipboard с сайта, язык не ставил), все ok!
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3683
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.04.21 10:29. Заголовок: PS2 Не понял, но не ..
PS2 Не понял, но не подключает REQUEST HB_LANG_LVWIN, а cplvwin.c есть в hb Придется свою либ перекодировки подключать
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3685
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.04.21 10:42. Заголовок: gfilatov2002 Вопрос..
gfilatov2002 Вопросик по hbfbird. В contrib есть, в hb hmg не включен. Есть причина или просто так ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3686
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.04.21 12:09. Заголовок: Кому интересно, прим..
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1850
Зарегистрирован: 11.02.10
|
|
Отправлено: 02.04.21 14:15. Заголовок: SergKis пишет: Наше..
SergKis пишет: Принято, благодарю за помощь SergKis пишет: цитата: | Вопросик по hbfbird. В contrib есть, в hb hmg не включен. |
| Просто FireBird никто здесь не использует, во всяком случае, запроса на него не было
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3688
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.04.21 14:43. Заголовок: gfilatov2002 пишет П..
gfilatov2002 пишет цитата: | Просто FireBird никто здесь не использует |
| У нас оборудование вешают на него, кассы, охрана ... На свой версии, файлы получали csv, возможно, напрямую надо будет, с unicode версией это уже будет иметь смысл. Подключу к проекту потом.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 3689
Зарегистрирован: 17.02.12
|
|
Отправлено: 02.04.21 14:49. Заголовок: PS Не подскажите, по..
PS Не подскажите, почему не проходит REQUEST HB_LANG_LVWIN, раньше не использовал, перекодировали и работали с LV866, но в new версии, хотелось обойтись без лишних действий.
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|