Отправлено: 29.01.08 13:59. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI (часть III) (продолжение)

Начало темы находится здесь, а теперь

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Готовится к опубликованию новая сборка №48, которая выйдет в конце недели.
Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне

Кратко, что нового:

- исправление обнаруженных ошибок и неточностей кода;
- новый класс HEADERIMAGE для Grid и Browse;
- свойство Address в Hyperlink может теперь открывать папку или файл на диске;
- добавлен NOTABSTOP класс для Browse;
- поддержка пользовательских компонентов (заимствована из оффициального релиза);
- расширения и исправления в библиотеках TsBrowse и PropGrid;
- обновлены сборки Харбор и HMGS-IDE;
- новые и обновленные старые примеры (как обычно ).

 Отправлено: 23.11.08 20:35. Заголовок: gustow пишет: Жду к..

gustow пишет:

цитата:

Жду комментов и от остального сообщества.

По-моему, получается очень даже неплохо. Стиль приятен, хорошо сочетается строгость изложения с юмором, читается легко.
Гуру MiniGui повторение азов могут пропустить, а для чайников вроде меня, не отягощенных "вижуалами" в самый раз.
Думаю, что можно и расширять описание там, где уж слишком короткое оригинальное описание.
Спасибо!!!
Желаю чтобы не иссякал творческий запал и мотивация! Здоровья тестеру дочурке!

 Отправлено: 24.11.08 03:03. Заголовок: Спасибо за отклики! ..

Спасибо за отклики! ("тестер" намылился уже писать прогу "Список наших ДиВиДюков" - растет, блин! скоро и до "учета больничных листов" можно будет допустить :) ).

"Творческий запал" пока не иссякает (да и самому интересно фиксировать - это ж я и пишу примерно так, как ей объясняю, и корректируя ход "лекции" по ее вопросам-реакциям), только не быстро сказка сказывается...

Положил еще пару-тройку главок сюда же:

http://gustow.narod.ru/harbour/MiniGUI_help/welcome.htm

Если что - можно писать на gustow33 [bobik] mail.ru

Григорий, я в вашей ветке не мешаюсь? А то, может, в отдельную перенестись?..

Жду комментов (и деловой критики - если будет).

 Отправлено: 24.11.08 11:34. Заголовок: gustow пишет: цит..

gustow пишет:

цитата:

цитата: Жду комментов и от остального сообщества.

Классно пишешь, то что нужно. Мне тоже надо свое подрастающее поколение приучать....
А где насчет Tbrowse (которое упоминалось) прочитать ?

 Отправлено: 24.11.08 11:46. Заголовок: gustow пишет: Григо..

gustow пишет:

цитата:

Григорий, я в вашей ветке не мешаюсь?

Нет, тема ведь общая...

 Отправлено: 24.11.08 13:36. Заголовок: gfilatov пишет: Нет..

gfilatov пишет:

цитата:

Нет, тема ведь общая...

Хозяин - барин :) Продолжаю тут.

Andrey пишет:

цитата:

Мне тоже надо свое подрастающее поколение приучать....

Давай-давай! Пусть "с младых ногтей" знают, что в мире есть не только "купленное" или "стыренное" :) - но и "свободное", "всеми-кучей-(да-и-мной-тоже)-сделанное" (а, соответственно - "всехнее") :)

Andrey пишет:

цитата:

А где насчет Tbrowse (которое упоминалось) прочитать ?

Лежит "рядом", на http://gustow.narod.ru/tsb_help/topic0.htm

Положил еще в марте 2008; как тогда писал

цитата:

(пока от HMG build 30 - чуть позже добавлю "добавки" от "свежего"; там не так уж много добавилось). Поправил некоторые Янушевы "косяки", кое-что добавил для большей "разборчивости"...

...но, как сам для себя высняю (в т.ч. и в процессе перевода [и - изрядного "расширения" за счет добавочных объяснений, примеров, скринов и т.п.] MiniGUI-хэлпа), придется и там изрядно добавлять...

К примеру, так пока и не понял, как "малой кровью" (без "изгалений") сделать хидеры (headers) выглядящими как в обычном BROWSE (т.е. не "плоскогрудыми" [3DLOOK - не особо "спасает", хотя чуть-чуть лучше], а похожими на кнопки "по умолчанию" [иначе TBROWSE - во всяком случае, у меня под 98-й - выглядит уж очень "самопально"] )... Или как (опять же - без "изгалений" с отловом событий или правкой исходников TBROWSE) сделать у него реакцию выбора (в режиме "по умолчанию" [т.е. в GRID] - выделяет всю строку) как у BROWSE по DBLCLICK - чтобы и по дубль-клику, и по ENTER'у... Да и много подобных "новичковых" вопросов возникает по ходу дела ("чё они - не могли сделать как там?..") (приходится частенько лазать в исходники - хотя оно, конечно, не без пользы :) )

Это, конечно, "не горит", так... Но - глядя со своих (тоже пока вполне "чайницких") колоколен - вижу, что есть еще над чем поработать в "TBROWSE для чайников"... :) С учетом подобного и "лопачу" MiniGUI-самоучитель - и себе, и людям!.. :)

Григорий! Может, в заголовочном (первом) посте этого "продолжения части III" изменить АНОНС с 48-го на "свежий" (58-й, например) билд - а то, может, кого из новичков "дезориентирует" ("тому уж нынче триста лет..." :) ) ?..

 Отправлено: 24.11.08 14:11. Заголовок: gustow пишет: Григо..

gustow пишет:

цитата:

Григорий! Может, в заголовочном (первом) посте этого "продолжения части III" изменить АНОНС с 48-го на "свежий"

Понял
Анонс следующего билда (60-го) выйдет в новой теме "продолжения части IV"

 Отправлено: 24.11.08 15:45. Заголовок: gfilatov пишет: Ано..

gfilatov пишет:

цитата:

Анонс следующего билда (60-го)

Ооо!! С юбилеем (и HMG team, и всех нас)!!! Первый... я :)

Прямо так и вспоминается (из "старых добрых застойных") (естественно, "левитановским" голосом и после 5-го литра пива): "В честь 60-го билда библиотеки MiniGUI встали на юбилейную трудовую вахту!.. коллективы баголовов и подразделения флудеров!!.. Союз экзамплописателей взял $%^$%^ические обязательства!!!.. Руководствуясь Постановлением осеннего Пленума Политбюро ЦК HMG и лично товарищей!!!!.. С чувством глубокого удовлетворения!!!!!.. Твердой поступью страна идет!!!!!!.. в общем, куда пошлют" :))))

 Отправлено: 25.11.08 13:04. Заголовок: Harbour 1.1.0dev (Rev. 9956)

Обновил сборку компилятора Харбор 1.1.0 для BCC 5.5.1 (Harbour MiniGUI Extended Distribution) по адресу:

http://minigui.mylivepage.ru/file/?fileid=6222

Harbour Build Info
---------------------------
Version: Harbour 1.1.0dev (Rev. 9956)
Compiler: Borland C++ 5.5.1 (32-bit)
PCode version: 0.2

ChangeLog last entry: 2008-11-24 16:41 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
ChangeLog ID: ChangeLog 9956 2008-11-24 15:40:18Z druzus

Built on: Nov 25 2008 11:40:02
Extra C compiler options: -DHB_FM_STATISTICS_OFF -DHB_GUI -DHB_FM_STD_ALLOC
Build options:
Language options: (Clipper 5.3) (Clipper 5.x undoc) (Xbase++) (Flagship) (dirty extensions)

 Отправлено: 26.11.08 11:02. Заголовок: Григорий, спаситель,..

Григорий, спаситель, помогай.

Раньше чтобы работать с базами в DOS кодировке делал так:
REQUEST HB_LANG_RU866
REQUEST HB_CODEPAGE_RU866
REQUEST HB_CODEPAGE_RU1251

USE T001 CODEPAGE RU866 SHARED
(использовал xHarbour)

А теперь меня посылают:
Error BASE/1003 Variable does not exist: RU866
(использую Harbour)

 Отправлено: 26.11.08 11:20. Заголовок: Сергей Р пишет: А т..

Сергей Р пишет:

цитата:

А теперь меня посылают: Error BASE/1003 Variable does not exist: RU866 (использую Harbour)

Команда USE определена в Харборе следующим образом:

#command USE <(db)> [VIA <rdd>] [ALIAS <a>] [<nw: NEW>] ;
[<ex: EXCLUSIVE>] [<sh: SHARED>] [<ro: READONLY>] ;
[CODEPAGE <cp>] [INDEX <(index1)> [, <(indexN)>]] => ;
dbUseArea( <.nw.>, <rdd>, <(db)>, <(a)>, ;
if(<.sh.> .or. <.ex.>, !<.ex.>, NIL), <.ro.> [, <cp>] ) ;
[; dbSetIndex( <(index1)> )] ;
[; dbSetIndex( <(indexN)> )]

Следовательно, предполагается передача символьной строки в параметре <cp>

Вывод: надо записать эту команду в программе так:

USE T001 CODEPAGE "RU866" SHARED

Желаю удачи!

 Отправлено: 26.11.08 11:21. Заголовок: USE T001 CODEPAGE &#..

USE T001 CODEPAGE "RU866" SHARED

 Отправлено: 26.11.08 11:30. Заголовок: Григорий, Павел. Бол..

Григорий, Павел. Большое человеческое спасибо.
А то взялся сделать новую задачу, используя старые работающие исходники и стал получать косяки. Отстал от жизни, а Вы уже далеко убежали. Обыдно.

 Отправлено: 26.11.08 11:42. Заголовок: Сборка получилась, н..

Сборка получилась, но что это за консольное окно вылезает вместе с задачей.
использую xMate

[Harbour]
HB_INSTALL=C:\MiniGUI\HARBOUR
HB_COMMAND=%HB_BIN_INSTALL%\Harbour.Exe %PRG% /m /n /gc0 /es2 /i%HB_INSTALL%\include;c:\minigui\include /dHB_API_MACROS /dHB_FM_STATISTICS_OFF /dHB_STACK_MACROS
Option prefix=/
[C]
C_INC_INSTALL=C:\Borland\BCC55\INCLUDE
C_INSTALL=C:\Borland\BCC55
C_COMP_COMMAND=%C_BIN_INSTALL%\Bcc32.Exe -DHB_API_MACROS -M -c -O2 -e -tWM %CRLF%-DHB_STACK_MACROS -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF -I%HB_INC_INSTALL%;%C_INC_INSTALL% -n%HOME%\Obj %C%
C_LIB_COMMAND=%C_BIN_INSTALL%\TLib.Exe %LIB% /P512 @%RSP% , %LST%
C_LINK_COMMAND=%C_BIN_INSTALL%\iLink32.Exe -Gn -aa -Tpe -s @%LNK%
C_RC_COMMAND=%C_BIN_INSTALL%\Brc32.Exe -r -fo%RES% %RC%
C_DLL_COMMAND=
Option prefix=-
[User]
POSTEXE_COMMAND=
POSTLIB_COMMAND=
POSTDLL_COMMAND=
[Advanced]
Command types=1,1,1,1,1,1,1,1,1
[Environment]
Description 1=
Description 2=
Description 3=
PRG Compiler ver=
C compiler ver=
Subsystem=
Author=
Last update=




[Files]
c:\minigui\lib\tsbrowse.lib=1
c:\minigui\lib\minigui.lib=2
%C_LIB_INSTALL%\C0W32.OBJ=3
c:\minigui\lib\shell32.lib=4
%HB_LIB_INSTALL%\rtl.lib=5
%HB_LIB_INSTALL%\vm.lib=6
%HB_LIB_INSTALL%\gtwin.lib=7
%HB_LIB_INSTALL%\lang.lib=8
%HB_LIB_INSTALL%\codepage.lib=9
%HB_LIB_INSTALL%\macro.lib=10
%HB_LIB_INSTALL%\rdd.lib=11
%HB_LIB_INSTALL%\dbfntx.lib=12
%HB_LIB_INSTALL%\dbfcdx.lib=13
%HB_LIB_INSTALL%\dbffpt.lib=14
%HB_LIB_INSTALL%\hbsix.lib=15
%HB_LIB_INSTALL%\common.lib=16
%HB_LIB_INSTALL%\debug.lib=17
%HB_LIB_INSTALL%\pp.lib=18
%HB_LIB_INSTALL%\libct.lib=19
%HB_LIB_INSTALL%\miniprint.lib=20
%HB_LIB_INSTALL%\hbprinter.lib=21
%C_LIB_INSTALL%\cw32.lib=22
%C_LIB_INSTALL%\import32.lib=23

[DLL Files]
C:\MINIGUI\LIB\minigui.LIB=1
%C_LIB_INSTALL%\C0W32.OBJ=2
%HB_LIB_INSTALL%\rtl.lib=3
%HB_LIB_INSTALL%\vm.lib=4
%HB_LIB_INSTALL%\gtwin.lib=5
%HB_LIB_INSTALL%\lang.lib=6
%HB_LIB_INSTALL%\codepage.lib=7
%HB_LIB_INSTALL%\macro.lib=8
%HB_LIB_INSTALL%\rdd.lib=9
%HB_LIB_INSTALL%\dbfntx.lib=10
%HB_LIB_INSTALL%\dbfcdx.lib=11
%HB_LIB_INSTALL%\dbfdbt.lib=12
%HB_LIB_INSTALL%\common.lib=13
%HB_LIB_INSTALL%\pp.lib=14
%C_LIB_INSTALL%\CW32.LIB=15
%C_LIB_INSTALL%\IMPORT32.LIB=16
%HB_LIB_INSTALL%\optgui.lib=17

 Отправлено: 26.11.08 12:25. Заголовок: Сергей Р пишет: ...

Сергей Р пишет:

цитата:

[Files] ... %HB_LIB_INSTALL%\gtwin.lib=7 ...

Замени эту строку на
%HB_LIB_INSTALL%\gtgui.lib=7
и консольное окно пропадет

 Отправлено: 26.11.08 12:35. Заголовок: Спасибо, Григорий. П..

Спасибо, Григорий. Пропало и не мазолит глаза.

 Отправлено: 27.11.08 14:35. Заголовок: После включения SET..

После включения SET AUTOADJUST ON
если в TSBROWSE стоит oBrw:SetArray...
все равно появляется ошибка:

Called from DBGOTO(0)
Called from TSBROWSE:UPSTABLE(10597)
Called from _AUTOADJUST(2973)
Called from _PROCESSINITPROCEDURE(1409)
Called from _ACTIVATEWINDOW(1250)

 Отправлено: 27.11.08 15:34. Заголовок: krutoff пишет: Посл..

krutoff пишет:

цитата:

После включения SET AUTOADJUST ON если в TSBROWSE стоит oBrw:SetArray... все равно появляется ошибка

krutoff,
Спасибо за информацию!
Эта проблема будет решена в следующей сборке.

 Отправлено: 01.12.08 15:48. Заголовок: Кто мой перевод Mini..

Кто мой перевод MiniGUI-доки читает - какие-то мнения, сомнения, дополнения, изменения, ругани (конструктивные) по уже выложенному имеются?

 Отправлено: 02.12.08 08:26. Заголовок: Григорий, блуждая по..

Григорий, блуждая по HMG-форуму HMGforum.com - Portal , наткнулся в одном из постов на упоминание печаталки из Harbour+HMG-программы в разных видах (в т.ч. через "HbPrinter", "MiniPrint", "PDFPrint", "CalcPrint", "ExcelPrint", "HTMLPrint", "CSVPrint", "RTFPrint", "DosPrint").

Зовется MiTPRINT (лежит здесь - в вариантах для MS Office и Open Office). Автор - Jose Miguel (в исходниках не помечено, но в форуме так написано). Правда, и комментарии в исходнике, и описание - в основном на испанском, но в принципе разобраться несложно.

М.б. включить ее в пакет HMG Ext (как пример)? Я проверил - с билдом 1.5.58 работает (по крайней мере HbPrinter, MiniPrint и вывод в Excel).

P.S. Кстати - кто-нибудь в испанском понимает из сообщества? Перевел бы...

 Отправлено: 02.12.08 11:14. Заголовок: gustow пишет: М.б. ..

gustow пишет:

цитата:

М.б. включить ее в пакет HMG Ext (как пример)? Я проверил - с билдом 1.5.58 работает (по крайней мере HbPrinter, MiniPrint и вывод в Excel).

Да, я знаю о ней (текущая ее версия - 2.3). Но решил не включать MiTPRINT в расширенный релиз, поскольку это - отдельный авторизованный проект, ориентированный на испаноязычный контингент

 Отправлено: 02.12.08 20:00. Заголовок: Harbour MiniGUI IDE version 0.7.7 - 2008.12.01

Обновил с учетом последних изменений IDE на сайте http://minigui.mylivepage.ru по адресу:

http://minigui.mylivepage.ru/file/?fileid=6229

Что нового:
- исправлены обнаруженные ошибки

 Отправлено: 08.12.08 16:05. Заголовок: АНОНС * АНОНС * АНОН..

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Готовится к опубликованию новая сборка №60, которая выйдет в конце недели.
Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне

Кратко, что нового:

- исправление обнаруженных ошибок и неточностей кода;
- команда SET AUTOADJUST ON работает для TsBrowse;
- исправления в библиотеке HBPrinter;
- обновлены сборки Харбор и HMGS-IDE, а также HbSQLite3;
- новые и обновленные старые примеры (как обычно ).

 Отправлено: 12.12.08 13:16. Заголовок: Опубликован 60-й релиз Расширенной версии библиотеки MiniGUI

Новый релиз библиотеки выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=6250

а также, как обычно, на сервере http://hmgextended.com по адресу:

http://hmgextended.com/files/CONTRIB/hmg-1.6-60-setup.zip

Желаю всем удачной выкачки!

 Отправлено: 12.12.08 13:26. Заголовок: Поздравляю с юбилейн..

Поздравляю с юбилейной сборкой!
Буду разбираться с новыми "фишками"... и, надеюсь, без особых новых глюков :)

 Отправлено: 12.12.08 14:11. Заголовок: gustow пишет: Поздр..

gustow пишет:

цитата:

Поздравляю с юбилейной сборкой!

Принимается...

gustow пишет:

цитата:

надеюсь, без особых новых глюков

Эта сборка была протестирована на рабочих приложениях Янушем Пора и при этом проблем замечено не было
Но, по определению, количество невыявленных ошибок в ПО бесконечно (по законам Мерфи).

 Отправлено: 15.12.08 13:55. Заголовок: Спасибо, Григорий, з..

Спасибо, Григорий, за труд и энтузиазм!

 Отправлено: 19.12.08 10:12. Заголовок: SET AUTOADJUST ON д..

SET AUTOADJUST ON для TsBrowse все равно не работает

Ошибра происходит при попытке редактирования записи,
находящейся в близи нижней граници окна TBROWSE
Если команду закоментировать все нормально

Error: Harbour MiniGUI 1.6 Extended Edition (Build 60) - 2008.12.12
SplitBox's Parent Window cannot be a 'Virtual Dimensioned' window (use 'Virtual Dimensioned' SplitChild instead). Program terminated
Called from EVENTS(660)
Called from _HMG_SETVSCROLLVALUE(0)
Called from VIRTUALCHILDCONTROLFOCUSPROCESS(1856)
Called from EVENTS(1574)
Called from SETFOCUS(0)
Called from EVENTS(628)
Called from MESSAGEBOXINDIRECT(0)
Called from MSGSTOP(334)
Called from SHOWERROR(181)
Called from MSGMINIGUIERROR(74)
Called from EVENTS(660)
Called from _HMG_SETVSCROLLVALUE(0)
Called from VIRTUALCHILDCONTROLFOCUSPROCESS(1856)
Called from EVENTS(1574)
Called from SETFOCUS(0)
Called from TGETBOX:SETFOCUS(800)
Called from TSBROWSE:EDIT(3629)
Called from TSBROWSE:KEYDOWN(5866)
Called from TSBROWSE:HANDLEEVENT(6516)
Called from EVENTS(73)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(1294)
Called from TBL_STRUK(73) <--------------- ACTIVATE WINDOW Form_spr
Called from (b)MAIN(74)
Called from _DOCONTROLEVENTPROCEDURE(1576)
Called from EVENTS(1359)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(1294)
Called from MAIN(89)

Тоже самое происходит когда в команде TSBROWSE использовать
APPEND. При попадании курсора в нижнюю часть окна получаю ошибку

 Отправлено: 21.12.08 09:35. Заголовок: Работаю только с IDE..

Работаю только с IDE. К сожалению, много из изложенных примеров (как в папке IDE\SAMPLES, так и в MINIGUI\SAMPLES ) повторить не удалось.Ошибки самые разные. Некоторые возникают после сохранения форм.

 Отправлено: 22.12.08 13:07. Заголовок: Опубликован 61-й релиз Расширенной версии библиотеки MiniGUI

Новый релиз библиотеки выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=6280

а также, как обычно, на сервере http://hmgextended.com по адресу:

http://hmgextended.com/files/CONTRIB/hmg-1.6-61-setup.zip

Кратко, что нового:

- исправление обнаруженных ошибок и неточностей кода;
- новый класс BackColor для элемента управления Tab;
- добавлена обработка события OnNotifyIconDblClick для иконки основного окна в трее;
- исправления в библиотеке WinReport;
- обновлены сборки Харбор и HMGS-IDE, а также HbSQLite3;
- новые и обновленные старые примеры (как обычно ).

Поздравляю всех с наступающим Новым Годом!

 Отправлено: 22.12.08 19:03. Заголовок: Error: SET AUTOADJUST ON

К сожалению при установке SET AUTOADJUST ON для окон с параметром CHILD у меня вываливается ошибка

Error: Harbour MiniGUI 1.6 Extended Edition (Build 61) - 2008.12.22
SplitBox's Parent Window cannot be a 'Virtual Dimensioned' window (use 'Virtual Dimensioned' SplitChild instead). Program terminated
Called from EVENTS(662)
Called from _HMG_SETVSCROLLVALUE(0)
Called from VIRTUALCHILDCONTROLFOCUSPROCESS(1862)
Called from EVENTS(1724)
Called from SETFOCUS(0)
Called from _SETACTIVATIONFOCUS(1471)
Called from _ACTIVATEWINDOW(1287)

 Отправлено: 22.12.08 23:44. Заголовок: krutoff пишет: при ..

krutoff пишет:

цитата:

при установке SET AUTOADJUST ON для окон с параметром CHILD у меня вываливается ошибка

Попробуй добавить такое изменение в файл h_windows.prg:

цитата:

*-----------------------------------------------------------------------------* Procedure VirtualChildControlFocusProcess( nControlHandle , nWindowHandle ) *-----------------------------------------------------------------------------* Local x := 0 Local nWindowVirtualWidth := 0 Local nWindowVirtualHeight := 0 Local nWindowHeight := 0 Local nWindowWidth := 0 Local nControlHeight := 0 Local nControlWidth := 0 Local nControlRow := 0 Local nControlCol := 0 Local nHorizontalScrollBoxPos := 0 Local nVerticalScrollBoxPos := 0 Local nHorizontalScrollBarRangeMax := 0 Local nVerticalScrollBarRangeMax := 0 Local nVisibleAreaFromRow := 0 Local nVisibleAreaFromCol := 0 Local nVisibleAreaToRow := 0 Local nVisibleAreaToCol := 0 Local nNewScrollBarPos := 0 IF _HMG_AutoScroll == .F. .or. _HMG_AutoAdjust == .T. Return ENDIF ...

 Отправлено: 25.12.08 17:47. Заголовок: Harbour 1.1.0dev (Rev. 10001) - SVN 2008-12-24 04:56

Обновил сборку компилятора Харбор 1.1.0 для BCC 5.5.1 (Harbour MiniGUI Extended Distribution) по адресу:

http://minigui.mylivepage.ru/file/?fileid=6281

Harbour Build Info
---------------------------
Version: Harbour 1.1.0dev (Rev. 10001)
Compiler: Borland C++ 5.5.1 (32-bit)
PCode version: 0.2
ChangeLog last entry: 2008-12-24 04:56 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
ChangeLog ID: ChangeLog 10001 2008-12-24 03:53:26Z druzus

Built on: Dec 24 2008 11:24:24
Extra C compiler options: -DHB_FM_STATISTICS_OFF -DHB_GUI -DHB_FM_STD_ALLOC
Build options:
Language options: (Clipper 5.3) (Clipper 5.x undoc) (Xbase++) (Flagship) (dirty extensions)

а также сборку Leto RDD build 0.7 с учетом последних изменений в Харборе по адресу:

http://minigui.mylivepage.ru/file/?fileid=6282

 Отправлено: 15.01.09 16:17. Заголовок: Harbour MiniGUI IDE version 0.7.9 - 2008.12.23

Обновил с учетом последних изменений IDE на сайте http://minigui.mylivepage.ru по адресу:

http://minigui.mylivepage.ru/file/?fileid=6448

Что нового:
- добавлено свойство BackColor в элемент управления Tab;
- исправлена ошибка при сохранении вложенных меню.

 Отправлено: 20.01.09 18:20. Заголовок: ­Уважаемый Григорий, а куда послать наработки?

*PRIVAT*

 Отправлено: 21.01.09 11:14. Заголовок: Harbour 1.1.0dev (Rev. 10072) - SVN 2009-01-20 00:20

Обновил сборку компилятора Харбор 1.1.0 для BCC 5.5.1 (Harbour MiniGUI Extended Distribution) по адресу:

http://minigui.mylivepage.ru/file/?fileid=6528

Harbour Build Info
---------------------------
Version: Harbour 1.1.0dev (Rev. 10072)
Compiler: Borland C++ 5.5.1 (32-bit)
PCode version: 0.2
ChangeLog last entry: 2009-01-20 00:20 UTC+0100 Francesco Saverio Giudice (info/at/fsgiudice.com)
ChangeLog ID: ChangeLog 10072 2009-01-19 23:19:32Z fsgiudice

Built on: Jan 20 2009 10:48:38

 Отправлено: 21.01.09 15:18. Заголовок: Всем добрый день. П..

Всем добрый день.

Похоже, я нашел баг с TSBrowse. Как воспроизвести:

- Открываем IDE
- Создаем новый проект
- Создаем новую форму
- Добавляем на форму TSBrowse
- Заходим в меню Tools->Preferences (это окно должно перекрыть форму) и тащим окно вниз. При появлении верхней части TSBrowse IDE падает:

Date: 01/21/09 Time: 16:09:23
Error DBCMD/2001 Workarea not in use: DBGOTO


Called from DBGOTO(0)
Called from TSBROWSE:PAINT(7768)
Called from TCONTROL:HANDLEEVENT(874)
Called from TSBROWSE:HANDLEEVENT(6552)
Called from EVENTS(72)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(1300)
Called from PREFERENCES(2228)
Called from (b)BUILDMENU(264)
Called from _DOCONTROLEVENTPROCEDURE(1582)
Called from EVENTS(1366)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(1300)
Called from DOMETHOD(4609)
Called from NEWFORM(1322)
Called from (b)MAIN(92)
Called from _DOCONTROLEVENTPROCEDURE(1582)
Called from EVENTS(1422)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(1300)
Called from MAIN(158)

MiniGUIe 1.6 Build 61, с новым GUI 0.7.9.

Кроме того, похоже, что иногда, после сохранения формы с TSBrowse, выхода и повторного открытия этой формы, TSBrowse исчезает. Но тут на 100% воспроизвести не удалось.

 Отправлено: 21.01.09 18:14. Заголовок: quiet пишет: Похоже..

quiet пишет:

цитата:

Похоже, я нашел баг с TSBrowse

Да, есть такая бяка в IDE при выполнении вышеописанных условий (новый проект, новая форма и т.д.).
Для того, чтобы обойти эту ошибку, достаточно сохранить форму с TSBrowse перед открытием окна настроек Preferences.

 Отправлено: 22.01.09 11:57. Заголовок: Опубликован 62-й релиз Расширенной версии библиотеки MiniGUI

Новый релиз библиотеки выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=6539

а также, как обычно, на сервере http://hmgextended.com по адресу:

http://hmgextended.com/files/CONTRIB/hmg-1.6-62-setup.zip

Кратко, что нового:

- громадная чистка кода для успешной компиляции с ключом -w3;
- исправления в библиотеках HbPrinter, MiniPrint и TsBrowse;
- обновлены сборки Харбор и HMGS-IDE, а также HbSQLite3;
- новые и обновленные старые примеры (в частности, альфа версия ДЕКОМПИЛЯТОРА кода консольного Харбора).

Желаю всем удачной выкачки!

 Отправлено: 26.01.09 12:43. Заголовок: Harbour MiniGUI IDE version 0.8.0 - 2009.01.25

Обновил с учетом последних изменений IDE на сайте http://minigui.mylivepage.ru по адресу:

http://minigui.mylivepage.ru/file/?fileid=6575

Что нового:
- добавлена обработка BackColor в элементах управления Radio, Slider, Hyperlink;
- исправлено обновление BackColor в элементе управления Tab.

 Отправлено: 26.01.09 15:09. Заголовок: Баг для xHarbour

Я попытался сформировать библиотеки версии 1.6-62 на xHarbour 1.1.0 у меня вылетает и дает даже сбой по памяти. Нашел причину в ключе -w3. Оставил предыдущую версию MakeLib.Bat с ключом -w2 и все собралось нормально.

 Отправлено: 26.01.09 15:37. Заголовок: krutoff пишет: сфор..

krutoff пишет:

цитата:

сформировать библиотеки версии 1.6-62 на xHarbour 1.1.0

Эта сборка проверялась с помощью xHarbour Compiler build 1.2.0 (SimpLex) (Rev. 6309) по ссылке:

http://hmgextended.com/files/xHARBOUR/xharbour-1.2.0-beta-bin-w32-bcc-5-5.zip

и проблем не было

 Отправлено: 26.01.09 16:16. Заголовок: Запутался

Поставил новую версию xHarbour 1.2.0 но теперь ругает на библиотеку hbzip.lib
(напр. в примере C:\MiniGUI\SAMPLES\BASIC\Zip ) Может есть какая-то новая версия библиотеки Zip
для xHarbour?

 Отправлено: 26.01.09 17:24. Заголовок: Восстановил назад

Поставил старую версию xHarbour 1.1.0, оставил предыдущую версию MakeLib.Bat с ключом -w2 и все работает.

 Отправлено: 26.01.09 18:26. Заголовок: krutoff пишет: тепе..

krutoff пишет:

цитата:

теперь ругает на библиотеку hbzip.lib

Новая версия библиотеки этой библиотеки для xHarbour есть в папке CONTRIB в Files области английского форума MiniGUI (для выкачки потребуется регистрация на этом форуме).

 Отправлено: 02.02.09 15:20. Заголовок: Harbour 1.1.0dev (Rev. 10143) - SVN 2009-02-02 11:02

Обновил сборку компилятора Харбор 1.1.0 для BCC 5.5.1 (Harbour MiniGUI Extended Distribution) по адресу:

http://minigui.mylivepage.ru/file/?fileid=6689

Harbour Build Info
---------------------------
Version: Harbour 1.1.0dev (Rev. 10143)
Compiler: Borland C++ 5.5.1 (32-bit)
PCode version: 0.2
ChangeLog last entry: 2009-02-02 11:02 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
ChangeLog ID: ChangeLog 10143 2009-02-02 09:58:22Z druzus

Built on: Feb 2 2009 13:24:09

 Отправлено: 11.02.09 09:00. Заголовок: Григорий, поправьте,..

Григорий, поправьте, если можно. Когда я в определении CHECKBOX пишу, к примеру:

@ 15, 20 checkbox CH1 of Win_1 ; 
   width 250 ; 
   caption "это чекбокс" ; 
   value .T.

то при компиляции выдает на этой строке "ошибка синтаксиса".

Если же пишу WIDTH _после_ CAPTION (как описано в Help'e), то тогда все нормально. Обычно-то пишу "как учили", но иногда переставлю местами - и приходится, выражаясь, лезть править "ошибку".

Пользую HMG Ext ver.1.6 build 60 (62 еще не брал - м.б. там уже исправлено?)

 Отправлено: 11.02.09 11:52. Заголовок: gustow пишет: попра..

gustow пишет:

цитата:

поправьте, если можно

Спасибо за вопрос! Дело в том, что при определении элемента управления CHECKBOX требуется обязательно определить ключевое слово CAPTION, а вот указание ширины этого элемента является необязательным.

Для устранения указанной неприятности/неудобства и был применен так называемый альтернативный синтаксис, который является нечувствительным к порядку/расположению ключевых слов при определении элементов управления.

Вывод: надо либо использовать альтернативный синтаксис, либо писать команды правильно (с учетом небольших "заморочек").


P.S. Прошу меня простить за нравоучительный тон...

 Отправлено: 11.02.09 16:31. Заголовок: ОК, Григорий, понял,..

ОК, Григорий, понял, буду писать "как учили".
И без вопросов и обиженок (с моей стороны): коли надо - можно меня и "понравоучить" :)

 Отправлено: 12.02.09 13:00. Заголовок: 2009/01/22: Build 62..

цитата:

2009/01/22: Build 62 (HMG 1.6 Extended Edition) Published. * Fixed: A huge code's cleaning for warnings of Harbour 1.1 and xHarbour 1.2 with flag -w3.

Совместимость HMG 1.6 EE с версиями [x]Hb 0.9* еще поддерживается?
Извиняюсь за вопрос - сам проверить не могу. Спасибо.

 Отправлено: 12.02.09 14:11. Заголовок: Петр пишет: Совмест..

Петр пишет:

цитата:

Совместимость HMG 1.6 EE с версиями [x]Hb 0.9* еще поддерживается?

На практике я тоже не проверял. Для Харбора это не критично, поскольку HMG 1.6 EE поставляется с собственной сборкой Харбора.
Для xHarbour проверяется только безошибочность сборки самой библиотеки свежей версией с CVS.

 Отправлено: 12.02.09 14:22. Заголовок: Петр пишет: сам про..

Петр пишет:

цитата:

сам проверить не могу

Старые сборки xHb 0.9* можно взять для проверки на этой странице:
http://www.the-holms.org/xharbour/compiler.htm

 Отправлено: 12.02.09 15:22. Заголовок: Спасибо. И еще один ..

Спасибо.
И еще один вопрос - планируются ли какие-то изменения в С коде в версии 1.6.3 по сравнению с 1.6.2

 Отправлено: 12.02.09 15:59. Заголовок: Петр пишет: планиру..

Петр пишет:

цитата:

планируются ли какие-то изменения в С коде в версии 1.6.3

С моей стороны - не планируются, но я с удовольствием рассмотрю любые Ваши предложения, направленные на улучшение С-кода

 Отправлено: 12.02.09 16:37. Заголовок: Хорошо, я вчера обра..

