Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение) » Ответить
Новая версия Расширенного релиза библиотеки MiniGUI (часть V) (продолжение)
gfilatov: Начало темы находится здесь, а теперь АНОНС * АНОНС * АНОНС * АНОНС * АНОНС Готовится к опубликованию новая сборка №48, которая выйдет в конце недели. Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне Кратко, что нового: - исправление обнаруженных ошибок и неточностей кода; - новый класс HEADERIMAGE для Grid и Browse; - свойство Address в Hyperlink может теперь открывать папку или файл на диске; - добавлен NOTABSTOP класс для Browse; - поддержка пользовательских компонентов (заимствована из оффициального релиза); - расширения и исправления в библиотеках TsBrowse и PropGrid; - обновлены сборки Харбор и HMGS-IDE; - новые и обновленные старые примеры (как обычно ).
Dima: Andrey пишет: А как ? Вариантов несколько. Можно найти уже готовую картинку с прозрачным фоном. Можно ручками в спец проге либо черный фон залить прозрачным либо сделать фон прозрачным. Я юзаю Axialis IconWorkshop , хотя заюзать можно любой инструмент ну например фотошоп
Andrey: Dima пишет: Можно найти уже готовую картинку с прозрачным фоном. У этой картинки img.png из примера \MiniGUI\SAMPLES\BASIC\IMAGE_2 - фон прозрачный. А на форме этот фон становиться ЧЕРНЫМ ! Вот и вопрос, как выводить PNG-картинки с прозрачным фоном на окне программы МиниГуи, без черного фона ? Подставлял я и другую картинку с прозрачным фоном... На окне программы все равно черный фон.
gfilatov2002: Andrey пишет: Возник вопросик по PNG картинкам Выбери в программе пункт меню Options->Transparent А затем еще попробуй Options->Stretch при включенном пункте Transparent Отпишись, если заметишь разницу...
Andrey: gfilatov2002 пишет: Отпишись, если заметишь разницу... Да, есть разница. Это уже лучше, но не совсем... Остается черная окантовка вокруг предметов... Не очень красиво... Можно ли эту окантовку совсем убрать ?
Dima: Andrey пишет: Можно ли эту окантовку совсем убрать ? а если ее залить прозрачным ?
Andrey: Dima пишет: а если ее залить прозрачным ? Попробуй... Пример смотри \MiniGUI\SAMPLES\BASIC\IMAGE_2 !
gfilatov2002: Andrey пишет: Можно ли эту окантовку совсем убрать ? Да. Как я уже писал ранее gfilatov2002 пишет: попробуй Options->Stretch при включенном пункте Transparent
Andrey: Не получается... Или из-за Win8 окантовка остается ?
Andrey: gfilatov2002 пишет: попробуй Options->Stretch при включенном пункте Transparent Нет, оказывается нужно только включенную опцию: Options->Stretch !!! И все нормально показывается !!!
Andrey: Рано радовался.... Переделал пример на другой цвет фона и вот что получается: Или вот еще: Опять остается вывод ТОЛЬКО ICO-файла на форму МиниГуи .... ? Или опять я что-то не так делаю....
alex_II: Линковка проекта не прошла В прошлой версии всё работало нормально Error: Unresolved external 'TransparentBlt' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|c_image
gfilatov2002: alex_II пишет: Error: Unresolved external 'TransparentBlt' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|c_image Просто добавь в свой скрипт еще одну библиотеку c:\borland\bcc55\lib\PSDK\msimg32.lib З.Ы. Это уже сделано в стандартном батнике minigui\batch\compile.bat
alex_II: Всё ОК Спасибо за помощь
Панченко: Григорий, описание ColumnControls в Grid (версия 2.2.1.) правильно работает только в ВЕРХНЕМ РЕГИСТРЕ. Может подправите это дело, что бы библиотека тоже была регистронезависимой как и Harbour?
gfilatov2002: Панченко пишет: Может подправите это дело Сделал в новой сборке Исправленный релиз библиотеки для компилятора BCC выложил по адресу: http://hmgextended.com/files/CONTRIB/hmg-2.2.3a-setup.zip Этот релиз библиотеки для компилятора BCC добавил также по адресу: http://minigui.mylivepage.ru/file/?fileid=8723 Надеюсь на конструктивную критику...
Панченко: gfilatov2002 пишет: Сделал в новой сборке Спасибо за оперативность.
Danilevich: Что-то я делаю не так? В примере при Lostfocus GetBox_1 открывается новое окно, при закрытии которого по ALT+T в главное окно в следующий GETBOX этот ALT+T попадает как "мусор" #include "minigui.ch" Function Main DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 400 HEIGHT 280 ; TITLE 'TEST' ; MAIN NOMAXIMIZE ; FONT "Arial" SIZE 9 DEFINE LABEL Label_1 ROW 10 COL 10 HEIGHT 20 WIDTH 140 VALUE "Please press ENTER" END LABEL DEFINE GETBOX GetBox_1 ROW 10 COL 160 WIDTH 60 HEIGHT 20 VALUE " " ONLOSTFOCUS showMemo() END GETBOX DEFINE LABEL Label_2 ROW 30 COL 10 HEIGHT 20 WIDTH 140 VALUE "TEST" END LABEL DEFINE GETBOX GetBox_2 ROW 30 COL 160 WIDTH 60 HEIGHT 20 VALUE "TEST" END GETBOX END WINDOW Form_1.Activate return function showMemo() local cWindowName:="MEMO" DEFINE WINDOW &cWindowName AT 50,50 ; WIDTH 600 ; HEIGHT 400 ; CHILD ; TITLE "ESC - no problem. ALT+T ???" ; ON LOSTFOCUS SetProperty(cWindowName,"TopMost",.f.) _DefineHotKey(cWindowName,1,84,{||DoMethod(cWindowName,"Release")}) ON KEY ESCAPE OF &cWindowName ACTION DoMethod(cWindowName,"Release") DEFINE EDITBOX RICHEDITBOX ROW 1 COL 1 WIDTH 592 HEIGHT 346 FONTNAME "Courier New" FONTSIZE 11 READONLY .f. VALUE "Please press ALT+T."+chr(13)+chr(10)+chr(13)+chr(10)+"Is field TEST changed?" END EDITBOX END WINDOW DoMethod(cWindowName,"Center") SetProperty(cWindowName,"TopMost",.t.) DoMethod(cWindowName,"Activate") return Заранее благодарен.
gfilatov2002: Исправленный релиз библиотеки для компилятора BCC снова выложил по адресу: http://hmgextended.com/files/CONTRIB/hmg-2.2.3b-setup.zip Этот релиз библиотеки для компилятора BCC добавил также по адресу: http://minigui.mylivepage.ru/file/?fileid=8724 Благодарю за внимание!
gfilatov2002: Danilevich пишет: в главное окно в следующий GETBOX этот ALT+T попадает как "мусор" Да, это известная "фича" у GETBOX Как вариант исправления/обхода этого глюка я добавил следующие две строки в конце функции showMemo() ... DoMethod(cWindowName,"Activate") DoMethod("Form_1","GetBox_1","Setfocus") SetProperty("Form_1","GetBox_1","Value","") return
Danilevich: Спасибо Григорий, но у меня только вот так идет: cOld:=... DoMethod(cWindowName,"Activate") WAITPERIOD(25) // 25*0,01 Sec WHILE WAITPERIOD() ****** ENDDO SetProperty("Form_1","GetBox_1","Value",cOld) SetProperty(cWindowName,"GetBox_TextSArtNr","Value",cSaveTemp)
полная версия страницы