Автор | Сообщение |
gfilatov
|
| модератор
|
Пост N: 699
Зарегистрирован: 25.05.05
|
|
Отправлено: 29.01.08 13:59. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
|
|
|
Новых ответов нет
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[см. все]
|
|
Haz
|
| |
Пост N: 1444
Зарегистрирован: 20.02.11
|
|
Отправлено: 20.03.19 18:31. Заголовок: Косячек в ::GoToRec()
Григорий, уберите пожалуйста проверку на номер записи. С индексами и фильтром при наличии проверки не работает метод ( конкретно под ADS , остальное не проверял ) METHOD GotoRec( nRec, nRowPos ) CLASS TSBrowse LOCAL cAlias LOCAL nSkip LOCAL n LOCAL nRecSave LOCAL lRet := .F. LOCAL lReCount := .F. IF ::lIsDbf javascript:pst3('','','','[font%20color=blue]',''); lRet := .T. cAlias := ::cAlias ::nLastPos := ( cAlias )->( RecNo() ) вот эта строка портит позицию если удалить все нормально nRec := Min( ( cAlias )->( LastRec() ), nRec ) с этой проверкой пытается встать на запись которая не входит в фильтр
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1472
Зарегистрирован: 11.02.10
|
|
Отправлено: 20.03.19 21:01. Заголовок: Haz пишет: с этой п..
Haz пишет: цитата: | с этой проверкой пытается встать на запись которая не входит в фильтр |
| Поправил. Благодарю за помощь
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1476
Зарегистрирован: 11.02.10
|
|
Отправлено: 27.03.19 11:02. Заголовок: Выпустил новую сборк..
Выпустил новую сборку 19.03 для BCC 5.5.1 и компиляторов Harbour и xHarbour. Базовый дистрибутив находится по адресу http://hmgextended.com/files/CONTRIB/hmg-19.03-setup.exe Также имеются дополнительные сборки для следующих Си-компиляторов: - MinGW 8.3.1 32-bit для Harbour 3.2.0dev; (есть в наличии) - MinGW 8.2.0 64-bit для Harbour 3.4.0dev; (есть в наличии) - MS VisualC 2017 32-bit для Harbour 3.2.0dev; (путь и имя архива не изменял) - MS VisualC 2017 64-bit для Harbour 3.2.0dev; (путь и имя архива не изменял) - Pelles C 8.0 32-bit для xHarbour b10244; (под заказ) - Pelles C 9.0 64-bit для xHarbour b10244; (под заказ) - Borland/Embarcadero C++ 7.3 (32-bit) для Harbour 3.2.0dev; (под заказ) - Open Watcom C/C++ 2.0 (32-bit) для Harbour 3.2.0dev. (под заказ) Эти сборки доступны для всех, кто сделал пожертвование для поддержки развития библиотеки Благодарю за Ваше внимание
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6216
Зарегистрирован: 12.09.06
|
|
Отправлено: 27.03.19 12:18. Заголовок: Григорий, а как полу..
Григорий, а как получить сборки для MS VisualC 2017 ?
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1478
Зарегистрирован: 11.02.10
|
|
Отправлено: 27.03.19 12:58. Заголовок: Andrey пишет: как п..
Andrey пишет: цитата: | как получить сборки для MS VisualC 2017 ? |
| Архивы этих сборок лежат по старым адресам, имена архивов я не менял.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6217
Зарегистрирован: 12.09.06
|
|
Отправлено: 27.03.19 13:12. Заголовок: Спасибо ! :sm36: ..
Спасибо ! И что-то нет доки: * New: Documentation 'Harbour for beginners' in format CHM. It is an original work of Alexander Kresin <alex@kresin.ru> (see hrbfaq.chm in folder \harbour\doc)
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1479
Зарегистрирован: 11.02.10
|
|
Отправлено: 27.03.19 13:24. Заголовок: Andrey пишет: нет д..
Andrey пишет: Документация находится в основном дисрибутиве (для BCC 5.5)
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6218
Зарегистрирован: 12.09.06
|
|
Отправлено: 27.03.19 14:20. Заголовок: Блин... Опять проста..
Блин... Опять простая невнимательность .
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 2303
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.03.19 11:46. Заголовок: gfilatov2002 В ново..
gfilatov2002 В новой версии примеры CheckLabel* валятся с похожей ошибкой Скрытый текст
Application: C:\MiniGui\SAMPLES\BASIC\CheckLabel_3\demo.exe Date: 03/29/19 Time: 10:45:15 Time from start: 0 days 0 hours 0 mins 5 secs Error MGERROR/0 Control: Label_2 Of Form_Main : Refresh method can be used only if FIELD clause is set. Program terminated. Called from MSGMINIGUIERROR(99) in module: h_error.prg Called from _REFRESH(5907) in module: h_controlmisc.prg Called from DOMETHOD(5223) in module: h_controlmisc.prg Called from (b)MAIN(57) in module: demo.prg Called from _DOCONTROLEVENTPROCEDURE(1865) in module: h_windows.prg Called from OLABELEVENTS(308) in module: h_label.prg Called from DOMESSAGELOOP(0) Called from _ACTIVATEWINDOW(1499) in module: h_windows.prg Called from MAIN(138) in module: demo.prg ----------------------------- System Information ------------------------------ ...
|
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 1481
Зарегистрирован: 11.02.10
|
|
Отправлено: 29.03.19 12:56. Заголовок: SergKis пишет: прим..
SergKis пишет: цитата: | примеры CheckLabel* валятся с похожей ошибкой |
| Да, я знаю Уже сделал "тихое" обновление этой сборки Прошу скачать заново и проверить эти исправления Андрей Кстати, обновил архив MSVC-сборки также с учетом последних изменений, рекомендую скачать...
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 2304
Зарегистрирован: 17.02.12
|
|
Отправлено: 29.03.19 13:58. Заголовок: gfilatov2002 пишет П..
gfilatov2002 пишет цитата: | Прошу скачать заново и проверить эти исправления |
| Работает
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6224
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.03.19 16:00. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | Кстати, обновил архив MSVC-сборки также с учетом последних изменений, рекомендую скачать... |
| Спасибо БОЛЬШОЕ ! Григорий, а можно эти функции добавить в базовые ? А то постоянно приходиться добавлять в проги, где есть работа с ини-файлами. Функции не мои, это твоя работа. *--------------------------------------------------------* STATIC Function GetIni( cSection, cEntry, cDefault, cFile ) RETURN GetPrivateProfileString(cSection, cEntry, cDefault, cFile ) *--------------------------------------------------------* STATIC Function WriteIni( cSection, cEntry, cValue, cFile ) RETURN( WritePrivateProfileString( cSection, cEntry, cValue, cFile ) ) *--------------------------------------------------------* STATIC Function IsINISection(cIniFile, cName) Return ( aScan( _GetSectionNames(cIniFile), {|x| UPPER(x) == UPPER(cName)} ) > 0 ) *--------------------------------------------------------* STATIC Function IsVarINISection(cIniFile, cSecName, cName) Return ( aScan( _GetSection(cSecName, cIniFile), {|x| UPPER(x[1]) == UPPER(cName)} ) > 0 )
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6225
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.03.19 20:20. Заголовок: Перешёл на новую вер..
Перешёл на новую версию МиниГуи. Теперь вылетает с ошибкой: Error MGERROR/0 Control: unrecognized property 'BACKGROUNDCOLOR'. Program terminated Called from MSGMINIGUIERROR(99) in module: h_error.prg Called from SETPROPERTY(4126) in module: h_controlmisc.prg Called from MYINITMENUBUTTON6RESAY(1037) in module: form_calc.prg Строка 1037: SetProperty( cForm, cObj, "BackgroundColor", aBackgroundColor ) В текстах программ часто использую. Пришлось откатиться на предыдущую версию.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 2312
Зарегистрирован: 17.02.12
|
|
Отправлено: 31.03.19 20:57. Заголовок: Andrey SetProperty(..
Andrey SetProperty( cForm, cObj, "BackgroundColor", aBackgroundColor ) попробуй
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6226
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.03.19 21:20. Заголовок: SergKis пишет: попр..
SergKis пишет: Блин, это опять все исходники шерстить....
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 2313
Зарегистрирован: 17.02.12
|
|
Отправлено: 31.03.19 21:42. Заголовок: Andrey h_controlmis..
Andrey h_controlmisc.prg line 4025 CASE Arg3 == "BACKCOLOR" .OR. Arg3 == "GRADIENTOVER" .OR. Arg3 == "BACKGROUNDCOLOR" добавь и пересобери libу или пробни #translate BACKGROUNDCOLOR => BACKCOLOR
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6227
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.03.19 22:03. Заголовок: Пере собрал библиоте..
Пере собрал библиотеку. Теперь вылетает на: Error MGERROR/0 Control: unrecognized property 'CAPTURE'. Program terminated. Called from MSGMINIGUIERROR(99) in module: h_error.prg Called from SETPROPERTY(4126) in module: h_controlmisc.prg Called from MYINITMENUBUTTON8RESAY(1493) in module: form_calc.prg Строка 1493: SetProperty( cForm, cObj, "Capture", "" )
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 2314
Зарегистрирован: 17.02.12
|
|
Отправлено: 31.03.19 22:21. Заголовок: и какая версия у теб..
и какая версия у тебя см.уже 1810 не нахожу Captu ?
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 6228
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.03.19 22:57. Заголовок: 19.03..
19.03 @ 190, 20 CHECKBOX &cObj CAPTION cCaption ; ..... В 19.02 работает однако.... Понял в чём дело. Ошибся в синтаксисе я, а раньше версии просто пропускали это. вместо SetProperty( cForm, cObj, "Capture", "" ) надо SetProperty( cForm, cObj, "CAPTION", "" ) Заработало !
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 2316
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.04.19 11:48. Заголовок: gfilatov2002 Предла..
gfilatov2002 Предлагаю добавить в CLASS TControl ... DATA lMsg AS LOGICAL INIT .T. ... METHOD SetMsg( cText, lDefault ) CLASS TControl ... If ! ::lMsg .or. ::nStatusItem < 1 return Nil EndIf ... тогда можно отключать "порчу" 1го itemа StatusBar, проделываемого TsBrowse. К примеру DEFINE TBROWSE Entity OBJ oBrw AT :Y, :X ALIAS Alias() CELL ; WIDTH This.ClientWidth - :X - :R ; HEIGHT This.ClientHeight - :Y - :B - ; This.StatusBar.Height ; COLORS App.Cargo:BrwColors ; ON INIT {|ob| TsbCreate( ob ) } :lMsg := .F. END TBROWSE ON END {|ob| ob:SetNoHoles() } dbSelectArea( App.Cargo:AllEntAls ) DEFINE TBROWSE AllEntity OBJ oBrw AT This.Tree_1.Row, This.Tree_1.Col ; ALIAS Alias() CELL ; WIDTH This.ClientWidth - :L - :R ; HEIGHT This.Entity.Height ; COLORS App.Cargo:BrwColors ; ON CHANGE {|ob| ob:DrawFooters() } ; ON INIT {|ob| TsbCreate( ob ) } :lMsg := .F. END TBROWSE ON END {|ob| ob:SetNoHoles(), This.AllEntity.Hide } ...
|
|
|
Новых ответов нет
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[см. все]
|
|