On-line: гостей 0. Всего: 0 [подробнее..]
АвторСообщение
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;
- новые и обновленные старые примеры (как обычно ).




Спасибо: 5 
Профиль
Ответов - 300 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]


Dima
администратор




Пост N: 7463
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 16.10.21 21:15. Заголовок: Haz пишет: Но после..


Haz пишет:

 цитата:
Но последних там не будет скорее всего


Dima пишет:

 цитата:
и потом как именуются файлы тоже понятно.


http://hmgextended.com/files/CONTRIB/hmg-21.09-setup.exe
http://hmgextended.com/files/CONTRIB/hmg-21.08-setup.exe
http://hmgextended.com/files/CONTRIB/hmg-21.07-setup.exe
http://hmgextended.com/files/CONTRIB/hmg-21.06-setup.exe
и тд и тп :)

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 1939
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 21.10.21 10:16. Заголовок: Всем кому это интересно


Опубликована новая сборка 21.10

Благодарю за помощь Сергея Киселева

Желаю всем доброго здоровья и успеха в делах

Спасибо: 0 
Профиль
Andrey
постоянный участник




Пост N: 7096
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 23.10.21 10:16. Заголовок: Пере собрал нескольк..


Пере собрал несколько своих программ. Полёт нормальный ! Спасибо !

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 1940
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 27.10.21 09:44. Заголовок: Всем кому это интересно ;-)


Выложил 1-й апдейт сборки 21.10

Обновил также Unicode архив.

Благодарю за помощь Андрея Верченко

Желаю всем участникам форума мира и добра

Спасибо: 0 
Профиль
imar2



Не зарегистрирован
Зарегистрирован: 01.01.70
ссылка на сообщение  Отправлено: 28.10.21 08:36. Заголовок: Здравствуйте. Прошу ..


Здравствуйте. Прошу помощи по HMG MiniGUI.

