Форум » 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.
Andrey: Григорий ! Просвети в вопросе по окнам. Юзера достали... Вот нужно им чтобы при сбросе окна кнопкой [_] - вниз, появлялось рядом иконка этого окна. Можно ли сделать/создать окно - чтобы оно было отдельно на панели задач от MAIN окна ?
SergKis: Andrey пишет:Можно ли сделать/создать окно - чтобы оно было отдельно на панели задач от MAIN окна ? CHILD у окна не пиши
gfilatov2002: Andrey пишет: Можно ли сделать/создать окно - чтобы оно было отдельно на панели задач Для этой цели надо использовать дочерние окна типа STANDARD (см. пример ниже) [pre2]#include "minigui.ch" Function Main Local i, cForm DEFINE WINDOW Win_1 ; TITLE 'Hello World!' ; WINDOWTYPE MAIN END WINDOW DEFINE WINDOW Win_2 ; TITLE 'Child Window' ; WINDOWTYPE STANDARD END WINDOW DEFINE WINDOW Win_3 ; TITLE 'Modal Window' ; WINDOWTYPE MODAL END WINDOW FOR i:=1 TO 3 cForm := "Win_" + str(i, 1) _DefineHotKey(cForm, 0, 27, hb_MacroBlock("_ReleaseWindow('"+cForm+"')")) NEXT Win_3.Center ACTIVATE WINDOW Win_3, Win_2, Win_1 Return Nil [/pre2]
Andrey: SergKis пишет: CHILD у окна не пиши Попробовал - работает ! Спасибо Большое ! #include "minigui.ch" FUNCTION Main DEFINE WINDOW Form1 ; AT 0 , 0 ; WIDTH 600 HEIGHT 400 ; TITLE "Window 1" ; MAIN ; BACKCOLOR YELLOW DEFINE BUTTON Button_1 ROW 60 COL 60 WIDTH 180 HEIGHT 48 CAPTION "Win2" ACTION Win2() FONTNAME "Arial" FONTSIZE 18 END BUTTON END WINDOW CENTER WINDOW Form1 Activate Window Form1 RETURN nil /////////////////////////////////////////////////////////////////// FUNCTION Win2() if IsWindowDefined(Form2) Show Window Form2 else DEFINE WINDOW Form2 ; AT 100 , 100 ; WIDTH 400 HEIGHT 370 ; TITLE "Window 2" ; BACKCOLOR BLUE END WINDOW Activate Window Form2 endif RETURN NIL
Andrey: Есть меню - DEFINE CONTEXT MENU CONTROL ... Какие примеры можно посмотреть ?
Сергей Р: gfilatov2002 привет. после 5-ти летнего прозябания, начал снова использовать твою GUI, но теперь даже простое меню стало выдавать кучу нелицеприятных ругательств. Было (Harbour MiniGUI 1.7 Extended Edition (Build 77) - 2009.11.26), что теперь все заново изучать?, или можешь помочь с объяснением ошибок: Error Unresolved external ' hb extIsNil' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|c winapimisc Error Unresolved external 'TransparentBlt' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|c image Error Unresolved external ' HB FUN HB EOL' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|h error Error Unresolved external ' HB FUN HB DEFAULT' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|h windows Error Unresolved external ' HB FUN DEFAULTNIL' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|h windows Error Unresolved external ' HB FUN HB DEFAULTVALUE' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|h winprop Error Unresolved external ' HB FUN HB VAL' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|h getbox Error Unresolved external ' HB FUN PVALUE' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|h windows Error Unresolved external ' HB FUN HB DATE' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|h controlmisc Error Unresolved external ' HB FUN HB ISFUNCTION' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|h hyperlink
Dima: Сергей Р пишет: Было (Harbour MiniGUI 1.7 Extended Edition (Build 77) - 2009.11.26) А сейчас ? Старый пересобранный код не работает что ли ?
SergKis: Сергей Р используете hb 2.0 или hb 3.2 ?
Сергей Р: Dima Да, пересобранный код не фурычит. Сейчас взял текущий Harbour MiniGUI Extended Edition 2.4.7, ты не поверишь, я за всю жизнь столько ошибок не сделал.
Сергей Р: SergKis Брал комлект, который идет в поставке с 3.2
SergKis: Сергей Р env include правильно назначен ? i_pseudofun.ch ... #if ( __HARBOUR__ - 0 < 0x030200 ) #xtranslate hb_IsFunction( <c> ) => ( Type( <c> + "()" ) == "UI" ) # xtranslate hb_default( @<v>, <x> ) => iif( StrTran( ValType( <v> ), "M", "C" ) == StrTran( ValType( <x> ), "M", "C" ), Nil, <v> := <x> ) # xtranslate hb_defaultValue( <v>, <x> ) => iif( StrTran( ValType( <v> ), "M", "C" ) == StrTran( ValType( <x> ), "M", "C" ), <v>, <x> ) # xtranslate __defaultNIL( @<v>, <x> ) => ( <v> := iif( <v> == NIL, <x>, <v> ) ) #endif в 3.2 - hb_IsFunction - ok! А у Вас вылезла как не найденная. а пример любой из samples\basic Compile.bat собирает ? сам работаю с hb 2.0 + MiniGui 2.0.7
Andrey: Всем привет. Можно ли из основной программы создать отдельное окно которое бы висело в трее ? Если можно, то подскажите пожалуйста как.
Dima: NOTIFYICON и NOTIFYBALLOONCLICK не устраивает ? Andrey пишет: Можно ли из основной программы создать отдельное окно которое бы висело в трее ? Создал окно NOSHOW , прицепил к нему NOTIFYICON и NOTIFYBALLOONCLICK , по клику в трее на иконке окну делаем SHOW.
Andrey: Dima пишет: Создал окно NOSHOW , Наверно MAIN создал. А мне нужно CHILD или STANDART !
Dima: Andrey пишет: Наверно MAIN создал я про MAIN и не писал ни чего да и про тип окна , это уже на твой вкус. просто дал идею ;)
Haz: Andrey пишет: А мне нужно CHILD или STANDART ! NotifyIcon - это проперти ТОЛЬКО главного окна . А раз это проперти, то менять его можно откуда угодно через SetProperty() и разумеется эта икона сначала должна быть определена в описании главного окна хоть как пустое значение.
Dima: Haz пишет: NotifyIcon - это проперти ТОЛЬКО главного окна . Записал себе. Не знал.
Haz: NotifyIcon - это проперти ТОЛЬКО главного окна Хочу добавить - только главного окна в реализации MiniGui ( в коде стоит запрет на все окна кроме MAIN ). NotifyIcon можно создать и привязать к любому виду окна, В исходниках c_windows.c есть все для этого ShowNotifyIcon и ChangeNotifyIcon.
Dima: Записал и это , сенкс , пробну
Andrey: Взял свою старую программу которая в трее сидит, заменил MAIN на STANDART. DEFINE WINDOW Form_Site ; AT 0,0 ; WIDTH 400 HEIGHT 100 ; TITLE cTitle ; WINDOWTYPE STANDARD ; NOMAXIMIZE NOSIZE NOSYSMENU ; BACKCOLOR LGREEN ; NOTIFYICON '1MAIN_ICON' ; NOTIFYTOOLTIP cTitle ; ON NOTIFYCLICK MsgDebug("NOTIFYCLICK !") // строка 36 ! Ошибка при выполнении: Error MGERROR/0 Notification icon allowed only in Main Window. Program terminated. Called from MSGMINIGUIERROR(94) Called from _DEFINEWINDOW(125) Called from FORM_SITEDWNLD(36) Called from (b)MAIN(101) Что не так делаю ?
полная версия страницы