Хорошо, я вчера обратно портировал HMG 1.6 EE на MinGW 4.3.2. (для внутреннего использования). В ходе спецоперации возникли некоторые мысли.

 Отправлено: 13.02.09 13:49. Заголовок: Григорий, я тут (в п..

Григорий, я тут (в процессе перевода [+ дополнения] Help'а) начал составлять перечень примеров (того, что в SAMPLES; поскольку там многое не только на английском, но и на всяких др. языках; да и назначение не всегда ясно [или есть какие-то "тонкости" или "хитрости" - что-то не работает под 98-й, где-то нужен пароль, где-то еще что-то...]). Полезен будет такой список (вставить его в "сборку")? (правда, он на русском, а сборка и Help'ы англоязычные - но, думаю, проблем с переводом [у кого-нибудь, кто этим владеет лучше, чем я] не возникнет)

P.S. Заодно еще: скомпилировал SAMPLES\Advanced\PDFReader (пока пользую HMG 1.60 под Win98SE) - после компиляции при запуске вылетело по ошибке

Error 6491408/0  S_OK: LOADFILE 
 Called from TOLEAUTO:LOADFILE(0) 
 Called from FOPENACTIVEX(69) 
 Called from (b)PDFREADER(44) 
 Called from _PROCESSINITPROCEDURE(1405) 
 Called from _ACTIVATEWINDOW(1263) 
 Called from DOMETHOD(4608) 
 Called from PDFREADER(49)

 Отправлено: 13.02.09 14:21. Заголовок: gustow пишет: Полез..

gustow пишет:

цитата:

Полезен будет такой список

Конечно, всякая дополнительная инфа будет полезна

gustow пишет:

цитата:

скомпилировал SAMPLES\Advanced\PDFReader (пока пользую HMG 1.60 под Win98SE) - после компиляции при запуске вылетело по ошибке

Для корректной работы этого примера требуется Adobe Acrobat версии 7.0 или старше, поэтому лучше его запускать под WinXP

 Отправлено: 13.02.09 15:37. Заголовок: gfilatov пишет: Для..

gfilatov пишет:

цитата:

Для корректной работы этого примера требуется Adobe Acrobat версии 7.0 или старше, поэтому лучше его запускать под WinXP

Понял! И это уточнение тоже вставлю в "список примеров".

Более-менее доделаю список - положу куда-нибудь для "отсмотрения" и "обсуждения".

 Отправлено: 14.02.09 15:14. Заголовок: XHarbour все равно не идет

Григорий, может подскажешь или ткнешь носом:

Поставил новую версию xHarbour 1.2.0
Поставил новую библиотеку hbzip.lib из английского форума
Установил релиз 1.6-62

Пример C:\MiniGUI\SAMPLES\BASIC\Zip все равно не идет:
...
C:\MiniGUI\SAMPLES\BASIC\Zip>call ..\..\..\batch\compile.bat demo /z
xHarbour Compiler build 1.2.0 (SimpLex) (Rev. 6309)
Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'demo.prg'...

.....

Error: Unresolved external '_inflateEnd' referenced from C:\MINIGUI\XHARBOUR\LIB\HBZIP.LIB|ziparchive
Error: Unresolved external '_deflate' referenced from C:\MINIGUI\XHARBOUR\LIB\HBZIP.LIB|ziparchive
Error: Unresolved external '_get_crc_table' referenced from C:\MINIGUI\XHARBOUR\LIB\HBZIP.LIB|ziparchive
Error: Unresolved external '_deflateEnd' referenced from C:\MINIGUI\XHARBOUR\LIB\HBZIP.LIB|ziparchive
Error: Unresolved external '_deflateInit2_' referenced from C:\MINIGUI\XHARBOUR\LIB\HBZIP.LIB|ziparchive
Error: Unresolved external '_crc32' referenced from C:\MINIGUI\XHARBOUR\LIB\HBZIP.LIB|ziparchive
Error: Unresolved external '_inflateInit2_' referenced from C:\MINIGUI\XHARBOUR\LIB\HBZIP.LIB|ziparchive
Error: Unresolved external '_inflate' referenced from C:\MINIGUI\XHARBOUR\LIB\HBZIP.LIB|ziparchive
Link error.

 Отправлено: 16.02.09 12:37. Заголовок: krutoff пишет: Пост..

krutoff пишет:

цитата:

Поставил новую версию xHarbour 1.2.0 Поставил новую библиотеку hbzip.lib из английского форума Установил релиз 1.6-62 Пример C:\MiniGUI\SAMPLES\BASIC\Zip все равно не идет

Проверил еше раз - у меня все работает
Если нужно, могу выложить более свежую сборку xHarbour 1.2.0 (Rev. 6371) с уже включенной в сборку библиотекой hbzip.lib

 Отправлено: 16.02.09 13:21. Заголовок: Спасибо большое! Жду..

Спасибо большое! Жду.

 Отправлено: 16.02.09 13:42. Заголовок: Harbour 1.1.0dev (Rev. 10285) - SVN 2009-02-16 09:25

Обновил сборку компилятора Харбор 1.1.0 для BCC 5.5.1 (Harbour MiniGUI Extended Distribution) по адресу:

http://minigui.mylivepage.ru/file/?fileid=6753

и xHarbour 1.2.0 (Rev. 6371) для BCC 5.5.1 (CVS 2009-02-08 19:39) по адресу:

http://minigui.mylivepage.ru/file/?fileid=6752

 Отправлено: 16.02.09 22:21. Заголовок: Мистика какая-то!

Удалил Папку xHarbour
Удалил папки Lib, xLib, Source из MiniGUI

Поставил новую версию xHarbour 1.2.0 (6371) с hbzip.lib
Установил релиз 1.6-62
Запустил MakeAllLibs.bat - все библиотеки сформировались. Но...

Пример Zip дает те же неразрешимые ссылки и еще заметил, что при сборке DBView:
Error: Unresolved external '_HB_FUN_HB_CODEPAGE_RU1251' referenced from C:\MINIGUI\SAMPLES\APPLICATIONS\DBFVIEW\SOURCE\DBFVIEW.OBJ

 Отправлено: 16.02.09 22:43. Заголовок: krutoff пишет: HB_C..

krutoff пишет:

цитата:

HB_CODEPAGE_RU1251

Так это русская кодировка ! Нужна библиотека codepage.lib !

 Отправлено: 18.02.09 11:41. Заголовок: Библиотека codepage...

Библиотека codepage.lib, как и все остальные необходимые там есть.
При восстановлении старой версии xHarbour 1.1.0 (и старой hbzip.lib) и предыдущей
версии MakeLib.Bat с ключом -w2 и все работает.

 Отправлено: 23.02.09 17:10. Заголовок: Harbour MiniGUI IDE version 0.8.1 - 2009.02.22

Обновил с учетом последних изменений IDE на сайте http://minigui.mylivepage.ru по адресу:

http://minigui.mylivepage.ru/file/?fileid=6833

Что нового:
- исправление обнаруженных ошибок;
- добавлена возможность переносить элементы управления с одной вкладки на другую в Tab.

 Отправлено: 25.02.09 11:41. Заголовок: Опубликован 63-й релиз Расширенной версии библиотеки MiniGUI

Новый релиз библиотеки выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=6845

а также, как обычно, на сервере http://hmgextended.com по адресу:

http://hmgextended.com/files/CONTRIB/hmg-1.6-63-setup.zip

Кратко, что нового:

- чистка Си-кода для устранения устаревших Си-конструкций в [x]Harbour;
- новый элемент управления Folder, свойство TopMost для окон;
- Browse в режиме построчного редактирования может обращаться к связанным базам, используя их алиас;
- исправления в библиотеке HbSqlDD;
- обновлены сборки Харбор и HMGS-IDE, а также HbSQLite3;
- обновлены некоторые старые примеры.

Желаю всем удачной выкачки!

 Отправлено: 25.02.09 16:48. Заголовок: xHarbour+MiniGUI: Help!

Народ, откликнитесь! Что, у всех идет версия 1.6-62, 1.6-63 на xHarbour'е,
или это я только такой неумеха ?

 Отправлено: 25.02.09 19:15. Заголовок: krutoff пишет: у вс..

krutoff пишет:

цитата:

у всех идет версия 1.6-62, 1.6-63 на xHarbour'е

Да, у меня работает без проблем на примерах из папки samples\Basic
Для проверки использовал xHarbour Compiler build 1.2.0 (SimpLex) (Rev. 6371)

Harbour Build Info
---------------------------
Version: xHarbour build 1.2.0 Intl. (SimpLex) (Rev. 6371)
PCode Version: 10
Compiler: Borland C++ 5.5.1 (32 bit)

Built on: Feb 9 2009 14:37:26
Last ChangeLog entry: 2009-02-08 19:39 UTC-0600 Vicente Guerra <vicente@guerra.com.mx>
ChangeLog CVS version: ChangeLog,v 1.6371 2009/02/09 01:42:19 guerra000 Exp

Harbour extensions: Yes
CA-Clipper 5.2e undocumented: Yes
CA-Clipper 5.2e strict compatibility: No
CA-Clipper 5.3x compatible extensions: Yes
Alaska Xbase++ compatible extensions: Yes
CA-Visual Objects compatible extensions: No
Multisoft Flagship compatible extensions: Yes
Microsoft FoxPro compatible extensions: Yes
dBase compatible extensions: No
Object file generation support: No
ANSI C usage: Non strict
C++ mode: Off
Compiler YACC debug mode: Off
Memory tracing and statistics: Off
Maximum symbol name length: 63
---------------------------

 Отправлено: 25.02.09 21:59. Заголовок: Zip

У меня тоже все идет, кроме подключения Zip

 Отправлено: 26.02.09 13:55. Заголовок: Кое-что нашел

1. Если в установках среды стоит строка: MG_CMP=XHARBOUR (чтобы использовать xHarbour по умолчанию)
то дает резавершенные ссылки (см. выше).
2. Если по умолчанию стоит HARBOUR и при компиляции примера указать
параметр /X ( XHARBOUR ) тогда все компилируется как положены.

Вот такая загадка. Буду копать дальше. (Григорий, наверное, использовал при сборке примеров вариант №2)

 Отправлено: 26.02.09 14:57. Заголовок: krutoff пишет: Григ..

krutoff пишет:

цитата:

Григорий, наверное, использовал при сборке примеров вариант №2

Да, конечно. Это - базовый вариант, поскольку по умолчанию используется Харбор.

 Отправлено: 26.02.09 15:42. Заголовок: Накопал !

1. В конфигурации HARBOUR по умолчанию при компиляции с параметром /X /Z
формируются строки библиотек :
c:\minigui\harbour\lib\ziparchive.lib +
c:\MiniGUI\xharbour\lib\hbzip.lib +

!!! И ПОЭТОМУ ВСЁ РАБОТАЕТ.
2. В конфигурации XHARBOUR по умолчанию при компиляции с параметром /X /Z
формируются строки библиотек :
c:\MiniGUI\xharbour\lib\hbzip.lib +
c:\MiniGUI\xharbour\lib\hbzip.lib +

!!! И ПОЭТОМУ НЕ РАБОТАЕТ - поставил вместо первой строки ziparchive.lib -> ВСЁ ЗАРАБОТАЛО

3. Дальше буду решать проблемы с codepage.lib

 Отправлено: 26.02.09 16:27. Заголовок: У меня в компиляции ..

У меня в компиляции при подключении дополнительных библиотек ( например adordd.lib )
с параметром /X все равно берется базовый маршрут HARBOUR

 Отправлено: 26.02.09 16:38. Заголовок: DBView

DBView при компиляции с параметром /X дает неразрешимые ссылки
"Error: Unresolved external '_HB_FUN_HB_CODEPAGE_RU1251' referenced from C:\MINIGUI\SAMPLES\APPLICATIONS\DBFVIEW\SOURCE\DBFVIEW.OBJ
"

 Отправлено: 26.02.09 18:34. Заголовок: krutoff пишет: DBVi..

krutoff пишет:

цитата:

DBView при компиляции с параметром /X дает неразрешимые ссылки

Спасибо за сообщение!
Оказывается, в январе этого года разработчики xHarbour переименовали кодировку RU1251 в RUWIN.
Надо просто заменить в REQUEST RU1251 и при использовании строки "RU1251" на REQUEST RUWIN и "RUWIN".
Эти исправления будут доступны в следующей сборке

 Отправлено: 26.02.09 18:50. Заголовок: Алаверды

Григорий, извини, что нагрузил, я понимаю, что у тебя хватает проблем по разработке и сопровождению (сами немножко такие). Но когда заходишь в тупик,
то таких людей, как Ты не хватает. Спасибо!

 Отправлено: 26.02.09 18:57. Заголовок: Григорий, но остаетс..

Григорий, но остается открытым вопрос - при использовании Zip подключать
билиотеку (Harbour) ziparchive.lib и (xHarbour) hbzip.lib одновременно???

 Отправлено: 13.03.09 11:41. Заголовок: Шрифт по DEFAULT в MiniPrint

Столкнулся вот с тaкой проблемой :
иногда из за неправильной установкой Win XP шрифты в PREVEW отображаются крокозяблами
если в процедуре печати нарочно указать нужный шрифт все ок .
Где нужно вставиь команду SET FONT TO <Font> , <Size> чтобы не переделывать процедуры печати

пробовал в начале программы - не работает

 Отправлено: 16.03.09 19:02. Заголовок: АНОНС * АНОНС * АНОН..

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Готовится к опубликованию новая сборка №64, которая выйдет на этой неделе.
Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне

Кратко, что нового:

- исправление обнаруженных ошибок и неточностей кода;
- в реестр теперь можно записывать числовые данные как DWORD значения;
- небольшие коррекции при блокировке записи в элементе управления Browse;
- MessageBox-функции теперь поддерживают данные любого типа;
- обновлена сборка компилятора Харбор;
- обновлены некоторые старые примеры (как обычно ).

 Отправлено: 17.03.09 14:53. Заголовок: расширение "Еще немного Browse"

gfilatov пишет:

цитата:

Если у Вас есть интересные наработки для включения в новый релиз

Вот некое продолжение ( просмотр и обработка логических полей )

#include "minigui.ch"
#include "Dbstruct.ch"

MEMVAR met
Memvar aresult , l, aWhen , aWhenVarNames, cMacroVar

Function Main
Local aColor := { || if ( rEven() == .F. , RGB( 0, 0, 0 ) , RGB( 255, 0, 0 ) ) }
Local rfi1 := { 'Test->Code','Test->First', 'Test->Last' , 'Test->Birth', 'Test->Married', 'Test->Balance' }
Local rfi2 := { 'Test1->Code' , 'Test1->Sum1' , 'Test1->Sum2' , 'Test1->Sum3' }

Public met:={}

SET DELETED ON
SET BROWSESYNC ON

SET EVENTS FUNCTION TO MYEVENTS

DEFINE WINDOW Form_1;
AT 0,0;
WIDTH 880;
HEIGHT 450;
TITLE 'MiniGUI Browse test';
MAIN NOMAXIMIZE NOSIZE;
ON INIT OpenTables();
ON RELEASE dbcloseall()

DEFINE STATUSBAR
STATUSITEM 'Mouse Right Click To Mark / Unmark a record'
STATUSITEM '<Delete> : Delete record(s)' WIDTH 200
STATUSITEM '<Enter> : Edit inplace' WIDTH 200
END STATUSBAR

@ 10,10 BROWSE Browse_1;
WIDTH 400;
HEIGHT 370;
HEADERS { 'Code', 'First Name', 'Last Name', 'Birth Date', "Married", "Balance" };
WIDTHS { 40 , 90 , 90 , 60 , 40 , 100 };
WORKAREA Test;
FIELDS rfi1;
DYNAMICFORECOLOR {acolor, acolor, acolor, acolor, acolor, acolor};
DYNAMICBACKCOLOR inmet(rfi1);
edit inplace

@ 10,450 BROWSE Browse_2;
WIDTH 400;
HEIGHT 370;
HEADERS { 'Code' , 'Summa1' , 'Summa2', 'Summa3'};
WIDTHS { 50 , 100 , 100 , 100 };
WORKAREA Test1;
FIELDS rfi2;
DYNAMICFORECOLOR {acolor, acolor, acolor, acolor};
DYNAMICBACKCOLOR inmet(rfi2)

ON KEY ESCAPE ACTION Form_1.Release
ON KEY DELETE ACTION rdel()

END WINDOW

CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1


Return Nil

Procedure OpenTables()

if !file("test.dbf")
CreateTable()
endif
if !file("test1.dbf")
CreateTable()
endif

Use Test new
Use Test1 new

Return

Procedure CreateTable
Local aDbf[6][4], i, bdbf[4][4]

aDbf[1][ DBS_NAME ] := "Code"
aDbf[1][ DBS_TYPE ] := "Numeric"
aDbf[1][ DBS_LEN ] := 3
aDbf[1][ DBS_DEC ] := 0
//
aDbf[2][ DBS_NAME ] := "First"
aDbf[2][ DBS_TYPE ] := "Character"
aDbf[2][ DBS_LEN ] := 25
aDbf[2][ DBS_DEC ] := 0
//
aDbf[3][ DBS_NAME ] := "Last"
aDbf[3][ DBS_TYPE ] := "Character"
aDbf[3][ DBS_LEN ] := 25
aDbf[3][ DBS_DEC ] := 0
//
aDbf[4][ DBS_NAME ] := "Birth"
aDbf[4][ DBS_TYPE ] := "Date"
aDbf[4][ DBS_LEN ] := 8
aDbf[4][ DBS_DEC ] := 0
//
aDbf[5][ DBS_NAME ] := "Married"
aDbf[5][ DBS_TYPE ] := "Logical"
aDbf[5][ DBS_LEN ] := 1
aDbf[5][ DBS_DEC ] := 0
//

aDbf[6][ DBS_NAME ] := "Balance"
aDbf[6][ DBS_TYPE ] := "Numeric"
aDbf[6][ DBS_LEN ] := 10
aDbf[6][ DBS_DEC ] := 2

delete file test.dbf
delete file test1.dbf
DBCREATE("Test", aDbf)

Use Test

For i:= 1 To 100
append blank
Replace code with i
Replace First With 'First Name '+ Ltrim(Str(i))
Replace Last With 'Last Name '+ Ltrim(Str(i))
replace birth with date()-Max(10000, Random(20000))+Random(LastRec())
Replace Married With ( i/2 == int(i/2) )
replace Balance with i*10*if(i/5-int(i/5)=0,-1,1)
Next i

use

bDbf[1][ DBS_NAME ] := "Code"
bDbf[1][ DBS_TYPE ] := "Numeric"
bDbf[1][ DBS_LEN ] := 3
bDbf[1][ DBS_DEC ] := 0
//
bDbf[2][ DBS_NAME ] := "Sum1"
bDbf[2][ DBS_TYPE ] := "Numeric"
bDbf[2][ DBS_LEN ] := 10
bDbf[2][ DBS_DEC ] := 2
//
bDbf[3][ DBS_NAME ] := "Sum2"
bDbf[3][ DBS_TYPE ] := "Numeric"
bDbf[3][ DBS_LEN ] := 10
bDbf[3][ DBS_DEC ] := 2
//
bDbf[4][ DBS_NAME ] := "Sum3"
bDbf[4][ DBS_TYPE ] := "Numeric"
bDbf[4][ DBS_LEN ] := 10
bDbf[4][ DBS_DEC ] := 2

DBCREATE("Test1", bDbf)

Use Test1
For i:= 1 To 30
append blank
Replace code with i
Replace sum1 With i*2*if(i/4-int(i/4)=0,-1,1)
Replace sum2 With i*3*if(i/6-int(i/6)=0,-1,1)
replace sum3 with i*10*if(i/5-int(i/5)=0,-1,1)
Next i
use

Return

#define WM_NOTIFY 78
#define NM_CLICK (-2)
#define NM_RCLICK (-5)

Function MyEvents ( hWnd, nMsg, wParam, lParam )
Local i, cFormName, cControlName, result, cControlType, BrowseArea
if nMsg == WM_NOTIFY
if GetNotifyCode ( lParam ) == NM_RCLICK
i := Ascan( _HMG_aFormHandles , hWnd )
cFormName := if( i > 0, _HMG_aFormNames[ i ], "" )
i := Ascan( _HMG_aControlHandles, GetHwndFrom( lParam ) )
cControlName := if( i > 0, _HMG_aControlNames[ i ], "" )
cControlType := if( i > 0, _HMG_aControlType[ i ], "" )
BrowseArea := if(cControlType=="",0,_HMG_aControlSpacing[ i ])
if cControlType == "BROWSE"
result:= pomet(cFormName, cControlName, BrowseArea)
else
result:= Events ( hWnd, nMsg, wParam, lParam )
endif
else
result:= Events ( hWnd, nMsg, wParam, lParam )
endif
else
result:= Events ( hWnd, nMsg, wParam, lParam )
endif
Return result

procedure pomet(cFormName, cControlName, BrowseArea)
local namv := GetProperty( cFormName, cControlName , "Value")
local jj
IF Select (BrowseArea) != 0
Select &BrowseArea
go namv
jj:=ascan(met, alias()+' '+str(recno()))
if jj=0
aadd(met,alias()+" "+str(recno())+"~"+cFormName+"`"+cControlName)
else
adel(met, jj)
asize(met, len(met)-1)
endif
namv:=recno()
skip
if eof()
go namv
skip -1
endif

endif
SetProperty( cFormName, cControlName , "Value",recno())
DoMethod( cFormName , cControlName, "Refresh" )
return

function rEven()
Local i, result:=.F., BrowseArea, BackArea, BackRec

i := ASCAN( _HMG_aControlhandles, GetFocus())

if i>0
BrowseArea := _HMG_aControlSpacing[ i ]
BackArea := Alias()
BackRec := RecNo()
IF Select (BrowseArea) != 0
Select &BrowseArea
result:= if ( ascan(MET,alias()+' '+str(recno())) = 0 , .F. , .T. )
dbselectarea(BackArea)
go BackRec
endif
endif

return result

function cEven(rfi)
Local result:=.F.

if Valtype(rfi)=="N"
if rfi<0
result:=.T.
endif
endif

return result

function kolmet()
Local i, ii, ij, nStart := 1
Local BrowseArea, BackArea, BackRec, cAlias
Local cArri:={}

i := ASCAN( _HMG_aControlhandles, GetFocus())

if i>0
BrowseArea := _HMG_aControlSpacing[ i ]
BackArea := Alias()
BackRec := RecNo()
IF Select (BrowseArea) != 0
Select &BrowseArea
cAlias:=alias()+' '
ii:=len(cAlias)
WHILE nstart > 0
nstart:=ascan(MET, cAlias,nstart)
if nstart>0
ij:=len(met[nstart])-ii
aadd(cArri,substr(met[nstart],ii+1,ij))
nstart:=nstart+1
endif
ENDDO
dbselectarea(BackArea)
go BackRec
endif
endif

return cArri

procedure rdel()
Local sumrec, sumrec2, cArri:=kolmet()
Local i, ii, ij, cFormName, cControlName, pod1, pod2
Local BrowseArea, BackArea, BackRec, cAlias
sumrec:=len(cArri)
sumrec2:=sumrec
if sumrec2=0
return
endif
if msgYesNo("Delete "+ltrim(str(sumrec2))+" record"+if(sumrec2=1,"?","s?"), "Delete records")
i := ASCAN( _HMG_aControlhandles, GetFocus())
if i>0
BrowseArea := _HMG_aControlSpacing[ i ]
BackArea := Alias()
BackRec := RecNo()
IF Select (BrowseArea) != 0
Select &BrowseArea
cAlias:=alias()+' '
if sumrec=0
delete
Skip
if eof()
Go Bottom
EndIf
else
pod1:=at("~",cArri[1])
pod2:=at("`",cArri[1])
cFormName:=substr(cArri[1],pod1+1,pod2-1-pod1)
cControlName:=substr(cArri[1],pod2+1,len(cArri[1])-pod2)
for ii:=1 to sumrec
go val(substr(cArri[ii],1,pod1-1))
delete
ij:=ascan(MET, cAlias+cArri[ii])
adel(met, ij)
asize(met, len(met)-1)
next
go top
endif
SetProperty( cFormName, cControlName , "Value",recno())
DoMethod( cFormName , cControlName, "Refresh" )
dbselectarea(BackArea)
go BackRec
endif
endif
endif
return

function inmet(rfi)
Local il, i, ii, ij, ccolor:={}

ij:=len(rfi)
for il=1 to ij
ii:="{ || if ( cEven("+rfi[il]+")= .F. , ( 255 + ( 255 * 256 ) + ( 255 * 65536 ) ) , ( 255 + ( 255 * 256 ) + ( 0 * 65536 ) ) ) }"
i:=&(ii)
aadd(ccolor,i)
next

return ccolor

#ifndef __XHARBOUR__
#xcommand DEFAULT => OTHERWISE
#endif
*-----------------------------------------------------------------------------*
Function _GetBrowseFieldValue ( cTemp )
*-----------------------------------------------------------------------------*
Local cRet := 'Nil'
Local cType := _TypeEx (cTemp)

Switch cType

CASE 'N'
CASE 'F'
CASE 'I'
CASE 'B'
CASE 'Y'
cRet := lTrim ( Str (&cTemp) )
Exit

CASE 'D'
CASE 'T'
cRet := Dtoc (&cTemp)
Exit

CASE 'C'
CASE '@'
cRet := rTrim ( &cTemp )
Exit

CASE 'L'
cRet := IIF ( &cTemp == .T. , ' '+chr(118)+' ' , ' ' )
Exit

CASE 'M'
cRet := '<memo>'
If ! Empty (&cTemp)
cRet := '<Memo>'
EndIf
Exit

CASE 'G'
cRet := '<General>'
Exit

DEFAULT

If cType == 'UE'
cRet := '<R-Next>'

ElseIf cType == 'UI'
cRet := _GetBrowseFnValue(cTemp)

EndIf

End Switch

Return cRet

*-----------------------------------------------------------------------------*
Function _GetBrowseFnValue ( cTemp )
*-----------------------------------------------------------------------------*
Local cRet := 'Nil'

Switch ValType (cTemp)
Case 'N'
cRet := lTrim ( Str(&cTemp) )
Exit
Case 'D'
cRet := Dtoc(&cTemp)
Exit
Case 'L'
cRet := IIF ( &cTemp == .T. , ' '+chr(118)+' ' , ' ' )
Exit
Case 'C'
cRet := rTrim ( &cTemp )
Exit
Case 'M'
cRet := '<Memo>'
End Switch

Return cRet

*-----------------------------------------------------------------------------*
Function _BrowseInPlaceEdit ( GridHandle , aValid , aValidMessages , aReadOnly , lock , append , aInputItems )
*-----------------------------------------------------------------------------*
Local GridCol , GridRow , i , nrec , _GridWorkArea , BackArea , BackRec
Local _GridFields , FieldName , CellData := '' , CellColIndex
Local aStruct , Width , Decimals , sFieldname , ControlType
Local Ldelta := 0 , aTemp , E , r , p , lInputItems := .F. , aItems := {}, aValues := {}
Local abKeyBlocks := {}
Local bOnDisplay := { || AADD(abKeyBlocks, _GetHotKey ( '_InPlaceEdit', 0, 27 )),;
_ReleaseHotKey ( '_InPlaceEdit', 0, 27 ),;
AADD(abKeyBlocks, _GetHotKey ('_InPlaceEdit', 0, 13 )),;
_ReleaseHotKey ( '_InPlaceEdit', 0, 13 ) }
Local bOnCloseUp := { || _DefineHotKey('_InPlaceEdit', 0, 27, abKeyBlocks[1]),;
_DefineHotKey('_InPlaceEdit', 0, 13, abKeyBlocks[2]),;
abKeyBlocks := {} }
Local aEnabledTypes := {"N","C","D","L","M"}

If append

I := ascan ( _HMG_aControlhandles , GridHandle )

_BrowseInPlaceAppend ( '' , '' , i )

Return Nil

EndIf

If This.CellRowIndex != LISTVIEW_GETFIRSTITEM ( GridHandle )
Return Nil
EndIf

I := ascan ( _HMG_aControlhandles , GridHandle )

_GridWorkArea := _HMG_aControlSpacing

_GridFields := _HMG_aControlRangeMin

CellColIndex := This.CellColIndex

If CellColIndex < 1 .or. CellColIndex > Len (_GridFields)
Return Nil
EndIf

if Len ( _HMG_aControlBkColor ) > 0 .And. CellColIndex == 1
PlayHand()
Return Nil
EndIf

If valType ( aInputItems ) == 'A'
If Len ( aInputItems ) >= CellColIndex
If ValType ( aInputItems [ CellColIndex ] ) == 'A'
lInputItems := .T.
EndIf
EndIf
EndIf

If ValType ( aReadOnly ) == 'A'
If Len ( aReadOnly ) >= CellColIndex
If aReadOnly [ CellColIndex ] != Nil
If aReadOnly [ CellColIndex ] == .T.
_HMG_IPE_CANCELLED := .F.
Return Nil
EndIf
EndIf
EndIf
EndIf

FieldName := _GridFields [ CellColIndex ]

If ASCAN(aEnabledTypes, _TypeEx ( FieldName )) < 1
MsgAlert ("Edit of this field is not supported.", "Warning")
Return Nil
EndIf

r := at ( '>', FieldName )

if r != 0
sFieldName := Right ( FieldName, Len(Fieldname) - r )
p := Left ( FieldName, r - 2 )
If !( Upper( p ) == "FIELD" ) .And. !( Upper( p ) == "_FIELD" )
_GridWorkArea := p
EndIf
Else
sFieldName := FieldName
EndIf

// It the specified area does not exists, when return

If Select (_GridWorkArea) == 0
Return Nil
EndIf

// Save Original WorkArea
BackArea := Alias()

// Selects Grid's WorkArea

Select &_GridWorkArea

// Save Original Record Pointer
BackRec := RecNo()

IF _GridWorkArea == _HMG_aControlSpacing
nRec := _GetValue ( '', '' , i )
Go nRec
EndIf

// If LOCK clause is present, try to lock.

If lock == .T.
If (_GridWorkArea)->( Rlock() ) == .F.
MsgExclamation( _HMG_BRWLangError[9], _HMG_BRWLangError[10] )
// Restore Original Record Pointer
Go BackRec
// Restore Original WorkArea
If Select (BackArea) != 0
Select &BackArea
Else
Select 0
EndIf
Return Nil
EndIf
EndIf

aTemp := __MVGET ( '_HMG_' + ALLTRIM(STR(_HMG_aControlhandles)) + '_WHEN' )

IF VALTYPE ( aTemp ) == 'A'
IF LEN (aTemp) >= LEN (_GridFields)
IF VALTYPE ( aTemp [CellColIndex] ) == 'B'
E := EVAL ( aTemp [CellColIndex] )
IF E == .F.
PlayHand()
// Restore Original Record Pointer
Go BackRec
// Restore Original WorkArea
If Select (BackArea) != 0
Select &BackArea
Else
Select 0
EndIf
_HMG_IPE_CANCELLED := .F.
Return Nil
ENDIF
ENDIF
ENDIF
ENDIF

CellData := &FieldName

aStruct := DbStruct()

r := FieldPos ( sFieldName )

If r > 0
Width := aStruct [r] [DBS_LEN]
Decimals := aStruct [r] [DBS_DEC]
EndIf

GridRow := GetWindowRow (GridHandle)
GridCol := GetWindowCol (GridHandle)

If lInputItems == .T.
ControlType := 'X'
Ldelta := 1
Else
p := Type (FieldName)
Switch p
Case 'C'
Case 'D'
Case 'M'
ControlType := p
Exit
Case 'L'
ControlType := p
Ldelta := 1
Exit
Case 'N'
ControlType := IFEMPTY(Decimals, 'I', 'F')
End Switch
EndIf

_HMG_InplaceParentHandle := If( _HMG_BeginWindowMDIActive, GetActiveMdiHandle(), GetActiveWindow() )

If ControlType == 'M'

r := InputBox ( '' , _HMG_aControlCaption [CellColIndex] , STRTRAN(CellData, chr(141), ' ') , , , .T. )

If _HMG_DialogCancelled == .F.
Replace &FieldName With r
_HMG_IPE_CANCELLED := .F.
Else
_HMG_IPE_CANCELLED := .T.
EndIf

(_GridWorkArea)->( dbrunlock() )

Else

DEFINE WINDOW _InPlaceEdit;
AT This.CellRow + GridRow - _HMG_aControlRow - 1 , This.CellCol + GridCol - _HMG_aControlCol + 2;
WIDTH This.CellWidth;
HEIGHT This.CellHeight + 6 + Ldelta;
MODAL;
NOCAPTION;
NOSIZE;
ON INIT _SetFocus ( 'Control_1' , '_InPlaceEdit' )

ON KEY CONTROL+U ACTION IF( _IsWindowActive('_InPlaceEdit'),;
_InPlaceEdit.Control_1.Value := IF( ControlType == 'L', If ( CellData , 1 , 2 ), CellData ), NIL )
ON KEY RETURN ACTION IF( _IsWindowActive('_InPlaceEdit'),;
_InPlaceEditOk ( i , _InPlaceEdit.Control_1.Value , aValid , CellColIndex ,;
sFieldName , _GridWorkArea , aValidMessages , lock , ControlType , aInputItems ), NIL )
ON KEY ESCAPE ACTION ( _HMG_IPE_CANCELLED := .T. ,;
dbrunlock(), IF( _IsWindowActive('_InPlaceEdit'), _InPlaceEdit.Release, NIL ) )

If lInputItems == .T.

* Fill Items Array
For p := 1 To Len ( aInputItems [ CellColIndex ] )
aadd ( aItems , aInputItems [ CellColIndex ] [p] [1] )
Next p

* Fill Values Array
For p := 1 To Len ( aInputItems [ CellColIndex ] )
aadd ( aValues , aInputItems [ CellColIndex ] [p] [2] )
Next p

r := aScan ( aValues , CellData )

DEFINE COMBOBOX Control_1
ROW 0
COL 0
ITEMS aItems
WIDTH This.CellWidth
VALUE if ( Empty(r) , 1 , r )
FONTNAME _hmg_aControlFontName
FONTSIZE _hmg_aControlFontSize
ON LISTDISPLAY Eval( bOnDisplay )
ON LISTCLOSE Eval( bOnCloseUp )
END COMBOBOX

ElseIf ControlType == 'C'
CellData := rtrim ( CellData )

DEFINE TEXTBOX Control_1
ROW 0
COL 0
WIDTH This.CellWidth
HEIGHT This.CellHeight + 6
VALUE CellData
MAXLENGTH Width
FONTNAME _hmg_aControlFontName
FONTSIZE _hmg_aControlFontSize
END TEXTBOX

ElseIf ControlType == 'D'

DEFINE DATEPICKER Control_1
ROW 0
COL 0
HEIGHT This.CellHeight + 6
WIDTH This.CellWidth
VALUE CellData
UPDOWN .T.
SHOWNONE .T.
FONTNAME _hmg_aControlFontName
FONTSIZE _hmg_aControlFontSize
END DATEPICKER

ElseIf ControlType == 'L'

DEFINE CHECKBOX Control_1
ROW 0
COL 0
WIDTH This.CellWidth
CAPTION ''
VALUE CellData
FONTNAME _hmg_aControlFontName
FONTSIZE _hmg_aControlFontSize
END CHECKBOX

ElseIf ControlType == 'I'

DEFINE TEXTBOX Control_1
ROW 0
COL 0
NUMERIC .T.
WIDTH This.CellWidth
HEIGHT This.CellHeight + 6
VALUE CellData
MAXLENGTH Width
FONTNAME _hmg_aControlFontName
FONTSIZE _hmg_aControlFontSize
END TEXTBOX

ElseIf ControlType == 'F'

DEFINE TEXTBOX Control_1
ROW 0
COL 0
NUMERIC .T.
INPUTMASK Replicate ( '9', Width - Decimals - 1 ) + '.' + Replicate ( '9', Decimals )
WIDTH This.CellWidth
HEIGHT This.CellHeight + 6
VALUE CellData
FONTNAME _hmg_aControlFontName
FONTSIZE _hmg_aControlFontSize
END TEXTBOX

EndIf

END WINDOW

ACTIVATE WINDOW _InPlaceEdit

EndIf

_MdiWindowsActivate ( _HMG_InplaceParentHandle ) // GF HMG 47

_HMG_InplaceParentHandle := 0

SetFocus ( GridHandle )

// Restore Original Record Pointer
Go BackRec

// Restore Original WorkArea
If Select (BackArea) != 0
Select &BackArea
Else
Select 0
EndIf

Return Nil
*-----------------------------------------------------------------------------*
Static Procedure _InPlaceEditOk ( i , r , aValid , CellColIndex , sFieldName , AreaName , aValidMessages , lock , ControlType , aInputItems )
*-----------------------------------------------------------------------------*
Local b , Result , mVar , TmpName

If ValType ( aValid ) == 'A'
If Len ( aValid ) >= CellColIndex
If aValid [ CellColIndex ] != Nil

Result := _GetValue ( 'Control_1' , '_InPlaceEdit' )

If GetControlType( 'Control_1' , '_InPlaceEdit' ) == 'COMBO'
Result := iif ( Result == 1 , .T. , .F. )
EndIf

TmpName := 'MemVar' + AreaName + sFieldname
mVar := TmpName
&mVar := Result

b := Eval ( aValid [ CellColIndex ] )
If b == .f.

If ValType ( aValidMessages ) == 'A'

If Len ( aValidMessages ) >= CellColIndex

If aValidMessages [CellColIndex] != Nil

MsgExclamation ( aValidMessages [CellColIndex] )

Else

MsgExclamation (_HMG_BRWLangError[11])

EndIf

Else

MsgExclamation (_HMG_BRWLangError[11])

EndIf

Else

MsgExclamation (_HMG_BRWLangError[11])

EndIf

Else

_InPlaceEditSave ( i , sFieldname , AreaName , r , lock , ControlType , aInputItems , CellColIndex )

EndIf

Else

_InPlaceEditSave ( i , sFieldname , AreaName , r , lock , ControlType , aInputItems , CellColIndex )

EndIf

EndIf

Else

_InPlaceEditSave ( i , sFieldname , AreaName , r , lock , ControlType , aInputItems , CellColIndex )

EndIf

_HMG_IPE_CANCELLED := .F.

Return

*-----------------------------------------------------------------------------*
Static Procedure _InPlaceEditSave ( i , Fieldname , Alias , r , lock , ControlType , aInputItems , CellColIndex )
*-----------------------------------------------------------------------------*

If ControlType == 'X'
r := aInputItems [ CellColIndex ] [ r ] [ 2 ]
EndIf

If lock == .t.
(Alias)->( Rlock() )
EndIf

FieldName := Alias + "->" + Fieldname
Replace &FieldName With r

If lock == .t.
(Alias)->( dbrunlock() )
EndIf

_BrowseRefresh ( '' , '' , i )

_InPlaceEdit.Release

Return

 Отправлено: 18.03.09 08:28. Заголовок: Григорий, в процессе..

Григорий, в процессе составления "списка примеров" получил (при запуске скомпилированного примера из BASIC\Charts такой вот вылет (см. http://slil.ru/27270178). Win98 SE

 Отправлено: 18.03.09 10:57. Заголовок: gustow пишет: Win98..

gustow пишет:

цитата:

Win98 SE Called from TOLEAUTO:OPEN(0) Called from OPENTABLE(246) in demo.prg Called from (b)MAIN(46) in demo.prg

Ничего удивительного - проверьте, установлен ли у Вас MDAC 2.8 SP1 по ссылке

http://msdn2.microsoft.com/en-us/data/aa937730.aspx

Это необходимо только для "устаревшей" Win98 SE естественно.

 Отправлено: 18.03.09 13:02. Заголовок: Опубликован 64-й релиз Расширенной версии библиотеки MiniGUI

Новый релиз библиотеки выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=6882

а также, как обычно, на сервере http://hmgextended.com по адресу:

http://hmgextended.com/files/CONTRIB/hmg-1.6-64-setup.zip

Также обновил с учетом последних изменений полную сборку IDE
на сайте http://minigui.mylivepage.ru по адресу:

http://minigui.mylivepage.ru/file/?fileid=6881

Что нового в IDE:
- исправление ошибок (как обычно );
- значительно ускорена загрузка больших форм за счет ее оптимизации;
- добавлена возможность компиляции проектов с помощью MinGW (я не проверял).

 Отправлено: 18.03.09 14:04. Заголовок: небольшая, но удобноя, добавочка в Browse

DEFINE CHECKBOX Control_1
ROW 0
COL 0
WIDTH This.CellWidth
CAPTION ''
VALUE CellData
FONTNAME _hmg_aControlFontName
FONTSIZE _hmg_aControlFontSize
ON CHANGE IF( _IsWindowActive('_InPlaceEdit'),;
_InPlaceEditOk ( i , _InPlaceEdit.Control_1.Value , aValid , CellColIndex ,;
sFieldName , _GridWorkArea , aValidMessages , lock , ControlType , aInputItems ), NIL )
END CHECKBOX

 Отправлено: 18.03.09 15:10. Заголовок: gfilatov пишет: про..

gfilatov пишет:

цитата:

проверьте, установлен ли у Вас MDAC 2.8 SP1

Да оно мне как-то (пока) "и даром не надь!.. и с деньгами не надь!.." ((с) м/ф "Волшебное кольцо" - по "Архангельским новеллам") :)

Просто проверял "на дурака" (для описания - "что вижу, о том пою") :)

Хорошо бы прежде чем пытаться открывать - как-то проверить: а оно у клиента на машинке есть? И коли нет - "по-человечески" сказать: мол, обойдесся...

 Отправлено: 18.03.09 15:49. Заголовок: gustow пишет: Хорош..

gustow пишет:

цитата:

Хорошо бы прежде чем пытаться открывать - как-то проверить

Нет проблем - добавьте в самом начале Procedure Main такую проверку:

цитата:

IF !IsWinNT() .AND. !CheckMDAC() MsgStop( 'This Program Runs In Win2000/XP Only!', 'Stop' ) Return ENDIF

где

цитата:

Static Function CheckMDAC() LOCAL oReg, cKey := "" OPEN REGISTRY oReg KEY HKEY_LOCAL_MACHINE ; SECTION "Software\CLASSES\MDACVer.Version\CurVer" GET VALUE cKey NAME "" OF oReg CLOSE REGISTRY oReg Return !EMPTY(cKey)

 Отправлено: 18.03.09 16:00. Заголовок: gfilatov пишет: Нет..

gfilatov пишет:

цитата:

Нет проблем - добавьте в самом начале Procedure Main

Я про пример, который идет в сборке (там бы поправить)... или я уж перфекционизмом мучаюсь?.. :) (хотя, наверно, маловато будет "новичков" с "устаревшей" Win98 - но хочется, чтобы уж все или работало "везде" - или говорило внятно, почему не работает [чтоб новичка непонятными вылетами не пугать])