У меня консольное приложение (переведено с Clipper'а).

Почему-то HMG после версии 21.05 поля GET'ов на экране выделяет двоеточиями в начале и конце.

Как это можно убрать и можно ли?

Спасибо.

Спасибо: 0 
gfilatov2002
moderator




Пост N: 1941
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 28.10.21 09:59. Заголовок: imar2 пишет: Как эт..


imar2 пишет:

 цитата:
Как это можно убрать



Надо добавить в самом начале главного модуля такую строку


 цитата:
Set( _SET_DELIMITERS, .F. )




Спасибо: 0 
Профиль
imar2



Не зарегистрирован
Зарегистрирован: 01.01.70
ссылка на сообщение  Отправлено: 28.10.21 10:07. Заголовок: gfilatov2002, большо..


gfilatov2002, большое спасибо. Все стало ОК.

Спасибо: 0 
gfilatov2002
moderator




Пост N: 1942
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 29.10.21 10:11. Заголовок: Всем кому это интересно


Выложил срочное обновление сборки 21.10 из-за обнаруженной досадной опечатки в коде
по адресу:

http://hmgextended.com/files/CONTRIB/hmg-21.10-setup.exe

Что нового:
Скрытый текст


Спасибо: 0 
Профиль
SergKis
постоянный участник




Пост N: 3926
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 29.10.21 13:55. Заголовок: gfilatov2002 пишет В..


gfilatov2002 пишет
 цитата:
Выложил срочное обновление сборки 21.10


к unicode сборке это относится ?

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 1943
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 29.10.21 14:52. Заголовок: SergKis пишет: к un..


SergKis пишет:

 цитата:
к unicode сборке это относится ?


Да, уже обновил unicode сборку тоже.
Благодарю за напоминание

Спасибо: 0 
Профиль
SergKis
постоянный участник




Пост N: 3927
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 29.10.21 18:07. Заголовок: gfilatov2002 пишет у..


gfilatov2002 пишет
 цитата:
уже обновил unicode сборку тоже


получаю архив 21.10 unicode, но в нем все от 26.10.21 числа, в лучшем случае

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 1944
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 29.10.21 19:34. Заголовок: SergKis пишет: полу..


SergKis пишет:

 цитата:
получаю архив 21.10 unicode


Только что проверил этот архив путем скачивания, там все в порядке.
Возможно, вам стоит почистить кэш браузера

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 1945
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 03.11.21 10:35. Заголовок: Всем кому это интересно


Снова обновил сборку 21.10 из-за обнаруженной недоработки после введения в ядро глобального хэша по адресу:

http://hmgextended.com/files/CONTRIB/hmg-21.10-setup.exe

Также выложил свежий unicode-архив для этой сборки

Спасибо: 0 
Профиль
Andrey
постоянный участник




Пост N: 7113
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 08.11.21 13:41. Заголовок: gfilatov2002 пишет: ..


gfilatov2002 пишет:

 цитата:
Выложил срочное обновление сборки 21.10 из-за обнаруженной досадной опечатки в коде


Перекомпилировал свою большую прогу.
Теперь вылетает...
Создаю на окне
          DEFINE TBROWSE oBrwList                               ; 
.....
FONT aTsbFont ;
BACKCOLOR aBackColor2 ;
GRID ; // это oBrw:lCellBrw := TRUE
EDIT // все колонки с lEdit := .T.

END TBROWSE
CreateBrowseAbonTxt('oBrwList', ....)
END WINDOW

CENTER WINDOW Form_AbLst
ACTIVATE WINDOW Form_AbLst

_hmg_InplaceParentHandle := hParent
DoMethod(cWnd, 'SetFocus')
IF ! empty(cFocus)
DoMethod(cWnd, cFocus, 'SetFocus')
ENDIF

RETURN NIL
....
STATIC FUNCTION CreateBrowseAbonTxt(cTbrName,....)
....
// создаём таблицу из массива
oBrwA := SetArrayTo( cTbrName, cForm, aArray, aFontHF, aHead, aFSize,;
aFoot, aPict, aAlign, aName )
.....
MG_Debug(cTbrName,oBrwA:cControlName) // в лог выдаёт -> oBrwList oBrwList

// по правой кнопки мышки - контекстное меню TBROWSE
DEFINE CONTEXT MENU CONTROL &cTbrName
.....

Ошибка при работе проги:
Error MGERROR/0  Form  is not defined. Program terminated. 

Called from MSGMINIGUIERROR(0)
Called from GETFORMHANDLE(0)
Called from _DEFINECONTROLCONTEXTMENU(0)
Called from CREATEBROWSEABONTXT(733) in module: form_dog2abon.prg
Called from FORM_ABONLIST(461) in module: form_dog2abon.prg
Called from DOGLISTABON(224) in module: form_dog2abon.prg
Called from (b)FORM_MYTABLE(507) in module: tbrw_table.prg
Called from DO_WINDOWEVENTPROCEDURE(0)
Called from TWNDDATA:DOEVENT(0)
Called from DO_ONWNDLAUNCH(0)
Called from (b)INIT(0)


Спасибо: 0 
Профиль
SergKis
постоянный участник




Пост N: 3934
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 08.11.21 13:56. Заголовок: Andrey пишет MG_Debu..


Andrey пишет
 цитата:
MG_Debug(cTbrName,oBrwA:cControlName) // в лог выдаёт -> oBrwList oBrwList


Что просишь (по разному), то и получаешь cTbrName,oBrwA:cControlName
спроси после поправленного MG_Debug(...)
? cForm, This.Name, ThisWindow.Name, oBrwA:cParentWnd, oBrwA:cControlName
Думаю, что MG_Debug(...) (окно на варианте HMG_Alert()) между DEFINE WINDOW ... и END WINDOW портит среду This, т.е. что хотел, то и получил

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 1947
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 19.11.21 11:48. Заголовок: Всем кому это интересно


Подготовил третий релиз-кандидат для новой сборки 21.11 со следующим списком изменений:
Скрытый текст

Благодарю за помощь и ваше внимание к этому проекту

Спасибо: 0 
Профиль
SergKis
постоянный участник




Пост N: 3946
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 23.11.21 17:46. Заголовок: gfilatov2002 Неболь..


gfilatov2002
Небольшое предложение по TIMER, выполнять блок кода без смены среды This
h_events.prg
 
****************************************************************************
CASE WM_TIMER
****************************************************************************

i := AScan ( _HMG_aControlIds , wParam )

IF i > 0

IF _HMG_aControlPicture [ i ] == .T. // Once
_DisableControl ( _HMG_aControlNames [ i ], GetParentFormName( i ) )
ENDIF

IF _HMG_aControlVisible[ i ]

_DoControlEventProcedure ( _HMG_aControlProcedures [ i ] , i )

ELSEIF ISBLOCK( _HMG_aControlProcedures[ i ] )
IF _HMG_BeginWindowActive == .F. .OR. _HMG_MainClientMDIHandle != 0
Eval ( _HMG_aControlProcedures[ i ] )
ENDIF

ENDIF


ENDIF
EXIT
****************************************************************************
Пример. На окне MAIN ставим TIMER, а работаем с др. окном в его событиях.
Срабатывание TIMER на MAIN привод к смене на время This среды, что мешает
...
DEFINE WINDOW wMain AT nY, nX WIDTH nW HEIGHT nH ;
...
DEFINE TIMER Timer_1 INTERVAL 20 ACTION ( SetProperty(oMain:Name, "Timer_1", "Enabled", .F.), ;
myFunc1(), SetProperty(oMain:Name, "Timer_1", "Enabled", .T.) )
This.Timer_1.Enabled := .F. // отключить до On Init
_HMG_aControlVisible[ This.Timer_1.Index ] := .F. // выполнять блок кода без смены This среды
...


Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 1948
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 23.11.21 18:09. Заголовок: SergKis пишет: выпо..


SergKis пишет:

 цитата:
выполнять блок кода без смены среды This


Принято.

Спасибо: 0 
Профиль
SergKis
постоянный участник




Пост N: 3947
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 24.11.21 12:47. Заголовок: gfilatov2002 пишет П..


gfilatov2002 пишет
 цитата:
Принято.


Добавить надо для This.Timer_1.Visible := .T.\.F. и Set\GetProperty(..., .T.\.F.)
 
FUNCTION _ShowControl ( ControlName , ParentForm )
...
CASE T == "TIMER"

OTHERWISE
CShowControl ( c )

END CASE

_HMG_aControlVisible [y] := .T.

RETURN Nil

FUNCTION _HideControl ( ControlName , ParentForm )
...
CASE T == "TIMER"

OTHERWISE
HideWindow ( c )

END CASE

_HMG_aControlVisible [y] := .F.

RETURN Nil


Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 1949
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 24.11.21 13:01. Заголовок: SergKis пишет: Доба..


SergKis пишет:

 цитата:
Добавить надо для This.Timer_1


Добавил, конечно...
Благодарю за помощь

Спасибо: 0 
Профиль
Ответов - 300 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 9
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет