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

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

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

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

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

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

 Отправлено: 07.05.13 15:43. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

добавлены новые команды для выгрузки всех видов меню

А можно кратко об этих командах ?

 Отправлено: 07.05.13 15:56. Заголовок: Andrey пишет: А мож..

Andrey пишет:

цитата:

А можно кратко об этих командах ?

Я добавил следующие команды для совместимости с официальным релизом:

- новая функция IsMainMenuDefined ( <FormName> )

- команды уничтожения ранее заданного меню в процессе выполнения программы:

RELEASE MAIN MENU OF <form>

RELEASE CONTEXT MENU OF <form>

RELEASE NOTIFY MENU OF <form>

RELEASE DROPDOWN MENU BUTTON <button> OF <form>
RELEASE DROPDOWNMENU OWNERBUTTON <button> OF <form>

а также пример использования этих команд

 Отправлено: 14.05.13 10:00. Заголовок: Новый релиз библиоте..

Новый релиз библиотеки для компилятора BCC выложил, как и обещал,
на оффициальном сайте библиотеки по адресу:

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

Также доступна полная сборка для компилятора MinGW по адресу:

http://hmgextended.com/files/CONTRIB/hmg222-mingw.exe

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

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

Благодарю всех нетерпеливых и внимательных за 12 скачиваний к этому моменту!

 Отправлено: 15.05.13 04:44. Заголовок: Перешел на версию 2...

Перешел на версию 2.2.2 – полет нормальный
Большое спасибо

 Отправлено: 29.05.13 11:44. Заголовок: gfilatov2002 - хотел..

gfilatov2002 - хотелось бы видеть пример для GUI отладчика для Harbour в поставке MiniGui.
Пускай общественность знает и пользуется классным отладчиком, тем более что в МиниГуи отладки нет, то что есть - неудобно пользоваться.
Кто поддерживает это предложение ?

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

Григорий, спасибо за новую версию. Хочу попробовать ее на XHarbour под Windows 8.
Подскажите, где можно скачать последние бинарники XHarbour для Вашей версии 2.2.2?

 Отправлено: 29.05.13 14:30. Заголовок: krutoff пишет: Подс..

krutoff пишет:

цитата:

Подскажите, где можно скачать последние бинарники XHarbour для Вашей версии 2.2.2?

Можно взять здесь

http://hmgextended.com/files/CONTRIB/xhmg222_xhb9950.zip

 Отправлено: 29.05.13 15:29. Заголовок: Andrey пишет: хотел..

Andrey пишет:

цитата:

хотелось бы видеть пример для GUI отладчика для Harbour

Очень просто:

1) копируете 2 файла - hwgdebug.lib и hwgdebug.exe в папку своего проекта (или примера);
2) запускаете графический отладчик на выполнение по команде
Compile.bat /s /b /l hwgdebug

Вот и все!

 Отправлено: 29.05.13 17:16. Заголовок: Еще было бы хорошо д..

Еще было бы хорошо дополнить эти 2 функции из dbgconnect.prg ( hwgdebug.lib ) кодом для Minigui:

цитата:

Function hwg_dbg_Alert( cMessage ) Local bCode := &( Iif( Type( "hwg_msginfo()" ) == "UI", "{|s|hwg_msginfo(s)}", "{|s|alert(s)}" ) ) Eval( bCode, cMessage ) Return Nil Function hwg_dbg_Quit() Local bCode := &( Iif( Type( "hwg_endwindow()" ) == "UI", "{|s|hwg_endwindow()}", "{||__Quit()}" ) ) Eval( bCode ) Return Nil

 Отправлено: 29.05.13 17:29. Заголовок: Ok :sm52: Function..

Ok

цитата:

