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

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

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

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

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

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

 Отправлено: 06.11.20 17:00. Заголовок: Выложил срочное 3-е ..

Выложил срочное 3-е обновление сборки 20.10

Причина: напутал в функции вычисления цвета градиента для PROGRESSWHEEL (поправил без помощи Петра).

Также учтены пожелания Андрея для ButtonEx

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

gfilatov2002 пишет:

цитата:

Также учтены пожелания Андрея для ButtonEx

Спасибо !

 Отправлено: 12.11.20 10:25. Заголовок: Всем кому это интересно :)

Выложил 4-е обновление сборки 20.10 с учетом последних исправлений

Надеюсь, что это последний апдейт для этой сборки

ЗЫ. Выпуск новых сборок больше не планируется...

 Отправлено: 20.11.20 14:22. Заголовок: Всем кому это интересно :)

gfilatov2002 пишет:

цитата:

Выпуск новых сборок больше не планируется...

Пересмотрел свои планы, и решил все же выпустить декабрьскую сборку.
Уже подготовил ее первую бета-версию, изюминкой которой должны стать оригинальные исходники HMG-IDE Роберто Лопеза, которые я адаптировал для Минигуи

 Отправлено: 20.11.20 17:05. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Пересмотрел свои планы, и решил все же выпустить декабрьскую сборку.

Отличная новость !

 Отправлено: 21.11.20 17:56. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Пересмотрел свои планы, и решил все же выпустить

Хорошая новость. Спасибо Григорий

 Отправлено: 25.11.20 15:14. Заголовок: Здравствуте!

У меня вопрос по TSBrowse в Select mode.
Есть необходимость выбрать все строки TSBrowse , нажатием клавишили .

Я думаю надо заполнить самому масив ::aSelected
а потом вызвать ::DrawSelect()

Подскажите пожалуйста, если есть другой способ!

Будьте здоровы!

 Отправлено: 25.11.20 17:33. Заголовок: sashaBG Заполняешь ..

sashaBG
Заполняешь некий массив номерами записей (у меня HASH) , после делаем Refresh
В описании бровса у меня
obrwloc:SetColor( { 1 ,2}, { CLR_BLACK ,{||if(!hb_hhaskey(hinsrec,(obrwloc:calias)->(recno())),rgb(255,255,206),rgb(255,179,255))} } )

 Отправлено: 25.11.20 17:43. Заголовок: sashaBG пишет потом ..

sashaBG пишет

цитата:

потом вызвать ::DrawSelect()

