Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение) » Ответить

Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)

gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).

Ответов - 132, стр: 1 2 3 4 5 6 7 All

gfilatov2002: SergKis пишет: Нет команды SET RESOURCE TO [<cDllName>] // подключить\отключить dll Благодарю за наводку Добавил такую команду в новую сборку. Она позволяет сейчас вывести на форму следующие ресурсы из DLL: - картинка - картинка на кнопку BUTTONEX - иконка - анимация из AVI-файла Dima пишет: [pre2] #xcommand SET RESOURCES TO <cName1> [,<cName2>] ; => ; [ SetResources( <cName2> ); ] SetResources( <cName1> ) #xcommand SET RESOURCES TO => FreeResources()[/pre2] Так и сделал...

Andrey: gfilatov2002 пишет: Она позволяет сейчас вывести на форму следующие ресурсы из DLL: А еще нужен звук и CUSTOM для выгрузки в файл...

gfilatov2002: Andrey пишет: нужен звук и CUSTOM для выгрузки в файл Пример со звуком и выгрузкой в файл отправил по почте...

Andrey: gfilatov2002 пишет: Пример со звуком и выгрузкой в файл отправил по почте... Классно получилось !!! Не ожидал, что так быстро получиться. А можно ресурсы загружать в переменные, а потом передавать их в другие функции и там на форму выводить ?

SergKis: gfilatov2002 Предложение [pre2] *-----------------------------------------------------------------------------* FUNCTION _GetValue ( ControlName, ParentForm, Index ) *-----------------------------------------------------------------------------* ... CASE T == "MASKEDTEXT" ... CASE T == "CHECKLABEL" retval := GetChkLabel( c ) CASE T == "TEXT" .OR. T == "BTNTEXT" .OR. T == "EDIT" .OR. "LABEL" $ T .OR. T == "HYPERLINK" .OR. T == "CHARMASKTEXT" .OR. T == "RICHEDIT" ... *-----------------------------------------------------------------------------* FUNCTION _SetValue ( ControlName, ParentForm, Value, index ) *-----------------------------------------------------------------------------* ... ELSEIF T == "CHECKLABEL" IF Value == NIL Value := ! GetChkLabel ( c ) ENDIF SetChkLabel ( c , Value ) ELSEIF !( "LABEL" $ T ) .AND. T != "RICHEDIT" ... *-----------------------------------------------------------------------------* FUNCTION GetControlValue ( ControlName , ParentForm ) *-----------------------------------------------------------------------------* LOCAL i IF ( i := GetControlIndex ( ControlName , ParentForm ) ) == 0 RETURN Nil ENDIF IF _HMG_aControlType [ i ] == "CHECKLABEL" RETURN GetChkLabel( _HMG_aControlHandles [ i ] ) ENDIF RETURN ( _HMG_aControlValue [ i ] ) тогда включить *-----------------------------------------------------------------------------* FUNCTION _DefineChkLabel ( ControlName, ParentFormName, x, y, Caption, w, h, ; ... _HMG_aControlMiscData2 [k] := '' IF _HMG_lOOPEnabled Eval ( _HMG_bOnControlInit, k, mVar ) ENDIF IF blink == .T. .AND. .NOT. lDialogInMemory ... [/pre2]

SergKis: PS. Возможно пойдет и такое[pre2] *-----------------------------------------------------------------------------* FUNCTION _DefineChkLabel ( ControlName, ParentFormName, x, y, Caption, w, h, ; ... DEFAULT ProcedureName TO {|| _SetValue( ControlName, ParentFormName, NIL ) } [/pre2]

gfilatov2002: SergKis пишет: Предложение Благодарю за помощь! Принято в полном объеме

gfilatov2002: Подготовил очередную бетку для следующей сборки 17.12 Список изменений см. ниже [pre2] * New: Added a possibility to load the resources from an external DLL. We may select an active resources DLL via the new command SET RESOURCES TO <cDLL> and get freed unneeded resources DLL with SET RESOURCES TO. Sample code: SET RESOURCES TO "resources.dll" DEFINE WINDOW Win_1 WINDOWTYPE CHILD ; CLIENTAREA 400, 300 TITLE 'Test' ... END WINDOW ACTIVATE WINDOW Win_1 SET RESOURCES TO It is possible now to load the following resources from DLL: the dialogs, menu with accelerators, icons, images, animates, cursors and sounds. Requested by Verchenko Andrey <verchenkoag@gmail.com>. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Advanced\Resources_DLL) * Enhanced: CHECKLABEL control supports the optional 'Value' property as synonym for the 'Checked' property. You can set/get 'Value' property at runtime as usually. Added a default action for 'On Click' event: it will switch a value similar to the CheckBox control. Suggested and contributed by Sergej Kiselev. Revised by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\CheckLabel_2) * Updated: Synchronized Extended HMG for compatibility with Official HMG: - Enhanced: function ExitProcess() accepts a parameter nErrorLevel as exit code of an application, i.e. ExitProcess( nErrorLevel ). Based upon a contribution of Claudio Soto <srvet@adinet.com.uy>. Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> * Updated: HbSQLite3 library: - update for using SQLITE3 version 3.22.0dev (from 3.21.0). Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: Harbour Compiler 3.2.0dev (SVN 2017-11-22 11:33). Contributed by Grigory Filatov <gfilatov@inbox.ru> (look at ReadMe.txt in folder \harbour) * New: 'Simple implementation of a Rating control' sample: - use the pressed <Shift> key at a mouse click for enter a half star. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\RATING) * New: 'Place a QRCODE to PDF file' sample. Based upon a contribution of HMG user Edward. Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> (see demo2.prg in folder \samples\Advanced\HMG_Zebra) * Updated: 'View and save the images from a website' sample: - added detection of images in <a> tags; - added context menu in image list. Based upon a contribution of HMG user KDJ. Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Advanced\ImageFromWeb) [/pre2] Благодарю за Ваше внимание и поддержку

