Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение) » Ответить
Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
SergKis: SergKis пишет не получится Все получится, это я просмотрел, второе событие отжатие в обратном порядке Сори
Andrey: SergKis пишет: ShellExecuteEx(...) удобней исп., чем ShellExecute(...) может тогда заменить, а не таскать из примеров, если не добавлять Я тоже таскаю свою функцию ShellExecuteEx(...), пришлось делать её самому и я давно ещё предлагал её добавить. Хотелось бы иметь такую функцию в библиотеке сразу.
gfilatov2002: Andrey пишет: я давно ещё предлагал её добавить Добавил Си-функцию ShellExecuteEx() в новую сборку, которая выйдет на этой неделе. Сейчас занят переработкой Си-кода доя использования кодировки Unicode, пример MainDemo отрабатывает уже нормально.
rvu: gfilatov2002 пишет: Сейчас занят переработкой Си-кода доя использования кодировки Unicode, пример MainDemo отрабатывает уже нормально. Я даже удивлен. Ожидал здесь множество эмоций, а никто не прокомментировал. Нужная же вещь для тех, у кого больше двух языков в программе и то, один из них английский.
SergKis: rvu пишет Я даже удивлен. Ожидал здесь множество эмоций, а никто не прокомментировал. Эмоции будут когда пощупаем, т.к. кому надо было unicode, варианты реализации были сделаны для работы ... Как их адаптировать под hmg unicode, вопрос пока открытый. А то что потребность в hmg unicode была и есть, это несомненно. Григорию большой респект, что нашел время и взялся за адаптацию
gfilatov2002: SergKis пишет: потребность в hmg unicode была и есть Вот так выглядит пример использования Unicode для японского языка: Как говорится, HMG Power Ready
Andrey: gfilatov2002 пишет: Вот так выглядит пример использования Unicode для японского языка: Это классно ! Ждём результата ! Но интересуют примеры допустим русский и украинский язык. Допустим на форме объекты BUTTON, LABEL, GETBOX на русском языке, а нужно сделать BUTTON, LABEL на украинском, GETBOX оставляем на русском языке. Как сделать чтение и замену допустим из ini-файлов-языка или из DBF-файла ? Вот такой пример бы очень пригодился.
SergKis: Andrey пишет Вот такой пример бы очень пригодился + тсб с колонкой на RU и колонкой на UA
Петр: Andrey пишет: Но интересуют примеры допустим русский и украинский язык. Есть такая кодовая страница Windows-1251. "Windows-1251 выгодно отличается от других 8‑битных кириллических кодировок (таких как CP866, KOI8-R и ISO 8859-5) наличием практически всех символов, использующихся в русской типографике для обычного текста (отсутствует только значок ударения); Она также содержит все символы для других славянских языков: украинского, белорусского, сербского, македонского и болгарского" - из Википедии. cp1251 широко используется в госучреждениях Украины при работе с Казначейством (Державна казначейська служба України). "Структура транспортного файлу Реєстр бюджетних фінансових зобов’язань. Транспортний файл має відповідати структурі dBaseIII. Дані в транспортному файлі мають відповідати кодовій сторінці Win-1251, кодова сторінка Win-1251 має бути зазначена в заголовку файлу" - это из требований к файлам подаваемых клиентами. SergKis пишет: + тсб с колонкой на RU и колонкой на UA Как вы себе такой пример представляете? Добавил Русский и Украинский в языковую панель. Установил cp1251 и работаешь. Здесь юникод нафиг ненужен. Andrey пишет: Как сделать чтение и замену допустим из ini-файлов-языка или из DBF-файла Это элементарные технические приемы, которые вы должны применять самостоятельно, поскольку в библиотеке отсутствует стандартная ("из коробки") поддержка файлов языковых ресурсов.
SergKis: Петр пишет Как вы себе такой пример представляете? Для UA не скажу, для LV866 (en,ru,lv), его мы вставляем в hb unicode и своя hmg unicode 2012 года hb_cdpSelect("LV866") ; hb_setTermCP("LV866") и все - 3и языка на контролах и базах Есть такая кодовая страница Windows-1251 Есть и 1257+DE+FR, а UA в продолжении вопроса от Андрея написал, т.к. в тсб фонты идут по handle (используя hardset ?), а базы в LV866. Или переводим все в utf8, включая dbf и работаем hb_cdpSelect("UTF8") ; hb_setTermCP("UTF8") ?
SergKis: SergKis пишет 3и языка на контролах и базах Язык программы то же en,ru,lv, а txt, ini, cfg файлы все имеют BOM и utf8 тексты внутри
gfilatov2002: Опубликована февральская сборка библиотеки, которая доступна по адресу: http://hmgextended.com/files/CONTRIB/hmg-21.02-setup.exe Эта версия использует, как обычно, ANSI charset (посмотреть кодировку можно, вызвав функцию MiniGUIVersion()) Работа над UNICODE-версией продолжается, начинается этап тестирования и исправления допущенных ошибок (неточностей)
gfilatov2002: Петр Рад приветствовать на форуме Возможно ли обратиться к Вам за помощью в реализации Unicode-cборки
Петр: gfilatov2002 пишет: Петр Рад приветствовать на форуме Здравствуйте, Григорий! К сожалению, сейчас я здесь редко бываю. Возможно ли обратиться к Вам за помощью в реализации Unicode-cборки Пишите на почту, которая gmail, если чем-то смогу помочь - помогу обязательно.
rvu: gfilatov2002 пишет: Опубликована февральская сборка библиотеки Спасибо! И особое спасибо за доработки браузера!
gfilatov2002: TBrowse уже работает в Unicode режиме Тестирование продолжается...
SergKis: gfilatov2002 Добавьте в h_objects.prg[pre2] CLASS TKeyData ... METHOD Keys() INLINE hb_HKeys( ::aKey ) METHOD Values() INLINE hb_HValues( ::aKey ) METHOD CloneHash() INLINE hb_HClone( ::aKey ) METHOD Clone() INLINE __objClone( Self ) METHOD Sort() INLINE ::aKey := hb_HSort( ::aKey ) METHOD Fill( xVal ) INLINE hb_HFill( ::aKey, xVal ) _METHOD GetAll( lAll ) ... [/pre2] TBrowse уже работает в Unicode режиме Это отличная новость Хотелось уточнения для колонок тсб, к примеру выше. Одна колонка UA кодировка в базе, другая LV1257 и третья DE, все другие RU1251. Как установки кодировок будут выглядеть ?
gfilatov2002: SergKis пишет: Добавьте в h_objects.prg Сделал, благодарю за помощь SergKis пишет: Хотелось уточнения для колонок тсб Пока не знаю, как это реализовать...
SergKis: gfilatov2002 пишет Пока не знаю, как это реализовать... По идее уст. CP utf8 глобально и USE ... на базу с содержимым полей в utf8 (с языками разными) должны отображаться в тсб колонках правильно. Если это так, то, по идее, в выше указанном условии, данные колонок привести к utf8, hb_StrToUtf8(..., "CP колонки"), поставив в блок кода колонки :bDecode, в :bEncode сделать обратную операцию hb_Utf8ToStr(..., "CP колонки"). USE ... так же делаем без указания CP
SergKis: gfilatov2002 Предлагаю поправить[pre2] METHOD DoKeyEvent( nKey ) CLASS Get LOCAL n, r := 0, cKey := hb_ntos( nKey ) IF Len( ::aKeyEvent ) > 0 cKey += iif( _GetKeyState( VK_CONTROL ), '#', '' ) cKey += iif( _GetKeyState( VK_SHIFT ), '^', '' ) cKey += iif( _GetKeyState( VK_MENU ), '@', '' ) IF ( n := AScan( ::aKeyEvent, {| a | a[ 1 ] == cKey } ) ) > 0 IF HB_ISBLOCK( ::aKeyEvent[ n ][ 2 ] ) //Eval( ::aKeyEvent[ n ][ 2 ], Self, nKey, cKey ) Do_ControlEventProcedure( ::aKeyEvent[ n ][ 2 ], __mvGet( ::name ), Self, nKey, cKey ) r := 1 ENDIF ENDIF ENDIF RETURN r [/pre2] тогда в боке кода будет среда This для контрола GETBOX, как в блоках кода @ y,x GETBOX ...
полная версия страницы