Отправлено: 15.11.11 21:36. Заголовок: Примеры из Минигуи -ошибки, вопросы..... (продолжение)

Всем привет.
Взялся смотреть примеры из МиниГуи, так не все работают. Может кто подскажет что там "допилить" нужно ?
А заодно может и исправить и добавить новые....

Очень красочный пример: \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.

 Отправлено: 21.01.14 16:52. Заголовок: Andrey пишет: Не по..

Andrey пишет:

цитата:

Не помогло

Тогда попробуй добавить команду DO EVENTS в цикл в функции ViewIconFile()

... 
       cImage := MaskaTypeFile(cFilePath, cObjIco )  // иконка типа файла 
       SetProperty( 'Form_1', cObjIco, "Visible" , .T. ) 
  
       DO EVENTS 
    NEXT 
          
 RETURN NIL

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

gfilatov2002 пишет:

цитата:

Тогда попробуй добавить команду DO EVENTS в цикл в функции ViewIconFile()

Не работает...

 Отправлено: 30.01.14 23:18. Заголовок: Григорий, вопрос по ..

Григорий, вопрос по уже сделанным примерам WAIT_WINDOW_2WIN
http://files.mail.ru/6D25619CF1C94F1391599D54C1A65853

Когда начинаешь перемещать красное или желтое окно, то курсор руки пропадает, а курсор сжатой руки не появляется !
Почему ? Что нужно изменить в коде ?

В WaitWindow3.prg - есть же процедура изменения курсора: RC_CURSOR( "Grabbed32" )

 Отправлено: 30.01.14 23:36. Заголовок: Andrey пишет: RC_CU..

Andrey пишет:

цитата:

RC_CURSOR( "Grabbed32" )

Проверь имя ресурса в файле .RC - там опечатка в первой букве

цитата:

CRABBED32 CURSOR res\Grabbed32x32.cur

А должно быть

цитата:

GRABBED32 CURSOR res\Grabbed32x32.cur

Теперь ясно

 Отправлено: 31.01.14 12:47. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Теперь ясно

Спасибо большое !

 Отправлено: 01.03.14 21:32. Заголовок: Всем привет ! Пример..

Всем привет !
Пример MiniGUI\SAMPLES\Advanced\TrayBalloon показывает всплывающее окно на некоторое время в трее.
А можно ли такое же всплывающее окно сделать на объекте LABEL или BUTTON ?

 Отправлено: 16.03.14 13:21. Заголовок: Всем привет. Есть ли..

Всем привет.
Есть ли механизм в МиниГуи, позволяющий входить в меню или нажимать кнопку только ОДИН раз ?

Я могу конечно сам сделать проверку входа через PUBLIC переменную.
Просто хочется узнать современные решения.

 Отправлено: 17.03.14 11:41. Заголовок: Andrey пишет: Есть ..

Andrey пишет:

цитата:

Есть ли механизм в МиниГуи, позволяющий входить в меню или нажимать кнопку только ОДИН раз ?

встроенного штатного механизма нет, но ничто не мешает на ACTION повесить что то типа this.enabled := .F. ( варианты самого this. зависят от синтаксиса контрола )

 Отправлено: 17.03.14 13:28. Заголовок: Haz пишет: но ничто..

Haz пишет:

цитата:

но ничто не мешает на ACTION повесить что то типа this.enabled := .F. ( варианты самого this. зависят от синтаксиса контрола )

А поподробнее пожалуйста можно расписать ?

 Отправлено: 17.03.14 19:41. Заголовок: Andrey пишет: А поп..

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 - примерно так же

 Отправлено: 18.03.14 14:06. Заголовок: Haz пишет: примерно..

Haz пишет:

цитата:

примерно так

Спасибо БОЛЬШОЕ !

 Отправлено: 18.03.14 16:35. Заголовок: Можно ли как то испо..

Можно ли как то использовать смайлики в программе на МиниГуи ?
Есть ли примеры ?

 Отправлено: 18.03.14 16:40. Заголовок: Andrey пишет: Можно..

Andrey пишет:

цитата:

Можно ли как то использовать смайлики

Смайлик это BMP вероятно или ICO иль GIF , значит можно.
Во всяком случае их можно преобразовать к нужному формату.
Пример
http://forum24.ru/gif/smk/sm31.gif

 Отправлено: 18.03.14 22:20. Заголовок: Dima пишет: Смайлик..

Dima пишет:

цитата:

Смайлик это BMP вероятно или ICO иль GIF , значит можно.

Нет, мне нужны правильные смайлики -
И желательно с просмотром каталога:

Может готовые библиотеки смайликов есть ?

 Отправлено: 19.03.14 00:08. Заголовок: Andrey пишет: Может..

Andrey пишет:

цитата:

Может готовые библиотеки смайликов есть ?

Новый вариант ICQ создаешь ?

 Отправлено: 26.03.14 19:28. Заголовок: Всем привет. Имеется..

Всем привет.
Имеется картинка на форме.
@ 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

Еще что-нибудь нужно ?

 Отправлено: 27.03.14 12:11. Заголовок: Andrey пишет: Сдела..

Andrey пишет:

цитата:

Сделал на IMAGE Image_1 обработку: ON MOUSEHOVER SelectImage( ThisWindow.Name, This.Name )

Все верно, но можно проще:

цитата:

ON MOUSEHOVER CursorHand()

 Отправлено: 27.03.14 21:18. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Все верно, но можно проще:

Спасибо !

 Отправлено: 31.03.14 16:43. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Подтверждаю. Мой тестовый пример см. ниже

Из темы http://clipper.borda.ru/?1-4-0-00000851-000-0-1-1396268068

В этом примере можно расширить окно мышкой.
А как сделать динамическое растаскивание/сжатие BROWSE вместе с окном ?

 Отправлено: 03.04.14 21:32. Заголовок: Andrey пишет: как с..

Andrey пишет:

цитата:

как сделать динамическое растаскивание/сжатие BROWSE вместе с окном ?

Для этого надо использовать два события: ON SIZE и ON MAXIMIZE, в которых прописать изменение размеров элементов управления вместе с изменением размеров формы. Очень наглядный пример использования есть в исходниках утилиты MPM (см. в папке Utils\MPM).

Для ленивых существует глобальная команда SET AUTOADJUST ON [ NOBUTTONS ], которая действует для всех окон, но она не всегда работает так, как может потребоваться, из-за своей универсальности