gfilatov2002: Всем, кому это интересно Подготовил второй RC для следующей сборки 17.12 со следующим списком изменений (см. ниже) [pre2] * New: Added a possibility to load the resources from an external DLL. We may select an active resources DLL via the new command SET RESOURCES TO <cDLL> and get freed unneeded resources DLL with SET RESOURCES TO. Sample code: SET RESOURCES TO "resources.dll" DEFINE WINDOW Win_1 WINDOWTYPE CHILD ; CLIENTAREA 400, 300 TITLE 'Test' ... END WINDOW ACTIVATE WINDOW Win_1 SET RESOURCES TO It is possible now to load the following resources from DLL: the dialogs, menu with accelerators, icons, images, animates, cursors and sounds. Requested by Verchenko Andrey <verchenkoag@gmail.com>. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Advanced\Resources_DLL) * New: Function GetUserTempFolder() returns an User Profile Temp Folder path. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\MAINDEMO (SYNTAX I)) * Enhanced: CHECKLABEL control supports the optional 'Value' property as synonym for the 'Checked' property. You can set/get 'Value' property at runtime as usually. Added a default action for 'On Click' event: it will switch a value similar to the CheckBox control. Suggested and contributed by Sergej Kiselev. Revised by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\CheckLabel_2) * Enhanced: The 'Alignment' property is supported for the LABEL control. You can set/get this property at runtime: - function syntax: SetProperty ( Form, Label, 'Alignment', cAlignment ) GetProperty ( Form, Label, 'Alignment' ) --> cAlignment - pseudo-OOP syntax: Form.Label.Alignment := cAlignment Form.Label.Alignment --> cAlignment where cAlignment may be 'LEFT', 'RIGHT', 'CENTER' or 'VCENTER'. It was a postponed user's request. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo in folder \samples\Basic\LABEL_4) * Updated: Synchronized Extended HMG for compatibility with Official HMG: - Enhanced: function ExitProcess() accepts a parameter nErrorLevel as exit code of an application, i.e. ExitProcess( nErrorLevel ). Based upon a contribution of Claudio Soto <srvet@adinet.com.uy>. Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> * Updated: HbSQLite3 library: - update for using SQLITE3 version 3.22.0dev (from 3.21.0). Contributed by Grigory Filatov <gfilatov@inbox.ru> * Updated: Harbour Compiler 3.2.0dev (SVN 2017-11-22 11:33). Contributed by Grigory Filatov <gfilatov@inbox.ru> (look at ReadMe.txt in folder \harbour) * New: 'Simple implementation of a Rating control' sample: - use the pressed <Shift> key at a mouse click for enter a half star. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Basic\RATING) * New: 'Place a QRCODE to PDF file' sample. Based upon a contribution of HMG user Edward. Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> (see demo2.prg in folder \samples\Advanced\HMG_Zebra) * Updated: 'Print Pie Graph' sample: updated the data for November 2017. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo.prg in folder \samples\Basic\GraphPrint) * Updated: 'Alpha Blend usage' sample: - updated for compatibility with the latest Minigui changes. Contributed by Grigory Filatov <gfilatov@inbox.ru> (see demo2.prg in folder \samples\Advanced\AlphaBlend_2) * Updated: 'View and save the images from a website' sample: - added detection of images in <a> tags; - added context menu in image list. Based upon a contribution of HMG user KDJ. Adapted for Minigui Extended by Grigory Filatov <gfilatov@inbox.ru> (see in folder \samples\Advanced\ImageFromWeb) * Updated: 'TSBrowse: The discovery of different databases on a single form' sample. Based upon a contribution of Sergej Kiselev. Contributed by Verchenko Andrey <verchenkoag@gmail.com> (see in folder \samples\Advanced\Tsb_4bases) [/pre2] Благодарю за Ваше внимание всех, кто оказывал поддержку этому проекту

Andrey: Григорий, а вот в соседней ветке Vlad04 интересуется как получить результат со справочника ! Я высылал тебе пример Tsb_composite - в нём есть такое ! Вдобавок ко всему можно прикрутить свой справочник городов и улиц, там тоже показано как делать. Т.е. добавить колонку справочника города, а в справочник улиц передавать фильтр по городу - KCITY==код и будет сразу работать. Если надо, то ещё раз вышлю архив примера.