Потом надо вызвать :Refresh(), т.к. надо перепоказать все строки.
Другой способ используя hash или в режиме set oop on

 
    oCol := :GetColumn("ID") 
    oCol:Cargo:oSelect := oKeyData()  // hb_Hash() 
    oCol:nClrBack := {|at,nc,br,oc| oc := br:aColumns[nc], at := oc:Cargo:oSelect:Get(br:nAtPos, 0), ; 
       iif( at > 0, CLR_BLUE, CLR_WHITE  ) }   // меняем цвет в колонке от наличия номера записи в :Cargo:oSelect 
    // вместо цвета можно менять bmp в колонке, цвет взял для просто меньше писать 
    ... 
    :UserKeys( VK_SPACE, {|ob,nr,oc|    // Select\UnSelect  
        oc := ob:GetColumn("ID") 
        nr := oc:Cargo:oSelect:Get((ob:nAtPos, 0) 
        If nr > 0 
           oc:Cargo:oSelect:Del(ob:nAtPos) 
        Else 
           oc:Cargo:oSelect:Set(ob:nAtPos, ob:nAtPos) 
        EndIf 
        ob:DrawSelect() 
        do events 
        Return Nil 
       } 
    :UserKeys( VK_F2, {|ob|             // Select All 
        Local cAls := ob:cAlias, nRec 
        Local nOld := (cAls)->(RecNo()) 
        Local oc := ob:GetColumn("ID") 
        oc:Cargo:oSelect:oKeyData() 
        do while (cAls)->( !EOF() ) 
             nRec := (cAls)->(RecNo()) 
             oc:Cargo:oSelect:Set(nRec, nRec) 
             (cAls)->(dbSkip()) 
        enddo 
        (cAls)->(dbGoto(nOld)) 
        Return Nil 
       } 
    :UserKeys( VK_F3, {|ob|            // Get values all Selected line       
        Local oc := ob:GetColumn("ID") 
        ?  "aSelected =", oc:Cargo:oSelect:GetAll(.F.) 
        ?v oc:Cargo:oSelect:GetAll(.F.) 
        ? 
        Return Nil 
       } 
 

Написанное применимо к любой колонке и не имеет значения находится TSBrowse в Select mode или нет
С hash похожие действия

 Отправлено: 25.11.20 20:28. Заголовок: PS добавить надо ..

PS
добавить надо

 
     :UserKeys( VK_F2, {|ob|             // Select All  
     ... 
         (cAls)->(dbGoto(nOld))  
         ob:Refresh() 
         do events 
         Return Nil  
        }  
 

 Отправлено: 26.11.20 21:45. Заголовок: Спасибо!

Сапсибо Сергей, работает!

 Отправлено: 27.11.20 11:15. Заголовок: sashaBG пишет работа..

sashaBG пишет

цитата:

работает!

Добавка в пример Tsb_BitMaps для работы с bmp индикацией (клавиши: SPACE, F2, F3, F5)

 
 LOCAL oCol 
 SET OOP ON 
 ... 
        oBrw:GetColumn("FLD7"):lBitMap  := .T. 
        oBrw:aBitMaps := { LoadImage(".\RES\flag_bel.bmp"), ; 
                           LoadImage(".\RES\flag_en.bmp" ), ; 
                           LoadImage(".\RES\flag_kaz.bmp"), ; 
                           LoadImage(".\RES\flag_ru.bmp" ), ; 
                           LoadImage(".\RES\flag_ua.bmp" ), ; 
                           StockBmp( 7 )                  , ; 
                           StockBmp( 6 )                    ; 
                         } 
  
        oCol := :GetColumn("ID") 
        oCol:Cargo := oKeyData() 
        oCol:Cargo:oSelect := oKeyData() 
        oCol:uBmpCell := {|nc,ob| 
           Local oc := ob:aColumns[ nc ] 
           Local nr := oc:Cargo:oSelect:Get(ob:nAtPos, 0) 
           Return ob:aBitMaps[ 6+nr ] 
          } 
       :UserKeys( VK_SPACE, {|ob|                           // Select\unSelect 
           Local oc := ob:GetColumn("ID") 
           Local nr := ob:nAtPos, np 
           If ( np := oc:Cargo:oSelect:Get(nr, 0) ) > 0 
              oc:Cargo:oSelect:Del(nr) 
           Else 
              oc:Cargo:oSelect:Set(nr, 1) 
           EndIf 
           ob:DrawSelect() ; DO EVENTS 
           Return Nil 
          } ) 
       :UserKeys( VK_F2, {|ob|                              // Select all 
           Local cAls := ob:cAlias, nRec 
           Local nOld := (cAls)->(RecNo()) 
           Local oc := ob:GetColumn("ID") 
           oc:Cargo:oSelect:oKeyData() 
           (cAls)->(dbGotop()) 
           do while (cAls)->( !EOF() ) 
                nRec := (cAls)->(RecNo()) 
                oc:Cargo:oSelect:Set(nRec, 1) 
                (cAls)->(dbSkip()) 
           enddo 
           (cAls)->(dbGoto(nOld)) 
           ob:Refresh() ; DO EVENTS 
           Return Nil 
          } ) 
       :UserKeys( VK_F3, {|ob|                              // unSelect all 
           Local oc := ob:GetColumn("ID") 
           oc:Cargo:oSelect := oKeyData() 
           ob:Refresh() ; DO EVENTS 
           Return Nil 
          } ) 
     :UserKeys( VK_F5, {|ob|                               // Get values all Selected line 
         Local oc := ob:GetColumn("ID") 
         Local ar := oc:Cargo:oSelect:GetAll(.F.) 
         Local nk := Len(ar) 
         Local cs := "", ni 
         For ni := 1 To nk 
             cs += hb_ValToExp(ar[ ni ]) + iif( ni == nk, "", ";" ) 
         Next 
         AlertInfo( "Selected : "+iif( Empty(cs), "0", ";"+cs ) ) 
         Return Nil 
        } ) 
  
     ON KEY ESCAPE ACTION ThisWindow.Release 
 ... 
 

 Отправлено: 27.11.20 12:11. Заголовок: SergKis пишет: Доба..

SergKis пишет:

цитата:

Добавка в пример Tsb_BitMaps

Проверил: работает нормально.
Благодарю за помощь

 Отправлено: 27.11.20 14:07. Заголовок: gfilatov2002 Малень..

gfilatov2002
Маленькая правка

 
       :UserKeys( VK_F2, {|ob|                              // Select all 
           ... 
           oc:Cargo:oSelect := oKeyData() 
           ... 
 

 Отправлено: 27.11.20 15:02. Заголовок: SergKis пишет: Мале..

SergKis пишет:

цитата:

Маленькая правка

OK

 Отправлено: 02.12.20 11:13. Заголовок: gfilatov2002 Добавь..

gfilatov2002
Добавьте в пример выше строки

 
        oCol := :GetColumn("ID") 
        oCol:Cargo := oKeyData() 
        oCol:Cargo:oSelect := oKeyData() 
        oCol:Cargo:nSeleBack := CLR_YELLOW 
        oCol:Cargo:aSeleBack := { RGB(220, 220, 220), RGB(220, 220, 220) } 
  
        oCol:uBmpCell := {|nc,ob| 
           Local oc := ob:aColumns[ nc ] 
           Local nr := oc:Cargo:oSelect:Get(ob:nAtPos, 0) 
           Return ob:aBitMaps[ 6+nr ] 
          } 
        oCol:nClrBack := {|na,nc,ob| 
           Local oc := ob:aColumns[ nc ] 
           na := oc:Cargo:oSelect:Get(ob:nAtPos, 0) 
           Return iif( na > 0, oc:Cargo:nSeleBack, ob:nClrPane ) 
          } 
        oCol:nClrFocuBack := {|na,nc,ob| 
           Local oc := ob:aColumns[ nc ] 
           na := oc:Cargo:oSelect:Get(ob:nAtPos, 0) 
           Return iif( na > 0, oc:Cargo:nSeleBack, oc:Cargo:aSeleBack ) 
          } 
  
        :nFreeze := 1 
        :lLockFreeze := .T. 
        :nCell := :nFreeze + 1 
  
       :UserKeys( VK_SPACE, {|ob|                           // Select\unSelect 
 ... 
 

 Отправлено: 02.12.20 11:32. Заголовок: ОК :sm36: Благодарю..

ОК
Благодарю за помощь

 Отправлено: 02.12.20 12:12. Заголовок: Всем кому это интересно :)

Подготовил 2-й RC для новой сборки 20.12

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

* Fixed: A support of use the Harbour pcode DLL was broken in the MiniGUI core (introduced in the build 16.12). * Fixed: Possible program crash at releasing of the standard 'Image Button' control with NOXPSTYLE clause (introduced in the build 16.03). * Synchronized Extended HMG for compatibility with Official HMG: - misc updates for a correct compiling of the HMG-IDE tool. * 'HMG IDE' sample: code was modified to original source of utility. Based upon a contribution of HMG Founder Roberto Lopez. Thanks a lot for this GREAT contribution! * Updated HMGS-IDE v.1.4.4.3, BosTaurus and Sqlite3 libraries. * Added the new interesting samples and updated some examples. * Added the ProcInfo and Selector libraries source code. Note: It is available in the mingw64-based donationware distribution only.

 Отправлено: 08.12.20 11:54. Заголовок: Всем кому это интересно 8-)

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

Рассматриваю эту сборку как финальную во всех отношениях...

 Отправлено: 10.12.20 11:48. Заголовок: Выложил декабрьскую ..

Выложил декабрьскую сборку по адресу:

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

Желаю всем мира, добра и здоровья