И... Григорий, не пора ли новую ветку открывать ("часть IV")? Или рановато? А то эта начинается с анонса аж 48-го билда... :)

 Отправлено: 18.03.09 16:20. Заголовок: gustow пишет: Я про..

gustow пишет:

цитата:

Я про пример, который идет в сборке (там бы поправить)...

Сделаю в следующей сборке

gustow пишет:

цитата:

не пора ли новую ветку открывать ("часть IV")? Или рановато?

Ждем-с, пока эта ветка получит хотя бы четыре звезды в форуме

 Отправлено: 24.03.09 14:40. Заголовок: Harbour 1.1.0dev (Rev. 10684) for BCC 5.5.1 (SVN 2009-03-24 01:08)

Обновил сборку компилятора Харбор 1.1.0 для BCC 5.5.1 (Harbour MiniGUI Extended Distribution) по адресу:

http://minigui.mylivepage.ru/file/?fileid=6894

Harbour Build Info
---------------------------
Version: Harbour 1.1.0dev (Rev. 10684)
Compiler: Borland C++ 5.5.1 (32-bit)
PCode version: 0.2
ChangeLog last entry: 2009-03-24 01:08 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
ChangeLog ID: ChangeLog 10684 2009-03-24 00:02:25Z druzus

Built on: Mar 24 2009 10:29:35
Extra C compiler options: -DHB_FM_STATISTICS_OFF -DHB_GUI -DHB_FM_STD_ALLOC
Build options:
Language options: (Clipper 5.3) (Clipper 5.x undoc) (Xbase++) (Flagship) (dirty extensions)

 Отправлено: 03.04.09 12:22. Заголовок: Harbour 1.1.0dev (Rev. 10775) для BCC 5.5.1 (SVN 2009-04-03 03:45)

