Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение) » Ответить
Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение)
gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
gfilatov2002: Новый релиз библиотеки для компилятора BCC выложил, как и обещал, на официальном сайте библиотеки по адресу: http://hmgextended.com/files/CONTRIB/hmg-2.4.5-setup.zip Также доступна полная сборка для компилятора MinGW по адресу: http://hmgextended.com/files/CONTRIB/hmg245-mingw.exe и компактный архив для свежей версии компилятора xHarbour http://hmgextended.com/files/CONTRIB/xhmg245_xhb10116.zip Благодарю за внимание
Andrey: Спасибо ! * Updated: 'Show of icons from the system library shell32.dll': - added saving of the icon resources to disk. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo2.prg in folder \samples\Basic\ExtractIcon) А можно сделать запись иконок других форматов, кроме 16х16 и 32х32 ?
gfilatov2002: Andrey пишет: А можно сделать запись иконок других форматов Да, думаю, что это возможно, если до этого извлечь эти иконки с помощью WinApi-функции PrivateExtractIcons() См. описание https://msdn.microsoft.com/en-us/library/windows/desktop/ms648075(v=vs.85).aspx
Andrey: gfilatov2002 пишет: См. описание Неа, я не осилю... и не сделаю...
alexandr11: Скажите пожалуйста - как в MiniGUI обстоят дела с UNICODE? каковы перспективы?
SergKis: gfilatov2002 правильно, ли я понял, что используемые в меню image, подвисают в воздухе (утечка памяти), т.к. на них не делаются DeleteObject(...). c_menu.c (line 337): HB_FUNC( MENUITEM_SETBITMAPS ) хендлеры image: HBITMAP himage1; HBITMAP himage2; после LoadImage(...) не запоминаются в массивах MiniGui, чтобы освободится при разрушении окна. т.е. использовать main\context menu надо (лучше) без image ? или я что то не увидел\не так понял ?
gfilatov2002: SergKis Вы абсолютно правы. Видимо, оригинальный автор библиотеки посчитал, что главное меню приложения существует все время работы, и будет разрушаться автоматически, когда приложение закрывается. SergKis пишет: использовать main\context menu надо (лучше) без image ? Насколько я знаю, такой проблемы не существует при использовании MENUSTYLE EXTENDED При использовании стандартного меню надо учитывать следующее: Значки выбора и сброса отметки должны быть одноцветными. Система использует Булев оператор И (AND), чтобы комбинировать значки меню так, чтобы белая часть стала прозрачной, а черная часть становилась цветом пункта меню. Если Вы используете цветные точечные рисунки (значки), результаты могут быть непредсказуемые.
SergKis: gfilatov2002 пишет:... что главное меню приложения ... с главным меню, действительно, неважно, основная утечка возникает на контексном меню по правому клику мыши. Спасибо за развернутый ответ. Пойду дальше ...
krutoff: После установки версии 2.4.5 xHarbour у меня появилась ошибка в h_tbrowse.prg. При компиляции примера из ..\miniGui\SAMPLES\Advanced\TsBrowse\Compile.bat: Error: Unresolved external '_HB_FUN_HB_HOUR' referenced from D:\MINIGUI\XLIB\TSBROWSE.LIB|h_tbrowse Error: Unresolved external '_HB_FUN_HB_MINUTE' referenced from D:\MINIGUI\XLIB\TSBROWSE.LIB|h_tbrowse Error: Unresolved external '_HB_FUN_HB_SEC' referenced from D:\MINIGUI\XLIB\TSBROWSE.LIB|h_tbrowse
gfilatov2002: krutoff пишет: появилась ошибка в h_tbrowse.prg Вы правы! Эта ошибка уже исправлена в новой сборке, которая выйдет на следующей неделе А пока рекомендую использовать библиотеку tsbrowse из предыдущей сборки (отличия минимальные).
SergKis: SergKis пишет:правильно, ли я понял, что используемые в меню image, подвисают в воздухе (утечка памяти), т.к. на них не делаются DeleteObject(...). gfilatov2002 пишет:Вы абсолютно правы для исправления ситуации предлагаю: [pre2] c_menu.c HB_FUNC( MENUITEM_SETBITMAPS ) { HBITMAP himage1=0; HBITMAP himage2=0; himage1 = ( HBITMAP ) LoadImage( GetModuleHandle(NULL), hb_parc_t(3), IMAGE_BITMAP, 0, 0, LR_DEFAULTCOLOR ); if( himage1 == NULL ) himage1 = ( HBITMAP ) LoadImage( 0, hb_parc_t(3), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE | LR_DEFAULTCOLOR ); if( !newStyle ) { // BAA 04.04.2015 HBITMAP himage2; himage2 = ( HBITMAP ) LoadImage( GetModuleHandle(NULL), hb_parc_t(4), IMAGE_BITMAP, 0, 0, LR_DEFAULTCOLOR ); if( himage2 == NULL ) himage2 = ( HBITMAP ) LoadImage( 0, hb_parc_t(4), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE | LR_DEFAULTCOLOR ); SetMenuItemBitmaps( ( HMENU ) hb_parnl(1), hb_parni(2), MF_BYCOMMAND, himage1, himage2 ); } else { MENUITEMINFO MenuItemInfo; MYMENUITEM *pmyMenuItem; MenuItemInfo.cbSize = sizeof( MENUITEMINFO ); MenuItemInfo.fMask = MIIM_DATA; GetMenuItemInfo( ( HMENU ) hb_parnl(1), hb_parni(2), FALSE, &MenuItemInfo ); pmyMenuItem = ( MYMENUITEM * ) MenuItemInfo.dwItemData; if( pmyMenuItem->hBitmap != NULL ) DeleteObject( pmyMenuItem->hBitmap ); pmyMenuItem->hBitmap = himage1; } hb_reta( 2 ); HB_STORNL( ( LONG ) himage1, -1, 1 ); HB_STORNL( ( LONG ) himage2, -1, 2 ); } h_menu.prg ... *-----------------------------------------------------------------------------* Procedure _DefineMenuItem ( caption , action , name , Image , checked , disabled , cMessage, font, check_image ) *-----------------------------------------------------------------------------* Local Controlhandle , mVar , k , id , ContextMenuHandle, ahImage:={0,0} ... If Valtype ( image ) != 'U' ahImage := MenuItem_SetBitMaps ( _HMG_xMenuPopuphandle [_HMG_xMenuPopupLevel ] , id , image , '' ) EndIf ... _HMG_aControlPicture [k] := "" _HMG_aControlContainerHandle [k] := ahImage _HMG_aControlFontName [k] := '' ... h_controlmisc.prg ... *-----------------------------------------------------------------------------* FUNCTION _EraseControl ( i, p ) *-----------------------------------------------------------------------------* ... в DO CASE добавить обработку CASE t == 'MENU' IF hb_IsArray( _HMG_aControlContainerHandle [ i ] ) .and. len( _HMG_aControlContainerHandle [ i ] ) == 2 IF ! empty( _HMG_aControlContainerHandle [ i ][ 1 ] ) DeleteObject ( _HMG_aControlContainerHandle [ i ][ 1 ] ) ENDIF IF ! empty( _HMG_aControlContainerHandle [ i ][ 2 ] ) DeleteObject ( _HMG_aControlContainerHandle [ i ][ 2 ] ) ENDIF ENDIF ... [/pre2]
gfilatov2002: SergKis пишет: для исправления ситуации предлагаю Благодарю за Ваше предложение! Я уже сделал подобные исправления для новой сборки (хотя немного упростил код с учетом того, что в качестве image2 передается пустая строка). Текущий changelog для справки можно посмотреть ниже [pre2] * Fixed: Possible memory leak in the main/context/notify menu with 'Image' clause. Problem was reported by Russian user SergKis. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see menudemo.prg in folder \samples\Basic\Menu) * Enhanced: The ReadOnly property is supported in the function SetProperty() for the Spinner control. You can set/get this property at runtime: - function syntax: SetProperty ( Form, Control, 'ReadOnly', lState ) GetProperty ( Form, Control, 'ReadOnly' ) - pseudo-OOP syntax: Form.Spinner.ReadOnly := lState Form.Spinner.ReadOnly --> lState Contributed by Grigory Filatov <gfilatov@inbox.ru> * Enhanced: The ComboBox control with DisplayEdit clause supports a changing of the ReadOnly property at runtime: - function syntax: SetProperty ( Form, Control, 'ReadOnly', lState ) - pseudo-OOP syntax: Form.ComboBox.ReadOnly := lState Requested by Vianei Moreira de Lemos <vianeimoreira@gmail.com>. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo2.prg in folder \samples\Basic\COMBO_4) * Updated: DRAW GRAPH: correction of the default height of title and labels for the font's size more than 10. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\Histogram) * Updated: Changed DEFAULT TO command in MiniGUI core to the functions hb_default()/__defaultNIL() and hb_defaultValue() for Harbour requiring compatibility. It will set the value to the default one even when the variable has any other type, not only NIL. Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: - updated for xHarbour compatibility after a recent change. Based upon a contribution of Ivanil Marcelino. * Updated: HbSQLite3 library: - update for using SQLITE3 version 3.8.9 (from 3.8.8.3). Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: Harbour Compiler 3.2.0dev (SVN 2015-04-09 00:20). Contributed by Grigory Filatov <gfilatov@inbox.ru> (look at ReadMe.txt in folder \harbour) * New: 'Anchored Child window' sample. Based upon a contribution of Pablo Cesar. Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> (see demo2.prg in folder \samples\Basic\MoveWindow) * New: 'Read a text from an another application' sample. Contributed by Verchenko Andrey <verchenkoag@gmail.com>. Revised by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Advanced\ExternalApp_3) * Updated: 'Get DIR List' sample: pacified the warnings at prg level. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\DirList) * Updated: 'Histogram' sample: added a print graph routine. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\Histogram) * Updated: 'Simple DBU' sample: minor changes. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Applications\MiDBU) * Updated: 'Process Killer' sample: minor changes. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Applications\PROCESS_KILLER) * Updated: 'Sqlite browser' utility: added column's metadata handling. Contributed by Janusz Pora <januszpora@onet.eu> (see in folder \Utils\SqlDBU) [/pre2]
gfilatov2002: Новый релиз библиотеки для компилятора BCC выложил, как и обещал, на официальном сайте библиотеки по адресу: http://hmgextended.com/files/CONTRIB/hmg-2.4.6-setup.zip Также доступна полная сборка для компилятора MinGW по адресу: http://hmgextended.com/files/CONTRIB/hmg246-mingw.exe и компактный архив для свежей версии компилятора xHarbour http://hmgextended.com/files/CONTRIB/xhmg246_xhb10120.zip Благодарю за внимание P.S. Отдельная благодарность Андрею Верченко за постоянную финансовую поддержку
Andrey: Пере собрал несколько программ. Полёт - нормальный...
Softlog86: Аналогично . Только шрифт стал мельче ..... тот который по умолчанию (в GUI)
gfilatov2002: Просто к сведению. Выпустил beta 3 для следующей сборки 2.4.7. Финальный релиз запланирован на конец мая [pre2] * Fixed: Old bug at the closing of Edit or Append splitboxed dialog in a Browse control with <Alt+F4> hotkey pressing. Problem was reported by Attila Kovacs <k1attila12@yahoo.com>. Contributed by Grigory Filatov <gfilatov@inbox.ru> * Fixed: Program crash at the modification of a column's header after adding a new column in the Grid control. Problem was reported by Gilbert Vaillancourt. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Advanced\ReadXLS) * Fixed: Problem with assigning of the RichEditBox 'FontColor' property. You can establish this propery at definition and modify at runtime: - function syntax: SetProperty ( Form, Control, 'FontColor', BLUE ) - pseudo-OOP syntax: Form.RichEditBox.FontColor := BLUE Bug was reported by Gilbert Vaillancourt. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\Richedit) * Changed: The HMG_HPDF library was moved from samples to folder Source\HMG_HPDF. Based upon a contribution of S.Rathinagiri <srgiri@dataone.in>. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Advanced\PDF_PRINT) * Updated: HbSQLite3 library: - update for using SQLITE3 version 3.8.10dev (from 3.8.9). Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: Harbour Compiler 3.2.0dev (SVN 2015-04-27 17:21). Contributed by Grigory Filatov <gfilatov@inbox.ru> (look at ReadMe.txt in folder \harbour) * New: 'Check User Login in the transparent form' sample. Based upon a contribution of Bicahi Esgici <esgici@gmail.com>. Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\Login_2) * New: 'Test a mouse click on the one picture which is divided into 3 parts' sample. Based upon a contribution of Verchenko Andrey <verchenkoag@gmail.com> (see in folder \samples\Basic\Picture_Coords) * New: 'ShellExecuteEx() function using' sample. Based upon a contribution of Verchenko Andrey <verchenkoag@gmail.com> (see in folder \samples\Advanced\ShellExec) * Updated: 'InterNet State Checker' sample: - using of a macro definition for calling of the DLL functions. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Advanced\INET_CHECKER) [/pre2] Поздравляю всех с наступающими праздниками!
Andrey: gfilatov2002 пишет: Поздравляю всех с наступающими праздниками! Присоединяюсь ! С прошедшими праздниками и наступающим 9-мая !!! Вопрос по ходу за одно (мож кто ответит...): у объекта LABEL после показа можно как то поменять TOOLTIP ?
gfilatov2002: Andrey пишет: у объекта LABEL после показа можно как то поменять TOOLTIP ? Попробуй Form_1.Label_1.Tooltip := "New tip !"
Andrey: gfilatov2002 пишет: Form_1.Label_1.Tooltip := "New tip !" Не работает ! Form_1.Label_1.Tooltip := "New tip !" + CRLF + "stroka 2!" Или в подсказке не работает CRLF ? Определяю вначале формы, выполняется функция расчёта, пытаюсь заменить, что то меняется, но потом сообщение всё равно первоначальное !
Dima: Andrey пишет: Или в подсказке не работает CRLF ? А без него пашет ?
полная версия страницы