Function hwg_dbg_Alert( cMessage ) Local bCode := &( Iif( Type( "hwg_msginfo()" ) == "UI", "{|s|hwg_msginfo(s)}", "{|s|msginfo(s)}" ) ) Eval( bCode, cMessage ) Return Nil Function hwg_dbg_Quit() Local bCode := &( Iif( Type( "hwg_endwindow()" ) == "UI", "{|s|hwg_endwindow()}", "{||ReleaseAllWindows()}" ) ) Eval( bCode ) Return Nil

 Отправлено: 29.05.13 17:45. Заголовок: Тогда, наверное, вот..

Тогда, наверное, вот так:

цитата:

Function hwg_dbg_Alert( cMessage ) Local bCode := &( Iif( Type( "hwg_msginfo()" ) == "UI", "{|s|hwg_msginfo(s)}", ; Iif( Type( "msginfo()" ) == "UI", "{|s|msginfo(s)}", "{|s|alert(s)}" ) ) ) Eval( bCode, cMessage ) Return Nil Function hwg_dbg_Quit() Local bCode := &( Iif( Type( "hwg_endwindow()" ) == "UI", "{|s|hwg_endwindow()}", ; Iif( Type( "ReleaseAllWindows()" ) == "UI","{||ReleaseAllWindows()}", "{||__Quit()}" ) ) ) Eval( bCode ) Return Nil

Отлаживаются ведь и консольные приложения.

 Отправлено: 29.05.13 19:55. Заголовок: alkresin пишет: Еще..

alkresin пишет:

цитата:

Еще было бы хорошо дополнить эти 2 функции из dbgconnect.prg ( hwgdebug.lib ) кодом для Minigui:

Куда ставить эти функции ?
В свой проект ?

 Отправлено: 10.06.13 11:24. Заголовок: АНОНС * АНОНС * АНОН..

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

Завершена подготовка к опубликованию новой версии 2.2.3, которая выйдет послезавтра.

Кратко, что нового:
- исправлены обнаруженные ошибки и неточности кода;
- добавлена давно обещанная поддержка PNG and TIF картинок в элементе управления Image
и для использования на кнопках элемента управления ToolBar
- добавлены новые команды для синхронизизации с официальным релизом HMG 3.1.3:
DISABLE [ CONTROL ] EVENT ControlName OF FormName
ENABLE [ CONTROL ] EVENT ControlName OF FormName
StopControlEventProcedure ( cControlName, cFormName, lStop )
DISABLE [ WINDOW ] EVENT OF FormName
ENABLE [ WINDOW ] EVENT OF FormName
StopWindowEventProcedure ( cFormName, lStop )
GetLastActiveFormIndex () --> Return nFormIndex
GetLastActiveControlIndex () --> Return nControlIndex
- обновлена библиотека WinReport (это beta-версия);
- обновлена библиотека SQLite3Facade (это надстройка для облегчения доступа к базам SQLite);
- обновлена библиотека HbSQLite3 до версии 3.7.17;
- обновлена unicode-сборка Харбора версии 3.2.0dev, мелкие исправления в библиотеке TsBrowse;
- пересобрана HMGS-IDE с текущей версией библиотеки;
- добавлены новые/обновлены старые примеры, в т.ч. библиотека Bos Taurus v.1.04.

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

 Отправлено: 10.06.13 11:26. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

- добавлена давно обещанная поддержка PNG and TIF картинок в элементе управления Image

Пример в студию !

 Отправлено: 10.06.13 11:35. Заголовок: Пример от автора изм..

Пример от автора изменений уругвайца Клаудио Сото:

/* 
  * HMG - Harbour Win32 GUI library Demo 
  * 
  * Copyright 2013 Dr. Claudio Soto <srvet@adinet.com.uy> 
 */ 
  
 #include "hmg.ch" 
  
 MEMVAR nWidth 
 MEMVAR nHeight 
 MEMVAR lStretch 
 MEMVAR lTransparent 
 MEMVAR lColor 
 MEMVAR aBackgroundColor 
 MEMVAR lAdjustImage 
 MEMVAR aPicture 
 MEMVAR i 
  
 Function Main 
  
 PRIVATE nWidth            := 200 
 PRIVATE nHeight           := 100 
 PRIVATE lStretch          := .F. 
 PRIVATE lTransparent      := .F.  
 PRIVATE lColor            := .F. 
 PRIVATE aBackgroundColor  := NIL 
 PRIVATE lAdjustImage      := .F. 
 PRIVATE aPicture          := {"img.gif", "img.jpg", "img.wmf", "img.bmp", "img.png", "img.tif"} 
 PRIVATE i := 1 
  
         DEFINE WINDOW Win_1 ; 
                AT 0,0 ; 
                WIDTH 800 HEIGHT 600 ; 
                TITLE 'Load Image From DISK' ; 
                MAIN 
   
                DEFINE MAINMENU  
                         DEFINE POPUP "File" 
 				MENUITEM "Exit" ONCLICK ThisWindow.Release 
                         END POPUP 
                         DEFINE POPUP "Options" 
                            MENUITEM "Stretch"             ONCLICK {lStretch     := ! lStretch,     Define_Image()} NAME Menu_Stretch 
                            MENUITEM "Transparent"         ONCLICK {lTransparent := ! lTransparent, Define_Image()} NAME Menu_Transparent 
                            MENUITEM "BackgroundColor RED" ONCLICK {lColor       := ! lColor,       Define_Image()} NAME Menu_Color 
                            MENUITEM "AdjustImage"         ONCLICK {lAdjustImage := ! lAdjustImage, Define_Image()} NAME Menu_AdjustImage 
                            SEPARATOR                            
                            MENUITEM "Width=200 and Height=100" ONCLICK {|| nWidth:=200, nHeight:=100, Define_Image(1)} NAME Menu_Size1 
                            MENUITEM "Width=NIL and Height=NIL" ONCLICK {|| nWidth:=NIL, nHeight:=NIL, Define_Image(2)} NAME Menu_Size2 
                            MENUITEM "Width=200 and Height=0"   ONCLICK {|| nWidth:=200, nHeight:=0,   Define_Image(3)} NAME Menu_Size3 
                            MENUITEM "Width=0   and Height=100" ONCLICK {|| nWidth:=0,   nHeight:=100, Define_Image(4)} NAME Menu_Size4 
                         END POPUP 
                 END MENU 
  
                 @ 10 ,10  BUTTON Button_1 CAPTION "Set GIF" ACTION {|| Win_1.Image_1.Picture := "img.gif", ImgSize(1)} WIDTH 100  HEIGHT 30 
                 @ 10 ,110 BUTTON Button_2 CAPTION "Set JPG" ACTION {|| Win_1.Image_1.Picture := "img.jpg", ImgSize(2)} WIDTH 100  HEIGHT 30 
                 @ 10 ,210 BUTTON Button_4 CAPTION "Set WMF" ACTION {|| Win_1.Image_1.Picture := "img.wmf", ImgSize(3)} WIDTH 100  HEIGHT 30 
                 @ 10 ,310 BUTTON Button_6 CAPTION "Set BMP" ACTION {|| Win_1.Image_1.Picture := "img.bmp", ImgSize(4)} WIDTH 100  HEIGHT 30 
                 @ 10 ,410 BUTTON Button_7 CAPTION "Set PNG" ACTION {|| Win_1.Image_1.Picture := "img.png", ImgSize(5)} WIDTH 100  HEIGHT 30  
                 @ 10 ,510 BUTTON Button_8 CAPTION "Set TIF" ACTION {|| Win_1.Image_1.Picture := "img.tif", ImgSize(6)} WIDTH 100  HEIGHT 30 
  
                 @ 150, 140 LABEL Label_1 Value "" AUTOSIZE 
  
                 Define_Image (1) 
  
         END WINDOW 
  
         Win_1.Center 
         ACTIVATE WINDOW Win_1 
  
 Return Nil 
  
  
 Procedure ImgSize (Index) 
    Local n 
  
    i := Index 
    Win_1.Label_1.Value := "Width: "+hb_ntos(Win_1.Image_1.WIDTH)+"    Height: "+hb_ntos(Win_1.Image_1.HEIGHT) 
  
    IF IsControlDefined (Frame_1, Win_1) == .T. 
       Win_1.Frame_1.Release 
    ENDIF 
    n:= 2 
    @ (Win_1.Image_1.ROW -n), (Win_1.Image_1.COL -n) FRAME Frame_1 OF Win_1; 
       WIDTH  (Win_1.Image_1.WIDTH  +n+n); 
       HEIGHT (Win_1.Image_1.HEIGHT +n+n); 
       TRANSPARENT  
  
 Return 
  
  
 Procedure Define_Image (nSize) 
  
    Win_1.Menu_Stretch.Checked     := lStretch 
    Win_1.Menu_Transparent.Checked := lTransparent 
    Win_1.Menu_Color.Checked       := lColor 
    Win_1.Menu_AdjustImage.Checked := lAdjustImage 
  
    aBackgroundColor := IF (lColor, RED, NIL) 
  
    IF VALTYPE (nSize) == "N" 
       Win_1.Menu_Size1.Checked := .F. 
       Win_1.Menu_Size2.Checked := .F. 
       Win_1.Menu_Size3.Checked := .F. 
       Win_1.Menu_Size4.Checked := .F. 
        SetProperty ( "Win_1", "Menu_Size"+LTRIM(STR(nSize)), "Checked", .T. ) 
    ENDIF 
  
    IF IsControlDefined (Image_1, Win_1) == .T. 
       Win_1.Image_1.Release 
    ENDIF 
  
    DEFINE IMAGE Image_1 
       PARENT            Win_1 
       ROW               200 
       COL               140 
       WIDTH             nWidth 
       HEIGHT            nHeight 
       PICTURE           aPicture [ i ] 
       STRETCH           lStretch 
       TRANSPARENT       lTransparent  
       BACKGROUNDCOLOR   aBackgroundColor 
       ADJUSTIMAGE       lAdjustImage 
    END IMAGE 
  
    IF IsControlDefined (Label_1, Win_1) == .T. 
       ImgSize (i) 
    ENDIF 
  
 Return

 Отправлено: 10.06.13 11:46. Заголовок: Возможно маленький BUG в TBrowse