Снова обновил сборку компилятора Харбор 1.1.0 для BCC 5.5.1 (Harbour MiniGUI Extended Distribution) по адресу:

http://minigui.mylivepage.ru/file/?fileid=6936

Harbour Build Info
---------------------------
Version: Harbour 1.1.0dev (Rev. 10775)
Compiler: Borland C++ 5.5.1 (32-bit)
PCode version: 0.2
ChangeLog last entry: 2009-04-03 03:45 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
ChangeLog ID: ChangeLog 10775 2009-04-03 01:39:08Z druzus

Built on: Apr 3 2009 11:37:04
Extra C compiler options: -DHB_FM_STATISTICS_OFF -DHB_GUI -DHB_FM_STD_ALLOC
Build options:
Language options: (Clipper 5.3) (Clipper 5.x undoc) (Xbase++) (Flagship) (dirty extensions)
---------------------------

 Отправлено: 15.04.09 12:47. Заголовок: Опубликован 65-й релиз Расширенной версии библиотеки MiniGUI

Новый релиз библиотеки выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=7017

а также, как обычно, на сервере http://hmgextended.com по адресу:

http://hmgextended.com/files/CONTRIB/hmg-1.6-65-setup.zip

Что нового:
- исправление обнаруженных ошибок и неточностей кода;
- добавлена возможность перемещения внутри строки по полям в элемент управления GRID
- добавлена возможность перетаскивания записей в элементе управления ListBox;
- обновлена библиотека HbSqlite3 (спасибо Петру Черному!);
- обновлены сборки компилятора Харбор и HMGS-IDE;
- новые примеры использования TsBrowse совместно с ADORDD, простые транзакции для DBF
- обновлены некоторые старые примеры (как обычно ).

 Отправлено: 15.04.09 19:49. Заголовок: Григорий, здравствуй..

