On-line: NickSam, гостей 1. Всего: 2 [подробнее..]
АвторСообщение
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 [только новые]


Haz
moderator


Пост 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 )



с этой проверкой пытается встать на запись которая не входит в фильтр

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




Пост N: 1472
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 20.03.19 21:01. Заголовок: Haz пишет: с этой п..


Haz пишет:

 цитата:
с этой проверкой пытается встать на запись которая не входит в фильтр


Поправил.
Благодарю за помощь

Спасибо: 0 
Профиль
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. (под заказ)

Эти сборки доступны для всех, кто сделал пожертвование для поддержки развития библиотеки

Благодарю за Ваше внимание

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




Пост N: 6216
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 27.03.19 12:18. Заголовок: Григорий, а как полу..


Григорий, а как получить сборки для MS VisualC 2017 ?

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




Пост N: 1478
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 27.03.19 12:58. Заголовок: Andrey пишет: как п..


Andrey пишет:

 цитата:
как получить сборки для MS VisualC 2017 ?


Архивы этих сборок лежат по старым адресам, имена архивов я не менял.

Спасибо: 0 
Профиль
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)


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




Пост N: 1479
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 27.03.19 13:24. Заголовок: Andrey пишет: нет д..


Andrey пишет:

 цитата:
нет доки


Документация находится в основном дисрибутиве (для BCC 5.5)

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




Пост N: 6218
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 27.03.19 14:20. Заголовок: Блин... Опять проста..


Блин... Опять простая невнимательность .

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



Пост N: 2303
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 29.03.19 11:46. Заголовок: gfilatov2002 В ново..


gfilatov2002
В новой версии примеры CheckLabel* валятся с похожей ошибкой Скрытый текст


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




Пост N: 1481
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 29.03.19 12:56. Заголовок: SergKis пишет: прим..


SergKis пишет:

 цитата:
примеры CheckLabel* валятся с похожей ошибкой


Да, я знаю

Уже сделал "тихое" обновление этой сборки

Прошу скачать заново и проверить эти исправления

Андрей
Кстати, обновил архив MSVC-сборки также с учетом последних изменений, рекомендую скачать...

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



Пост N: 2304
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 29.03.19 13:58. Заголовок: gfilatov2002 пишет П..


gfilatov2002 пишет
 цитата:
Прошу скачать заново и проверить эти исправления


Работает

Спасибо: 0 
Профиль
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 )


Спасибо: 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 )

В текстах программ часто использую.
Пришлось откатиться на предыдущую версию.

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



Пост N: 2312
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 31.03.19 20:57. Заголовок: Andrey SetProperty(..


Andrey
SetProperty( cForm, cObj, "BackgroundColor", aBackgroundColor )
попробуй

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




Пост N: 6226
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 31.03.19 21:20. Заголовок: SergKis пишет: попр..


SergKis пишет:

 цитата:
попробуй


Блин, это опять все исходники шерстить....

Спасибо: 0 
Профиль
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

Спасибо: 0 
Профиль
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", ""  )


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



Пост N: 2314
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 31.03.19 22:21. Заголовок: и какая версия у теб..


и какая версия у тебя см.уже 1810 не нахожу Captu ?

Спасибо: 0 
Профиль
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", "" )
Заработало !

Спасибо: 0 
Профиль
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 }
...


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