Суть в следующем -
Если в TBrowse объявить SELECTOR, то происходит игнорирование флага ::lLockFreeze:
в стороке 8459 h_tbrose.prg

8447: If ::lSelector
...
8459: ::lLockFreeze := .T. // Переменная лочит замороженные колонки ВНЕ зависимости от того что пропишет разработчик

Возможное решение :
1) закомментировать эту ( 8459: ) строку - //::lLockFreeze := .T.
2) в метод METHOD TSBrowse:GoLeft() добавить проверку на SELECTOR
5409: вместо While nCell > ( If( lLock, ::nFreeze + 1, 1 ) ) пишем While nCell > ( If( lLock, ::nFreeze + 1, if ( ::lSelector, 2, 1) ) )
5449: вместо If ::nCell == 1 пишем If ::nCell == if ( ::lSelector, 2, 1)

 Отправлено: 12.06.13 10:38. Заголовок: Новый релиз библиоте..

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

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

Также доступна полная сборка для компилятора MinGW по адресу:

http://hmgextended.com/files/CONTRIB/hmg223-mingw.exe

Новый релиз библиотеки для компилятора BCC добавил вчера по адресу:

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

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

 Отправлено: 12.06.13 14:15. Заголовок: Спасибо Григорий ! ..

Спасибо Григорий !

 Отправлено: 12.06.13 14:18. Заголовок: Andrey Фон нужно сд..

Andrey
Фон нужно сделать у твоей картинки прозрачным

 Отправлено: 12.06.13 14:20. Заголовок: Dima пишет: Фон нуж..

Dima пишет:

цитата:

Фон нужно сделать у твоей картинки прозрачным

А как ?