Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)

Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение) » Ответить

Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)

gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №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

SergKis: gfilatov2002 Что то получилось с :DrawSuper(). Изменения [pre2] METHOD DrawSelect( xRow, lDrawCell ) CLASS TSBrowse ... Local nDeltaLen, lDraw := .F. Default xRow := nRowPos, lDrawCell := .T. ... If lDrawCell lDraw := TSDrawCell( hWnd, ; // 1 ... !(::lCellBrw .and. nJ != ::nCell) ) // 32 Invert color Else lDraw := .T. EndIf nStartCol += aColSizes[ nJ ] + nDeltaLen ... METHOD DrawSuper() CLASS TSBrowse Local nI, nJ, nBegin, nStartCol, l3DLook, nClrFore, lAdjBmp, nClrTo, lOpaque, nClrBack, hFont, cHeading, hBitMap, ; lMulti, nHAlign, nVAlign, nWidth, nS, nLineStyle, lBrush, ; nMaxWidth := ::nWidth() , ; aColSizes := AClone( ::aColSizes ), ; // use local copies for speed aSuperHead := AClone( ::aSuperHead ), ; nHeightHead := ::nHeightHead, ; nHeightFoot := ::nHeightFoot, ; nHeightSuper := ::nHeightSuper, ; nHeightSpecHd:= ::nHeightSpecHd Local hWnd := ::hWnd, ; hDC := ::hDc, ; nClrText := ::nClrText, ; nClrPane := ::nClrPane, ; nClrLine := ::nClrLine Local l3DText, nClr3dL, nClr3dS Local oCol, aDrawCols If Empty( ::aColumns ) Return Nil EndIf ::DrawSelect( , .F. ) ; aDrawCols := ::aDrawCols // create current draw columns array nClrFore := ::nForeSupHdGet( 1, aSuperHead ) nClrBack := ::nBackSupHdGet( 1, aSuperHead ) l3DLook := aSuperHead[ 1, 6 ] hFont := ::hFontSupHdGet( 1, aSuperHead ) nLineStyle := aSuperHead[ 1, 10 ] nClrLine := aSuperHead[ 1, 11 ] nBegin := nI := 1 While nI <= Len( aSuperHead ) If aSuperHead[ nI, 1 ] > nBegin nJ := aSuperHead[ nI, 1 ] - 1 ASize( aSuperHead, Len( aSuperHead ) + 1 ) AIns( aSuperHead, nI ) aSuperHead[ nI ] := { nBegin, nJ, "", nClrFore, nClrBack, l3DLook , hFont, .F., .F., nLineStyle, ; nClrLine, 1, 1, .F. } nBegin := nJ + 1 Else nBegin := aSuperHead[ nI++, 2 ] + 1 EndIf EndDo nI := Len( aSuperHead ) nClrFore := ::nForeSupHdGet( nI, aSuperHead ) nClrBack := ::nBackSupHdGet( nI, aSuperHead ) l3DLook := aSuperHead[ nI, 6 ] hFont := ::hFontSupHdGet( nI, aSuperHead ) nLineStyle := aSuperHead[ nI, 10 ] nClrLine := aSuperHead[ nI, 11 ] If ( nI := ATail( aSuperHead )[ 2 ] ) < Len( ::aColumns ) AAdd( aSuperHead, { nI + 1, Len( ::aColumns ), "", nClrFore, nClrBack, l3DLook, hFont, .F., .F., nLineStyle, ; nClrLine, 1, 1, .F. } ) EndIf nStartCol := nWidth := 0 If ::lAdjColumn nS := 1 FOR nI := 1 TO Len( ::aColumns ) oCol := ::aColumns[ nI ] If oCol:nEditWidth > 0 aColSizes[ nI ] := oCol:nEditWidth - iif( ::lNoVScroll, GetVScrollBarWidth(), 0 ) Else aColSizes[ nI ] := oCol:nWidth EndIf NEXT For nI := 1 To Len( aSuperHead ) For nJ := aSuperHead[ nI, 1 ] To aSuperHead[ nI, 2 ] If nI == 1 .and. AScan(aDrawCols, nJ) > 0 nWidth += aColSizes[ nJ ] EndIf Next Next Else nBegin := If( ::nColPos == ::nFreeze + 1, ::nColPos - ::nFreeze, ::nColPos ) For nS := 1 To Len( aSuperHead ) If nBegin >= aSuperHead[ nS, 1 ] .and. nBegin <= aSuperHead[ nS, 2 ] Do Case Case nBegin > aSuperHead[ nS, 1 ] .and. nS == 1 For nJ := aSuperHead[ nS, 1 ] To nBegin - 1 nStartCol -= ::aColSizes[ nJ ] Next For nJ := aSuperHead[ nS, 1 ] To aSuperHead[ nS, 2 ] nWidth += aColSizes[ nJ ] Next Case nBegin > aSuperHead[ nS, 1 ] .and. nS > 1 For nJ := 1 To ::nFreeze nStartCol += ::aColSizes[ nJ ] Next For nJ := nBegin To aSuperHead[ nS, 2 ] nWidth += aColSizes[ nJ ] Next OtherWise If nBegin > 1 For nJ := 1 To ::nFreeze nStartCol += ::aColSizes[ nJ ] Next EndIf For nJ := aSuperHead[ nS, 1 ] To aSuperHead[ nS, 2 ] nWidth += aColSizes[ nJ ] Next EndCase Exit EndIf Next EndIf For nI := nS To Len( aSuperHead ) + 1 If nStartCol > nMaxWidth Exit EndIf If nI <= Len( aSuperHead ) nClrFore := ::nForeSupHdGet( nI, aSuperHead ) nClrBack := ::nBackSupHdGet( nI, aSuperHead ) lBrush := Valtype( nClrBack ) == "O" If ValType( nClrBack ) == "A" nClrBack := ::nClrBackArr( nClrBack, nI ) nClrTo := nClrBack[ 2 ] nClrBack := nClrBack[ 1 ] Else nClrTo := nClrBack EndIf cHeading := ::cTextSupHdGet( nI, aSuperHead ) lMulti := Valtype( cHeading ) == "C" .and. At( Chr( 13 ), cHeading ) > 0 l3DLook := aSuperHead[ nI, 6 ] hFont := ::hFontSupHdGet( nI, aSuperHead ) hBitMap := aSuperHead[ nI, 8 ] hBitMap := If( ValType( hBitMap ) == "B", Eval( hBitMap ), hBitMap ) hBitMap := If( ValType( hBitMap ) == "O", Eval( ::bBitMapH, hBitMap ), hBitMap ) lAdjBmp := aSuperHead[ nI, 9 ] nLineStyle := aSuperHead[ nI, 10 ] nClrLine := aSuperHead[ nI, 11 ] nHAlign := aSuperHead[ nI, 12 ] nVAlign := aSuperHead[ nI, 13 ] lOpaque := aSuperHead[ nI, 14 ] Default hBitMap := 0, ; lOpaque := .T. lOpaque := ! lOpaque Else cHeading := "" nWidth := ::nPhantom hBitmap := 0 lOpaque := .F. nClrBack := If( ::nPhantom == -2, nClrPane, Atail( aSuperHead)[ 5 ] ) nClrBack := ::GetValProp( nClrBack, nClrBack, nI ) If ValType( nClrBack ) == "A" nClrBack := ::nClrBackArr( nClrBack, nI ) nClrTo := nClrBack[ 2 ] nClrBack := nClrBack[ 1 ] Else nClrTo := nClrBack endif EndIf If nI <= Len( aSuperHead ) .and. ::aColumns[ aSuperHead[ nI, 1 ] ]:l3DTextHead != Nil l3DText := ::aColumns[ aSuperHead[ nI, 1 ] ]:l3DTextHead nClr3dL := ::aColumns[ aSuperHead[ nI, 1 ] ]:nClr3DLHead nClr3dS := ::aColumns[ aSuperHead[ nI, 1 ] ]:nClr3DSHead nClr3dL := If( ValType( nClr3dL ) == "B", Eval( nClr3dL, 0, nStartCol ), nClr3dL ) nClr3dS := If( ValType( nClr3dS ) == "B", Eval( nClr3dS, 0, nStartCol ), nClr3dS ) Else l3DText := nClr3dL := nClr3dS := Nil EndIf TSDrawCell( hWnd, ; // 1 hDC, ; // 2 0, ; // 3 nStartCol, ; // 4 nWidth, ; // 5 cHeading, ; // 6 nHAlign, ; // 7 nClrFore, ; // 8 nClrBack, ; // 9 hFont, ; // 10 hBitMap, ; // 11 nHeightHead, ; // 12 l3DLook, ; // 13 nLineStyle, ; // 14 nClrLine, ; // 15 3, ; // 16 1=Header 2=Footer 3=Super nHeightHead, ; // 17 nHeightFoot, ; // 18 nHeightSuper, ; // 19 nHeightSpecHd, ; // 20 lAdjBmp, ; // 21 lMulTi, ; // 22 Multiline text nVAlign, ; // 23 0, ; // 24 nVertLine nClrTo, ; // 25 lOpaque, ; // 26 If( lBrush, ; nClrBack:hBrush, 0 ), ; // 27 l3DText, ; // 28 3D text nClr3dL, ; // 29 3D text light color nClr3dS ) // 30 3D text shadow color nStartCol += nWidth nWidth := 0 If nI < Len( aSuperHead ) For nJ := aSuperHead[ nI + 1, 1 ] To aSuperHead[ nI + 1, 2 ] If ::lAdjColumn If AScan(aDrawCols, nJ) > 0 nWidth += aColSizes[ nJ ] EndIf Else nWidth += aColSizes[ nJ ] EndIf Next EndIf Next Return Nil ... [/pre2] Пример тут https://TransFiles.ru/qjle1 Работает и пример из Advanced\TsBrowse\sbsuperh.prg (с выделенной строкой и без нее)[pre2] MENUITEM "Super Columns" ACTION fSuperCol() ... Function fSuperCol() ... DEFINE TBROWSE oBrw AT 0,0 ALIAS "Products" CELLED ; WIDTH 490 HEIGHT 350 ; COLORS {CLR_BLACK, CLR_NBLUE} ; oBrw:nFreeze := 2 oBrw:nHeightCell += 1 oBrw:SetAppendMode( .T. ) oBrw:SetDeleteMode( .T., .T.) oBrw:lAdjColumn := .T. [/pre2]

gfilatov2002: SergKis пишет: получилось с :DrawSuper() Благодарю за все Ваши усилия Возможно, переменная lAdjColumn д.б. установлена в .T. по умолчанию

SergKis: gfilatov2002 пишет Возможно, переменная lAdjColumn д.б. установлена в .T. по умолчанию Конфликта с :AdjColumns() быть не должно, это для работы - ширина всех колонок < ширины тсб, :lAdjColumn := .T. имеет смысл, если ширина всех колонок > ширины тсб, при этом сменится (от old версии) показ колонок. Как реагировать пользователи будут ? Можно попробовать поставить :lAdjColumn := .T.

gfilatov2002: SergKis пишет: :lAdjColumn := .T. имеет смысл, если ширина всех колонок > ширины тсб Понятно SergKis пишет: при этом сменится (от old версии) показ колонок. Как реагировать пользователи будут ? Думаю, будут реагировать негативно... Поэтому оставил по умолчанию :lAdjColumn := .F., как и было предложено изначально

gfilatov2002: Опубликована новая сборка 19.08 для BCC 5.5.1 и компиляторов Harbour и xHarbour. Базовый дистрибутив находится по адресу http://hmgextended.com/files/CONTRIB/hmg-19.08-setup.exe Также имеются дополнительные сборки для следующих Си-компиляторов: - MinGW 9.1.1 32-bit для Harbour 3.2.0dev; (есть в наличии) - MinGW 9.2.1 32-bit для Harbour 3.2.0dev; (под заказ) - MinGW 8.2.0 64-bit для Harbour 3.4.0dev; (есть в наличии) - MS VisualC 2019 32-bit для Harbour 3.2.0dev; (под заказ) - MS VisualC 2019 64-bit для Harbour 3.2.0dev; (под заказ) - Pelles C 8.0 32-bit для xHarbour b10253; (под заказ) - Pelles C 9.0 64-bit для xHarbour b10253; (под заказ) - Borland/Embarcadero C++ 7.4 (32-bit) для Harbour 3.2.0dev; (под заказ) - Open Watcom C/C++ 2.0 (32-bit) для Harbour 3.2.0dev. (под заказ) Благодарю за Ваше внимание и поддержку

Andrey: Поставил новую версию. Начал просматривать примеры. При запуске - вылет: Application: C:\MiniGUI\SAMPLES\Advanced\Tsb_menu\demo.exe Time from start: 0 days 0 hours 0 mins 0 secs Error MGERROR/0 Window: unrecognized property 'TS_OB1'. Program terminated. --------------------------------- Stack Trace --------------------------------- Called from MSGMINIGUIERROR(100) in module: h_error.prg Called from SETPROPERTY(3952) in module: h_controlmisc.prg Called from TSMENU(127) in module: p_menu.prg Called from (b)MAIN(246) in module: demo.prg Called from _PROCESSINITPROCEDURE(1674) in module: h_windows.prg Called from _ACTIVATEWINDOW(1489) in module: h_windows.prg Called from MAIN(254) in module: demo.prg

gfilatov2002: Andrey Благодарю за сообщение Уже поправил с помощью "тихого" апдейта

Andrey: gfilatov2002 пишет: - MS VisualC 2019 32-bit для Harbour 3.2.0dev; (под заказ) - MS VisualC 2019 64-bit для Harbour 3.2.0dev; (под заказ) Как получить сборку под этот компилятор ?

gfilatov2002: Andrey пишет: Как получить сборку под этот компилятор ? Отправил ссылки в личку (см. Л.С.)

gfilatov2002: Обновил сборку 19.08 (Update 1) с учетом последних наработок Базовый дистрибутив находится по адресу http://hmgextended.com/files/CONTRIB/hmg-19.08-setup.exe Что нового: [pre2] * Enhanced: Added possibility to modify of 'OnDblClick' event for the LABEL and IMAGE controls at run-time with: - function syntax: SetProperty(Form,Control,'OnDblClick',{|| MsgInfo('New action')}) - pseudo-OOP syntax: Form.Control.OnDblClick := {|| MsgInfo('New action')} Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Advanced\MP3Info) * Enhanced: Added possibility of in-line usage of the commands [DE]ACTIVATE TIMER <name> OF <parent> for the Timer control. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Advanced\MP3Info) * Updated: HbSQLite3 library: - update for using SQLITE3 version 3.30.0dev (from 3.29.0). Contributed by Grigory Filatov <gfilatov@inbox.ru> * New: 'MP3 Info Class Test' sample. Based upon a contribution of Victor Daniel Cuatecatl Leon for FiveWin library. Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Advanced\TestMP3Info) * Updated: 'Replacement for Clipper ALERT() function' sample: - New: using of the codeblock bOnInit in the Alert* functions. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\WALERT_2) * Updated: 'DOS-like menu with using of TsBrowse' sample. - updated for the recent changes in Minigui core. Problem was reported by Verchenko Andrey. (see in folder \samples\Advanced\Tsb_menu) [/pre2]

Andrey: Пере собрал некоторые программы ! Полёт нормальный ! Вопрос по COMBOBOXEX возник. А нельзя увеличить ту часть со стрелкой вниз ? А то её через микроскоп разглядывать нужно. Взять стрелку с вертикального скролинга и повесить вместо этого значка. Юзера слёзно просят увеличить.

gfilatov2002: Обновил сборку 19.08 (Update 2) с учетом последних наработок Базовый дистрибутив находится по адресу http://hmgextended.com/files/CONTRIB/hmg-19.08-setup.exe Что нового: [pre2] * New: Added the useful pseudo-function HMG_TimeMS( TS1 [, TS2] ) for calculation of an elapsed time in the milliseconds. Sample code: #include "minigui.ch" STATIC s_tStartTime INIT PROCEDURE OnStartup() s_tStartTime := hb_DateTime() RETURN PROCEDURE main() hb_idleSleep(.1) RETURN EXIT PROCEDURE OnExit() ? "You used this program by", HMG_TimeMS( s_tStartTime ) RETURN Suggested and contributed by Sergej Kiselev. * Updated: HbSQLite3 library: - update for using SQLITE3 latest version 3.30.0dev. Contributed by Grigory Filatov <gfilatov@inbox.ru> * New: 'HMG Misc' sample. Borrowed from HMG 4 project. Adapted by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\Misc) * New: 'OrdWildSeek() Test' sample. Note: Harbour has this function in core without documentation. Based upon a contribution of Mario Mansilla and Pete D. (see in folder \samples\Basic\OrdWildSeek) * New: 'PE Test' sample. Contributed by Pierpaolo Martinello <pier.martinello[at]alice.it> (see in folder \samples\Advanced\PE_Test) * Updated: 'Multi Instance' sample: - updated for the recent changes in Minigui core. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\MULTI_INSTANCE) * Updated: 'MiniGUI DataBase Utility' sample: - updated a memo field editing with using of the function InputBox(). Suggested by Pierpaolo Martinello <pier.martinello[at]alice.it>. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \Utils\mgDBU) [/pre2] Благодарю за Ваше внимание и поддержку

Avf: Что изменилось в последних версиях, что при трансляции старых программ появилось это : Error: Unresolved external '_HB_FUN_WIN_OSVERSIONINFO' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISNT' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISNT351' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISNT4' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS2000ORUPPER' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS2000' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISXP' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISWINXPORUPPER' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS2003' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISVISTA' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISVISTAORUPPER' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS7' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS8' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS9X' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS95' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS98' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISME' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISTSCLIENT' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSNETREGOK' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSNETVREDIROK' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver

gfilatov2002: Avf пишет: Error: Unresolved external '_HB_FUN_WIN_OSVERSIONINFO' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISNT' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISNT351' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISNT4' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS2000ORUPPER' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS2000' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISXP' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISWINXPORUPPER' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS2003' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISVISTA' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISVISTAORUPPER' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS7' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS8' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS9X' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS95' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSIS98' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISME' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSISTSCLIENT' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSNETREGOK' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Error: Unresolved external '_HB_FUN_WIN_OSNETVREDIROK' referenced from C:\MINIGUI\HARBOUR\LIB\XHB.LIB|xwin_ver Эти функции появились в Харборе 10 лет назад (в ноябре 2009 года). По-видимому, используется более старая версия Харбора

Новичок: Добавь список констант для MS Word "word.ch", MS Excel "excel.ch" если не трудно

gfilatov2002: Новичок пишет: список констант для MS Word "word.ch", MS Excel "excel.ch" Такие списки уже есть в папке samples\Advanced\Tsb_Export

Новичок: Видел, устарели уже - добавлял константы да и желательно в основной каталог перебросить, чтобы там постоянно жило :)

