Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение) » Ответить
Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение)
gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
gfilatov2002: Haz пишет: глюков не заметил Благодарю за Ваш отзыв Начал работу над следующей сборкой 2.5.0
Haz: gfilatov2002 пишет: Начал работу над следующей сборкой Григорий , тогда в метод DelColumn(nPos) можно добавить такую же проверка на тип переменной nPos как и в HedeColumn() ? ЗЫ Есть в tsb глюк , причину которого не могу выловить давно - если в ON CHANGe вставить вызов метода Refresh() то при скроле длинной таблицы стрелками вниз -вверх не отпуская кнопки , бровс виснет так что только через процессы задача рубится . Если периодически клавиши вверх-низ отпускать - то не виснет. Похоже на переполнение какого нить стека комманд , но пока так и не понял куда копать
gfilatov2002: Haz пишет: в метод DelColumn(nPos) можно добавить такую же проверка на тип переменной nPos Сделал
Dima: Andrey пишет: С цветами белиберда получается - пока нашёл у LABEL Синтаксис вроде ж не менялся.... Всегда можно посмотреть i_label.ch
gfilatov2002: Dima пишет: Синтаксис вроде ж не менялся В этой сборке действительно есть ошибка при отображении LABEL на цветном TABе. Исправленный бинарник библиотеки я выложил для тестирования по адресу http://hmgextended.com/files/MISC/minigui-lib.zip Жду Ваших комментариев...
Andrey: gfilatov2002 пишет: Жду Ваших комментариев... Цвета пришли в норму !
gfilatov2002: Andrey пишет: Цвета пришли в норму Сделал "тихий" апдейт сборки 2.4.9 с этим исправлением
sashaBG: В TSBROWSE есть еще проблема с селектором ! У меня в бровсе добавляется лишняя колонка Можно проверить ! Вот интересно в примерах например один и тот же код в TSBTEST.PRG работает правильно (строка 547 ) DEFINE TBROWSE Brw_7 AT 0,0 CELLED ALIAS "Employee" Transparent Selector "Bitmaps\Arrow.bmp" ; WIDTH nBrwWidth HEIGHT nBrwHeight ; COLORS {CLR_BLACK, CLR_PINK} ; MESSAGE "oBrw:bPrevEdit and oBrw:bPostEdit, can control the footer's value." а в TSB_MDI.PRG (строка 692) если добавить такой селектор не работает и получается етот ефект с добавлением лишней колонки лишняя колонка не позволяет правильно работать в режиме добавления данных (стрелкой в низ) Все остальное при переходе на етой сборки и меня без проблем ! СПАСИБО ГРИГОРИЙ !!!
Haz: sashaBG пишет: В TSBROWSE есть еще проблема с селектором ! есть, но раз строка курсора теперь ловится легко через lDrawSelet можно прикрутить и свой селектор через дублирование первой колонки , изменения блока выборки и показа картинки в виде треугольника Согласен это не выход, но хоть что то ))
gfilatov2002: Выпустил внеочередной релиз библиотеки с последними исправлениями обнаруженных ошибок Сборка для компилятора BCC лежит на официальном сайте библиотеки по адресу: http://hmgextended.com/files/CONTRIB/hmg-2.5.0-setup.zip Также доступна сборка для компилятора MinGW по адресу: http://hmgextended.com/files/CONTRIB/hmg250-mingw.exe и компактный архив для свежей версии компилятора xHarbour http://hmgextended.com/files/CONTRIB/xhmg250_xhb10130.zip Благодарю за внимание
Andrey: Привет ! Опять с новой версией беда - с ходу вылезла старая ошибка цветов. Только теперь серый цвет:
Andrey: Григорий, так как насчёт цветов в новой версии ?
gfilatov2002: Andrey пишет: как насчёт цветов Нужен тестовый пример, демонстрирующий проблему. Вот мой тестовый пример ниже [pre2]/* * MINIGUI - Harbour Win32 GUI library Demo * */ #include "minigui.ch" #include "TSBrowse.ch" #translate dbcreate(<file>, <struct>) => hb_dbcreatetemp(<file>, <struct>) Function Main dbcreate('test',{{'nazwa','C',30,0},; {'ilosc','N',12,2},; {'cena','N',14,2}}) if select('test') == 0 dbusearea(.t.,,'test') endif for i := 1 to 100 test->(dbappend()) test->nazwa := "Item " + hb_ntos(i) test->ilosc := test->(recno()) test->cena := (test->ilosc * HB_Random(100)) next test->(dbgotop()) define window tabsample at 0,0 width 400 height 300 title 'Add control test' main backcolor AQUA DEFINE TBROWSE Brw_1 AT 10, 10 OF o_dlu ALIAS "test" WIDTH 330 HEIGHT 120 ADD COLUMN TO Brw_1 DATA {|| test->nazwa } ALIGN DT_LEFT, DT_CENTER, DT_CENTER ; TITLE 'Nazwa' SIZE 100 ADD COLUMN TO Brw_1 DATA {|| test->ilosc } ALIGN DT_RIGHT, DT_CENTER,DT_CENTER TITLE 'Ilosc' SIZE 70 ADD COLUMN TO Brw_1 DATA {|| test->cena } ALIGN DT_RIGHT, DT_CENTER, DT_CENTER TITLE 'Cena' SIZE 70 Brw_1:SetColor( { 2 }, { { | | IIf( test->(OrdKeyNo()) % 2 == 0, RGB(255,255,255), RGB(200, 200, 200) ) }}) Brw_1:nHeightCell += 6 Brw_1:nHeightFoot += 4 Brw_1:nWheelLines := 1 Brw_1:nHeightHead := 14 END TBROWSE tabsample.Brw_1.Hide define tab tab1 at 10,10 width 370 height 220 backcolor AQUA define page 'Page1' define button b1 row 30 col 10 caption 'Press here to add a control' width 180 action addnewcontrols({'lbl1','text1'}) end button end page define page 'Page2' define button b2 row 30 col 10 caption 'Press here to add a control' width 180 action addnewcontrol2('Brw_1') end button end page end tab on key escape action thiswindow.release() end window tabsample.center tabsample.activate Return nil function addnewcontrols(actrl) local c1, c2 c1 := actrl[1] c2 := actrl[2] if iscontroldefined(&c1,tabsample) tabsample.&(c1).release endif define label &c1 parent tabsample row 50 col 10 width 40 value 'label' backcolor AQUA end label if iscontroldefined(&c2,tabsample) tabsample.&(c2).release endif define textbox &c2 parent tabsample row 50 col 50 width 100 end textbox tabsample.tab1.addcontrol(c1,1,84,10) tabsample.tab1.addcontrol(c2,1,80,50) return nil function addnewcontrol2(ctrl) if iscontroldefined(&ctrl,tabsample) tabsample.&(ctrl).Show endif tabsample.tab1.addcontrol(ctrl,2,80,10) return nil[/pre2]
Andrey: gfilatov2002 пишет: Нужен тестовый пример, демонстрирующий проблему. Я его уже посылал почтой - Tab_transfer6.prg ! Если потерялся, то могу заново выслать.
gfilatov2002: Andrey пишет: Tab_transfer6.prg Этот пример нашел - вечером пробну
gfilatov2002: Andrey пишет: как насчёт цветов в новой версии ? Исправленный бинарник библиотеки я выложил для тестирования по адресу http://hmgextended.com/files/MISC/minigui-lib.zip
Andrey: gfilatov2002 пишет: Исправленный бинарник библиотеки я выложил для тестирования по адресу Цвета заработали ! Спасибо БОЛЬШОЕ !
Andrey: Вот еще нашёл одну непонятку:
Andrey: sashaBG пишет: В TSBROWSE есть еще проблема с селектором ! У меня в бровсе добавляется лишняя колонка Тоже наткнулся на такую бяку: Вот пример из \MiniGUI\SAMPLES\Advanced\Tsb_config - то же два селектора: Как править то ?
Dima: Andrey пишет: Тоже наткнулся на такую бяку: Haz пишет: есть, но раз строка курсора теперь ловится легко через lDrawSelet можно прикрутить и свой селектор через дублирование первой колонки , изменения блока выборки и показа картинки в виде треугольника Согласен это не выход, но хоть что то ))
полная версия страницы