Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение) » Ответить
Новая версия Расширенного релиза библиотеки MiniGUI (часть VI ) (продолжение)
gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
gfilatov2002: Выложил срочное 3-е обновление сборки 20.10 Причина: напутал в функции вычисления цвета градиента для PROGRESSWHEEL (поправил без помощи Петра). Также учтены пожелания Андрея для ButtonEx
Andrey: gfilatov2002 пишет: Также учтены пожелания Андрея для ButtonEx Спасибо !
gfilatov2002: Выложил 4-е обновление сборки 20.10 с учетом последних исправлений Надеюсь, что это последний апдейт для этой сборки ЗЫ. Выпуск новых сборок больше не планируется...
gfilatov2002: gfilatov2002 пишет: Выпуск новых сборок больше не планируется... Пересмотрел свои планы, и решил все же выпустить декабрьскую сборку. Уже подготовил ее первую бета-версию, изюминкой которой должны стать оригинальные исходники HMG-IDE Роберто Лопеза, которые я адаптировал для Минигуи
Andrey: gfilatov2002 пишет: Пересмотрел свои планы, и решил все же выпустить декабрьскую сборку. Отличная новость !
Haz: gfilatov2002 пишет: Пересмотрел свои планы, и решил все же выпустить Хорошая новость. Спасибо Григорий
sashaBG: У меня вопрос по TSBrowse в Select mode. Есть необходимость выбрать все строки TSBrowse , нажатием клавишили . Я думаю надо заполнить самому масив ::aSelected а потом вызвать ::DrawSelect() Подскажите пожалуйста, если есть другой способ! Будьте здоровы!
Dima: sashaBG Заполняешь некий массив номерами записей (у меня HASH) , после делаем Refresh В описании бровса у меня obrwloc:SetColor( { 1 ,2}, { CLR_BLACK ,{||if(!hb_hhaskey(hinsrec,(obrwloc:calias)->(recno())),rgb(255,255,206),rgb(255,179,255))} } )
SergKis: sashaBG пишет потом вызвать ::DrawSelect() Потом надо вызвать :Refresh(), т.к. надо перепоказать все строки. Другой способ используя hash или в режиме set oop on[pre2] 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 } [/pre2] Написанное применимо к любой колонке и не имеет значения находится TSBrowse в Select mode или нет С hash похожие действия
SergKis: PS добавить надо[pre2] :UserKeys( VK_F2, {|ob| // Select All ... (cAls)->(dbGoto(nOld)) ob:Refresh() do events Return Nil } [/pre2]
sashaBG: Сапсибо Сергей, работает!
SergKis: sashaBG пишет работает! Добавка в пример Tsb_BitMaps для работы с bmp индикацией (клавиши: SPACE, F2, F3, F5)[pre2] 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 ... [/pre2]
gfilatov2002: SergKis пишет: Добавка в пример Tsb_BitMaps Проверил: работает нормально. Благодарю за помощь
SergKis: gfilatov2002 Маленькая правка[pre2] :UserKeys( VK_F2, {|ob| // Select all ... oc:Cargo:oSelect := oKeyData() ... [/pre2]
gfilatov2002: SergKis пишет: Маленькая правка OK
SergKis: gfilatov2002 Добавьте в пример выше строки[pre2] 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 ... [/pre2]
gfilatov2002: ОК Благодарю за помощь
gfilatov2002: Подготовил 2-й RC для новой сборки 20.12 Что нового (кратко): [pre2] * 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. [/pre2]
gfilatov2002: Завершена подготовка декабрьской сборки, которая будет опубликована послезавтра. Рассматриваю эту сборку как финальную во всех отношениях...
gfilatov2002: Выложил декабрьскую сборку по адресу: http://hmgextended.com/files/CONTRIB/hmg-20.12-setup.exe Желаю всем мира, добра и здоровья
полная версия страницы