gfilatov2002: Подготовил первую бету для новой сборки 19.10 со следующим списком изменений: * New: Added a new command for managing of the Splash Windows: [ SHOW ] SPLASH WINDOW PICTURE <image> ; [ DELAY <delay> ] ; [ ON INIT <InitProcedure> ] ; [ ON RELEASE <ReleaseProcedure> ] where <image> may be BMP, JPG, PNG, GIF or TIF image from application's resources or from a disk file. Note that above command should be launched at ON INIT event of a MAIN form. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\SPLASHDEMO) * New: Added the new commands for tuning of the Status Items properties at runtime: SET STATUSITEM <nItem> OF <Form> ; [ FONTCOLOR | BACKCOLOR | ALIGN | ACTION ] [ TO ] <xValue> Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demos in folder \samples\Basic\Status) * New: Added the useful pseudo-function HMG_SysWait( [ <nSeconds> ] ) which based upon the Harbour function hb_idleSleep(). Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Advanced\MP3Info) * Modified: The first code refactoring attempt was made using of the individual modules for: - the extended and owner-draw controls; - the filenames management functions; - the nonclient C-functions; - the databases conversion auxiliary functions. Requested by Pete D. <pete_westg/at/yahoo.gr>. Contributed by Grigory Filatov <gfilatov@inbox.ru> * Enhanced: The ButtonEX control supports now an optional clause HOTKEY <KeyName>. Requested by Verchenko Andrey <verchenkoag@gmail.com>. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder\samples\Basic\Button_Hotkey) * Updated: Synchronized Extended HMG for compatibility with Official HMG: - New: function IsContextMenuDefined ( cFormName ); - New: function IsNotifyMenuDefined ( cFormName ). Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\MENU_Dynamic) * Updated: HbSQLite3 library: - update for using SQLITE3 latest version 3.30.0dev. Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: Harbour Compiler 3.2.0dev (SVN 2019-09-11 10:16). Contributed by Grigory Filatov <gfilatov@inbox.ru> (look at ReadMe.txt in folder \harbour) * New: 'Extended Dynamic Context Menu' sample. Contributed by Sergej Kiselev and Verchenko Andrey (see menudemo6.prg in folder \samples\Basic\Menu) * Updated: 'Show Password without the asterisks and vice versa' sample. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\ShowPassword) * Updated: 'Splash Screen' sample. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\SPLASHDEMO) Ваши комментарии приветствуются

SergKis: gfilatov2002 О чем речь ? * Modified: The first code refactoring attempt was made using of the individual modules for: - the extended and owner-draw controls; - the filenames management functions; - the nonclient C-functions; - the databases conversion auxiliary functions. Requested by Pete D. <pete_westg/at/yahoo.gr>

gfilatov2002: SergKis пишет: О чем речь Речь о том, что сегментация редко используемого кода в ядре библиотеки позволила уменьшить размер экзешника mgDBU на 5 килобайт, например

полная версия страницы