Григорий, здравствуйте,

Не могли бы Вы в двух словах рассказать о вот этом:

- поддержка пользовательских компонентов (заимствована из оффициального релиза);

Это реализовано в полном объеме?

Интересно, что сейчас тестируют Xailer2, в котором ждут, похоже, аналогичную функциональность. У некоторых пользователей Xailer "витает" идея User Preview Фаста как обычного контрола.... Хочу понять, это применимо только к Xailer или может использоваться каким-то образом шире.

 Отправлено: 15.04.09 20:47. Заголовок: Здравствуйте, Сергей..

Здравствуйте, Сергей!

Под пользовательскими компонентами в МиниГуи подразумевается возможность создавать собственные элементы управления, не изменяя самой библиотеки. Описание на языке оригинала ниже:

цитата:

User Components Development Reference This standard interface allow HMG users to create its own components (ie: new controls) without need to modify HMG library itself. - InstallEventHandler ( <cEventHandlerFunctionName> )       Every time that an event is triggered by the system the specified       function will be called.       This function will receive the following parameters:                   hWnd, nMsg, wParam, lParam       If your function process the message, it must return a not NIL       value. If not, it must return NIL. - InstallMethodHandler(<cMethodName>,<cMethodHandlerProcName>)       Every time that specified method is called, your procedure will       be executed.       If your procedure process the method, you must set the 'user       process flag' to .T. If not, you must       set it to .F. - InstallPropertyHandler(<cPropName>,<cSetFucName>,<cGetFuncName>)       When the specified property is set, <cSetFucName> is called       with all the original parameters               When the specified property is value retrieved <cGetFucName> is       called with all the original parameters.       In both cases if your functions process the property, you must       set the 'user process flag' to .T.       If not, you must set it to .F. Other Considerations:       If you've created components that requires #command directives       (ie. a control) you must add these definitions to i_UsrInit.ch       file located at HMG's INCLUDE folder.       The definitions must include start and end markers that will be       used to allow the creation of automated installation and       maintenance procedures for components.       The format for start marker is:       #define BASEDEF_<YourComponentTypeName>       The format for end marker is:       #undef BASEDEF_<YourComponentTypeName>       If you've created methods or properties with new names (not       currently specified in i_windows.ch, DECLARE WINDOW command       definition) you must add translation directives for them in       'i_UsrSOOP.ch' file, located at HMG's INCLUDE folder.       The definitions must include start and end markers too and the       translation directives must follow special rules.       The format for start marker is:       #define SOOP_<YourComponentTypeName> ;;       The format for translation directives for methods is:       #xtranslate <Window> . \<Control\> . MethodName  => Domethod ( <"Window">, \<"Control"\> , "MethodName" ) ;;       The format for translation directives for properties is:       #xtranslate <Window> . \<Control\> . PropName  => GetProperty ( <"Window">, \<"Control"\> , "PropName" )  ;;       #xtranslate <Window> . \<Control\> . PropName  := \<v\> => SetProperty ( <"Window">, \<"Control"\> , "PropName" , \<v\> )  ;;       The format for end marker is:       #undef SOOP_<YourComponentTypeName> ;;

 Отправлено: 16.04.09 09:49. Заголовок: Ок. Спасибо. То есть..

