Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение) » Ответить
Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
gfilatov2002: alex_II пишет: Ошибка стала возникать при вызове DROPDOWN меню Если возможно, подготовьте простой пример, демонстрирующий эту ошибку. Мой контрольный пример работает нормально (см. ниже) [pre2]#include "minigui.ch" Function Main DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 640 HEIGHT 480 ; TITLE 'MiniGUI ToolBar Demo' ; ICON 'DEMO.ICO' ; MAIN ; FONT 'Arial' SIZE 10 DEFINE STATUSBAR STATUSITEM 'HMG Power Ready!' END STATUSBAR DEFINE MAIN MENU POPUP '&File' ITEM 'Get ToolBar_C Button_1' ACTION MsgInfo ( if ( Form_1.ToolBar_c.Button_1c.Value , '.T.' , '.F.' ) , 'Button_1c' ) ITEM 'Get ToolBar_C Button_2' ACTION MsgInfo ( if ( Form_1.ToolBar_c.Button_2c.Value , '.T.' , '.F.' ) , 'Button_2c' ) ITEM 'Get ToolBar_C Button_3' ACTION MsgInfo ( if ( Form_1.ToolBar_c.Button_3c.Value , '.T.' , '.F.' ) , 'Button_3c' ) SEPARATOR ITEM 'Set ToolBar_C Button_1' ACTION Form_1.ToolBar_c.Button_1c.Value := .T. ITEM 'Set ToolBar_C Button_2' ACTION Form_1.ToolBar_c.Button_2c.Value := .T. ITEM 'Set ToolBar_C Button_3' ACTION Form_1.ToolBar_c.Button_3c.Value := .T. SEPARATOR ITEM '&Exit' ACTION Form_1.Release END POPUP POPUP '&Help' ITEM '&About' ACTION MsgInfo ("MiniGUI ToolBar demo") END POPUP END MENU DEFINE SPLITBOX DEFINE TOOLBAR ToolBar_a BUTTONSIZE 45,40 FONT 'Arial' SIZE 8 FLAT BUTTON Button_1a ; CAPTION '&Undo' ; PICTURE 'button4.bmp' ; ACTION MsgInfo('Click! 1') BUTTON Button_2a ; CAPTION '&Save' ; PICTURE 'button5.bmp' ; WHOLEDROPDOWN DEFINE DROPDOWN MENU BUTTON Button_2a ITEM 'Exit' ACTION Form_1.Release ITEM 'About' ACTION MsgInfo ("MiniGUI ToolBar Demo") END MENU BUTTON Button_3a ; CAPTION '&Close' ; PICTURE 'button6.bmp' ; ACTION MsgInfo('Click! 3') ; DROPDOWN DEFINE DROPDOWN MENU BUTTON Button_3a ITEM 'Disable ToolBar 1 Button 1' ACTION Form_1.Button_1a.Enabled := .F. ITEM 'Enable ToolBar 1 Button 1' ACTION Form_1.Button_1a.Enabled := .T. END MENU END TOOLBAR /* DEFINE TOOLBAR ToolBar_b BUTTONSIZE 45,40 FONT 'ARIAL' SIZE 8 FLAT BUTTON Button_1b ; CAPTION 'More ToolBars...' ; PICTURE 'button7.bmp' ; ACTION MsgInfo('Click! 1'); BUTTON Button_2b ; CAPTION 'Button 2' ; PICTURE 'button8.bmp' ; ACTION MsgInfo('Click! 2'); SEPARATOR BUTTON Button_3b ; CAPTION 'Button 3' ; PICTURE 'button7.bmp' ; ACTION MsgInfo('Click! 3') END TOOLBAR DEFINE TOOLBAR ToolBar_c BUTTONSIZE 45,40 FONT 'Arial' SIZE 8 CAPTION 'ToolBar 3' FLAT BUTTON Button_1c ; CAPTION 'Check 1' ; PICTURE 'button4.bmp' ; ACTION MsgInfo('Hey!'); CHECK GROUP BUTTON Button_2c ; CAPTION 'Check 2' ; PICTURE 'button5.bmp' ; ACTION MsgInfo('Hey!') ; CHECK GROUP BUTTON Button_3c ; CAPTION 'Check 3' ; PICTURE 'button6.bmp' ; ACTION MsgInfo('Hey!') ; SEPARATOR; CHECK GROUP BUTTON Button_4c ; CAPTION 'Help Check' ; PICTURE 'button9.bmp' ; ACTION MsgInfo('Hey!') ; CHECK END TOOLBAR */ END SPLITBOX END WINDOW CENTER WINDOW Form_1 ACTIVATE WINDOW Form_1 Return Nil [/pre2]
SergKis: alex_II Замените вызовы функций hSplBox := _DefineSplitbox('Form_main') ... _EndSplitBox() командами DEFINE SPLITBOX HANDLE hSpl ... END SPLITBOX Запустил несколько примеров из samples со splitbox и dropdown - работают
SergKis: gfilatov2002 Если записать как у alex_II, то валится, запись командой работает
alex_II: SergKis пишет: Замените вызовы функций hSplBox := _DefineSplitbox('Form_main') ... _EndSplitBox() командами DEFINE SPLITBOX HANDLE hSpl ... END SPLITBOX Благодарю, Ваша рекомендация помогла
gfilatov2002: Подготовил перед Рождеством уже 5-ю бету для новой сборки библиотеки Список изменений у этой сборки следующий [pre2] * Fixed: Problem with AUTOSIZE property handling in the CHECKLABEL control. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\CheckLabel_3) * Enhanced: Added 'VCENTERALIGN' clause (optional) for vertical aligning of a text in CHECKLABEL control. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\CheckLabel_2) * Modified: A Switcher control was used for managing of the logical variables in the function InputWindow(). Note: an obsolete behaviour may be restored via adding the definition of the constant HMG_LEGACY_ON to the header file minigui.ch. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo at folder \samples\Basic\MAINDEMO_(SYNTAX_I)) * Enhanced: Added an auxiliary conversion function HMG_ClrToHTML( nClr ) --> cHtmlClr ( format "#rrggbb" ) Example: ? HMG_ClrToHTML( CLR_BLUE ) --> #000080 Contributed by Grigory Filatov <gfilatov@inbox.ru> (see Tsb2xml.prg in folder \samples\Advanced\Tsb_Brw2xml) * Updated: Adaptation FiveWin Class TSBrowse 9.0 in HMG: - fixed the processing of the variable :lNoMoveCols in the method RButtonDown(). The bug was reported by Sylvain Larche. Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: HbSQLite3 library: - update for using SQLITE3 version 3.27.0dev (from 3.26.0). Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: Harbour Compiler 3.2.0dev (SVN 2018-12-31 15:32): * Updated: OpenSSL wrapper for using of the version 1.0.2q. Contributed by Grigory Filatov <gfilatov@inbox.ru> (look at ReadMe.txt in folder \harbour) * Updated: HMGS-IDE v.1.4.3.5 Project Manager and Two-Way Visual Form Designer. Contributed by Grigory Filatov <gfilatov@inbox.ru> (look for what's new at changelog.txt in folder \Ide) * New: 'Switcher control for logical variables' sample. Syntax: @ <row>,<col> SWITCHER <name> [ OF <parent> ] ; HEIGHT 46 ; IMAGE { 'MINIGUI_SWITCH_ON', 'MINIGUI_SWITCH_OFF' } ; [ VALUE <cValue> ] ; [ FONT <fontname> SIZE <fontsize> ] ; [ LEFTCHECK ] [ CHECKED ] ; [ ON MOUSEHOVER <bMouseHover> ] ; [ ON MOUSELEAVE <bMouseLeave> ] ; [ ON CLICK <bMouseClick> ] Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\CheckLabel_3) * New: 'Media Player Test' sample. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo2.prg in folder \samples\Basic\PLAYER_1) * Updated: 'Print Pie Graph' sample: the updated data for December 2018. Windows 10 is the leader for the first time since July 2015. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo.prg in folder \samples\Basic\GraphPrint) * Updated: 'RichEdit Extended' samples: - a correction in the function _SetFontSizeRTF(). Contributed by Pierpaolo Martinello <pier.martinello[at]alice.it> (see in folders \samples\Advanced\RicheditEx and \samples\Advanced\RicheditEx_2) * Updated: 'MiniGUI DataBase Utility' sample: - fixed a command line processing. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \Utils\mgDBU) * Updated: MPM utility: - added permit of execution of a batch file with an admin privilege request. Based upon a contribution of Pierpaolo Martinello (see in folder \Utils\MPM) [/pre2]Благодарю за Ваше внимание
SergKis: gfilatov2002 У себя сделал небольшую правку (расчет высоты для колонки с несколькими CRLF[pre2] Static Function SetHeights( oBrw ) ... // Now for cells nHHeight := oBrw:nHeightCell For nEle := 1 TO Len( oBrw:aColumns ) ... // Default oBrw:nMemoHV := 2 If Empty(oBrw:nMemoHV) .and. Chr(13) $ cHeading oBrw:nMemoHV := Len( hb_ATokens(cHeading, Chr(13)) ) EndIf nHeight := SBGetHeight( oBrw:hWnd, hFont, 0 ) ... [/pre2])
gfilatov2002: SergKis пишет: расчет высоты для колонки с несколькими CRLF Принято с небольшими изменениями Благодарю за Вашу помощь и внимание
SergKis: SergKis пишет If Empty(oBrw:nMemoHV) .and. Chr(13) $ cHeading Использую так в колонке (при работе с базой колонок, созданной заранее) [pre2] :cHeading, "Адрес юридический" + CRLF + "Адрес фактический" + CRLF + "Контакты" :bData := {|| Alltrim(K_8) + chr(13) + chr(10) + ; // Adr. jur. Alltrim(K_A) + chr(13) + chr(10) + ; // Adr. fakt. Alltrim(K_C) } ) // telefon, ... ... при oBrw:nMemoHV := 1 // будет одна строка в просмотре тсб oBrw:nMemoHV := 2 // будет две строки ... oBrw:nMemoHV := 0 // будет три строки ... [/pre2]
Andrey: SergKis пишет: Использую так в колонке (при работе с базой колонок, созданной заранее) Примерчик бы маленький сделать в папку Tsb_Basic - demo5.prg ! Да и в demo3.prg правку небольшую внести:[pre2] DEFINE WINDOW Form_0 ; .... TITLE "(3) TsBrowse DBASE SHARED Demo" ; .... STATUSITEM "(3) TsBrowse - network opening of the database!" WIDTH 290 FONTCOLOR BLUE[/pre2]
SergKis: Andrey пишет Примерчик бы маленький сделать Примерчик по колонкам с базой колонок был, пробуй. Вырезка из проги [pre2] * ----------------------------------------------------------------------------------- * STATIC FUNC InitCols() // Создание колонок tsb * ----------------------------------------------------------------------------------- * LOCAL cR08 := 'R08' LOCAL cR09 := 'R09' LOCAL cPicKol := '99999999' LOCAL cPicCen := '9999999.99' LOCAL cPicSum := '9999999.99' Stru2Cols(R08_Stru(), cR08) // sCols( R08.B_2 , cHeading, 'Sheet' ) sCols( R08.B_2 , bDecode , {|cv| alltrim(cv) } ) sCols( R08.D_E , cHeading, 'Excel' + CRLF + 'line' ) // для документа sCols( R08.D_E , nAlign , DT_CENTER ) sCols( R08.D_E , nWidth , TxtWidth(5) ) sCols( R08.D_E , bDecode , {|nv| hb_ntos(nv) } ) sCols( R08.D_2 , cHeading, gTxt(Pavadz) + CRLF + 'Sheet' + CRLF + 'File name' ) sCols( R08.D_2 , nAlign , DT_CENTER ) sCols( R08.D_2 , nWidth , TxtWidth(25) ) sCols( R08.D_2 , bData , {|| alltrim(D_2) + chr(13) + chr(10) + ; alltrim(B_2) + chr(13) + chr(10) + ; alltrim(B_0) } ) sCols( R08.K_E1, cHeading, 'Excel' + CRLF + 'line' ) // для клиента sCols( R08.K_E1, nAlign , DT_CENTER ) sCols( R08.K_E1, nWidth , TxtWidth(5) ) sCols( R08.K_E1, bData , {|| hb_ntos(K_E1) + chr(13) + chr(10) + ; // наименование hb_ntos(K_E2) + chr(13) + chr(10) + ; // рег. nr hb_ntos(K_E3) } ) // pvn. nr sCols( R08.K_2 , cHeading, gTxt(Nosut) + CRLF + gTxt(RegNr) + CRLF + gTxt(PvnNr) ) sCols( R08.K_2 , nWidth , TxtWidth(30) ) sCols( R08.K_2 , bData , {|| Alltrim(K_2) + chr(13) + chr(10) + ; // наименование Alltrim(K_4) + chr(13) + chr(10) + ; // рег. nr Alltrim(K_6) } ) // pvn. nr sCols( R08.K_E4, cHeading, 'Excel' + CRLF + 'line' ) // для клиента адресов sCols( R08.K_E4, nAlign , DT_CENTER ) sCols( R08.K_E4, nWidth , TxtWidth(5) ) sCols( R08.K_E4, bData , {|| hb_ntos(K_E4) + chr(13) + chr(10) + ; // Adr. jur. hb_ntos(K_E5) + chr(13) + chr(10) + ; // Adr. fiz. hb_ntos(K_E6) } ) // telefon sCols( R08.K_8 , cHeading, gTxt(AdrJur) + CRLF + gTxt(AdrFiz) + CRLF + gTxt(Telef) ) sCols( R08.K_8 , nWidth , TxtWidth(30) ) sCols( R08.K_8 , bData , {|| Alltrim(K_8) + chr(13) + chr(10) + ; // Adr. jur. Alltrim(K_A) + chr(13) + chr(10) + ; // Adr. fiz. Alltrim(K_C) } ) // telefon sCols( R08.K_E4, cHeading, 'Excel' + CRLF + 'line' ) // для клиента данных банка sCols( R08.K_E4, nAlign , DT_CENTER ) sCols( R08.K_E4, nWidth , TxtWidth(5) ) sCols( R08.K_E4, bData , {|| hb_ntos(K_E1) + chr(13) + chr(10) + ; // Banka hb_ntos(K_E4) + chr(13) + chr(10) + ; // Kods hb_ntos(K_E6) } ) // Konts sCols( R08.K_E , cHeading, gTxt(Banka) + CRLF + gTxt(BankKod) + CRLF + gTxt(BankScet) ) sCols( R08.K_E , nWidth , TxtWidth(30) ) sCols( R08.K_E , bData , {|| Alltrim(K_E) + chr(13) + chr(10) + ; // Banka Alltrim(K_G) + chr(13) + chr(10) + ; // Kods Alltrim(K_I) } ) // Konts Stru2Cols(R09_Stru(), cR09) ... FUNC Child_R08( oWnd ) .. dbSelectArea(cR08) AAdd(aCols, gCols( R08.D_2 )) AAdd(aCols, gCols( R08.K_2 )) AAdd(aCols, gCols( R08.K_8 )) AAdd(aCols, gCols( R08.K_E )) DEFINE WINDOW &cWnd ; ... DEFINE TBROWSE &cBrw OBJ oBrw AT y, x ALIAS ALIAS() WIDTH w HEIGHT h CELL :hFontHead := GetFontHandle( "TsbHeader" ) :hFontFoot := GetFontHandle( "TsbFooter" ) :nWheelLines := 1 :lNoHScroll := .T. :lFooting := .T. :lDrawFooters := .T. :lNoGrayBar := .T. :lNoLiteBar := .F. :lNoResetPos := .F. :lPickerMode := .F. :nLineStyle := LINES_ALL :nClrLine := COLOR_GRID :lNoChangeOrd := .T. :nColOrder := 0 AEval( aCols, {| oc| :AddColumn( oc ) } ) :SetColor( { CLR_FOCUSB }, { { |a,b,c| If( c:nCell == b, {RGB( 66, 255, 236), RGB(209, 227, 248)}, ; {RGB(220, 220, 220), RGB(220, 220, 220)} ) } } ) :nMemoHV := 1 // список документов по уникальному тэгу клиента однострочный // :nMemoHV := 0 // список документов в три строки :nHeightCell -= 1 :ResetVScroll( .T. ) :oHScroll:SetRange( 0, 0 ) :AdjColumns() END TBROWSE oBrw:SetNoHoles() oBrw:SetFocus() ... Достичь того же можно и такими действиями и возможно это лучше в каких то случаях AAdd(aCols, gCols( R08.D_2 )) aCols[1]:cHeading := gTxt(Pavadz) aCols[1]:bData := {|| alltrim(D_2) } AAdd(aCols, gCols( R08.K_2 )) aCols[2]:cHeading := gTxt(Nosut) aCols[2]:bData := {|| Alltrim(K_2) } AAdd(aCols, gCols( R08.K_8 )) aCols[3]:cHeading := gTxt(AdrJur) aCols[3]:bData := {|| Alltrim(K_8) } AAdd(aCols, gCols( R08.K_E )) aCols[4]:cHeading := gTxt(Bank) aCols[4]:bData := {|| Alltrim(K_E) } ... [/pre2]
gfilatov2002: Выпущена новая сборка 19.01 для BCC 5.5.1 и компиляторов Harbour и xHarbour. Установщик базового дистрибутива находится по адресу http://hmgextended.com/files/CONTRIB/hmg-19.01-setup.exe Также имеются дополнительные сборки для следующих Си-компиляторов: - MinGW 8.1.0 32-bit для Harbour 3.2.0dev; (есть в наличии) - MinGW 8.2.0 64-bit для Harbour 3.4.0dev; (есть в наличии) - MS VisualC 2017 32-bit для Harbour 3.2.0dev; (путь и имя архива не изменял) - MS VisualC 2017 64-bit для Harbour 3.2.0dev; (путь и имя архива не изменял) - Borland/Embarcadero C++ 7.3 (32-bit) для Harbour 3.2.0dev. (есть в наличии). Благодарю за Ваше внимание
SergKis: gfilatov2002 пишет * Enhanced: Added an auxiliary conversion function HMG_ClrToHTML( nClr ) --> cHtmlClr ( format "#rrggbb" ) ... Модификация \samples\Advanced\Tsb_Brw2xml\Tsb4xml.prg [pre2] CLASS ColorN2H ... VAR nDef INIT CLR_SILVER VAR cDef INIT HMG_ClrToHTML( CLR_SILVER ) // HEX_SILVER ... METHOD Def( nDef, cDef ) CLASS ColorN2H LOCAL aClr If nDef != Nil .and. HB_ISNUMERIC(nDef) ::nDef := nDef EndIf If cDef != Nil .and. HB_ISCHAR(cDef) ::cDef := cDef EndIf aClr := { ; CLR_BLACK , ; CLR_MAROON , ; CLR_DARKRED , ; CLR_RED , ; CLR_ORANGERED , ; CLR_DARKGREEN , ; CLR_GREEN , ; CLR_OLIVE , ; CLR_DARKORANGE , ; CLR_ORANGE , ; CLR_GOLD , ; CLR_LAWNGREEN , ; CLR_LIME , ; CLR_CHARTREUSE , ; CLR_DARKGOLDENROD , ; CLR_SADDLEBROWN , ; CLR_CHOCOLATE , ; CLR_GOLDENROD , ; CLR_FIREBRICK , ; CLR_FORESTGREEN , ; CLR_OLIVEDRAB , ; CLR_BROWN , ; CLR_SIENNA , ; CLR_DARKOLIVEGREEN , ; CLR_GREENYELLOW , ; CLR_LIMEGREEN , ; CLR_YELLOWGREEN , ; CLR_CRIMSON , ; CLR_PERU , ; CLR_TOMATO , ; CLR_DARKSLATEGRAY , ; CLR_CORAL , ; CLR_SEAGREEN , ; CLR_YELLOW , ; CLR_SANDYBROWN , ; CLR_DIMGRAY , ; CLR_DARKKHAKI , ; CLR_MIDNIGHTBLUE , ; CLR_MEDIUMSEAGREEN , ; CLR_SALMON , ; CLR_DARKSALMON , ; CLR_LIGHTSALMON , ; CLR_SPRINGGREEN , ; CLR_NAVY , ; CLR_PURPLE , ; CLR_TEAL , ; CLR_GRAY , ; CLR_LIGHTCORAL , ; CLR_INDIGO , ; CLR_MEDIUMVIOLETRED , ; CLR_BURLYWOOD , ; CLR_DARKBLUE , ; CLR_DARKMAGENTA , ; CLR_DARKSLATEBLUE , ; CLR_DARKCYAN , ; CLR_TAN , ; CLR_KHAKI , ; CLR_ROSYBROWN , ; CLR_DARKSEAGREEN , ; CLR_SLATEGRAY , ; CLR_LIGHTGREEN , ; CLR_DEEPPINK , ; CLR_PALEVIOLETRED , ; CLR_PALEGREEN , ; CLR_LIGHTSLATEGRAY , ; CLR_MEDIUMSPRINGGREEN , ; CLR_CADETBLUE , ; CLR_DARKGRAY , ; CLR_LIGHTSEAGREEN , ; CLR_MEDIUMAQUAMARINE , ; CLR_PALEGOLDENROD , ; CLR_NAVAJOWHITE , ; CLR_WHEAT , ; CLR_HOTPINK , ; CLR_STEELBLUE , ; CLR_MOCCASIN , ; CLR_PEACHPUFF , ; CLR_SILVER , ; CLR_LIGHTPINK , ; CLR_BISQUE , ; CLR_PINK , ; CLR_DARKORCHID , ; CLR_MEDIUMTURQUOISE , ; CLR_MEDIUMBLUE , ; CLR_SLATEBLUE , ; CLR_BLANCHEDALMOND , ; CLR_LEMONCHIFFON , ; CLR_TURQUOISE , ; CLR_DARKTURQUOISE , ; CLR_LIGHTGOLDENRODYELLOW , ; CLR_DARKVIOLET , ; CLR_MEDIUMORCHID , ; CLR_LIGHTGRAY , ; CLR_AQUAMARINE , ; CLR_PAPAYAWHIP , ; CLR_ORCHID , ; CLR_ANTIQUEWHITE , ; CLR_THISTLE , ; CLR_MEDIUMPURPLE , ; CLR_GAINSBORO , ; CLR_BEIGE , ; CLR_CORNSILK , ; CLR_PLUM , ; CLR_LIGHTSTEELBLUE , ; CLR_LIGHTYELLOW , ; CLR_ROYALBLUE , ; CLR_MISTYROSE , ; CLR_BLUEVIOLET , ; CLR_LIGHTBLUE , ; CLR_POWDERBLUE , ; CLR_LINEN , ; CLR_OLDLACE , ; CLR_SKYBLUE , ; CLR_CORNFLOWERBLUE , ; CLR_MEDIUMSLATEBLUE , ; CLR_VIOLET , ; CLR_PALETURQUOISE , ; CLR_SEASHELL , ; CLR_FLORALWHITE , ; CLR_HONEYDEW , ; CLR_IVORY , ; CLR_LAVENDERBLUSH , ; CLR_WHITESMOKE , ; CLR_LIGHTSKYBLUE , ; CLR_LAVENDER , ; CLR_SNOW , ; CLR_MINTCREAM , ; CLR_BLUE , ; CLR_FUCHSIA , ; CLR_DODGERBLUE , ; CLR_DEEPSKYBLUE , ; CLR_ALICEBLUE , ; CLR_GHOSTWHITE , ; CLR_CYAN , ; CLR_LIGHTCYAN , ; CLR_AZURE , ; CLR_WHITE ; } AEval(aClr, {|nclr| ::oNH:Set( nclr, HMG_ClrToHTML( nclr ) ) }) ::nLenN := Len( hb_ntos(::oNH:Len) ) RETURN Self ... [/pre2] Полет HMG_ClrToHTML( nClr ) нормальный
gfilatov2002: SergKis пишет: Модификация \samples\Advanced\Tsb_Brw2xml\Tsb4xml.prg Благодарю за помощь
LYSK: Григорий, а то, что исчезли примеры ADSRDD - это так и должно быть?
gfilatov2002: LYSK пишет: исчезли примеры ADSRDD В каких папках были эти примеры Насколько я помню, такие примеры всегда были дополнительные из-за необходимости включать в поставку необходимые для работы dll-ки. По ходу, обновил сборку 19.01 с учетом последних изменений (путь и имя установщика не изменились)
LYSK: так то и была папка ADS_RDD. "Живому тормоз-мертвечина!" как сказал классик. Появилась необходимость вжиться в программу, где индексы IDX, которых оказывается не не умеет HARBOUR ;-). И фиг было бы с ними, но какое то время старое и новое должны жить одновременно.. Вот и посмотреось в сторону локального ADS.
Haz: LYSK пишет: Вот и посмотреось в сторону локального ADS так проблема то в чем ? в поставке rddads скорее не самый новый , но рабочий. Не обращал внимания , но неужель DBFCDX не умеет работать с IDX ??
LYSK: Pasha вот тут https://clipper.borda.ru/?1-4-0-00000805-000-0-0-1381588962 писал: Сейчас посмотрел сырцы харбора, и увидел, что индексы idx не поддерживаются. Проблема в том что пока не нашлось client ingene, совместимого с adordd из комплектной harbour/lib
Dima: LYSK пишет: Появилась необходимость вжиться в программу, где индексы IDX, которых оказывается не не умеет HARBOUR ;-). Так собери ADSRDD и юзай CDX и IDX , хоть вместе , хоть отдельно....работает !
Haz: Dima пишет: Так собери ADSRDD именно так , скачай последние сырцы и собери с ними под нужного клиента
полная версия страницы