Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение) » Ответить
Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
gfilatov2002: SergKis пишет: Хорошо бы с nKey иметь похожую ф-ю Да, такая функция уже есть в Харборе - hb_UChar(nKey) SergKis пишет: Помочь не против Я обновил архив уникод версии 21.03 с учетом последних изменений, посмотрите, пожалуйста
SergKis: gfilatov2002 пишет GetBox уже заработал с русским языком Забрал архив, TGET от 01.04.2021 Взял пример GetBox\demo.prg -> utf8 с bom, изменил [pre2] #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 ... [/pre2] ввода русских букв нет, курсор перемещается с набранной буквой, вместо буквы [] квадратик
gfilatov2002: SergKis пишет: ввода русских букв нет Да, все верно - надо было еще править Tget класс для корректной обработки шаблонов ввода. Сейчас этот пример уже заработал, осталось поправить BackSpace, и можно залить исправленный архив. Кстати, Ваш пример с использованием TBrowse теперь тоже понимает русский язык
gfilatov2002: gfilatov2002 пишет: осталось поправить BackSpace Запарился исправлять TGet класс и его стыковку c GetBox. Сейчас все заработало, выложил исправленный архив для проверки. Прошу прощения за задержку...
SergKis: gfilatov2002 пишет Запарился исправлять TGet класс и его стыковку c GetBox Попробовал вариант [pre2] #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> ) [/pre2] Работает, вроде, по -pOut.prg смотрел Сложнее с Len(...), надо смотреть только для строк, я так понимаю Или что то не учитываю ?
SergKis: PS По поводу Len(...), может так[pre2] FUNCTION __Len( x ) IF HB_ISCHAR( x ) ; RETURN hb_ULen( x ) ENDIF RETURN Len( x ) #translate Len( <s> ) => __Len( <s> ) [/pre2]
SergKis: PS2 Еще [pre2] #translate PadR( <s> , <l> ) => hb_UPadR( <s> , <l> ) #translate PadC( <s> , <l> ) => hb_UPadC( <s> , <l> ) #translate PadL( <s> , <l> ) => hb_UPadL( <s> , <l> ) [/pre2]
SergKis: gfilatov2002 пишет Сейчас все заработало, выложил исправленный архив для проверки. Примеры GetBox\demo.prg и вариант App_OppReport отработали с RU и LV языками Пример тсб тут https://TransFiles.ru/5c5r6
SergKis: gfilatov2002 Из колонки по Ctrl+C и Ctrl+V в редактор с utf8 все ok! А обратно, из редактора utf8 в колонку вставка ломает текст.
gfilatov2002: SergKis пишет: обратно, из редактора utf8 в колонку вставка ломает текст Уже поправил эту ошибку Благодарю за сообщение P.S. Выложил для проверки архив сборки с последними исправлениями.
SergKis: gfilatov2002 Собрал пример unicode, dbf ru1251 https://TransFiles.ru/231cz Показывает ok! :Edit нет, не пойму uValue в TGetBox должна в utf8 попадать, но ... бяки в корректировке
SergKis: PS На последней сборке так же все
SergKis: gfilatov2002 Нашел [pre2] 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 [/pre2]
SergKis: PS Добавил колонку с cdp DEWIN, работает (ввод через Clipboard с сайта, язык не ставил), все ok!
SergKis: PS2 Не понял, но не подключает REQUEST HB_LANG_LVWIN, а cplvwin.c есть в hb Придется свою либ перекодировки подключать
SergKis: gfilatov2002 Вопросик по hbfbird. В contrib есть, в hb hmg не включен. Есть причина или просто так ?
SergKis: Кому интересно, пример unicode с dbf ru1251 и dewin колонками https://TransFiles.ru/zxnsv Выборка на кнопках работает
gfilatov2002: SergKis пишет: Нашел Принято, благодарю за помощь SergKis пишет: Вопросик по hbfbird. В contrib есть, в hb hmg не включен. Просто FireBird никто здесь не использует, во всяком случае, запроса на него не было
SergKis: gfilatov2002 пишет Просто FireBird никто здесь не использует У нас оборудование вешают на него, кассы, охрана ... На свой версии, файлы получали csv, возможно, напрямую надо будет, с unicode версией это уже будет иметь смысл. Подключу к проекту потом.
SergKis: PS Не подскажите, почему не проходит REQUEST HB_LANG_LVWIN, раньше не использовал, перекодировали и работали с LV866, но в new версии, хотелось обойтись без лишних действий.
полная версия страницы