SergKis: Попробовал в mdi перевести несколько примеров ... Облом. Не работает. Может кому интересно (может я где не прав). Пример: http://my-files.ru/fzs4u1

alexandr11: gfilatov2002 пишет: Опубликована очередная сборка 17.11 для BCC 5.51 для компиляторов Harbour и xHarbour Базовый дистрибутив-инсталлятор лежит по адресу Григорий, мне приглянулся hbtip.lib из этой сборки можно где-то взять его сырцы? боюсь, что сырцы harbour с github слишком для меня "сырые"

gfilatov2002: alexandr11 пишет: можно где-то взять его сырцы? Библиотека hbtip строится при сборке Харбора из сырцов на github как и другие contrib библиотеки из следующего списка hbct hbhpdf hbmisc hbmzip hbnf hbcomio hbfoxpro hbgzio hbmemio hbnetio hbpipeio hbtcpio hbtip hbwin hbzebra rddbm xhb alexandr11 пишет: сырцы harbour с github слишком для меня "сырые" Я так понимаю, что Вам нужен батник для сборки этой библиотеки

gfilatov2002: SergKis пишет: Не работает Очень нравятся Ваши примеры. Пересобрал этот пример с библиотекой из текущей сборки 17.12 - вроде, нет проблем. А что точно не работает в Вашем примере

alexandr11: gfilatov2002 пишет: Я так понимаю, что Вам нужен батник для сборки этой библиотеки хотелось бы получить батник + именно те сырцы, чтобы пересобрать ее для себя если, конечно, это возможно... я с успехом цепляю эту библиотеку к своему проекту, но мне хотелось бы внести в нее изменения... а если я собираю hbtip.lib из последнего harbour night, то все выходит гораздо хуже... возможно, я просто не так ее собираю

SergKis: gfilatov2002 пишет А что точно не работает в Вашем примере Dokum1 не работает EDITABLE в колонках, т.е. не меняется значения в колонке пробелом Dokum3 корректировка записи включена (загружены все 3-и окна dokum), нажатие на 1-ом поле Enter вызывает переключение фокуса окна на календарь. Label надписей у textbox не реагирует на BackColor, устанавливаю как у окна gProp(BColor)

gfilatov2002: alexandr11 пишет: хотелось бы получить батник Это можно @echo off SET HMGPATH=c:\minigui SET PATH=%HMGPATH%\harbour\bin;c:\bcc55\bin;%PATH% hbmk2 hbtip.hbp >> build.log и файл проекта ниже -hblib -inc -ohbtip -workdir=obj -w3 -es2 -ko encurlc.c mime.c misc.c cgi.prg client.prg credent.prg encb64.prg encoder.prg encqp.prg encurl.prg ftpcli.prg httpcli.prg log.prg mail.prg popcli.prg sendmail.prg sessid.prg smtpcli.prg thtml.prg url.prg alexandr11 пишет: именно те сырцы Сырцы надо брать на github, я ничего не изменял. Для успешной сборки библиотеки добавил в каталог 2 файла: - hbssl.ch - hbssl.hbx Лог-файл сборки - ниже [pre2]hbmk2: Compiling Harbour sources... hbmk2: Compiling... obj\cgi.c: obj\client.c: obj\credent.c: obj\encb64.c: obj\encoder.c: obj\encqp.c: obj\encurl.c: obj\ftpcli.c: obj\httpcli.c: obj\log.c: obj\mail.c: obj\popcli.c: obj\sendmail.c: obj\sessid.c: obj\smtpcli.c: obj\thtml.c: obj\url.c: encurlc.c: mime.c: misc.c: hbmk2: Creating static library... hbtip.lib TLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation /P32 hbtip.lib -+ obj\cgi.obj -+ obj\client.obj -+ obj\credent.obj -+ obj\encb64.obj -+ obj\encoder.obj -+ obj\encqp.obj -+ obj\encurl.obj -+ obj\ftpcli.obj -+ obj\httpcli.obj -+ obj\log.obj -+ obj\mail.obj -+ obj\popcli.obj -+ obj\sendmail.obj -+ obj\sessid.obj -+ obj\smtpcli.obj -+ obj\thtml.obj -+ obj\url.obj -+ obj\encurlc.obj -+ obj\mime.obj -+ obj\misc.obj[/pre2] Пробуйте

alexandr11: gfilatov2002 пишет: Пробуйте Григорий, большое спасибо!

alexandr11: gfilatov2002 пишет: Пробуйте Григорий, а где credent.prg взять?

gfilatov2002: alexandr11 пишет: где credent.prg взять? Это заготовка класса, которую потом убрали из библиотеки [pre2]#include "hbclass.ch" /* * Credentials class * A way to give basic credentials */ CREATE CLASS TIPCredentials VAR cMethod VAR cUserid VAR cPassword ENDCLASS[/pre2]



полная версия страницы