Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне
Кратко, что нового:
- исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
Сделал др. вариант SBrowse, привязал размеры к размеру фонта
Да, этот вариант понравился своим лаконичным примером Принято. Благодарю за помощь
gfilatov2002
moderator
Пост N: 1974
Зарегистрирован: 11.02.10
Отправлено: 10.12.21 21:38. Заголовок: SergKis пишет: надо ..
SergKis пишет:
цитата:
надо добавить MODAL окно
Да, согласен, в противном случае карточка 'Record View' прячется под основное окно Остановился на таком варианте (с использованием переменной lRec): Скрытый текст
FUNCTION SBrowse( uAlias, cTitle, bSetUp, aCols, nWidth, nHeight, lSql ) // idea from xBrowse
LOCAL cFormName, oBrw, nSaveSelect, cDbf, cAlias, lEdit, cTable LOCAL lbSetUp := !Empty( bSetUp ), lRec, nY, nX, bAfter, lCellBrw := .F. LOCAL oApp := oDlu4Font( _HMG_DefaultFontSize ) LOCAL nGw := oApp:GapsWidth LOCAL nGh := oApp:GapsHeight
т.е. IF oBrw:nColumn("ORDKEYNO", .T.) > 0 ... ENDIF
тогда поправить _TBrowse() ... DEFAULT bEnd := {|ob,op| Local aCol, nI, nK // SELECTOR и ORDKEYNO не меняем width IF op:uSelector != NIL .and. op:lAdjust == NIL .and. ob:lNoHScroll nK := Max( ob:nColumn("SELECTOR", .T.), ob:nColumn("ORDKEYNO", .T.) ) IF nK > 0 aCol := {} FOR nI := nK TO Len( ob:aColumns ) IF ob:aColumns[ nI ]:lVisible AAdd( aCol, nI ) ENDIF NEXT ENDIF ob:AdjColumns( aCol ) ENDIF // нет горизонтального HScroll и есть SELECTOR IF ob:nLen > ob:nRowCount() // нужен VScroll ob:ResetVScroll( .T. ) ENDIF ob:SetNoHoles() ob:SetFocus() Return Nil }
... DEFAULT oParam:bSpecHdEnum := {|ob,op,cChar| // нумерация SpecHd колонок, можно исп. в своем коде вызов Local oCol, cCnt, nCnt := 0 // renumbering SpecHeader IF ob:lDrawSpecHd DEFAULT cChar := op:cSpecHdChar DEFAULT cChar := "." FOR EACH oCol IN ob:aColumns IF oCol:cName == "SELECTOR" ; LOOP ENDIF cCnt := cChar IF oCol:cName != "ORDKEYNO" .and. oCol:lVisible cCnt := hb_ntos( ++nCnt ) ENDIF oCol:cSpcHeading := cCnt NEXT ENDIF Return Nil }
DEFAULT oParam:bAdjColumns := {|ob| // "растягивание" колонок в пределах окна тсб Local aCol, nI, nK // SELECTOR and ORDKEYNO не меняем width nK := Max( ob:nColumn("SELECTOR", .T.), ob:nColumn("ORDKEYNO", .T.) ) IF nK > 0 aCol := {} FOR nI := nK TO Len( ob:aColumns ) IF ob:aColumns[ nI ]:lVisible AAdd( aCol, nI ) ENDIF NEXT ENDIF ob:AdjColumns( aCol ) Return Nil }
DEFAULT bEnd := {|ob,op| // нет горизонтального HScroll и есть SELECTOR IF op:uSelector != NIL .and. op:lAdjust == NIL .and. ob:lNoHScroll IF HB_ISBLOCK( op:bAdjColumns ) EVal( op:bAdjColumns, ob, op ) // :AdjColumns(...) ENDIF ENDIF IF ob:nLen > ob:nRowCount() // нужен VScroll ob:ResetVScroll( .T. ) ENDIF ob:SetNoHoles() ob:SetFocus() Return Nil } ... IF ( :GetAllColsWidth() - 1 ) > ( _GetClientRect( :hWnd )[3] ) :lNoHScroll := .F. :lMoreFields := ( :nColCount() > 30 ) ELSEIF oParam:uSelector == NIL .and. oParam:lAdjust == NIL IF HB_ISBLOCK( oParam:bAdjColumns ) EVal( oParam:bAdjColumns, oBrw, oParam ) // :AdjColumns(...) ENDIF ENDIF ... IF HB_ISBLOCK( bEnd ) ; EVal( bEnd, oBrw, oParam ) ENDIF
Отправлено: 12.12.21 11:28. Заголовок: gfilatov2002 пишет Т..
gfilatov2002 пишет
цитата:
Так выглядит
В этом варианте, если задать cTitle := "My test record", то oBrw не попадет в ф-ю, лучше DEFAULT cTitle := "Record View", ... SBrowse( aArr, {cTitle, oBrw}, bSetUp, aHead, nWidth, nHeight )
gfilatov2002 Предложение выделить создание колонки # (номер по порядку) в отд. ф-ю, для исп. в др. тсб, т.е. Назвать, может быть, ф-ю как то иначе ? Скрытый текст
FUNCTION _TBrowse_ColNumber( oBrw, nWidth ) LOCAL oCol
в примере lNumber параметр сделал .T. результат, в целом, получился с замечаниями: 1 - колонка SELECTOR стала 3D (кроме header) 2 - у колонки ORDKEYNO header стал 3D и цвет у строки фокуса, как у ячейки в фокусе 3 - у колонки ORDKEYNO цвет у строки фокуса, как у ячейки в фокусе Excel отрабатывает. На карточке появляется поле #, как бы почти все ok! В целом замечания не мешают
Разобрался, 1 и 2 это градиент откуда то взялся, а не 3D. В примерах с _TBrowse(...) и колонкой Number все ok!, такого нет. Сделал так
Попробовал добавить параметр в SBrowse(... , lNumber)
Думаю, что такой параметр не помешает Благодарю за ваши усилия по доведению этой функции "до ума"
SergKis
постоянный участник
Пост N: 4004
Зарегистрирован: 17.02.12
Отправлено: 12.12.21 21:28. Заголовок: gfilatov2002 Тут ещ..
gfilatov2002 Тут еще с методом
METHOD ExcelOle( cXlsFile, lActivate, hProgress, cTitle, hFont, lSave, bExtern, aColSel, bPrintRow ) CLASS TSBrowse ... uData := iif( ValType( ::aColumns[ nCol ]:cFooting ) == "B", Eval( ::aColumns[ nCol ]:cFooting, nCol, Self ), ; ::aColumns[ nCol ]:cFooting ) ... Если эту правку сделать, то можно убрать строку, но может не надо убирать эту строку, т.к. не знаю что делает на тему :cFooting метод oBrw:Report() :InsColNumber() :GetColumn("ORDKEYNO"):cFooting := hb_ntos( :nLen ) :nFreeze := :nColumn("ORDKEYNO")
что бы можно было width контрола получить от dlu, напрмер, кратное :W(0.5) w := 0 o := oDlu4Font(nSize) // nSize: from 8 to 26 t := o:TextWidth('Bla bla ... bla', nSize) a := array(20) aFill(a, o:W(0.5)) FOR EACH n IN a w += n IF w > t ; EXIT ENDIF NEXT ? t, w, o:H1
вместо этих команд в моем варианте есть метод
METHOD Breadth( w, k ) CLASS TDlu2Pix LOCAL nWidth := 0
WHILE w > ( nWidth += ::W( hb_defaultValue(k, 0.5) ) ) END
RETURN nWidth
т.е. делаю w := o:Breadth( o:TextWidth('Bla bla ... bla', nSize), 0.5 )
DBAPPEND() REPLACE CODE WITH 'LTU', NAME WITH 'Lithuania', RESIDENTS WITH 3369600 DBAPPEND() REPLACE CODE WITH 'USA', NAME WITH 'United States of America', RESIDENTS WITH 305397000 DBAPPEND() REPLACE CODE WITH 'POR', NAME WITH 'Portugal', RESIDENTS WITH 10617600 DBAPPEND() REPLACE CODE WITH 'POL', NAME WITH 'Poland', RESIDENTS WITH 38115967 DBAPPEND() REPLACE CODE WITH 'AUS', NAME WITH 'Australia', RESIDENTS WITH 21446187 DBAPPEND() REPLACE CODE WITH 'FRA', NAME WITH 'France', RESIDENTS WITH 64473140 DBAPPEND() REPLACE CODE WITH 'RUS', NAME WITH 'Russia', RESIDENTS WITH 141900000 DBAPPEND() REPLACE CODE WITH 'LAT', NAME WITH 'Latvja', RESIDENTS WITH 7654321 DBAPPEND() REPLACE CODE WITH 'DEM', NAME WITH 'Germanija', RESIDENTS WITH 1234567 USE
Return Nil
*----------------------------------- Function SetMyBrowser( oBrw, lAft ) *----------------------------------- Local cFormName := oBrw:cParentWnd, cTitle, oCol, hFont
Return .T. // editable browse (return .F. is readonly)
*----------------------------------- Function CountChildWindows *----------------------------------- Local i, nFormCount := Len (_HMG_aFormHandles), nCnt := 0
FOR i := 1 TO nFormCount IF _HMG_aFormType [ i ] <> "A" IF _IsWindowDefined ( _HMG_aFormNames [ i ] ) nCnt++ ENDIF ENDIF NEXT
Return nCnt
Есть проблемка с Super Header и OLE, т.е. вывод таблицы в excel снимается. Я не специалист ole excel, не работаю с ним. Потому только сообщаю
gfilatov2002 Почистил, поправил SBrowse(), добавил задать размеры через nWidth, nHeight для SBrowse_Record() Пример и h_controlmisc2.prg тут https://TransFiles.ru/3i6zg
Function Main() LOCAL cFont := "Arial" LOCAL nSize := 12 LOCAL bSetUp, lNoMain, nW, nH, oDlu, bSet, bRec
SET CODEPAGE TO RUSSIAN SET LANGUAGE TO RUSSIAN
RddSetDefault("DBFCDX")
//SET OOP ON
SET EPOCH TO 2000 SET DATE TO GERMAN SET CENTURY ON SET AUTOPEN OFF SET DELETED OFF
SET NAVIGATION EXTENDED SET DEFAULT ICON TO "HMG_ICO" // фонт по default cFont := "DejaVu Sans Mono" nSize := 16 SET FONT TO cFont, nSize
DEFINE FONT Normal FONTNAME cFont SIZE nSize DEFINE FONT Bold FONTNAME cFont SIZE nSize BOLD
IF ( lNoMain := Empty( _HMG_MainHandle ) ) SET WINDOW MAIN OFF ENDIF
bSet := {|ob,um| Local oc, fn IF Empty(um) // before END TBROWSE ELSE // after END TBROWSE fn := GetFontHandle("Bold") FOR EACH oc IN ob:aColumns IF oc:cName == "SELECTOR" ; LOOP ENDIF oc:hFontHead := fn IF oc:cName == "ORDKEYNO" oc:hFont := fn oc:hFontFoot := fn ENDIF NEXT ob:SetNoHoles() ob:SetFocus() ENDIF Return .T. }
//bSet := {|| .T. }
bRec := {|| .F. } // или задавать как bSet с параметрами
sBrowse( Alias(), "DEMO. Test new SBrowse", bSetUp, , nW, nH, , .T., .T. )
IF lNoMain SET WINDOW MAIN ON ENDIF
RETURN NIL
gfilatov2002
moderator
Пост N: 1995
Зарегистрирован: 11.02.10
Отправлено: 10.01.22 11:44. Заголовок: Всем кому это интересно ;-)
Подготовил третий релиз-кандидат для новой сборки 22.01 Кратко, что нового: Скрытый текст
* Fixed DATEPICKER control: 'Value' property returns TimeStamp type if the FORMATSTRING property was defined (introduced in the build 21.09).
* Added the function nStrToNum( cNumericVal, [lEuropean] ) --> nVal
* Added the function uCharToVal( cText, [cType] ) --> uVal. It is an inverse function to the function cValToChar().
* The improved function cValToChar() preserves the full accuracy of the number value with the internal function cNumToChar(). It does not depend on the SET DECIMALS TO <n> setting now.
* The DO MESSAGE LOOP command supports the optional EXIT [ON EXCEPTION] clause (default is false).
* The useful function GetPixelColor() was moved to MiniGUI core.
* Updated the TSBrowse, RddLeto and SQLite3 libraries.
* Added the new interesting samples and updated some examples.
FUNCTION _TBrowse( oParam, uAlias, cBrw, nY, nX, nW, nH ) ... IF HB_ISBLOCK( bEnd ) ; EVal( bEnd, oBrw, oParam ) ENDIF
IF HB_ISARRAY( oParam:aEvents ) FOR EACH aTmp IN oParam:aEvents (This.Object):Event( aTmp[1], aTmp[2] ) NEXT ENDIF
DO EVENTS
RETURN oBrw
Тогда можно делать WITH OBJECT oTsb :aEvents := {} AADD( :aEvents, { 3, {|ow,ky,ob| Local cAls ob := iif( Empty(ob), ow:Cargo:oBrw, ob ) cAls := ob:cAlias IF ob:nLen > 0 IF (cAls)->(RLock()) IF (cAls)->(Deleted()) (cAls)->(dbRecall()) ELSE (cAls)->(dbDelete()) ENDIF (cAls)->(dbUnlock()) ENDIF //ob:DeleteRow(.F., .F.) ob:SetFocus() ob:DrawSelect() DO EVENTS ENDIF Return Nil } } ) ... END WITH
тогда вместо F\T будут тексты из _HMG_aABMLangLabel[ 20\21 ], т.е. Yes\No или от языка Да\Нет ... В примере с SBrowse, например, делаем так Скрытый текст
Function Main() LOCAL cFont := "Arial" LOCAL nSize := 12 LOCAL bSetUp, lNoMain, nW, nH, oDlu, bSet, bRec
SET CODEPAGE TO RUSSIAN SET LANGUAGE TO RUSSIAN
RddSetDefault("DBFCDX")
//SET OOP ON
SET EPOCH TO 2000 SET DATE TO GERMAN SET CENTURY ON SET AUTOPEN OFF SET DELETED OFF
SET NAVIGATION EXTENDED SET DEFAULT ICON TO "HMG_ICO" // фонт по default cFont := "DejaVu Sans Mono" nSize := 18 SET FONT TO cFont, nSize
DEFINE FONT Normal FONTNAME cFont SIZE nSize DEFINE FONT Bold FONTNAME cFont SIZE nSize BOLD
IF ( lNoMain := Empty( _HMG_MainHandle ) ) SET WINDOW MAIN OFF ENDIF
bSet := {|ob,um| Local oc, fn IF Empty(um) // before END TBROWSE ELSE // after END TBROWSE fn := GetFontHandle("Bold") FOR EACH oc IN ob:aColumns IF oc:cName == "SELECTOR" ; LOOP ENDIF oc:hFontHead := fn IF oc:cName == "ORDKEYNO" oc:hFont := fn oc:hFontFoot := fn ENDIF NEXT ob:SetNoHoles() ob:SetFocus() ENDIF Return .T. }
bRec := {|ob,um| Local oc, fn IF Empty(um) // before END TBROWSE ob:lYesNo := .T. ELSE // after END TBROWSE fn := GetFontHandle("Bold") FOR EACH oc IN ob:aColumns IF oc:cName == "SELECTOR" ; LOOP ENDIF oc:hFontHead := fn NEXT ob:SetNoHoles() ob:GoRight() DO EVENTS ob:SetFocus() ENDIF Return .T. }
Да, этот вариант понравился больше. Тогда можно и не изменять пример - изменения для логических полей подтягиваются автоматически Благодарю за предложение
SergKis
постоянный участник
Пост N: 4037
Зарегистрирован: 17.02.12
Отправлено: 23.01.22 22:42. Заголовок: gfilatov2002 пишет т..
ENDIF ... В примере так можно делать bRec := {|ob,um| Local oc, fn IF Empty(um) // before END TBROWSE ob:lYesNo := .T. ob:aYesNo[1] := "Вкл." ob:aYesNo[2] := "Выкл." ELSE // after END TBROWSE fn := GetFontHandle("Bold") FOR EACH oc IN ob:aColumns IF oc:cName == "SELECTOR" ; LOOP ENDIF oc:hFontHead := fn NEXT ob:SetNoHoles() ob:GoRight() DO EVENTS ob:SetFocus() ENDIF Return .T. } ...
Благодарю за подсказку Убрал новую переменную :aYesNo и использовал вместо нее уже готовый массив :aMsg. Введение новой переменной :lYesNo посчитал излишним также, отображение элементов вышеназванного массива для логических полей можно всегда изменить, переопределив 1-е и 2-е значение этого массива.
SergKis
постоянный участник
Пост N: 4038
Зарегистрирован: 17.02.12
Отправлено: 24.01.22 11:42. Заголовок: gfilatov2002 пишет В..
gfilatov2002 пишет
цитата:
Введение новой переменной :lYesNo посчитал излишним также, отображение элементов вышеназванного массива для логических полей можно всегда изменить, переопределив 1-е и 2-е значение этого массива.
Не очень понял. ::aMsg[1], ::aMsg[2] к отображению в ::DrawSelect() и :DrawLine() не имеет отношения, там cValToChar(uData), т.е. F\T в таблице видим. ::aMsg[1], ::aMsg[2] возникают для ::Edit(...) с cType == "L" .AND. lLogicDrop в TComboBox(). Соединить на одинаковый текст для вывода в таблице и TComboBox() на карточке надо, наверное, подключив :aMsg вместо :aYesNo. :lYesNo нужна, в таком случае, только для сохранения старого варианта.
Function Main() LOCAL cFont := "Arial" LOCAL nSize := 12 LOCAL bSetUp, lNoMain, nW, nH, oDlu, bSet, bRec
SET CODEPAGE TO RUSSIAN SET LANGUAGE TO RUSSIAN
RddSetDefault("DBFCDX")
//SET OOP ON
SET EPOCH TO 2000 SET DATE TO GERMAN SET CENTURY ON SET AUTOPEN OFF SET DELETED OFF
SET NAVIGATION EXTENDED SET DEFAULT ICON TO "HMG_ICO" // фонт по default cFont := "DejaVu Sans Mono" nSize := 18 SET FONT TO cFont, nSize
DEFINE FONT Normal FONTNAME cFont SIZE nSize DEFINE FONT Bold FONTNAME cFont SIZE nSize BOLD
IF ( lNoMain := Empty( _HMG_MainHandle ) ) SET WINDOW MAIN OFF ENDIF
bSet := {|ob,um| Local oc, fn IF Empty(um) // before END TBROWSE ELSE // after END TBROWSE fn := GetFontHandle("Bold") FOR EACH oc IN ob:aColumns IF oc:cName == "SELECTOR" ; LOOP ENDIF oc:hFontHead := fn IF oc:cName == "ORDKEYNO" oc:hFont := fn oc:hFontFoot := fn ENDIF NEXT ob:SetNoHoles() ob:SetFocus() ENDIF Return .T. }
bRec := {|ob,um| Local oc, fn IF Empty(um) // before END TBROWSE ob:aMsg[1] := "Вкл." ob:aMsg[2] := "Выкл." ob:InsColNumber(60, 1, "ORDKEYNO") ob:lFooting := ob:lDrawFooters := .T. ob:nHeightFoot := ob:nHeightCell ELSE // after END TBROWSE fn := GetFontHandle("Bold") FOR EACH oc IN ob:aColumns IF oc:cName == "SELECTOR" ; LOOP ELSEIF oc:cName == "ORDKEYNO" oc:hFont := fn oc:hFontFoot := fn oc:nAlign := DT_CENTER ENDIF oc:hFontHead := fn NEXT ob:nFreeze := ob:nColumn("ORDKEYNO") ob:SetNoHoles() ob:GoRight() DO EVENTS ob:SetFocus() ENDIF Return .T. }
//bSet := {|| .T. } //bRec := {|| .F. } // или задавать как bSet с параметрами
Выложил январскую ANSI сборку 22.01 с учетом всех последних изменений по адресу
* Updated: '2 TBrowse Demo' sample. Contributed by Sergej Kiselev (see demo2.prg in folder \samples\Advanced\Tsb_2tsb)
А так и должно быть когда ставим курсор на какую то строку то все значения в ней по всем полям показаны белым по белому ?
SergKis
постоянный участник
Пост N: 4040
Зарегистрирован: 17.02.12
Отправлено: 25.01.22 16:06. Заголовок: Dima пишет А так и д..
Dima пишет
цитата:
А так и должно быть когда ставим курсор на какую то строку то все значения в ней по всем полям показаны белым по белому ?
Положил на ftp картинку+prg+exe demo2.prg смотри все ok!, собрал только что. Добавил в Title версию hmg
Dima
администратор
Пост N: 7555
Зарегистрирован: 17.05.05
Отправлено: 25.01.22 16:35. Заголовок: SergKis я тебе тоже..
SergKis я тебе тоже сложил картинку уже из собранного тобой модуля , ни чего не изменилось
SergKis
постоянный участник
Пост N: 4041
Зарегистрирован: 17.02.12
Отправлено: 25.01.22 17:46. Заголовок: Dima Глянь еще вари..
Dima Глянь еще вариант положил. Сделал выделенное цветом, вместо GetSysColor( COLOR_WINDOWTEXT )
oTsb1:aColor := { ; { CLR_FOCUSB, {|c,n,b| c := n, iif( b:nCell == n, -CLR_HRED, -RGB( 128, 225, 225 ) ) } }, ; { CLR_SELEF , CLR_BLACK }, ; { CLR_SELEB , {|c,n,b| c := n, iif( b:nCell == n, -CLR_BLUE, -RGB( 128, 225, 225 ) ) } } ; }
Dima
администратор
Пост N: 7557
Зарегистрирован: 17.05.05
Отправлено: 25.01.22 17:54. Заголовок: SergKis Тоже самое ..
SergKis Тоже самое и сразу после старта , картинку сложил на фтп Ладно , забей , мне сейчас особо не когда этим заниматься , просто глянул что нового в релизе и вот попал на такое и сразу отписал.
PS У меня windows 7 может с этим связано.....
SergKis
постоянный участник
Пост N: 4042
Зарегистрирован: 17.02.12
Отправлено: 25.01.22 18:05. Заголовок: Dima Извини, но про..
Dima Извини, но пробни еще вариант, положил. Сделал
gfilatov2002 Супер , только это не решило "проблему" , все по прежнему.
gfilatov2002
moderator
Пост N: 2005
Зарегистрирован: 11.02.10
Отправлено: 26.01.22 12:15. Заголовок: Dima пишет: это не ..
Dima пишет:
цитата:
это не решило "проблему"
Понятно Благодарю за сообщение
gfilatov2002
moderator
Пост N: 2006
Зарегистрирован: 11.02.10
Отправлено: 26.01.22 15:30. Заголовок: Снова обновил устано..
Снова обновил установщик сборки 22.01 для решения "проблемы" с цветом выделенного поля в функции _TBrowse(). У себя такой беды не наблюдаю (смотрел версии Win7, Win10).
Попробовал. Просьба, при создании библиотеки SAMPLES\Advanced\Tsb_Viewer\Lib - саму библиотеку TsbViewer.lib копировать автоматом в папку \MiniGUI\Lib Чтобы потом можно было сразу обращаться к этой библиотеке.
oTsb1:aColor := { ; { CLR_FOCUSF, CLR_BLACK }, ; { CLR_FOCUSB, {|c,n,b| c := n, iif( b:nCell == n, -CLR_HRED, -RGB( 128, 225, 225 ) ) } }, ; { CLR_SELEF , CLR_BLACK }, ; { CLR_SELEB , {|c,n,b| c := n, iif( b:nCell == n, -CLR_BLUE, -RGB( 128, 225, 225 ) ) } } ; }
Не работает
SergKis
постоянный участник
Пост N: 4045
Зарегистрирован: 17.02.12
Отправлено: 01.02.22 12:48. Заголовок: Dima Будет время, г..
Dima Будет время, глянь на ftp пример, сделал с трассировкой в _msglog.txt и кинь его обратно (свой с 7-ки), пожалуйста
Dima
администратор
Пост N: 7589
Зарегистрирован: 17.05.05
Отправлено: 01.02.22 12:56. Заголовок: Пример я не пересоби..
Пример я не пересобирал и запустил как есть и все кажет нормально в то время смотрю что в сырце закоментированы строки //oBrw2:SetColor( { CLR_SELEF }, { CLR_BLACK } ) то есть как ты собирал EXE я не знаю с коментом этих строк или нет _msglog.txt закинул
SergKis
постоянный участник
Пост N: 4046
Зарегистрирован: 17.02.12
Отправлено: 01.02.22 13:12. Заголовок: Dima пишет Пример я ..
Dima пишет
цитата:
Пример я не пересобирал и запустил как есть и все кажет нормально в то время смотрю что в сырце закоментированы строки //oBrw2:SetColor( { CLR_SELEF }, { CLR_BLACK } )
Отправлено: 01.02.22 13:22. Заголовок: я сырцы не трогал , ..
я сырцы не трогал , ни примера ни самих сырцов MG Григорий выложил обнову MG и я его накатил на то что есть , так всегда делаю
SergKis
постоянный участник
Пост N: 4048
Зарегистрирован: 17.02.12
Отправлено: 01.02.22 13:33. Заголовок: Dima пишет я сырцы н..
Dima пишет
цитата:
я сырцы не трогал
тут еще одна интересная штука ? procname(), GetSysColor( COLOR_WINDOWTEXT ), CLR_BLACK дает в лог MAIN 0 0 а в массив цветов попало уже др. значение (выше цветом выделено) ? "Brw_1", oBrw1:aColors, hb_valtoexp(oBrw1:aColors) не понятка, т.к. в h_tbrowse.prg из aColors => aTmpColor простой перенос 20 элементов
цветной кусок работает PS Я TsBrowse.lib пересобирал, но исп. только _logfile() для просмотра как данные из входного aColors => в aTmpColor[20] элементов переходят, потом убрал.
SergKis
постоянный участник
Пост N: 4049
Зарегистрирован: 17.02.12
Отправлено: 01.02.22 13:50. Заголовок: Dima Положил на ftp..
Dima Положил на ftp свою TsBrowse.lib, попробуй с ней собрать пример
Положил на ftp свою TsBrowse.lib, попробуй с ней собрать пример
Все работает штатно и правильно !
SergKis
постоянный участник
Пост N: 4050
Зарегистрирован: 17.02.12
Отправлено: 01.02.22 14:23. Заголовок: Dima пишет Все работ..
Dima пишет
цитата:
Все работает штатно и правильно !
Спасибо Осталось тебе у себя пересобрать либу, запустив TsBrowse\MakeLib.bat и проверить сборку на примере
Dima
администратор
Пост N: 7595
Зарегистрирован: 17.05.05
Отправлено: 01.02.22 14:24. Заголовок: Пересобрал , снова л..
Пересобрал , снова лажа.......
Dima
администратор
Пост N: 7596
Зарегистрирован: 17.05.05
Отправлено: 01.02.22 14:26. Заголовок: видать Григорий что ..
видать Григорий что то не досмотрел и твои сырцы не совпадают с его
SergKis
постоянный участник
Пост N: 4051
Зарегистрирован: 17.02.12
Отправлено: 01.02.22 14:32. Заголовок: Dima Так я не менял..
Dima Так я не менял сырцы, как вчера развернул, потыкал _logfile(), убрал и все. Положил h_tbrowse.prg, попробуй у себя с ним собрать.
Dima
администратор
Пост N: 7597
Зарегистрирован: 17.05.05
Отправлено: 01.02.22 14:33. Заголовок: там и размеры разные..
там и размеры разные по ходу счас сделаю
Dima
администратор
Пост N: 7598
Зарегистрирован: 17.05.05
Отправлено: 01.02.22 14:36. Заголовок: чёт меня этот цирк у..
чёт меня этот цирк уже утомил.... пересобрал с твоим h_tbrowse.prg , собрал пример , работает НЕ правильно беру твой tsbrowse.lib и собираю с ним , все ОТЛИЧНО
SergKis
постоянный участник
Пост N: 4052
Зарегистрирован: 17.02.12
Отправлено: 01.02.22 14:41. Заголовок: Dima пишет чёт меня ..
Dima пишет
цитата:
чёт меня этот цирк уже утомил....
Извини , сам не пойму, в чем дело (у меня win10). Подождем, может само пройдет
Отправлено: 01.02.22 16:48. Заголовок: Dima Нашел, где ..
Dima Нашел, где "собака порылась" 26.01 с утра сделал правку, отвлекли и я забыл пометить ее (пометки смотрю - их нет, думаю и правок нет). Тут строку вставил
Отправлено: 10.02.22 17:36. Заголовок: Всем кому это интересно :)
Завершена подготовка 2-го обновления сборки 22.01, которое планируется опубликовать на следующей неделе.
Что нового: - исправлена ошибка: при использовании команды SET WINDOW MAIN OFF не обрабатывались события окон ON SIZE и ON MAXIMIZE; - добавлены команды для отправки почты с вложениями и с поддержкой SSL протокола, также можно получать уведомление о прочтении письма; - добавлена возможность получить номер строки, нажатой при выполнении события ON CHECKBOXCLICKED в гриде со стилем CHECKBOXES; - добавлены два новых примера.
Если у вас есть дополнения для этого обновления, то я с удовольствием их добавлю в библиотеку
Благодарю за ваша внимание к данному проекту
Andrey
постоянный участник
Пост N: 7219
Зарегистрирован: 12.09.06
Отправлено: 11.02.22 07:49. Заголовок: Просьба, при создани..
Просьба, при создании библиотеки SAMPLES\Advanced\Tsb_Viewer\Lib - саму библиотеку TsbViewer.lib копировать автоматом в папку \MiniGUI\Lib Чтобы потом можно было сразу обращаться к этой библиотеке.
может сначала выясним будут ли её использовать ? Поясню Одно дело как обучающий пример, если понравилось, сделал библиотеку сам и пользуй. Другое , это примеры пихать в основу библиотек пакета. Встроенный sbrowse() более чем достаточно чтоб глянуть что попало в выборку. Для работы с базами полно внешних утилит, которые в добавок умеют несравнимо больше и удобнее.
Отправлено: 11.02.22 18:24. Заголовок: Haz пишет: Другое ,..
Haz пишет:
цитата:
Другое , это примеры пихать в основу библиотек пакета.
Это просто отдельная библиотека на базе ТСБ и больше ничего. Просто каждый раз ручками переписывать TsbViewer.lib в общедоступный каталог для сборки - дело утомительно. Я прошу просто подправить батники и всё, для удобства кто захочет пользоваться этой библиотекой.
Внешние утилиты использовать просто утомительно, собрать свою прогу, запустить, получить dbf, завершить прогу, перейти в папку с созданной базой, запустить внешнюю прогу с нужной базой - слишком много лишних телодвижений. А так просто одна команда в исходнике и всё !!!
Пользоваться или нет этой библиотекой это дело личное. Я старался сделать TsbViewer более удобным для работы с базой, у встроенного sbrowse() нет таких функций.
Отправлено: 11.02.22 18:31. Заголовок: gfilatov2002 В прим..
gfilatov2002 В примере допустил неточность, изменил :HeightHead после END TBROWSE - это может приводить к дырке внизу Вот исправленный текст Скрытый текст
Function Main() LOCAL cFont := "Arial" LOCAL nSize := 12 LOCAL cForm := "wMain" LOCAL cBrw1 := "Brw_1" LOCAL cIni := hb_FNameExtSet( hb_ProgName(), ".ini" ) LOCAL oIni := TIniData():New(cIni, .T.):Read() LOCAL oCom := oIni:COM LOCAL oBrw1, nY, nX, nH, nW, oTsb1, cLog
SET CODEPAGE TO RUSSIAN SET LANGUAGE TO RUSSIAN
RddSetDefault("DBFCDX")
SET OOP ON
SET EPOCH TO 2000 SET DATE TO GERMAN SET CENTURY ON SET AUTOPEN OFF SET DELETED OFF
SET NAVIGATION EXTENDED SET DEFAULT ICON TO "1MAIN_ICO"
SET FONT TO cFont, nSize // фонт по default для oTsb1, oBrw1 DEFINE FONT Normal FONTNAME cFont SIZE nSize DEFINE FONT Bold FONTNAME cFont SIZE nSize BOLD DEFINE FONT Italic FONTNAME cFont SIZE nSize BOLD ITALIC
USE ( "CUSTOMER" ) ALIAS CUST1 NEW SHARED
DEFINE WINDOW &cForm TITLE "Demo ini => TBrowse" MAIN NOSIZE TOPMOST ; ON INIT ( This.Topmost := .F. ) ; ON RELEASE ( dbCloseAll() ) This.Maximize
Просто каждый раз ручками переписывать TsbViewer.lib в общедоступный каталог для сборки - дело утомительно
Ну так один раз положил в папку библиотек минигуи , сам, ручками и ничего прописывать больше не надо. Зачем всем то это счастье ? Более того , при обновлении минигуи поверх, свои библиотеки там остаются.
Haz
администратор
Пост N: 1834
Зарегистрирован: 20.02.11
Отправлено: 11.02.22 19:42. Заголовок: Andrey пишет: у вс..
Andrey пишет:
цитата:
у встроенного sbrowse() нет таких функций.
они там не нужны. Задача sbrowse() визуально оценить выборку и может быть чуть чуть подправить. Как отдельный пример, да хорошо, но как пример. Внешние утилиты все же не заменит. Нет sql нет удалённого подключения, нет изменения структур на лету, нет групповых операций . Да и незачем свой проект нагружать лишним кодом ради того чтобы пару раз посмотреть. Я уже не говорю про дыру безопасности в проекте
Ps. Почти у всех есть свои библиотеки, это не повод под них батник править.
[Brw_1_Text] CustNo = Иденти\фикатор Company = Наименование \ клиента Addr1 = Адрес клиента Addr2 = Адрес \ ( продолжение ) City = Город State = Область Country = Страна
Function Main() LOCAL cFont := "Arial" LOCAL nSize := 12 LOCAL cForm := "wMain" LOCAL cBrw1 := "Brw_1" LOCAL cIni := hb_FNameExtSet( hb_ProgName(), ".ini" ) LOCAL oIni := TIniData():New(cIni, .T.):Read() LOCAL oCom := oIni:COM LOCAL oBrw1, nY, nX, nH, nW, oTsb1, cLog, nTmp
SET CODEPAGE TO RUSSIAN SET LANGUAGE TO RUSSIAN
RddSetDefault("DBFCDX")
SET OOP ON
SET EPOCH TO 2000 SET DATE TO GERMAN SET CENTURY ON SET AUTOPEN OFF SET DELETED OFF
SET NAVIGATION EXTENDED SET DEFAULT ICON TO "1MAIN_ICO"
SET FONT TO cFont, nSize // фонт по default для oTsb1, oBrw1 DEFINE FONT Normal FONTNAME cFont SIZE nSize DEFINE FONT Bold FONTNAME cFont SIZE nSize BOLD DEFINE FONT Italic FONTNAME cFont SIZE nSize - 2 ITALIC
USE ( "CUSTOMER" ) ALIAS CUST1 NEW SHARED
DEFINE WINDOW &cForm TITLE "Demo ini => TBrowse" MAIN NOSIZE TOPMOST ; ON INIT ( This.Topmost := .F. ) ; ON RELEASE ( dbCloseAll() ) This.Maximize /* nY := nX := 0 nW := This.ClientWidth nH := This.ClientHeight */ oTsb1 := oIni:&(cBrw1) // секция [Brw_1] //? oTsb1:GetAll() ; ?v oTsb1:GetAll() ; ? //oTsb1:aText := oIni:&(cBrw1+"_Text"):GetAll() oTsb1:oText := oIni:&(cBrw1+"_Text")
oTsb1:bBody := {|ob,op| Local oCol, aTxt, nTxt, lEditNo, nTmp, aTmp lEditNo := HB_ISARRAY(op:aEditNo) .and. LenU(op:aEditNo) > 0 FOR EACH oCol IN ob:aColumns oCol:hFont := GetFontHandle( op:aFont[1] ) IF oCol:cFieldTyp == "C" oCol:cPicture := Nil oCol:nWidth := oCol:ToWidth( iif( oCol:nFieldLen > 50, 50, oCol:nFieldLen ), 0.82 ) ELSEIF oCol:cFieldTyp == "M" oCol:cPicture := Nil oCol:nWidth := oCol:ToWidth(40) ELSEIF oCol:cFieldTyp == "D" oCol:cPicture := Nil oCol:nWidth := oCol:ToWidth(10) ELSEIF oCol:cFieldTyp == "T" oCol:cPicture := Nil oCol:nWidth := oCol:ToWidth(24) ENDIF IF lEditNo .and. AScan(op:aEditNo, oCol:cName) > 0 oCol:lEdit := .F. ENDIF NEXT nTmp := 1 nTxt := 0 FOR EACH aTxt IN op:oText:GetAll() // op:aText IF ob:nColumn(aTxt[1], .T.) == 0 ; LOOP ENDIF oCol := ob:GetColumn(aTxt[1]) IF "\" $ aTxt[2] nTxt++ aTmp := hb_ATokens(aTxt[2], "\") nTmp := Max( nTmp, LenU(aTmp)) oCol:cHeading := StrTran(aTxt[2], "\", CRLF) ELSE oCol:cHeading := aTxt[2] ENDIF NEXT IF nTxt > 0 ob:nHeightHead := GetFontHeight( op:aFont[2] ) * nTmp ENDIF IF HB_ISARRAY(op:aMsgPost) .and. LenU(op:aMsgPost) > 0 FOR EACH nTxt IN op:aMsgPost ob:UserKeys(nTxt, {|ob,nk| _wPost(nk, ob:cParentWnd, ob) }) NEXT ENDIF Return Nil }
ON KEY ESCAPE ACTION iif( oBrw1:IsEdit, oBrw1:SetFocus(), ThisWindow.Release ) ON KEY F1 ACTION NIL
IF HB_ISARRAY(oTsb1:aMsgPost) .and. LenU(oTsb1:aMsgPost) > 0 FOR EACH nTmp IN oTsb1:aMsgPost (This.Object):Event( nTmp, {|ow,ky,ob| MsgBox("Press: "+cValToChar(ky)+"-"+ob:cControlName, ow:Name), ob:SetFocus() } ) NEXT ENDIF
END WINDOW
//CENTER WINDOW wMain ACTIVATE WINDOW wMain
RETURN NIL
SergKis
постоянный участник
Пост N: 4066
Зарегистрирован: 17.02.12
Отправлено: 12.02.22 17:46. Заголовок: PS. Еще вариант этог..
PS. Еще вариант этого же решения с событиями, кому интересно demo.ini - Скрытый текст
[Brw_1_Text] CustNo = Иденти\фикатор Company = Наименование \ клиента Addr1 = Адрес клиента Addr2 = Адрес \ ( продолжение ) City = Город State = Область Country = Страна
Function Main() LOCAL cFont := "Arial" LOCAL nSize := 12 LOCAL cForm := "wMain" LOCAL cBrw1 := "Brw_1" LOCAL cIni := hb_FNameExtSet( hb_ProgName(), ".ini" ) LOCAL oIni := TIniData():New(cIni, .T.):Read() LOCAL oCom := oIni:COM LOCAL oBrw1, nY, nX, nH, nW, oTsb1, cLog, nTmp, aTmp
SET CODEPAGE TO RUSSIAN SET LANGUAGE TO RUSSIAN
RddSetDefault("DBFCDX")
SET OOP ON
SET EPOCH TO 2000 SET DATE TO GERMAN SET CENTURY ON SET AUTOPEN OFF SET DELETED OFF
SET NAVIGATION EXTENDED SET DEFAULT ICON TO "1MAIN_ICO"
SET FONT TO cFont, nSize // фонт по default для oTsb1, oBrw1 DEFINE FONT Normal FONTNAME cFont SIZE nSize DEFINE FONT Bold FONTNAME cFont SIZE nSize BOLD DEFINE FONT Italic FONTNAME cFont SIZE nSize - 2 ITALIC
ON KEY ESCAPE ACTION iif( oBrw1:IsEdit, oBrw1:SetFocus(), ThisWindow.Release ) ON KEY F1 ACTION NIL /* IF HB_ISARRAY(oTsb1:aMsgPost) .and. LenU(oTsb1:aMsgPost) > 0 FOR EACH nTmp IN oTsb1:aMsgPost (This.Object):Event( nTmp, {|ow,ky,ob| MsgBox("Press: "+cValToChar(ky)+"-"+ob:cControlName, ow:Name), ob:SetFocus() } ) NEXT ENDIF */ FOR EACH aTmp IN oTsb1:aUserKeys (This.Object):Event( aTmp[1], {|ow,ky,ob| MsgBox("Press: "+cValToChar(ky)+"-"+ob:cControlName, ow:Name), ob:SetFocus() } ) NEXT
модифицировал пример, добавив в ini события для клавиш
Благодарю за помощь
SergKis пишет:
цитата:
вариант этого же решения с событиями, кому интересно
Надеюсь, что эти примеры будут кому-нибудь полезны
Andrey
постоянный участник
Пост N: 7222
Зарегистрирован: 12.09.06
Отправлено: 12.02.22 19:28. Заголовок: Haz пишет: Почти у ..
Haz пишет:
цитата:
Почти у всех есть свои библиотеки, это не повод под них батник править.
Может быть и не повод, но большее кол-во инструментов для МиниГуи будет полезней, особенно для новичков. Не смотря на ограниченность TsbViewer, я делал его под свою часто используемую работу с базой. Такого не было в МиниГуи, вот и сделал в качестве инструмента для баз. Больше никто не предлагал подобный функционал для баз, только внешние утилиты. Если кто-то делал инструмент работы с базой - было бы полезно выложить его в Минигуи, для всех. А то пока наработаешь свои библиотеки и примеры для МиниГуи - года 3-4 пройдёт...
gfilatov2002 пишет:
цитата:
Надеюсь, что эти примеры будут кому-нибудь полезны
Ещё как нужны. Работа с событиями очень нужная вещь в МиниГуи, особенно для больших проектов. Прога перестаёт падать, если использовать события, а не функции.
gfilatov2002
moderator
Пост N: 2013
Зарегистрирован: 11.02.10
Отправлено: 12.02.22 19:44. Заголовок: Andrey пишет: при с..
Andrey пишет:
цитата:
при создании библиотеки SAMPLES\Advanced\Tsb_Viewer\Lib библиотеку TsbViewer.lib копировать автоматом в папку \MiniGUI\Lib
Именно так и сделал
SergKis
постоянный участник
Пост N: 4067
Зарегистрирован: 17.02.12
Отправлено: 12.02.22 20:29. Заголовок: gfilatov2002 пишет Н..
gfilatov2002 пишет
цитата:
Надеюсь, что эти примеры будут кому-нибудь полезны
Если подключить работу с hrb, как в LetoDbf или hbedit, то обработчики событий можно делать в hrb. Будет возможность, если кому то надо, сделать утилиту похожую на DBCH как у А. Кресина.
PS. Не увидел bat для сборки letoudf.hrb из LetoDbf\SERVER\SOURCE\letoudf.prg, что бы подменить на свой вариант letoudf.prg PS2. Есть более поздняя правка LetoDbf (2021-09-21 19:49 UTC+0100 Aleksander Czajczynski (hb fki.pl)), чем по ссылке родной, по адресу https://github.com/alcz/LetoDBf Может этот вариант собрать ? Предыдущий вариант так же был от Aleksander Czajczynski
тогда такой код можно использовать FOR i := 1 TO k w := aStatus[ i ] IF HB_ISNUMERIC( w ) IF w < 1; w := Int( This.ClientWidth * w ) ENDIF j := "_wPost("+hb_ntos(nPost)+",,"+hb_ntos(i)+")" IF empty( w ) ; STATUSITEM '' ACTION hb_MacroBlock( j ) ELSE ; STATUSITEM '' WIDTH w ACTION hb_MacroBlock( j ) ENDIF ELSEIF HB_ISCHAR( w ) ENDIF NEXT
В _SetFormAction() и _SetControlAction() нет варианта для StatusItem ставить ACTION
Выложил срочное 7-е обновление для исправления ошибки, внесенной в сборке 21.11 Также обновил библиотеку PageScript до новой 4-й версии с полноценной поддержкой PDF (создание, просмотр, печать и экспорт текста).
Haz
администратор
Пост N: 1838
Зарегистрирован: 20.02.11
Отправлено: 18.03.22 15:44. Заголовок: Абсолютно тоже на по..
Абсолютно тоже на последнем 7-м обновлении, вернулся на 22.01 (Update 2)
krutoff пишет:
цитата:
Скачал последний UPDATE. При линковке выдает ошибку. Может кто даст ссылку на пред.версию, а то у Григория на сайте только текущая. [1]:iLink32.Exe -Gn -aa -Tpe -s @zpW.bcl Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland Error: Unresolved external '_HB_FUN_HPDF_NEW' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_SETCOMPRESSIONMODE' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_USEUTFENCODINGS' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_SETCURRENTENCODER' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_ADDPAGE' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_PAGE_SETSIZE' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_PAGE_GETHEIGHT' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_PAGE_GETWIDTH' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_SAVETOFILE' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_RESETERROR' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_FREE' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_LOADPNGIMAGEFROMFILE' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_LOADJPEGIMAGEFROMFILE' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_PAGE_DRAWIMAGE' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_SETINFOATTR' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_SETINFODATEATTR' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf Error: Unresolved external '_HB_FUN_HPDF_GETERROR' referenced from D:\MINIGUI\LIB\MINIGUI.LIB|h_savepdf
gfilatov2002
moderator
Пост N: 2027
Зарегистрирован: 11.02.10
Отправлено: 20.03.22 11:21. Заголовок: Haz пишет: тоже на ..
Haz пишет:
цитата:
тоже на последнем 7-м обновлении
Игорь,
Это не удивительно, поскольку в библиотеку была добавлена возможность сохранения печатных отчетов в формате PDF. Решение для этой проблемы - тривиальное: надо добавить библиотеки поддержки HaruPDF для линковки в ваш сценарий сборки.
* The Monthcal control may manage a 'FirstDayOfWeek' property. It was a postponed modification.
* The GRID control supports the optional ON INPLACEEDITEVENT event. The following properties are available for OnInplaceEditEvent procedure: - This.IsInplaceEditEventInit: return .T. or .F. - This.IsInplaceEditEventRun: return .T. or .F. - This.IsInplaceEditEventFinish: return .T. or .F. - This.InplaceEditGridName: for example, 'Grid_1' - This.InplaceEditParentName: for example, 'Form_1' - This.InplaceEditControlHandle: Handle of InplaceEdit ColumnControl, eg. handle of TEXTBOX, DATEPICKER, COMBOBOX, SPINNER, CHECKBOX. - This.InplaceEditControlIndex: return internal controls index.
* Updated Harbour Compiler 3.2.0dev: - hbrdd and hbrtl were compiled with default switch -gc3 instead -gc0 for acceleration of the Harbour core.
* Updated the TSBrowse and SQLite3 libraries.
* Added the new interesting samples and updated some examples.
Благодарю за материальную помощь Сашу Савова
Желаю всем только мира
gfilatov2002
moderator
Пост N: 2031
Зарегистрирован: 11.02.10
Отправлено: 07.04.22 08:55. Заголовок: Всем кому это интересно
Выложил 1-й апдейт сборки 22.03 с учетом всех последних изменений
Поздравляю всех верующих с Благовещением Пресвятой Богородицы
цитата:
Пусть с приходом благой вести прибудут счастье в дом, успех и здоровье. Пусть весенняя бодрость духа нескончаемо радует и трепетно волнует сердце. Желаю, чтобы понимание и любовь царили во взаимоотношениях с близкими людьми. Пусть самые лучшие помыслы наполняют дом, а беды, горести и разочарования не тревожат и не беспокоят. Пусть каждая минута жизни будет наполнена уверенностью, красотой и любовью.
gfilatov2002
moderator
Пост N: 2033
Зарегистрирован: 11.02.10
Отправлено: 14.04.22 08:58. Заголовок: Выложил 2-й апдейт с..
Выложил 2-й апдейт сборки 22.03 с учетом всех последних изменений
Отправлено: 15.04.22 07:58. Заголовок: Выложил 2-й апдейт с..
gfilatov2002 пишет:
цитата:
Выложил 2-й апдейт сборки 22.03 с учетом всех последних изменений
Мужики .... с 22 сборки в TBROWSE с некоторыми цифрами во такая хрень началась (фото ниже) ... это только у меня и как это исправить ?
SergKis
постоянный участник
Пост N: 4118
Зарегистрирован: 17.02.12
Отправлено: 15.04.22 11:59. Заголовок: Alex_Cher пишет с 22..
Alex_Cher пишет
цитата:
с 22 сборки в TBROWSE с некоторыми цифрами во такая хрень началась
Преобразования все в строку происходят в ф-ии cValToChar(...), для цифр это hb_ntos(...). Это цифры, наверно, не из dbf. Поставьте в колонку формат вывода oCol:cPicture := "99999999.99"
Alex_Cher пишет цитата: с 22 сборки в TBROWSE с некоторыми цифрами во такая хрень началась
Преобразования все в строку происходят в ф-ии cValToChar(...), для цифр это hb_ntos(...). Это цифры, наверно, не из dbf. Поставьте в колонку формат вывода oCol:cPicture := "99999999.99"
Уважаемый SergKis это цифры чисто из DBF ( пример C:\MiniGUI\SAMPLES\Advanced\Tsb_2tables те же проблемы), вопрос - почему это началось с сборки 22 ( в 21 все нормально) ? да поставить формат можно, но зачем этот линий гемор ...? и почему все молчат, мужики проверьте свои программы на TBROWSE .... !
Это был экспериментальный код в функции cValToChar(). Уже поправил для следующего обновления библиотеки, которое планируется выпустить на этой неделе
Alex_Cher пишет:
цитата:
почему все молчат
Видимо, не все используют TBROWSE либо, как вариант, еще не обновились до версии 22.03
SergKis
постоянный участник
Пост N: 4119
Зарегистрирован: 17.02.12
Отправлено: 18.04.22 11:26. Заголовок: Alex_Cher пишет да п..
Alex_Cher пишет
цитата:
да поставить формат можно, но зачем этот линий гемор ...?
Поставить Picture колонке, на мой взгляд, это хороший стиль написания кода, т.к. уменьшается вероятность таких ситуевин, как произошло у вас, с течением времени, в котором живет программа. Не зависимо (почти) от смены версий, т.к. проверить все режимы работы программы нет возможности (надо иметь базу с вариантами проверок всех алгоритмов, что мало реально). Версию unicode 22.03 я применил уже (у меня все на tsbrowse) и не заметил изменений, т.к. стоят Picture для цифровых полей (у них ставлю часто отрезание правых 0 в дробной части) и timestamp
gfilatov2002 пишет
цитата:
Видимо, не все используют TBROWSE либо, как вариант, еще не обновились до версии 22.03
Обновился на unicode версии без update, как в однобайтовой hmg. Т.к. модуль не большой - 5 штук тсб, у меня полет нормальный
* Fixed: The ON CANCEL event in the ComboBox control was executed only if the last pressed key was the <Escape> (introduced in the build 16.08).
* Fixed: Problem with SPINNER's focus at a window activation when this control was defined in the first position.
* You can get HORIZONTAL property of the RadioGroup control at runtime.
* You can get HORIZONTAL and WRAP properties of the Spinner control at runtime.
* The RadioGroup control now supports 'On GotFocus' and 'On LostFocus' clauses similar to other controls. Since RadioGroup is actually a group of individual RadioButtons, each individual RadioButton has its own events. Added the new command SET PROCEED EACH RADIOBUTTON EVENT <ON | OFF>.
* Updated the HMG IDE of Roberto Lopez, TSBrowse and SQLite3 libraries.
* Added the new samples and updated some old examples.
По видимому, до финального релиза этот список изменений кардинально не изменится.
* Enhanced: The IMAGE and LABEL controls support the optional ON RCLICK clause. This clause specifies the action at the mouse right button click. Notice that you should declare the SET CONTEXT MENU OFF command also. Contributed by Grigory Filatov <gfilatov@gmail.com> (see demo in folder \samples\Applications\MineSweeper)
Отправлено: 18.05.22 13:48. Заголовок: gfilatov2002 Я прав..
gfilatov2002 Я правильно понимаю, что COMBOBOXEX в unicode версии с utf8 строками не работает ? Пример требует перекодировки из utf8 => RU1251 (версия hmg unicode prg с bom utf8)
LOCAL aLangsR := { "Русский", "Английский", "Украинский", "Белорусский" , "Казахский" } ... FOR nI := 1 TO LenU( aLangsR ) AAdd( aLangs, hb_utf8ToStr(aLangsR[ nI ] + " (" + aLangsE[ nI ] + ")", "RU1251") ) NEXT @ 10, nFWidth - 300 COMBOBOXEX ComboEx_1 ; WIDTH 340 HEIGHT 200 ; ITEMS aLangs ; VALUE M->nPubLang ; IMAGE aFlags ; TOOLTIP 'Выбор языка / Select lang' INVISIBLE ; ON LISTCLOSE Forma_1.ComboEx_1.Hide ; ON CHANGE { || M->nPubLang := Forma_1.ComboEx_1.Value, ; Forma_1.ComboEx_1.Hide, Forma_1.Image_1.Hide ,; Forma_1.Image_1.Picture := aFlags[M->nPubLang],; Forma_1.Image_1.Col := GetClientWidth( GetFormHandle("Forma_1") ) - 30, ; MyTitleFormLang(), MyTitleSHLang() ,; Forma_1.Image_1.Show, Forma_1.Image_1.Setfocus } ..
С выделенным цветом тексты в списке COMBOBOX ok, без ф-ии - кракозяблики
COMBOBOXEX в unicode версии с utf8 строками не работает
Да, все верно. На входе COMBOBOXEX принимает строки в формате ANSI. Это сделано с учетом того, что эти строки могут быть получены из базы данных, которая м.б. для совместимости в формате ANSI.
Перекодировка этих строк в уникод происходит уже внутри COMBOBOXEX
SergKis
постоянный участник
Пост N: 4127
Зарегистрирован: 17.02.12
Отправлено: 18.05.22 14:39. Заголовок: gfilatov2002 пишет Э..
gfilatov2002 пишет
цитата:
Это сделано с учетом того, что эти строки могут быть получены из базы данных, которая м.б. для совместимости в формате ANSI.
Не понял ? Для базы мы указываем CODEPAGE конкретную и на уровне hb получаем перекодировку, т.е. SET CODEPAGE TO UNICODE ... USE ( cPath + cFileDbf ) Alias TABLE1 CODEPAGE "RU1251" VIA "DBFCDX" NEW //SHARED и работаем без всяких дополнений с utf8 данными из полей строковых aLangsR := { "Русский", "Английский", "Украинский", "Белорусский" , "Казахский" } cStr := SPACE(20)+"Папки сравнения и проект для сравнения:" + CRLF в таких вариантах тоже имеем utf8 Не логично поддерживать ANSI, по мне, для COMBOBOX... и др. контролов. Исп. язык не зависит от программы, зависит от пользователя в unicode. Получается что для COMBOBOXEX надо иметь еще таблицу имеющихся codepage к каждому элементу массива aLangsR := { "Русский", "Английский", "Украинский", "Белорусский" , "Казахский" } в чем смысл, не пойму . Тем более, что
цитата:
Перекодировка этих строк в уникод происходит уже внутри COMBOBOXEX
gfilatov2002
moderator
Пост N: 2043
Зарегистрирован: 11.02.10
Отправлено: 19.05.22 08:54. Заголовок: Всем кому это интересно...
выделенная цветом строка дает правильное значение cTooltip - кодировка utf8 hb_utf8ToStr(cTooltip, 'RU1251') - кодировка 1251 cTooltip задается в коде программы на кнопки (prg все в utf8) aObj3But[2,13] := 'Копировать файлы из папки 1 в папку 2' // подсказка aObj3But[3,13] := 'Копировать файлы из папки 2 в папку 1' // подсказка
Отправлено: 31.07.22 07:50. Заголовок: Поставил новую верси..
Поставил новую версию. Заметил фигню у себя в прогах и в примере \MiniGUI\SAMPLES\BASIC\ButtonEx_DynamicMenu\demo.exe Мышкой когда проводишь по кнопкам БЫСТРО - все кнопки затеняются и только потом затенение проходит. Как то очень некрасиво происходит. Убрать этот эффект можно ?
gfilatov2002 Поправил класс TIniData. Добавил чтение ini из строки буфера (для работы из ресурсов, ini в CUSTOM собираем). Почему то нет ф-ии получение ресурса в строку буфер (может не увидел), нашел только RCDataToFile(...) Весь текст Скрытый текст
/////////////////////////////////////////////////////////////////////////////// CLASS TIniData INHERIT THmgData ///////////////////////////////////////////////////////////////////////////////
VAR oIni VAR hKeys INIT { => } VAR hLens INIT { => } VAR cBOM AS STRING INIT hb_utf8Chr( 0xFEFF ) VAR cData AS STRING INIT "" VAR lData AS LOGICAL INIT .F. VAR cIni AS STRING INIT "" VAR lIni AS LOGICAL INIT .F. VAR lUtf AS LOGICAL INIT .F. VAR lUtf8 AS LOGICAL INIT .F. VAR cCommentChar AS STRING INIT ";" VAR cCommentBegin AS STRING INIT "" VAR cCommentEnd AS STRING INIT "" VAR lAutoMain AS LOGICAL INIT .F. VAR lMacro AS LOGICAL INIT .F. VAR lYesNo AS LOGICAL INIT .F. VAR aYesNo AS ARRAY INIT { "Yes", "No" }
.\demo_new.ini - это заменяющие\добавляющие значения ключей по секциям, т.е. если базовый ini лежит в ресурсах, то доп. ini задаем текущие (для этого клиента) новые значения
SergKis
постоянный участник
Пост N: 4163
Зарегистрирован: 17.02.12
Отправлено: 03.10.22 10:04. Заголовок: PS Используем, у себ..
PS Используем, у себя, такую ф-ю для работы с ресурсом CUSTOM (VC2019) Скрытый текст
#include "cons2.h"
// bkLoadCustom( "Name", ["xx.dll"]) -> "..." NAME CUSTOM .\....\file.xxx
int MultiByteToWideChar2( UINT CodePage, // code page DWORD dwFlags, // character-type options LPCSTR lpMultiByteStr, // address of string to map int cchMultiByte, // number of characters in string LPWSTR lpWideCharStr, // address of wide-character buffer int cchWideChar // size of buffer );
int WideCharToMultiByte2( UINT CodePage, // code page DWORD dwFlags, // performance and mapping flags LPCWSTR lpWideCharStr, // address of wide-character string int cchWideChar, // number of characters in string LPSTR lpMultiByteStr, // address of buffer for new string int cchMultiByte, // size of buffer LPCSTR lpDefaultChar, // address of default for unmappable characters LPBOOL lpUsedDefaultChar // address of flag set when default char. used );
BOOL ba_IsClassName( HWND hWnd, TCHAR *Name );
typedef unsigned char uchar;
#define HB_PARNI( n, x ) hb_parvni( n, x ) #define HB_PARNL( n, x ) hb_parvnl( n, x ) #define HB_STORNI( n, x, y ) hb_storvni( n, x, y ) #define HB_STORNL( n, x, y ) hb_storvnl( n, x, y ) #define HB_STORC( n, x, y ) hb_storvc_t( n, x, y ) #define HB_STORCT( n, x, y ) hb_storvc( n, x, y ) #define HB_STORCLEN( n, x, y, len) hb_storvclen( n, len, x, y) #define HB_STORL( n, x, y ) hb_storvl( n, x, y )
// Использовать для функций HWG_
#define HB_RETHANDLE( h ) hb_retptr( ( void * ) ( h ) ) #define HB_PARHANDLE( n ) hb_parptr( n ) #define HB_STOREHANDLE( h, n ) hb_storptr( ( void * ) ( h ), n ) #define HB_PUTHANDLE( i, h ) hb_itemPutPtr( i, ( void * ) ( h ) ) #define HB_GETHANDLE( i ) hb_itemGetPtr( i )
#define _HB_PARSTR( n, h, len ) wvt_wstrget( hb_param( n, HB_IT_ANY ), h, len ) #define _HB_PARSTRDEF( n, h, len ) wvt_wstrnull( hwg_wstrget( hb_param( n, HB_IT_ANY ), h, len ) ) #define _HB_RETSTR( str ) wvt_wstrset( hb_param( -1, HB_IT_ANY ), str ) #define _HB_RETSTRLEN( str, len ) wvt_wstrlenset( hb_param( -1, HB_IT_ANY ), str, len ) #define _HB_STORSTR( str, n ) wvt_wstrset( hb_param( n, HB_IT_BYREF ), str ) #define _HB_STORSTRLEN( str, len, n ) wvt_wstrlenset( hb_param( n, HB_IT_BYREF ), str, len ) #define _HB_ARRAYGETSTR( arr, n, h, len ) wvt_wstrget( hb_arrayGetItemPtr( arr, n ), h, len ) #define _HB_ARRAYSETSTR( arr, n, str ) wvt_wstrset( hb_arrayGetItemPtr( arr, n ), str ) #define _HB_ARRAYSETSTRLEN( arr, n, str, len ) wvt_wstrlenset( hb_arrayGetItemPtr( arr, n ), str, len ) #define _HB_ITEMCOPYSTR( itm, str, len ) wvt_wstrcopy( itm, str, len ) #define _HB_ITEMGETSTR( itm, h, len ) wvt_wstrget( itm, h, len ) #define _HB_ITEMPUTSTR( itm, str ) wvt_wstrput( itm, str ) #define _HB_ITEMPUTSTRLEN( itm, str, len ) wvt_wstrlenput( itm, str, len ) #define _HB_STRUNSHARE( h, str, len ) wvt_wstrunshare( h, str, len ) #define _hb_strfree( h ) wvt_wstrfree( h )
* New: Added the useful C-function RCDataToMem(). Syntax: RCDataToMem( <cResName>|<nResID>, [<cResType>|<nResType>], ; [<hModule>] ) => cResult Requested by Sergej Kiselev on the Russian HMG forum. Contributed by Grigory Filatov <gfilatov@gmail.com> (see demo3.prg in folder \samples\Advanced\RCDataToFile) * Enhanced: OOP class TIniData supports loading the values from memory variable instead of ini file. Suggested and contributed by Sergej Kiselev (see demo2.prg in folder \samples\Advanced\Tsb_Ini2Tbrowse) * Updated: ComboBox control message APIs were used in some C-code instead the direct calling the function SendMessage(). Contributed by Grigory Filatov <gfilatov@gmail.com> (see demo in folder \samples\Advanced\AutoFill_2) * Updated: Finished replacement of LONG_PTR with HB_PTRUINT in the kernel C-code casting. Contributed by Grigory Filatov <gfilatov@gmail.com> * Updated: MySql library source code (see in folder \Source\HbMySql): - added the support for SSL options in the class TMySQLServer; - added support for TIMESTAMP and DATETIME types in the method TMySQLQuery():GetRow(). Based upon a contribution of Viktor Szakats (borrowed from 3.4 fork). Adapted for Minigui Extended by Grigory Filatov * Updated: HbSQLite3 library: - update for using SQLITE3 version 3.39.4 (from 3.39.3). Contributed by Grigory Filatov <gfilatov@gmail.com> * Updated: 'How to add, edit, delete and browse data into an object in an MDI-child window' sample. Contributed by Grigory Filatov <gfilatov@gmail.com> (see test04.prg in folder \samples\Advanced\TDatabase)
cFile Имя файла в режиме только чтение. nMapArea номер области ( 1 - 10 ) или -1 ( F_ERROR ) nRO в каком режиме открывать файл == 0
fmp_Count( [nMapArea] ) -> nCount количество строк файла "...Chr(13)+Chr(10)"
nMapArea - номер области ( 1 - 10 ) [ nMapArea == 1 ]
учитывается что в последней строке может и не быть Chr(10) ? но текст есть Скорость на тесте : (200 файлов и 1 500 000 строк всего) время 0.2 ~ 0.3 сек
fmp_Line( [nMapArea], [nLine], [lCheckUTF8] ) -> "Line..." | "" получить строку по номеру
nMapArea - номер области ( 1 - 10 ) [ nMapArea == 1 ]
nLine - номер строки от 1 до fmp_Count( nMapArea ) эта запись становится текущей, ее можно получить fmp_RecNo( [ nMapArea ] )
если опущена то следующая за текущей если это была последняя то fmp_EOF( nMapArea ) -> .T.
lCheckUTF8 - нужно ли учитывать кодировку файла Def == .T.
/* fmp_Open( cFile, [nMp], [ nRO == 0] ) -> nMp | -1 cFile Имя файла в режиме только чтение. nMp номер области ( 1 - 10 ) или -1 ( F_ERROR ) nRO в каком режиме открывать файл */ HB_FUNC( FMP_OPEN ) { WCHAR cFile[ MAX_PATH+1 ]; int nRO=0;
hb_retnl( mf_index + 1 ); return ; } } hb_retnl(-1); } /* fmp_Count( [nMp] ) -> nCount количество строк файла "...Chr(13)+Chr(10)" учитывается что в последней строке может и не быть Chr(10) ? но текст есть Скорость на тесте : (200 файлов и 1 500 000 строк всего) время 0.2 ~ 0.3 сек */ HB_FUNC( FMP_COUNT ) { unsigned char *p; DWORD nCount=0, i=0, n=0;
_GetIndex( 1 );
if( ! (p = MF.pData) ) { hb_retnl(0); return; }
while( i++ < MF.dwSize) { if( *p++ == 10 ) { n = 0; nCount++;} /* Новая строка */ else n ++; }
hb_retnl( nCount + ((n > 0)? 1 : 0) ); }
static void __RetDeCode( unsigned char *utf, int Ln, BOOL lCheck, int y) { PHB_CODEPAGE cdp; int n=0; unsigned char *s;
if(y > 0) hb_storvclen_buffer( s, n, -1, y); else hb_retclen_buffer( s, n ); return ; } } } }
if( y > 0 ) hb_storvclen( utf, Ln, -1, y); else hb_retclen( utf, Ln ); } /* Найти запись по номеру Вернет количество символов в строке или -1 если не найдена */ static int _findNextRec( DWORD nPar,int nSkip, BOOL lCheckUTF8) /* Найти запись номер */ { unsigned char *p; DWORD n=0, nCount, nLine; DWORD i;
if( HB_ISNUM(nPar) ) /* Ищем от начала */ { p = MF.pData; if( MF.fUTF8 && lCheckUTF8 ) p += 3; /* Пропустить BOM */ nCount = 0; /* Текущий внутренний */ MF.pLine = p;
if( nCount == nLine ) { MF.pLine = (p - n - 1); /* Начало возвращаемой строки */ MF.nLine = nLine; /* Номер возвращаемой строки */ MF.nLen = n + 1; MF.fEOF = FALSE;
return (n-1); } n = 0; } /* Новая строка */ else n ++; /* Кол-во символов в стрке */ }
if( n > 0 && (nCount+1)==nLine ) {
MF.pLine = p - n; /* Начало возвращаемой строки */ MF.nLine = nLine; /* Номер возвращаемой строки */ MF.nLen = n; MF.fEOF = FALSE; return n; }
MF.fEOF = TRUE; return -1; }
/* stores a fixed length string on a variable by reference hb_storclen( const char * szText, HB_SIZE nLength, int iParam ); */
/* fmp_Line( [nMp], [nLine], [lCheckUTF8] ) -> "Line..." | "" получить строку по номеру nLine номер строки от 1 до hb_CountFileMap(cMp) lCheckUTF8 - нужно ли учитывать кодировку файла Def == .T. */
/* fmp_ATokenCSV( [nMp], nLine,[lDel=.T.],[lCheckUTF8:=.T.] ) -> {"Line..." | "", ...} получить массив токенов для файла CSV разделитель Chr(9) и проверяет начало и конец как '"' lDel == .T. ковычки удаляет ( если есть одновременно обе ) .F. ничего не удаляет lCheckUTF8 == .T. - проверять наличие utf-8 и перекодировать .F. - как есть */
HB_FUNC( FMP_ATOKENCSV ) { long n; BOOL lDel=FALSE; BOOL lCheckUTF8=TRUE;
int MultiByteToWideChar2( UINT CodePage, // code page DWORD dwFlags, // character-type options LPCSTR lpMultiByteStr, // address of string to map int cchMultiByte, // number of characters in string LPWSTR lpWideCharStr, // address of wide-character buffer int cchWideChar // size of buffer );
int WideCharToMultiByte2( UINT CodePage, // code page DWORD dwFlags, // performance and mapping flags LPCWSTR lpWideCharStr, // address of wide-character string int cchWideChar, // number of characters in string LPSTR lpMultiByteStr, // address of buffer for new string int cchMultiByte, // size of buffer LPCSTR lpDefaultChar, // address of default for unmappable characters LPBOOL lpUsedDefaultChar // address of flag set when default char. used );
BOOL ba_IsClassName( HWND hWnd, TCHAR *Name );
typedef unsigned char uchar;
#define HB_PARNI( n, x ) hb_parvni( n, x ) #define HB_PARNL( n, x ) hb_parvnl( n, x ) #define HB_STORNI( n, x, y ) hb_storvni( n, x, y ) #define HB_STORNL( n, x, y ) hb_storvnl( n, x, y ) #define HB_STORC( n, x, y ) hb_storvc_t( n, x, y ) #define HB_STORCT( n, x, y ) hb_storvc( n, x, y ) #define HB_STORCLEN( n, x, y, len) hb_storvclen( n, len, x, y) #define HB_STORL( n, x, y ) hb_storvl( n, x, y )
// Использовать для функций HWG_
#define HB_RETHANDLE( h ) hb_retptr( ( void * ) ( h ) ) #define HB_PARHANDLE( n ) hb_parptr( n ) #define HB_STOREHANDLE( h, n ) hb_storptr( ( void * ) ( h ), n ) #define HB_PUTHANDLE( i, h ) hb_itemPutPtr( i, ( void * ) ( h ) ) #define HB_GETHANDLE( i ) hb_itemGetPtr( i )
#define _HB_PARSTR( n, h, len ) wvt_wstrget( hb_param( n, HB_IT_ANY ), h, len ) #define _HB_PARSTRDEF( n, h, len ) wvt_wstrnull( hwg_wstrget( hb_param( n, HB_IT_ANY ), h, len ) ) #define _HB_RETSTR( str ) wvt_wstrset( hb_param( -1, HB_IT_ANY ), str ) #define _HB_RETSTRLEN( str, len ) wvt_wstrlenset( hb_param( -1, HB_IT_ANY ), str, len ) #define _HB_STORSTR( str, n ) wvt_wstrset( hb_param( n, HB_IT_BYREF ), str ) #define _HB_STORSTRLEN( str, len, n ) wvt_wstrlenset( hb_param( n, HB_IT_BYREF ), str, len ) #define _HB_ARRAYGETSTR( arr, n, h, len ) wvt_wstrget( hb_arrayGetItemPtr( arr, n ), h, len ) #define _HB_ARRAYSETSTR( arr, n, str ) wvt_wstrset( hb_arrayGetItemPtr( arr, n ), str ) #define _HB_ARRAYSETSTRLEN( arr, n, str, len ) wvt_wstrlenset( hb_arrayGetItemPtr( arr, n ), str, len ) #define _HB_ITEMCOPYSTR( itm, str, len ) wvt_wstrcopy( itm, str, len ) #define _HB_ITEMGETSTR( itm, h, len ) wvt_wstrget( itm, h, len ) #define _HB_ITEMPUTSTR( itm, str ) wvt_wstrput( itm, str ) #define _HB_ITEMPUTSTRLEN( itm, str, len ) wvt_wstrlenput( itm, str, len ) #define _HB_STRUNSHARE( h, str, len ) wvt_wstrunshare( h, str, len ) #define _hb_strfree( h ) wvt_wstrfree( h )
Отправлено: 16.10.22 11:11. Заголовок: Что то не совсем пон..
Что то не совсем понятен пример использования ? Там просто функция чтения файла и всё. А как вытаскивать нужные значения в тексте программы ?
SergKis
постоянный участник
Пост N: 4166
Зарегистрирован: 17.02.12
Отправлено: 16.10.22 17:22. Заголовок: Andrey пишет Что то ..
Andrey пишет
цитата:
Что то не совсем понятен пример использования ?
IF ( nMp := fmp_Open( cTxt ) ) > 0 DO WHILE ! fmp_Eof( nMp ) cTx := fmp_Line( nMp ) ... ENDDO fmp_Close( nMp ) ENDIF или IF ( nMp := fmp_Open( cTxt ) ) > 0 nK := fmp_Count( nMp ) FOR nI := 1 TO nK cTx := fmp_Line( nMp, nI ) ... NEXT fmp_Close( nMp ) ENDIF ...
цитата:
Там просто функция чтения файла и всё
Так это и есть ф-ии чтения файла, который мапируется средствами windows в память. Если у тебя есть журналы большие лог и их много за период, то можно организовать на этих ф-ях просмотр журналов или съесть их в dbf (данные зависят от структуры лога в каждом конкретном случае). Пример показан для выборки из файлов txt до ~10 000 000 записей каждый (выдаваемые отчеты в txt из системы sql сервера) данных в dbf для дальнейшей индексации и реализации получения отчетов, которых нет в системе (а их там практически нет - все в ручном режиме через задание sql команд select ...)
цитата:
А как вытаскивать нужные значения в тексте программы ?
ф-я ниже разбирает строку полей, отделенных Chr(9) на массив значений полей fmp_ATokenCSV( [nMapArea], nLine, [lDel], [lCheckUTF8] ) -> {"Line..." | "", ...} // получить массив токенов для файла CSV где lDel == .T. кавычки удаляет ( если есть одновременно обе ) или .F. ничего не удаляет [ lDel == .T. default ] т.е.
aVal := fmp_ATokenCSV( nMp, nI ) (cAls)->( AEval(aVal, {|c,n| FieldPut(n, c) }) )
Одновременно можно открыть до 10 областей (файлов) для обработки, т.е. nMp1 := fmp_Open( cTxt1 ) nMp2 := fmp_Open( cTxt2 ) ... nMp10 := fmp_Open( cTxt10 )
Dima
администратор
Пост N: 7702
Зарегистрирован: 17.05.05
Отправлено: 16.10.22 18:16. Заголовок: Сергей хочешь сказат..
Сергей хочешь сказать что это быстрее механизма hb_fuse и связанных функций ?
SergKis
постоянный участник
Пост N: 4167
Зарегистрирован: 17.02.12
Отправлено: 16.10.22 20:05. Заголовок: Dima пишет хочешь ск..
Dima пишет
цитата:
хочешь сказать что это быстрее механизма hb_fuse
Да. aFile := array(200) // заполняем aFile 200 файлов log с записями 1 500 000 строк разделенных CRLF всего FOR nI := 1 TO 200 cFile := aFile[ nI ] nMp := fmp_Open( cFile ) fmp_Count( nMp ) // подсчет строк в файле fmp_Close( nMp ) NEXT это занимает ~ 0.2-0.3 сек. Опыт делался еще на hb20 давно в районе 2012 г.
Отправлено: 16.10.22 21:45. Заголовок: Dima пишет Долго же ..
Dima пишет
цитата:
Долго же ты ждал
Написал и использовал товарищ по работе для log журналов расчета квартплаты и импорта больших csv файлов. У меня ранее на VO была сделана система работы с txt файлами как с log, так и с другими, в итоге получалась база[ы] dbf и далее типа browse для работ получения отчетов (генератор их). Исп. не так часто, только при разборах полетов и оч. редких запросов налоговой при проверках. Было до лампочки по времени работы. Столкнулся с проблемой времени при ежедневной откачке инф. из firebird, где данные переменного объема (чужая задача) от ~2 500 000 записей растет до ~10 000 000 за ~3 месяца, потом база обрезается опять до последних ~2 500 000. В этой ситуации сам применил, что было давно сделано. Решил поделится, вдруг пригодится кому. Сразу скажу, что исп. fbclient.dll и класс oServer := TFBServer():New( cServer + cDatabase, cUser, cPass, nDialect ) на таких объемах (выбор всех данных из таблицы) ожидаемо сваливалось и надо было строить разные запросы с ограничениями записей и в целом усложнять все, т.е. себе лишняя работа. Исп. возможности их системы выдавать отчеты в txt файлы и обработал как в примере выше. Получилось несколько отчетов с max 10 000 000 записей (во всех ~5 штук). Раз в сутки (чаще клиенту не надо) все данные из firebird попадают в помесячную базу на CDX для ежедневных, годовых, квартальных отчетов и ...
Dima
администратор
Пост N: 7704
Зарегистрирован: 17.05.05
Отправлено: 17.10.22 12:16. Заголовок: Сергей , погонял тес..
Сергей , погонял тесты. Шикарный инструмент по скорости. Тестовый файл , длина строки 1000 + CRLF , всего строк 1 000 000 hb_flastrec() 0.93 ft_FLastRe() 0.92 fmp_Count() 0.39 Ежели в цикле читать строки hb_freadln() 5.00 ft_FReadLn() 4.7 fmp_Line () 0.72
Во время сборки ворнингов дофигища....код не совсем корректен ? Скрытый текст
../fmp.c:32:2: warning: missing braces around initializer [-Wmissing-braces] static hb_MapFile amf[ AMF_SIZE ] = { 0 }; ^ ../fmp.c:32:2: warning: (near initialization for 'amf[0]') [-Wmissing-braces] ../fmp.c: In function '__OpenFile': ../fmp.c:117:13: warning: pointer targets in assignment differ in signedness [-Wpointer-sign] MF.pData = ( char *) MapViewOfFile( MF.hMap, FILE_MAP_READ, 0, 0, MF.dwSize); ^ ../fmp.c:89:12: warning: variable 'n' set but not used [-Wunused-but-set-variable] int i=0,n; ^ ../fmp.c:87:45: warning: unused parameter 'ind' [-Wunused-parameter] static BOOL __OpenFile( WCHAR * cFile, int ind, int nRO ) ^ ../fmp.c:87:54: warning: unused parameter 'nRO' [-Wunused-parameter] static BOOL __OpenFile( WCHAR * cFile, int ind, int nRO ) ^ ../fmp.c: In function '__RetDeCode': ../fmp.c:208:40: warning: pointer targets in passing argument 2 of 'hb_cdpUTF8AsStrLen' differ in signedness [-Wpointer-sign] n = hb_cdpUTF8AsStrLen( cdp, utf, Ln, 0 ); /* Нужная длинна */ ^ In file included from c:/hb32mingw20/include/hbapigt.h:54:0, from c:/hb32mingw20/include/hbgtcore.h:55, from ../cons2.h:14, from ../fmp.c:1: c:/hb32mingw20/include/hbapicdp.h:479:31: note: expected 'const char *' but argument is of type 'unsigned char *' extern HB_EXPORT HB_SIZE hb_cdpUTF8AsStrLen( PHB_CODEPAGE cdp, const char * pSrc, HB_SIZE nSrc, HB_SIZE nMax ); ^ ../fmp.c:214:35: warning: pointer targets in passing argument 2 of 'hb_cdpUTF8ToStr' differ in signedness [-Wpointer-sign] hb_cdpUTF8ToStr( cdp, utf, Ln, s, n + 1 ); ^ In file included from c:/hb32mingw20/include/hbapigt.h:54:0, from c:/hb32mingw20/include/hbgtcore.h:55, from ../cons2.h:14, from ../fmp.c:1: c:/hb32mingw20/include/hbapicdp.h:480:31: note: expected 'const char *' but argument is of type 'unsigned char *' extern HB_EXPORT HB_SIZE hb_cdpUTF8ToStr( PHB_CODEPAGE cdp, const char * pSrc, HB_SIZE nSrc, char * pDst, HB_SIZE nDst ); ^ ../fmp.c:214:44: warning: pointer targets in passing argument 4 of 'hb_cdpUTF8ToStr' differ in signedness [-Wpointer-sign] hb_cdpUTF8ToStr( cdp, utf, Ln, s, n + 1 ); ^ In file included from c:/hb32mingw20/include/hbapigt.h:54:0, from c:/hb32mingw20/include/hbgtcore.h:55, from ../cons2.h:14, from ../fmp.c:1: c:/hb32mingw20/include/hbapicdp.h:480:31: note: expected 'char *' but argument is of type 'unsigned char *' extern HB_EXPORT HB_SIZE hb_cdpUTF8ToStr( PHB_CODEPAGE cdp, const char * pSrc, HB_SIZE nSrc, char * pDst, HB_SIZE nDst ); ^ ../fmp.c:216:45: warning: pointer targets in passing argument 1 of 'hb_storvclen_buffer' differ in signedness [-Wpointer-sign] if(y > 0) hb_storvclen_buffer( s, n, -1, y); ^ In file included from c:/hb32mingw20/include/hbapigt.h:53:0, from c:/hb32mingw20/include/hbgtcore.h:55, from ../cons2.h:14, from ../fmp.c:1: c:/hb32mingw20/include/hbapi.h:779:25: note: expected 'char *' but argument is of type 'unsigned char *' extern HB_EXPORT int hb_storvclen_buffer( char * szText, HB_SIZE nLength, int iParam, ... ); /* stores a fixed length string buffer on a variable by reference */ ^ ../fmp.c:217:42: warning: pointer targets in passing argument 1 of 'hb_retclen_buffer' differ in signedness [-Wpointer-sign] else hb_retclen_buffer( s, n ); ^ In file included from c:/hb32mingw20/include/hbapigt.h:53:0, from c:/hb32mingw20/include/hbgtcore.h:55, from ../cons2.h:14, from ../fmp.c:1: c:/hb32mingw20/include/hbapi.h:692:25: note: expected 'char *' but argument is of type 'unsigned char *' extern HB_EXPORT void hb_retclen_buffer( char * szText, HB_SIZE nLen ); /* same as above, but accepts an allocated buffer */ ^ ../fmp.c:224:31: warning: pointer targets in passing argument 1 of 'hb_storvclen' differ in signedness [-Wpointer-sign] if( y > 0 ) hb_storvclen( utf, Ln, -1, y); ^ In file included from c:/hb32mingw20/include/hbapigt.h:53:0, from c:/hb32mingw20/include/hbgtcore.h:55, from ../cons2.h:14, from ../fmp.c:1: c:/hb32mingw20/include/hbapi.h:778:25: note: expected 'const char *' but argument is of type 'unsigned char *' extern HB_EXPORT int hb_storvclen( const char * szText, HB_SIZE nLength, int iParam, ... ); /* stores a fixed length string on a variable by reference */ ^ ../fmp.c:225:28: warning: pointer targets in passing argument 1 of 'hb_retclen' differ in signedness [-Wpointer-sign] else hb_retclen( utf, Ln ); ^ In file included from c:/hb32mingw20/include/hbapigt.h:53:0, from c:/hb32mingw20/include/hbgtcore.h:55, from ../cons2.h:14, from ../fmp.c:1: c:/hb32mingw20/include/hbapi.h:691:25: note: expected 'const char *' but argument is of type 'unsigned char *' extern HB_EXPORT void hb_retclen( const char * szText, HB_SIZE nLen ); /* returns a string with a specific length */ ^ ../fmp.c: In function 'HB_FUN_FMP_ATOKENCSV': ../fmp.c:340:30: warning: 'n' may be used uninitialized in this function [-Wmaybe-uninitialized] hb_reta( k + ( (n > 0)? 1 : 0) ); ^ ../fmp.c:329:17: note: 'n' was declared here int i=0,k=0, n, y; ^
SergKis
постоянный участник
Пост N: 4169
Зарегистрирован: 17.02.12
Отправлено: 17.10.22 21:03. Заголовок: Dima пишет Во время ..
Dima пишет
цитата:
Во время сборки ворнингов дофигища....код не совсем корректен ?
У нас сборка под vc 2019, протокол чистый (для 2008 и 2017 так же норм)
DbOpenCount.C FileFun.C MapFile.C CsvLine.C Создание кода...
Dima
администратор
Пост N: 7705
Зарегистрирован: 17.05.05
Отправлено: 17.10.22 21:06. Заголовок: SergKis У меня MinG..
SergKis У меня MinGw. Ну да ладно , работает же Спасибо !
SergKis
постоянный участник
Пост N: 4170
Зарегистрирован: 17.02.12
Отправлено: 17.10.22 21:15. Заголовок: Dima Как я понял, т..
Dima Как я понял, тут не исп. переменная n, можно убрать
static BOOL __OpenFile( WCHAR * cFile, int ind, int nRO ) { int i=0 /*,n*/; while( amf[ i ].dwSize > 0 && i < AMF_SIZE) i++; if(i == AMF_SIZE) return FALSE; MF.pLine = MF.pData + i; ...
/* n = 0;
комент /* был тут while( ( DWORD ) i < MF.dwSize && MF.pData != 10) { i++; n++; }
Отправлено: 20.10.22 18:27. Заголовок: Dima Небольшой прим..
Dima Небольшой пример тсб просмотра файла ф-ями fmp_Line(...), если интересно, конечно Тут https://TransFiles.ru/gfemn Если BOM у файла utf8 есть и стоит 3-ий параметр fmp_line(...,..., .T.), то перекодировка из utf8 есть, иначе нет и надо самому делать, как в примере ф-я dos4w5(...) делает utf8 -> lv866. Можно применять и fmp_ATokensCSV(...), тогда можно делать поколоночный показ файла (разделитель колонок chr(9) в записи) PS Пример сделан на своей версии, можешь пробнуть собрать на hmg, поставив свою CDP, свой файл и если он utf8 без BOM, заменить dos4w5(...) на hb_Utf8ToStr( fmp_Line(...) )
* Fixed: Correction of style C-type from int to DWORD in the Minigui core according to the WinAPI definition. Contributed by Grigory Filatov <gfilatov@gmail.com> * Updated: C-code cleaning for unneeded variables when defining controls and windows in the Minigui core. Contributed by Grigory Filatov <gfilatov@gmail.com> * Updated: HbCurl library: - added HB_CURLOPT_MAXLIFETIME_CONN to setup max lifetime; - added HB_CURLOPT_DEBUGBLOCK to setup a block for debug. Contributed by Antonino Perricone (see in folder \Harbour\Lib) * Updated: HbSQLite3 library: - update for using SQLITE3 version 3.40.0dev (from 3.39.4). Contributed by Grigory Filatov <gfilatov@gmail.com> * Updated: Harbour Compiler 3.2.0dev (SVN 2022-11-11 21:15). Contributed by Grigory Filatov <gfilatov@gmail.com> (look at ReadMe.txt in folder \harbour) * Updated: 'Desktop Windows Version Market Share Worldwide' sample: - updated the data for October 2022. Contributed by Grigory Filatov <gfilatov@gmail.com> (see demo.prg in folder \samples\Basic\GraphPrint) * Updated: 'MiniGUI DataBase Utility' sample: - fixed setting of tags in TBrowse with using :uLastTag variable; - others minor corrections regarding tags. Contributed by Grigory Filatov <gfilatov@gmail.com> (see in folder \Utils\mgDBU)
Возможно, нового внесено не так уж и много, но пришлось основательно перелопатить и оптимизировать Си-код ядра библиотеки
gfilatov2002
moderator
Пост N: 2068
Зарегистрирован: 11.02.10
Отправлено: 15.11.22 11:26. Заголовок: Всем кому это интересно
Также обновил Unicode версию библиотеки по старому адресу для Сергея
Ваши комментарии приветствуются...
SergKis
постоянный участник
Пост N: 4180
Зарегистрирован: 17.02.12
Отправлено: 15.11.22 16:02. Заголовок: gfilatov2002 пишет о..
gfilatov2002 пишет
цитата:
обновил Unicode версию библиотеки по старому адресу
Спасибо Буду пробовать на ней, а предыдущую unicode дополнил RcDataToMem() и полет нормальный. Пока единственный затык с работающей версией - это работа modal окна под MdiChild, в нашей версии работает.
gfilatov2002
moderator
Пост N: 2070
Зарегистрирован: 11.02.10
Отправлено: 26.11.22 14:25. Заголовок: Всем кому это интересно
Завершена подготовка новой сборки 22.12, которая планируется к выпуску на следующей неделе
Что нового: - исправление ошибок и неточностей в коде; - добавлена новая возможность для элемента управления SWITCHER - картинка для режима отображения disabled; - продолжена основательная чистка Си-кода с целью удаления ненужных переменных, без которых можно обойтись; - добавлен новый пример, который показывает как закрасить цветом всю строку, столбец или отдельную клетку в элементе управления GRID.
Желаю всем мирного неба над головой
gfilatov2002
moderator
Пост N: 2071
Зарегистрирован: 11.02.10
Отправлено: 29.11.22 12:25. Заголовок: Опубликована финальн..
Опубликована финальная сборка 22.12, которая выложена по адресу click here
Замечание. Обращаю ваше внимание, что также есть платные сборки этой версии библиотеки для следующих 64-битных Си-компиляторов: - Borland\Embarcadero C++ 7.20 for Win64; - MinGW GNU C 12.2.0 (packaged on 2022-08-28); - MS Visual C++ 2022 Community Edition (19.34.31933).
Таким образом, работоспособность библиотеки была успешно проверена для всех актуальных версий современных Си компиляторов
gfilatov2002
moderator
Пост N: 2072
Зарегистрирован: 11.02.10
Отправлено: 10.12.22 16:32. Заголовок: Всем кому это интересно
Завершена подготовка 1-го обновления сборки 22.12, которая планируется к выпуску на следующей неделе
Что нового: - исправление обнаруженных ошибок (подробности есть на английском форуме Минигуи); - добавлен новый переключатель AUTOUPDATE в элементе управления GetBox с использованием класса FIELD, который предназначен для принудительной записи в поле базы данных при любом изменении значения Value в GetBox; - добавлены новые макросы для унификации параметров в Си-коде библиотеки; - обновлена библиотека BosTaurus с целью оптимизации кода; - обновлена сборка компилятора Харбор до текущей версии на сервере github; - обновлены некоторые примеры с учетом изменений и дополнений в ядре библиотеки.
Искренне благодарю за материальную поддержку моей работы Андрея Верченко!
Завершена адаптация библиотеки для работы с последней доступной 64-битной версией компилятора Borland/Embarcadero C++ 7.40, который основан на LLVM/Clang C 3.3.1 (36707.161adda.9a76976) (64-bit)
Мои наилучшие поздравления и пожелания всем форумчанам с наступающими праздниками!
Желаю всем здоровья и удачи в Новом году
gfilatov2002
moderator
Пост N: 2077
Зарегистрирован: 11.02.10
Отправлено: 06.01.23 17:45. Заголовок: Всем кому это интересно
Поздравляю всех с сочельником и Рождеством Христовым!
Завершена адаптация библиотеки для работы с последней доступной 64-битной версией компилятора Pelles ISO C Compiler 11.0, который по скорости работы не уступает Embarcadero C++ 7.40 (64-bit)
Моя искренняя благодарность Андрею Верченко за поддержку моей работы!
gfilatov2002
moderator
Пост N: 2078
Зарегистрирован: 11.02.10
Отправлено: 15.01.23 17:03. Заголовок: Всем кому это интересно
Подготовил 1-й релиз-кандидат новой сборки 23.01, которая планируется к выпуску через две недели.
* Fixed: GETBOX: GetProperty( Form, Getbox, 'PICTURE' ) call always returns an empty value. Bug was reported by Hans Marc at the Minigui forum. Contributed by Grigory Filatov <gfilatov@gmail.com> * Enhanced: The Child window may manage the 'Parent' property. You can get this property at runtime: - function syntax: GetProperty ( ChildForm, 'Parent' ) --> cParent - pseudo-OOP syntax: ChildForm.Parent --> cParent Requested by Mario Rossi. Contributed by Grigory Filatov <gfilatov@gmail.com> * Enhanced: The Image control supports now a changing of the STRETCH property at runtime. You can set this property with: - function syntax: SetProperty ( Form, Image, 'Stretch', .T.|.F. ) - pseudo-OOP syntax: Form.Image.Stretch := .T.|.F. It was a postponed modification. Contributed by Grigory Filatov <gfilatov@gmail.com> * Modified: Revised a font management with DEFINE FONT <font> FONTNAME <name> ... command: - restored a previous behavior of the function GetFontList() with the default charset parameter. The issue was reported by Vagner Sanches. Contributed by Grigory Filatov <gfilatov@gmail.com> (see demo in folder \samples\Applications\WordScribe) * Updated: Synchronized Extended HMG for compatibility with Official HMG: - added the useful functions (and appropriate properties) below: - TreeItemGetAllValues(); - TreeItemGetChildValues(); - TreeItemGetSiblingValues(). - GetProperty -> AllValue, ChildValue, SiblingValue. Based upon a contribution of Claudio Soto <srvet@adinet.com.uy>. Adapted for Minigui Extended by Grigory Filatov (see demo in folder \samples\Advanced\DirTree_2) * Updated: Pacified the C-warnings in the MiniGUI core for compatibility with the Pelles ISO C Compiler 11.0 (64-bit). Contributed by Grigory Filatov <gfilatov@gmail.com> * Updated: HbSQLite3 library: - update for using SQLITE3 version 3.40.1 (from 3.40.0). Contributed by Grigory Filatov <gfilatov@gmail.com> * Updated: Harbour Compiler 3.2.0dev (SVN 2023-01-15 11:17): * Updated libpng library to 1.6.39 (from 1.6.38); * bumped copyright year to 2023. Contributed by Grigory Filatov <gfilatov@gmail.com> (look at ReadMe.txt in folder \harbour) * Updated: 'Inter-application communication' sample: - fixed to use temp folder instead of "C:\" to avoid write permission issues. Suggested by Grzegorz Wojnarowski (see in folder \samples\Basic\COMM) * Updated: 'Console+GUI mixed mode' sample. Contributed by Grzegorz Wojnarowski (see in folder \samples\Basic\MixedMode) * Updated: 'Virtual Grid with sorted columns' sample: - added workaround for inserted checkboxes. Contributed by Grigory Filatov <gfilatov@gmail.com> (see in folder \samples\Basic\ON_QUERYDATA) * Updated: 'Tree Menu' sample by Bicahi Esgici: - updated with the latest changes in the Minigui core. Contributed by Grigory Filatov <gfilatov@gmail.com> (see in folder \samples\Basic\TreeMenu) * Updated: 'MySql Client' sample: - code cleaning for warnings with Harbour switch -w3. Contributed by Grigory Filatov <gfilatov@gmail.com> (see in folder \samples\Advanced\MySqlClient) * Updated: 'Virtual Keyboard' sample. Contributed by Kristjan Zagar (see in folder \samples\Advanced\OnScreenKeyboard) * Updated: 'Volume Info' sample: - using the function wapi_GetVolumeInformation() instead of local implementation. Contributed by Grigory Filatov <gfilatov@gmail.com> (see demo.prg in folder \samples\Advanced\VOLUME_INFO) * Updated: 'Windows Version' sample: - fixed Windows 11 detection. Contributed by Grigory Filatov <gfilatov@gmail.com> (see in folder \samples\Advanced\WinVersion) * Updated: 'WMI Service usage' sample: - fixed 'Memory Info' detection. Contributed by Grigory Filatov <gfilatov@gmail.com> (see demo2.prg in folder \samples\Advanced\WMI_Service)
Если у вас есть интересные дополнения или исправления, то я с удовольствием добавлю их в эту сборку Прошу откликнуться всех, кому это интересно...
А где эта библиотека сидит ? Картинки PNG будут лучше отображаться в ТСБ и на формах ? А то если картинку на форме увеличиваешь, то качество теряется, ребристая становиться...
SergKis
постоянный участник
Пост N: 4193
Зарегистрирован: 17.02.12
Отправлено: 18.01.23 15:10. Заголовок: gfilatov2002 пишет Е..
gfilatov2002 пишет
цитата:
Если у вас есть интересные дополнения или исправления
Небольшие отличия THmgData() в моей версии Скрытый текст
METHOD Set( xKey, xVal ) CLASS THmgData LOCAL k, v
IF pCount() > 0 IF HB_ISHASH( xKey ) IF HB_ISLOGICAL(xVal) .and. xVal FOR EACH k, v IN hb_HKeys( xKey ), hb_HValues( xKey ) hb_HSet ( ::aKey, ::Upp( k ), v ) NEXT ELSE ::aKey := xKey ENDIF ELSE hb_HSet ( ::aKey, ::Upp( xKey ), xVal ) ENDIF ENDIF
RETURN Self ...
Хотя, METHOD Json( cJ, lJ ) не обязателен - для информации
Function Main() DEFINE WINDOW MAIN AT 218, 380 WIDTH 237 HEIGHT 286 TITLE "" MAIN DEFINE BUTTON oButton1 ACTION (formOff(),FormON(1)) CAPTION "Form1" TRANSPARENT .T. COL 53 HEIGHT 26 ROW 20 WIDTH 96 END BUTTON
DEFINE BUTTON oButton2 ACTION (formOff(),FormON(2)) CAPTION "Form2" TRANSPARENT .T. COL 53 HEIGHT 26 ROW 51 WIDTH 96 END BUTTON
DEFINE BUTTON oButton3 ACTION (formOff(),FormON(3)) CAPTION "Form3" TRANSPARENT .T. COL 53 HEIGHT 26 ROW 82 WIDTH 96 END BUTTON
Да, так можно сделать. Но все же предпочтительным в Минигуи является использование функций GetProperty()/SetProperty(). К вызову именно этих функций сводится использование псевдо-ООП в библиотеке.
SergKis
постоянный участник
Пост N: 4195
Зарегистрирован: 17.02.12
Отправлено: 21.01.23 17:49. Заголовок: gfilatov2002 пишет К..
gfilatov2002 пишет
цитата:
К вызову именно этих функций сводится использование псевдо-ООП в библиотеке
+ DoMetod() и больше ничего не надо , но мнемоника параметров и их позиции для окон и конторлов при исп. этих ф-ий тоже требует усилий. Не зря же целый каталог для препроцессора существует, что бы win api напрямую не использовать.
Andrey
постоянный участник
Пост N: 7274
Зарегистрирован: 12.09.06
Отправлено: 21.01.23 22:25. Заголовок: Спасибо БОЛЬШОЕ ! По..
Спасибо БОЛЬШОЕ ! Получилось !
Только чуток не работает функции:
FOR nI := 1 TO Len(aForm) cForm := aForm[nI] ? nI, cForm, _HMG_aFormType[nI], _HMG_aFormHandles[nI] ?? "Visible=", IsWindowVisible( GetFormHandle( cForm ) ) ?? GetProperty( cForm, "Visible" ) ....
1 Form_Main A 460206 Visible= .T. .T. 2 Form_Win1 S 1049612 Visible= .F. .F. 3 Form_Win2 S 393928 Visible= .F. .F. 4 Form_Win3 S 67248 Visible= .F. .F. 5 Form_Table_Dog '' 0 Visible= .T. .T. 6 Form_Table_Abon S 132806 Visible= .T. .T.
Почему нет значения Form_Table_Dog '' 0 ? Форма на экране есть, а значения в логе нет ! т.е. не работает - _HMG_aFormType[nI], _HMG_aFormHandles[nI]
SergKis
постоянный участник
Пост N: 4196
Зарегистрирован: 17.02.12
Отправлено: 21.01.23 22:54. Заголовок: Andrey пишет т.е. не..
Andrey пишет
цитата:
т.е. не работает - _HMG_aFormType[nI], _HMG_aFormHandles[nI]
посмотри значение _HMG_aFormDeleted[nI] для Form_Table_Dog (выведи для всех)
т.е. 1. фокус на окно отображения листов 2. Insert\Delete - zoom +\- листа 3. стрелки вверх, вниз перемещают строки листа вверх, вниз (PgUp, PgDown перемещают листы, как раньше) Наверно, надо для zoom задействовать еше левую\правую кнопки мыши и scroll на колесико, но не помню как на окно задействовать эти события Может это, вообще, лишнее ?
PS. Поправил выше текст, вынес назначения клавиш за ENDIF (выделил цветом и bold) это с учетом 1 листа
gfilatov2002
moderator
Пост N: 2082
Зарегистрирован: 11.02.10
Отправлено: 24.01.23 14:07. Заголовок: Как и обещал, выложи..
Григорий, очень многим интересно. Многие помнят кардинальную смену курса и дальнейшее развитие неофициальной версии. Так же никто не забыл благодаря кому эта версия сохранила целостность и постоянно совершенствуется
gfilatov2002 Предложение по SBrowse ( uAlias, cTitle, bSetUp, aCols, nWidth, nHeight, lSql, lModal, lNumber, lCenter ) - lModal делать (через \ варианты) : "M"\ 1 \ .T. - modal "C" \ 2 \ .F. - child "S" \ 3 - standard - new добавил окно WINDOWTYPE STANDARD и lCenter := .T. \ .F. - центровать окно или нет Пример и правленный исходник (в hbp примера prg не включал, у меня уже в основной либ сделано) тут https://TransFiles.ru/tpta8
для dbf вызов будет такой (modal окно) : SBrowse_Viewer( Alias(), Sys.ClientWidth, Sys.ClientHeight, , .T., {} )
gfilatov2002 Собрал пример для типов окон "S" и "C" и получил ошибку для "C" при вып. ф-ии my_OnInit_SBrowse(), связанную с командой SET WINDOW THIS TO cWnd что то не срастается по среде This для Child окна, заменил на ф-ю HMG_This_SaveRest(...) (в тексте prg) - все ok! Запуск demo.exe C -> child окна demo.exe или demo.exe S - STANDARD окна Пример тут https://TransFiles.ru/sqagj
gfilatov2002
moderator
Пост N: 2093
Зарегистрирован: 11.02.10
Отправлено: 13.02.23 19:30. Заголовок: SergKis пишет: что ..
SergKis пишет:
цитата:
что то не срастается по среде This для Child окна
Поправил эту функцию таким образом:
цитата:
FUNCTION my_OnInit_SBrowse(nMode, cWnd) LOCAL oBrw, oTsb, nWnd //, aThis LOCAL cBrw := "oBrw"
SET WINDOW THIS TO cWnd //aThis := HMG_This_SaveRest( cWnd ) oBrw := this.(cBrw).Object //GetProperty(cWnd, "oBrw", "Object")
Отправлено: 13.02.23 19:59. Заголовок: gfilatov2002 пишет У..
gfilatov2002 пишет
цитата:
У меня вроде работает нормально...
У меня тоже работает, но это не радует, т.к. порушились (для Child) правила This ... для окна (для STANDARD все ok!) This. ... ThisWindow. ... одно и тоже This.oBrw.Object ___^^^^ - имя контрола такое правописание позволяет сокращать текст и делать его более читаемым С ф-ей HMG_This_SaveRest() это все работает, ф-ю я взял из своей версии, т.к. применение ее парное, надо, наверное, подумать над командой с этой ф-ией SET WINDOW THIS SAVE aThis TO cWnd ... SET WINDOW THIS REST aThis TO для лучшей читаемости
SET WINDOW THIS TO cWnd oBrw := this.oBrw.Object //GetProperty(cWnd, "oBrw", "Object")
Она работает для дочернего окна тоже
SergKis
постоянный участник
Пост N: 4205
Зарегистрирован: 17.02.12
Отправлено: 13.02.23 20:26. Заголовок: gfilatov2002 пишет О..
gfilatov2002 пишет
цитата:
Она работает для дочернего окна тоже
но не работает This.Row, This.Col. Перебирать при переносе текст, та еще радость будет Сделал
#xcommand SET WINDOW THIS SAVE <a> TO <w> => <a> := HMG_This_SaveRest( <w> ) #xcommand SET WINDOW THIS REST <a> TO => HMG_This_SaveRest( <a> ) и код работает для "C" и "S" окон SET WINDOW THIS SAVE aThis TO cWnd oBrw := This.oBrw.Object //GetProperty(cWnd, "oBrw", "Object") oTsb := oBrw:Cargo nWnd := oTsb:nForm
PS Может лучше #xcommand SET WINDOW THIS <w> SAVE <a> => <a> := HMG_This_SaveRest( <w> ) #xcommand SET WINDOW THIS REST <a> => HMG_This_SaveRest( <a> )
gfilatov2002
moderator
Пост N: 2095
Зарегистрирован: 11.02.10
Отправлено: 13.02.23 21:04. Заголовок: SergKis пишет: не р..
SergKis пишет:
цитата:
не работает This.Row, This.Col
Поправил в функции _SetThisFormInfo() этот фрагмент
цитата:
IF HB_ISCHAR( i ) i := GetFormIndex( i ) lDefine := ( _HMG_aFormType [ i ] == "C" )
и все заработало
SergKis
постоянный участник
Пост N: 4206
Зарегистрирован: 17.02.12
Отправлено: 13.02.23 21:20. Заголовок: gfilatov2002 пишет и..
gfilatov2002 Довел пример с исп. SBrowse до какой то кондиции: https://TransFiles.ru/ottjz - смена типа окон S\C и немного управления - смена вида курсора - подсветка одинаковых ключей (группы) в просмотре
Не до конца работает пример Не работают кнопки Печать и Эксель. Как их заставить работать ?
sashaBG
постоянный участник
Пост N: 199
Зарегистрирован: 15.09.05
Отправлено: 14.02.23 13:37. Заголовок: Фильтрация через oBrw:FilterFTS( cSeek, .t. ) и LetoDB
Привет всем! Я решил использовать фильтра oBrw:FilterFTS( cSeek, .t. ) вместе с сервером LetoDB . Все работает, но заметил, что в логе сервера постоянно возникают вот такие строчки:
14.02.2023 12:06:30: Error BASE/1003 Variable does not exist: OB
!WARNING! leto_Filter! filter not optimized or syntax error:
ob:FilterFTS_Line( cFind, lUpper, lAll, ob)
Становится понятно, что фильтр не оптимизирован для LEtoDB, и что LetoDB не видит переменную ob
Можно ли ето както избежать?
SergKis
постоянный участник
Пост N: 4208
Зарегистрирован: 17.02.12
Отправлено: 14.02.23 14:54. Заголовок: sashaBG пишет LetoDB..
sashaBG пишет
цитата:
LetoDB не видит переменную ob
По мне надо сделать 1. ф-ю на сервере, аналог методу METHOD FilterFTS_Line( cFind, lUpper, lAll ) CLASS TSBrowse которая построчно выполняет то, что надо для возврата .T.\.F. и вызывать ее в выражении :FilterData( cFilter ), переменных с клиента на сторону сервера не передавать, т.е. сделать FUNCTION UDF_FilterFTS_Line (...) ... RETURN lRet
2. Переписать на клиента в mem:File (или на диск) поля ключи для Relation на осн. базу (тут тоже можно ограничить выборку условием) и связав по Relatiion, ставим :FilterFTS(...) поля по связанному alias будут тащится на клиента, а сам :FilterFTS() применяется к базе на клиенте (TsBrowse на отобранную на клиента базу работает). По идее должно быть ok!
В LetoDbF есть механизм передачи переменных и их значения на сторону сервера, но объекты (ссылка), думаю не передадуться тоже
SergKis
постоянный участник
Пост N: 4209
Зарегистрирован: 17.02.12
Отправлено: 14.02.23 16:05. Заголовок: PS SergKis пишет Пер..
PS SergKis пишет
цитата:
Переписать на клиента в mem:File (или на диск) поля ключи для Relation на осн. базу
Забыл, что LetoDb (в отличии от LetoDbF) не имеет механизма SET RELATION ..., потому кроме ключевых и др. полей для локальной индикации, надо сохранять в выборке RecNo() записи на сервере и тогда исп. механизм TsBrowse блок кода oBrw:bOnDrawLine где делать переход на запись сервера, т.е. что то типа oBrw:bOnDrawLine := {|ob,nrow| nrow := (ob:cAlias)->REC_NO, ("ALS_SERVERA")->( dbGoto(nrow) ) }
3. Сделать выборку полностью на сервере ф-ей сервера, написав ее (автономный аналог :FilerFTS(...) или только для этого запроса). Выполнением этой ф-ии на сервере должен быть рез. файл, который можно показывать на клиенте открыв TsBrowse.
Из за отсутсвия механизма Relation я перешел на LetoDbF - переход оч. простой получается - код почти не отличается от clipper. Т.к. осн. сервером исторически остался LetoDb (создание, модификация, ...), причем еще старый 2-х поточный, то LetoDbF пошел дополнением к LetoDb. Т.е. оба запущены одновременно (как daemon, а не сервисы), запускаются менеджером (простым на AutoIt 3 давно написанным) и менеджеры следят за наличием программ LetoDb и LetoDbf в памяти. Обе сборки серверов свои и в LetoDbf сделаны изменения по ini и log файлам, их названия LetoDbF.ini и LetoDbF.log. Тогда оба сервера лежат рядом и не конфликтуют по именам файлов. В ini для серверов исп. Share_Tables = 1 и разные порты
sashaBG
постоянный участник
Пост N: 200
Зарегистрирован: 15.09.05
Отправлено: 14.02.23 16:28. Заголовок: Спасибо за ответ!
Спасибо за ответ Сергей!
Попытаюсь написать функцию со стороны сервера, как вы рекомендовали. Если будут вопросы буду задавать :)
Я еще не пробовал LetoDBf. Надо найти время попробовать! А он наверное лучше, раз вы на нем перешли!
Всего доброго Всем!
SergKis
постоянный участник
Пост N: 4211
Зарегистрирован: 17.02.12
Отправлено: 14.02.23 16:50. Заголовок: sashaBG Вот код, ка..
sashaBG Вот код, как есть, по выборке (за период, клиенты, объекты, ...) событий (охрана) с сервера, показываем ее, связывая со спр. объектов на сервере Скрытый текст
* ----------------------------------------------------------------------------------- * STATIC FUNCTION wSelectEvent( cFile, oBuf ) * ----------------------------------------------------------------------------------- * LOCAL cForm := 'wListSel', i, t, o := Sys.Cargo, ot := o:oBaseText LOCAL cBrw := "oListSel", aHead, aSize, aPict, aAlign, aField, aFoot, aName LOCAL cTitl := " ", cTag LOCAL oBrw, aFont, oCol, nY, nX, nW, nH, nI, nN := 2 LOCAL cAlias := "SELGGMM" LOCAL nArea := Select() LOCAL cAlsO := "OBJ" LOCAL cObj := o:HBK+"obj" LOCAL cPeri := oBuf:cPer LOCAL cCapt := upper(ot:cSele) + CRLF + ot:cPer+": " + cPeri LOCAL lExclude := oBuf:lExclude LOCAL lRowId := Empty(oBuf:lRowID) LOCAL oColor := oKeyData() LOCAL nMaxObj, cMaxEvent, cMaxName, cMaxAdres, cMaxOwner, cTmp, nTmp, cVal
IF ! m_DbUse(cObj, cAlsO, .T.) MsgStop("File not used !"+CRLF+cObj+".dbf", "ERROR") RETURN Nil ENDIF OrdSetFocus("KOD") GO TOP
IF ! mDbUse(cFile, cAlias, .T., "DBFCDX") (cAlsO)->( dbCloseArea() ) //MsgStop("File not used !"+CRLF+cFile+".dbf", "ERROR") RETURN Nil ENDIF INDEX ON OBJECTNUM+R_DTM TAG KOD FOR Empty( R_EXC ) INDEX ON OBJECTNUM+R_DTM TAG EXCL FOR !Empty( R_EXC ) IF lExclude INDEX ON OBJECTNUM TAG OBJ FOR !Empty( R_EXC ) UNIQUE ELSE INDEX ON OBJECTNUM TAG OBJ FOR Empty( R_EXC ) UNIQUE ENDIF OrdSetFocus("OBJ") GO TOP nMaxObj := OrdKeyCount() ; i := 0 DO WHILE !EOF() ; oColor:Set( OBJECTNUM, int(i % 2) ) ; i++ ; SKIP ENDDO GO TOP cTag := iif( lExclude, "EXCL", "KOD" ) // OrdSetFocus(cTag) SET RELATION TO OBJECTNUM INTO &cAlsO GO TOP
// посчитаем строки с max длиной cMaxEvent := cMaxName := cMaxAdres := cMaxOwner := "" /* DO WHILE !EOF() cTmp := Trim(EVENT) IF Len(cTmp) > Len(cMaxEvent) ; cMaxEvent := cTmp ENDIF cTmp := Trim( (cAlsO)->NAME ) IF Len(cTmp) > Len(cMaxName) ; cMaxName := cTmp ENDIF cTmp := Trim( (cAlsO)->OWNER ) IF Len(cTmp) > Len(cMaxOwner) ; cMaxOwner := cTmp ENDIF cTmp := Trim( (cAlsO)->ADDRESS ) IF Len(cTmp) > Len(cMaxAdres) ; cMaxAdres := cTmp ENDIF SKIP ENDDO GO TOP */
FOR nI := 1 TO Len(aField) ADD COLUMN TO oBrw DATA FieldWBlock(aField[ nI ], select(cAlsO)) ; HEADER aHead[ nI ] FOOTER "" FIXED NAME &(aName[ nI ]) NEXT
oCol := :GetColumn("OWNER") ; oCol:nWidth := oCol:ToWidth(35) oCol:cHeading := ot:cCust //nI := int( oCol:ToWidth(cMaxOwner) / 2 ) + 20 //IF nI < oCol:nWidth ; oCol:nWidth := nI //ENDIF nTmp := Max( :nHeightHead, 32 ) ADD SUPER HEADER TO oBrw FROM 1 TO :nColCount() TITLE cCapt HEIGHT nTmp COLOR CLR_BLUE FONT "FontBold" :aSuperHead[1][8] := :aBitMaps[1] //BITMAP "USS_24"
//ADD SUPER HEADER TO oBrw FROM 1 TO 2 TITLE cPeri HEIGHT :nHeightHead COLOR CLR_BLUE FONT "FontBold" //ADD SUPER HEADER TO oBrw FROM 3 TO :nColCount() TITLE cCapt HEIGHT :nHeightHead COLOR CLR_BLUE FONT "FontBold"
блоки кода oTsb:bAfter := {|obrw| // after END TSBROWSE oTsb:bBefore := {|obrw| // before END TSBROWSE они твои, на выполнение подключаются как написано, уточнить можешь в SBrowse_Viewer(...) В блоке кода oTsb:bBefore не все колонки, только реальные, объявленные В блоке кода oTsb:bAfter уже все колонки SLECTOR и ORDKEYNO или ARRAYNO это надо помнить при написании PS. Дополнить код SBrowse_Viewer(...) предложениями\решениями - я только ЗА
Andrey
постоянный участник
Пост N: 7294
Зарегистрирован: 12.09.06
Отправлено: 14.02.23 19:28. Заголовок: Григорий ! В примере..
Григорий ! В примере SergKis пишет:
цитата:
Довел пример с исп. SBrowse до какой то кондиции:
Не работают кнопки Печать и Эксель. Там же стандартный вызов
gfilatov2002 Посмотрел примеры Tsb_Export, Tsb_Export_2. Все режимы с Excel ole у меня падают. Подключил к примеру hbxlsxml.lib - работает Пример https://TransFiles.ru/ag8zw
Благодарю за предложение! Попробовал эту добавку в примере из папки samples\Advanced\Tsb_array_3 (повесил на клавишу F2 переход на конкретную позицию в массиве, например на 50-ю строку). Но результат перехода получился неудовлетворительным: блокируется движение вверх по клавише <стрелка вверх>, а также происходит в некоторых случаях "залипание" последней строки.
Отправлено: 16.02.23 01:00. Заголовок: gfilatov2002 Не зна..
gfilatov2002 Не знаю, что рыть, с ole не работал никогда, но это примеры hmg выдают Tsb_Export и Tsb_Export_2. Offis\Excel 2016 раньше было Ok! Логи ошибок тут https://TransFiles.ru/mnoow
Haz
администратор
Пост N: 1878
Зарегистрирован: 20.02.11
Отправлено: 16.02.23 11:39. Заголовок: SergKis пишет: Не з..
SergKis пишет:
цитата:
Не знаю, что рыть, с ole не работал никогда, но это примеры hmg выдают Tsb_Export и Tsb_Export_2. Offis\Excel 2016 раньше было Ok!
Если актуально будет после обеда посмотрю. Работа с оле всегда непредсказуемая. А Что автор примеров на эту тему думает?
gfilatov2002
moderator
Пост N: 2098
Зарегистрирован: 11.02.10
Отправлено: 16.02.23 11:55. Заголовок: Как и обещал, выложи..
Также обновил Unicode версию библиотеки по старому адресу для Сергея
SergKis
постоянный участник
Пост N: 4217
Зарегистрирован: 17.02.12
Отправлено: 16.02.23 13:06. Заголовок: Haz пишет Если актуа..
Haz пишет
цитата:
Если актуально будет после обеда посмотрю.
Не могу сказать об актуальности, но не так давно, на этой же PC все работало, валится у меня одного или у кого то еще ? У меня исп. hbxlsxml.lib для форм. xml\xls и libXL для чтения данных. С xml Excel работает, с libXL тоже.
Запустил Tsb_Export все работает, никаких ошибок тоже Excel 2016. Правда с уже успел обновиться на сборку 23.02 Не пойму куда смотреть
Andrey
постоянный участник
Пост N: 7295
Зарегистрирован: 12.09.06
Отправлено: 16.02.23 14:26. Заголовок: Haz пишет: Не пойму..
Haz пишет:
цитата:
Не пойму куда смотреть
Пример ниже который свалиться если нажать на кнопке Эксель...
SergKis пишет:
цитата:
Довел пример с исп. SBrowse до какой то кондиции: https://TransFiles.ru/ottjz - смена типа окон S\C и немного управления - смена вида курсора - подсветка одинаковых ключей (группы) в просмотре
Мои предположения - если 1 поле в бровсе логическое, то при вызове Эксель - оля падает...
SergKis
постоянный участник
Пост N: 4218
Зарегистрирован: 17.02.12
Отправлено: 16.02.23 14:53. Заголовок: Andrey пишет если 1..
Andrey пишет
цитата:
если 1 поле в бровсе логическое, то при вызове Эксель - оля падает...
Всегда делаю так aYesNo := {"Yes", "No"} всегда можно параметром или еще как поменять aYesNo := {"Да", "Нет"} aYesNo := {"М", "Ж"} aYesNo := {"Открыто", "Закрыто"} ... для лог. колонки меняю .T. - aYesNo[1], .F. - aYesNo[2], самый простой вариант cValToChsr(...)
SergKis
постоянный участник
Пост N: 4219
Зарегистрирован: 17.02.12
Отправлено: 16.02.23 15:19. Заголовок: Haz пишет Запустил T..
Haz пишет
цитата:
Запустил Tsb_Export все работает, никаких ошибок тоже Excel 2016. Правда с уже успел обновиться на сборку 23.02 Не пойму куда смотреть
Игорь, никуда не смотри, на обновленной версии у меня так же валится Буду считать, что крякнулся Excel у меня, с Word работает Ok!
вот тут и идет обращение к oSheet:Cells() где номер колонки равен 0 из за этого ОЛЕ и валится как быстрая правка вместо nVar := iif( lSelector, 1, 0 ) сделать nVar := 0 тогда все работает корректно. Ну а дальше разбираться с ::lSelector ( осознанием его практической бесполезности ) и правкой метода.
gfilatov2002 Небольшая правка, чтобы не растягивалась колонка SELECTOR
METHOD AdjColumns( aColumns, nDelta ) CLASS TSBrowse ... FOR i := 1 TO k c := aVisible[ i ] IF i == 1 .and. ::lSelector LOOP ELSEIF i == k ::aColumns[ c ]:nWidth += ( w - s ) ELSE s += n ::aColumns[ c ]:nWidth += n ENDIF NEXT ...
Отправлено: 16.02.23 17:24. Заголовок: Haz Сделал FOR..
Haz Сделал
FOR nCol := 1 TO Len( ::aSuperHead ) nVar := 0 //nVar := iif( lSelector, 1, 0 ) попал в др. место ниже cTmp := "#0" ; nTmp := 0 IF "." $ uData //IF ( nTmp := At( ".", uData ) ) > 0 cTmp := "#,##0.00" // cTmp := Replicate( "#", nTmp - 2 ) + '0,' + Replicate( "0", Len( uData ) - nTmp ) ENDIF
Выделенное красным валит с сообщением
цитата:
Error WINOLE/1006 Unable to set the NumberFormat property of the Range class (0x800A03EC): Microsoft Excel (DOS Error -2147352567) Args: [1] = C #0.00 Called from TSBROWSE:EXCELOLE(6639) ...
Сергей , валит скорее всего ниже красного, на этом oSheet:Cells( nLine, nCol ):NumberFormat := cTmp Посмотри что в шаблоне . Сообщение об ошибке говорит
Error WINOLE/1006 Unable to set the NumberFormat property of the Range class (0x800A03EC): Microsoft Excel (DOS Error -2147352567) Args: [1] = C #0.00
точно такой код как ниже ? Не должно быть ошибки , ошибка говорит что cTmp = "#0.00"
IF "." $ uData cTmp := "#,##0.00" ENDIF
SergKis
постоянный участник
Пост N: 4222
Зарегистрирован: 17.02.12
Отправлено: 16.02.23 18:40. Заголовок: Haz пишет валит скор..
Haz пишет
цитата:
валит скорее всего ниже красного, на этом oSheet:Cells( nLine, nCol ):NumberFormat := cTmp
Это понятно, указывает номер строки в тексте ошибки, я говорил, что пытается стать формат "#0" или "#,##0.00" оба формата допустимы, как и "#0.00", с xml эти форматы проходят. Может в ячейке какая фигня и на нее ставится NumberFormat ? Для меня темный лес По поводу Selector, он удаляется в начале работы потом восстанавливается
Отправлено: 16.02.23 19:18. Заголовок: Dima пишет GET_SDECI..
Dima пишет
цитата:
GET_SDECIMAL() есть на форуме
Использую у себя. У меня дает ",", в коде тоже стоит '0,' cTmp := Replicate( "#", nTmp - 2 ) + '0,' + Replicate( "0", Len( uData ) - nTmp ) а не фурычит, вернул изменения назад, не пользовался Ole и нечего начинать
Dima
администратор
Пост N: 7746
Зарегистрирован: 17.05.05
Отправлено: 16.02.23 19:25. Заголовок: SergKis Так и пишу ..
SergKis Так и пишу ведь что надо вероятно проверять UseSystemSeparators и в зависимости что вернет , юзать или систем сепаратор или сепаратор Excel
SergKis
постоянный участник
Пост N: 4224
Зарегистрирован: 17.02.12
Отправлено: 16.02.23 19:53. Заголовок: Dima В xml беру Exc..
Dima В xml беру Excel сепаратор без вариантов и хватает. Без ole переживу (надобность была только для примеров, причем еще недавно они работали), в примере выше, кидал архив, замену на кнопку вместо :ExcelOle() кода форм. простого варианта для hbXlsXml.lib, можно менять на :Excel2(). Этого для примеров мне достаточно. Спасибо
Поддерживаю. ExcelOle() не востребованный метод. Если нужна черновая выгрузка, то она пишется за полчаса один раз. Для отчётов вообще не подходит , тут XML круче. Можно XlsWriter еще пользовать, там функционал впечатляет, но натыкался на проблемы с окном и вернулся на XML
Выложил 1-е обновление сборки 23.02 с учетом последних исправлений и дополнений
Перешёл на него и пришлось откатиться назад. Функция ISDIRECTORY() - перестала правильно определять директории. Если в пути стоит последний знак "\" то новая функция теперь выдаёт .F. Можно это как то исправить ?
Да, я тоже обратил на это внимание. Дело в том, что функция ISDIRECTORY() включена в Харбор только для совместимости с хHarbour (она берется из библиотеки xhb).
Исправить это можно, если записать вверху своего модуля такую строку:
Отправлено: 26.02.23 22:44. Заголовок: gfilatov2002 пишет И..
gfilatov2002 пишет
цитата:
Исправить это можно, если записать вверху своего модуля такую строку:
По мне, лучше просканировать prg файлы и заменить все IsDirectory(...) на hb_DirExists(...), меньше головной боли Или вставлять эту строку глобально в minigui.ch или hmg.ch
Все даты в формате GMT
3 час. Хитов сегодня: 336
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет
). 
и :nClrFore -> 0 
, сам не пойму, в чем дело (у меня win10). 
- участник сейчас на форуме
- участник вне форума