Форум » GUI » Примеры из Минигуи -ошибки, вопросы..... (продолжение) » Ответить
Примеры из Минигуи -ошибки, вопросы..... (продолжение)
Andrey: Всем привет. Взялся смотреть примеры из МиниГуи, так не все работают. Может кто подскажет что там "допилить" нужно ? А заодно может и исправить и добавить новые.... Очень красочный пример: \MiniGUI\SAMPLES\Advanced\AVI_Animation - не работает под Win7 (наверно AVI-шки нет в ресурсах) Предложение Григорию: Можно ли добавить еще один пример с отдельным AVI-файлом в ресурсах проекта и показом такого же бегунка ? Пример: \MiniGUI\SAMPLES\Advanced\DisplayMode - не работает под ХР и далее.... Пример: \MiniGUI\SAMPLES\Advanced\Tsb_filter - вылетает на ХР -------------------------------------------------------------------------------- Harbour MiniGUI Errorlog File Harbour MiniGUI Extended Edition 2.0.1 - 2011.09.21 -------------------------------------------------------------------------------- Date: 11/15/2011 Time: 22:13:24 Error BASE/1124 Argument error: LEFT Called from LEFT(0) Called from SCANSOFT(195) Called from MAIN(84) Пример: \MiniGUI\SAMPLES\BASIC\MsgEdit - не собирается... Z:\MiniGUI\SAMPLES\BASIC\MsgEdit>call ..\..\..\batch\compile.bat demo /L shell32 Harbour 3.1.0dev (Rev. 17042) Copyright (c) 1999-2011, http://harbour-project.org/ Compiling 'demo.prg'... Lines 20133, Functions/Procedures 30 Generating C source output to 'demo.c'... Done. Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland demo.c: Error E2141 demo.prg 993: Declaration syntax error *** 1 errors in Compile *** C compile error.
gfilatov2002: Andrey пишет: Не помогло Тогда попробуй добавить команду DO EVENTS в цикл в функции ViewIconFile() [pre2]... cImage := MaskaTypeFile(cFilePath, cObjIco ) // иконка типа файла SetProperty( 'Form_1', cObjIco, "Visible" , .T. ) DO EVENTS NEXT RETURN NIL[/pre2]
Andrey: gfilatov2002 пишет: Тогда попробуй добавить команду DO EVENTS в цикл в функции ViewIconFile() Не работает...
Andrey: Григорий, вопрос по уже сделанным примерам WAIT_WINDOW_2WIN http://files.mail.ru/6D25619CF1C94F1391599D54C1A65853 Когда начинаешь перемещать красное или желтое окно, то курсор руки пропадает, а курсор сжатой руки не появляется ! Почему ? Что нужно изменить в коде ? В WaitWindow3.prg - есть же процедура изменения курсора: RC_CURSOR( "Grabbed32" )
gfilatov2002: Andrey пишет: RC_CURSOR( "Grabbed32" ) Проверь имя ресурса в файле .RC - там опечатка в первой букве CRABBED32 CURSOR res\Grabbed32x32.cur А должно быть GRABBED32 CURSOR res\Grabbed32x32.cur Теперь ясно
Andrey: gfilatov2002 пишет: Теперь ясно Спасибо большое !
Andrey: Всем привет ! Пример MiniGUI\SAMPLES\Advanced\TrayBalloon показывает всплывающее окно на некоторое время в трее. А можно ли такое же всплывающее окно сделать на объекте LABEL или BUTTON ?
Andrey: Всем привет. Есть ли механизм в МиниГуи, позволяющий входить в меню или нажимать кнопку только ОДИН раз ? Я могу конечно сам сделать проверку входа через PUBLIC переменную. Просто хочется узнать современные решения.
Haz: Andrey пишет: Есть ли механизм в МиниГуи, позволяющий входить в меню или нажимать кнопку только ОДИН раз ? встроенного штатного механизма нет, но ничто не мешает на ACTION повесить что то типа this.enabled := .F. ( варианты самого this. зависят от синтаксиса контрола )
Andrey: Haz пишет: но ничто не мешает на ACTION повесить что то типа this.enabled := .F. ( варианты самого this. зависят от синтаксиса контрола ) А поподробнее пожалуйста можно расписать ?
Haz: Andrey пишет: А поподробнее на примере меню: Define MAin menu of form_0 popup 'menu1' menuitem 'элемент 1' action {|| action_1() } name M1 end popup End menu Func Action_1() Form_0.M1.ENABLED := .F. // после первого вызова этот элемент меню будет запрещен ... тут код который нужен Return nil PS. по Button - примерно так же
Andrey: Haz пишет: примерно так Спасибо БОЛЬШОЕ !
Andrey: Можно ли как то использовать смайлики в программе на МиниГуи ? Есть ли примеры ?
Dima: Andrey пишет: Можно ли как то использовать смайлики Смайлик это BMP вероятно или ICO иль GIF , значит можно. Во всяком случае их можно преобразовать к нужному формату. Пример http://forum24.ru/gif/smk/sm31.gif
Andrey: Dima пишет: Смайлик это BMP вероятно или ICO иль GIF , значит можно. Нет, мне нужны правильные смайлики - И желательно с просмотром каталога: Может готовые библиотеки смайликов есть ?
Dima: Andrey пишет: Может готовые библиотеки смайликов есть ? Новый вариант ICQ создаешь ?
Andrey: Всем привет. Имеется картинка на форме. @ 50,20 IMAGE Image_1 PICTURE .... Можно ли сделать так, чтобы при попадании мышки на картинку, курсор бы менялся на "палец тык" ? Как в HYPERLINK - параметр HANDCURSOR .T. Есть ли в примерах такое уже ? Сделал на IMAGE Image_1 обработку: ON MOUSEHOVER SelectImage( ThisWindow.Name, This.Name ) А в функции описал: FUNCTION SelectImage( cForm, cCtrl ) CursorHand() RETURN Nil Еще что-нибудь нужно ?
gfilatov2002: Andrey пишет: Сделал на IMAGE Image_1 обработку: ON MOUSEHOVER SelectImage( ThisWindow.Name, This.Name ) Все верно, но можно проще: ON MOUSEHOVER CursorHand()
Andrey: gfilatov2002 пишет: Все верно, но можно проще: Спасибо !
Andrey: gfilatov2002 пишет: Подтверждаю. Мой тестовый пример см. ниже Из темы http://clipper.borda.ru/?1-4-0-00000851-000-0-1-1396268068 В этом примере можно расширить окно мышкой. А как сделать динамическое растаскивание/сжатие BROWSE вместе с окном ?
gfilatov2002: Andrey пишет: как сделать динамическое растаскивание/сжатие BROWSE вместе с окном ? Для этого надо использовать два события: ON SIZE и ON MAXIMIZE, в которых прописать изменение размеров элементов управления вместе с изменением размеров формы. Очень наглядный пример использования есть в исходниках утилиты MPM (см. в папке Utils\MPM). Для ленивых существует глобальная команда SET AUTOADJUST ON [ NOBUTTONS ], которая действует для всех окон, но она не всегда работает так, как может потребоваться, из-за своей универсальности
полная версия страницы