Ок. Спасибо. То есть, создание дополнительных компонентов-контролов возможно. Тогда у меня такой вопрос:

Что необходимо было бы от FrsystH.dll, чтобы реализовать контрол-предпросмотр? Например, достаточно ли будет таких методов:

SetHDC() - передать хэндл графического контекста контрола.
DrawPage() - нарисовать страницу на этом контексте.

Этого достаточно?

 Отправлено: 16.04.09 11:16. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Этого достаточно?

Сергей!

Мне трудно что-либо сказать без понимания работы Вашей DLL.
В качестве примера могу привести реализацию универсального обращения к элементу ActiveX, выполненную в качестве пользовательского компонента:

цитата:

*------------------------------------------------------------------------------* Init Procedure _InitActiveX *------------------------------------------------------------------------------* InstallMethodHandler ( 'Release' , 'ReleaseActiveX' ) InstallPropertyHandler ( 'Object' , 'SetActiveXObject' , 'GetActiveXObject' ) Return *------------------------------------------------------------------------------* Procedure _DefineActivex ( cControlName, cParentForm, nRow, nCol , nWidth , nHeight , cProgId ) *------------------------------------------------------------------------------* Local mVar , nControlHandle , aControlHandles , k := 0 , nParentFormHandle , oOle Local nAtlDllHandle , nInterfacePointer * If defined inside DEFINE WINDOW structure, determine cParentForm if _HMG_BeginWindowActive = TRUE .or. _HMG_BeginDialogActive = TRUE cParentForm := iif(_HMG_BeginDialogActive, _HMG_ActiveDialogName, _HMG_ActiveFormName) endif * If defined inside a Tab structure, adjust position and determine * cParentForm if _HMG_FrameLevel > 0 nCol := nCol + _HMG_ActiveFrameCol [_HMG_FrameLevel] nRow := nRow + _HMG_ActiveFrameRow [_HMG_FrameLevel] cParentForm := _HMG_ActiveFrameParentFormName [_HMG_FrameLevel] EndIf * Check for errors * Check Parent Window If .Not. _IsWindowDefined (cParentForm) MsgMiniGuiError("Window: "+ cParentForm + " is not defined. Program terminated" ) Endif * Check Control If _IsControlDefined (cControlName,cParentForm) MsgMiniGuiError ("Control: " + cControlName + " Of " + cParentForm + " Already defined. Program Terminated" ) Endif * Check cProgId If valType (cProgId) <> 'C' MsgMiniGuiError ("Control: " + cControlName + " Of " + cParentForm + " PROGID Property Invalid Type. Program Terminated" ) EndIf If Empty (cProgId) MsgMiniGuiError ("Control: " + cControlName + " Of " + cParentForm + " PROGID Can't be empty. Program Terminated" ) EndIf * Define public variable associated with control mVar := '_' + cParentForm + '_' + cControlName nParentFormHandle := GetFormHandle (cParentForm) * Init Activex aControlHandles := InitActivex( nParentFormHandle , cProgId , nCol , nRow , nWidth , nHeight ) nControlHandle := aControlHandles [1] nInterfacePointer := aControlHandles [2] nAtlDllHandle := aControlHandles [3] If _HMG_BeginTabActive = .T. aAdd ( _HMG_ActiveTabCurrentPageMap , nControlhandle ) EndIf * Create OLE control oOle := CreateObject( nInterfacePointer ) k := _GetControlFree() Public &mVar. := k _HMG_aControlType [k] := "ACTIVEX" _HMG_aControlNames [k] := cControlName _HMG_aControlHandles [k] := nControlHandle _HMG_aControlParenthandles [k] := nParentFormHandle _HMG_aControlIds [k] := 0 _HMG_aControlProcedures [k] := "" _HMG_aControlPageMap [k] := {} _HMG_aControlValue [k] := Nil _HMG_aControlInputMask [k] := "" _HMG_aControllostFocusProcedure [k] := "" _HMG_aControlGotFocusProcedure [k] := "" _HMG_aControlChangeProcedure [k] := "" _HMG_aControlDeleted [k] := .F. _HMG_aControlBkColor [k] := Nil _HMG_aControlFontColor [k] := Nil _HMG_aControlDblClick [k] := "" _HMG_aControlHeadClick [k] := {} _HMG_aControlRow [k] := nRow _HMG_aControlCol [k] := nCol _HMG_aControlWidth [k] := nWidth _HMG_aControlHeight [k] := nHeight _HMG_aControlSpacing [k] := 0 _HMG_aControlContainerRow [k] := iif ( _HMG_FrameLevel > 0 ,_HMG_ActiveFrameRow [_HMG_FrameLevel] , -1 ) _HMG_aControlContainerCol [k] := iif ( _HMG_FrameLevel > 0 ,_HMG_ActiveFrameCol [_HMG_FrameLevel] , -1 ) _HMG_aControlPicture [k] := "" _HMG_aControlContainerHandle [k] := 0 _HMG_aControlFontName [k] := Nil _HMG_aControlFontSize [k] := Nil _HMG_aControlFontAttributes [k] := {} _HMG_aControlToolTip [k] := '' _HMG_aControlRangeMin [k] := 0 _HMG_aControlRangeMax [k] := 0 _HMG_aControlCaption [k] := '' _HMG_aControlVisible [k] := .t. _HMG_aControlHelpId [k] := nAtlDllHandle _HMG_aControlFontHandle [k] := Nil _HMG_aControlBrushHandle [k] := 0 _HMG_aControlEnabled [k] := .T. _HMG_aControlMiscData1 [k] := oOle Return *------------------------------------------------------------------------------* Procedure ReleaseActiveX ( cWindow , cControl ) *------------------------------------------------------------------------------* If _IsControlDefined ( cControl, cWindow ) .And. GetControlType ( cControl , cWindow ) == 'ACTIVEX' ExitActivex( GetControlHandle ( cControl , cWindow ), _HMG_aControlHelpId [ GetControlIndex ( cControl , cWindow ) ] ) _HMG_UserComponentProcess := .T. else _HMG_UserComponentProcess := .F. endif Return *------------------------------------------------------------------------------* Function SetActiveXObject ( cWindow , cControl ) *------------------------------------------------------------------------------* If GetControlType ( cControl , cWindow ) == 'ACTIVEX' MsgExclamation ( 'This Property is Read Only!' , 'Warning' ) endif _HMG_UserComponentProcess := .F. Return Nil *------------------------------------------------------------------------------* Function GetActiveXObject ( cWindow , cControl ) *------------------------------------------------------------------------------* Local RetVal := Nil If GetControlType ( cControl , cWindow ) == 'ACTIVEX' _HMG_UserComponentProcess := .T. RetVal := _GetControlObject ( cControl , cWindow ) else _HMG_UserComponentProcess := .F. endif Return RetVal *-----------------------------------------------------------------------------* Function _GetControlObject ( ControlName, ParentForm ) *-----------------------------------------------------------------------------* Local mVar , i mVar := '_' + ParentForm + '_' + ControlName i := &mVar if i == 0 Return '' EndIf Return ( _HMG_aControlMiscData1 [ &mVar ] ) *------------------------------------------------------------------------------* * Low Level C Routines *------------------------------------------------------------------------------* #pragma BEGINDUMP #include <windows.h> #include <commctrl.h> #include <hbapi.h> #include <hbvm.h> #include <hbstack.h> typedef HRESULT(WINAPI *LPAtlAxGetControl)(HWND hwnd,IUnknown** unk); typedef HRESULT(WINAPI *LPAtlAxWinInit)(void); /* InitActivex() function. 2008.07.15 - Roberto Lуpez <harbourminigui@gmail.com> http://harbourminigui.googlepages.com Inspired by the works of Oscar Joel Lira Lira <oskar78@users.sourceforge.net> for Freewin project http://www.sourceforge.net/projects/freewin */ HB_FUNC( INITACTIVEX ) { HMODULE hlibrary; HWND hchild; IUnknown *pUnk; IDispatch *pDisp; LPAtlAxWinInit AtlAxWinInit; LPAtlAxGetControl AtlAxGetControl; hlibrary = LoadLibrary( "Atl.Dll" ); AtlAxWinInit = ( LPAtlAxWinInit ) GetProcAddress( hlibrary, "AtlAxWinInit" ); AtlAxGetControl = ( LPAtlAxGetControl ) GetProcAddress( hlibrary, "AtlAxGetControl" ); AtlAxWinInit(); hchild = CreateWindowEx( 0, "AtlAxWin",hb_parc(2), WS_CHILD | WS_VISIBLE , hb_parni(3), hb_parni(4), hb_parni(5), hb_parni(6), (HWND)hb_parnl( 1 ) , 0 , 0 , 0 ); AtlAxGetControl( (HWND) hchild , &pUnk ); pUnk->lpVtbl->QueryInterface(pUnk,&IID_IDispatch,(void**)&pDisp); hb_reta( 3 ); hb_stornl( (LONG) hchild , -1, 1 ); hb_stornl( (LONG) pDisp , -1, 2 ); hb_stornl( (LONG) hlibrary , -1, 3 ); } HB_FUNC( EXITACTIVEX ) { DestroyWindow ( (HWND)hb_parnl( 1 ) ); FreeLibrary ( (HMODULE)hb_parnl( 2 ) ); } #pragma ENDDUMP

А теперь пример программы для использования WMPlayer.OCX в качестве элемента ActiveX:

цитата:

/* * MINIGUI - Harbour Win32 GUI library Demo * * Copyright 2002-2008 Roberto Lopez <harbourminigui@gmail.com> * http://harbourminigui.googlepages.com/ * * Activex Sample: Inspired by Freewin Activex inplementation by * Oscar Joel Lira Lira http://sourceforge.net/projects/freewin */ #include "minigui.ch" Procedure Main DEFINE WINDOW Win1 ; AT 0,0 ; WIDTH 800 ; HEIGHT 500 ; TITLE 'ActiveX Component Demo' ; MAIN ; ON MAXIMIZE ( Win1.Test.Width := (Win1.Width) - 100, Win1.Test.Height := (Win1.Height) - 100 ) ; ON SIZE ( Win1.Test.Width := (Win1.Width) - 100, Win1.Test.Height := (Win1.Height) - 100 ) ; ON RELEASE Win1.Test.Release DEFINE MAIN MENU POPUP "Test" MENUITEM "Play File" ACTION Test() END POPUP END MENU DEFINE ACTIVEX Test ROW 10 COL 50 WIDTH 700 HEIGHT 400 PROGID "WMPlayer.OCX.7" END ACTIVEX END WINDOW CENTER WINDOW Win1 ACTIVATE WINDOW Win1 Return Procedure Test() Win1.Test.Object:url := "c:\\minigui\\samples\\basic\\resourcedemo\\sample.wav" Return

Возможно, это покажет Вам путь (например, оформление Вашей DLL как элемента ActiveX )