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

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

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

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

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

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

 Отправлено: 22.02.21 12:24. Заголовок: SergKis пишет не пол..

SergKis пишет

цитата:

не получится

Все получится, это я просмотрел, второе событие отжатие в обратном порядке
Сори

 Отправлено: 22.02.21 17:59. Заголовок: SergKis пишет: Shel..

SergKis пишет:

цитата:

ShellExecuteEx(...) удобней исп., чем ShellExecute(...) может тогда заменить, а не таскать из примеров, если не добавлять

Я тоже таскаю свою функцию ShellExecuteEx(...), пришлось делать её самому и я давно ещё предлагал её добавить.
Хотелось бы иметь такую функцию в библиотеке сразу.

 Отправлено: 23.02.21 12:31. Заголовок: Andrey пишет: я дав..

Andrey пишет:

цитата:

я давно ещё предлагал её добавить

Добавил Си-функцию ShellExecuteEx() в новую сборку, которая выйдет на этой неделе.

Сейчас занят переработкой Си-кода доя использования кодировки Unicode, пример MainDemo отрабатывает уже нормально.

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

gfilatov2002 пишет:

цитата:

Сейчас занят переработкой Си-кода доя использования кодировки Unicode, пример MainDemo отрабатывает уже нормально.

Я даже удивлен. Ожидал здесь множество эмоций, а никто не прокомментировал. Нужная же вещь для тех, у кого больше двух языков в программе и то, один из них английский.

 Отправлено: 24.02.21 16:09. Заголовок: rvu пишет Я даже уди..

rvu пишет

цитата:

Я даже удивлен. Ожидал здесь множество эмоций, а никто не прокомментировал.

Эмоции будут когда пощупаем, т.к. кому надо было unicode, варианты реализации были сделаны для работы ...
Как их адаптировать под hmg unicode, вопрос пока открытый.
А то что потребность в hmg unicode была и есть, это несомненно.
Григорию большой респект, что нашел время и взялся за адаптацию

 Отправлено: 24.02.21 18:02. Заголовок: SergKis пишет: потр..

SergKis пишет:

цитата:

потребность в hmg unicode была и есть

Вот так выглядит пример использования Unicode для японского языка:


Как говорится, HMG Power Ready

 Отправлено: 24.02.21 19:15. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Вот так выглядит пример использования Unicode для японского языка:

Это классно ! Ждём результата !
Но интересуют примеры допустим русский и украинский язык.
Допустим на форме объекты BUTTON, LABEL, GETBOX на русском языке,
а нужно сделать BUTTON, LABEL на украинском, GETBOX оставляем на русском языке.
Как сделать чтение и замену допустим из ini-файлов-языка или из DBF-файла ?
Вот такой пример бы очень пригодился.

 Отправлено: 24.02.21 19:58. Заголовок: Andrey пишет Вот так..

Andrey пишет

цитата:

Вот такой пример бы очень пригодился

+ тсб с колонкой на RU и колонкой на UA

 Отправлено: 25.02.21 01:49. Заголовок: Andrey пишет: Но ин..

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-файла

Это элементарные технические приемы, которые вы должны применять самостоятельно, поскольку в библиотеке отсутствует стандартная ("из коробки") поддержка файлов языковых ресурсов.

 Отправлено: 25.02.21 07:46. Заголовок: Петр пишет Как вы се..

Петр пишет

цитата:

Как вы себе такой пример представляете?

Для 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") ?

 Отправлено: 25.02.21 07:55. Заголовок: SergKis пишет 3и язы..

SergKis пишет

цитата:

3и языка на контролах и базах

Язык программы то же en,ru,lv, а txt, ini, cfg файлы все имеют BOM и utf8 тексты внутри

 Отправлено: 25.02.21 11:35. Заголовок: Всем кому это интересно :)

Опубликована февральская сборка библиотеки, которая доступна по адресу:

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

Эта версия использует, как обычно, ANSI charset (посмотреть кодировку можно, вызвав функцию MiniGUIVersion())

Работа над UNICODE-версией продолжается, начинается этап тестирования и исправления допущенных ошибок (неточностей)

 Отправлено: 25.02.21 11:38. Заголовок: Петр Рад приветство..

Петр
Рад приветствовать на форуме
Возможно ли обратиться к Вам за помощью в реализации Unicode-cборки

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

gfilatov2002 пишет:

цитата:

Петр Рад приветствовать на форуме

Здравствуйте, Григорий!
К сожалению, сейчас я здесь редко бываю.

цитата:

Возможно ли обратиться к Вам за помощью в реализации Unicode-cборки

Пишите на почту, которая gmail, если чем-то смогу помочь - помогу обязательно.

 Отправлено: 26.02.21 14:18. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Опубликована февральская сборка библиотеки

Спасибо! И особое спасибо за доработки браузера!

 Отправлено: 05.03.21 17:32. Заголовок: Всем кому это интересно :)

TBrowse уже работает в Unicode режиме



Тестирование продолжается...

 Отправлено: 06.03.21 11:33. Заголовок: gfilatov2002 Добавь..

gfilatov2002
Добавьте в h_objects.prg

 
 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 ) 
 ... 
 

цитата:

TBrowse уже работает в Unicode режиме

Это отличная новость
Хотелось уточнения для колонок тсб, к примеру выше.
Одна колонка UA кодировка в базе, другая LV1257 и третья DE, все другие RU1251.
Как установки кодировок будут выглядеть ?

 Отправлено: 08.03.21 21:40. Заголовок: SergKis пишет: Доба..

SergKis пишет:

цитата:

Добавьте в h_objects.prg

Сделал, благодарю за помощь

SergKis пишет:

цитата:

Хотелось уточнения для колонок тсб

Пока не знаю, как это реализовать...

 Отправлено: 08.03.21 23:09. Заголовок: gfilatov2002 пишет П..

gfilatov2002 пишет

цитата:

Пока не знаю, как это реализовать...

По идее уст. CP utf8 глобально и USE ... на базу с содержимым полей в utf8 (с языками разными) должны отображаться в тсб колонках правильно. Если это так, то, по идее, в выше указанном условии, данные колонок привести к utf8, hb_StrToUtf8(..., "CP колонки"), поставив в блок кода колонки :bDecode, в :bEncode сделать обратную операцию hb_Utf8ToStr(..., "CP колонки"). USE ... так же делаем без указания CP

 Отправлено: 09.03.21 09:23. Заголовок: gfilatov2002 Предла..

gfilatov2002
Предлагаю поправить

 
 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 
 

тогда в боке кода будет среда This для контрола GETBOX, как в блоках кода @ y,x GETBOX ...