Автор | Сообщение |
Andrey
|
| постоянный участник
|
Пост N: 1929
Зарегистрирован: 12.09.06
|
|
Отправлено: 15.11.11 21:36. Заголовок: Примеры из Минигуи -ошибки, вопросы..... (продолжение)
Всем привет. Взялся смотреть примеры из МиниГуи, так не все работают. Может кто подскажет что там "допилить" нужно ? А заодно может и исправить и добавить новые.... Очень красочный пример: \MiniGUI\SAMPLES\Advanced\AVI_Animation - не работает под Win7 (наверно AVI-шки нет в ресурсах) Предложение Григорию: Можно ли добавить еще один пример с отдельным AVI-файлом в ресурсах проекта и показом такого же бегунка ? Пример: \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.
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
Andrey
|
| постоянный участник
|
Пост N: 4336
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.07.15 09:37. Заголовок: Григорий ! Просвети ..
Григорий ! Просвети в вопросе по окнам. Юзера достали... Вот нужно им чтобы при сбросе окна кнопкой [_] - вниз, появлялось рядом иконка этого окна. Можно ли сделать/создать окно - чтобы оно было отдельно на панели задач от MAIN окна ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 675
Зарегистрирован: 17.02.12
|
|
Отправлено: 01.07.15 10:23. Заголовок: Andrey пишет:Можно л..
Andrey пишет: цитата: | Можно ли сделать/создать окно - чтобы оно было отдельно на панели задач от MAIN окна ? |
| CHILD у окна не пиши
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 769
Зарегистрирован: 11.02.10
|
|
Отправлено: 01.07.15 12:40. Заголовок: Andrey пишет: Можно..
Andrey пишет: цитата: | Можно ли сделать/создать окно - чтобы оно было отдельно на панели задач |
| Для этой цели надо использовать дочерние окна типа STANDARD (см. пример ниже) Скрытый текст
#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
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4337
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.07.15 13:21. Заголовок: SergKis пишет: CHIL..
SergKis пишет: Попробовал - работает ! Спасибо Большое ! Скрытый текст #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
|
| постоянный участник
|
Пост N: 4348
Зарегистрирован: 12.09.06
|
|
Отправлено: 02.07.15 14:29. Заголовок: http://f5.s.qip.ru/w..
Есть меню - DEFINE CONTEXT MENU CONTROL ... Какие примеры можно посмотреть ?
|
|
|
Сергей Р
|
| |
Пост N: 156
Зарегистрирован: 02.02.06
|
|
Отправлено: 03.07.15 09:59. Заголовок: gfilatov2002 привет...
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
|
| |
Пост N: 5024
Зарегистрирован: 17.05.05
|
|
Отправлено: 03.07.15 10:11. Заголовок: Сергей Р пишет: Был..
Сергей Р пишет: цитата: | Было (Harbour MiniGUI 1.7 Extended Edition (Build 77) - 2009.11.26) |
| А сейчас ? Старый пересобранный код не работает что ли ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 696
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.07.15 10:29. Заголовок: Сергей Р использует..
Сергей Р используете hb 2.0 или hb 3.2 ?
|
|
|
Сергей Р
|
| |
Пост N: 157
Зарегистрирован: 02.02.06
|
|
Отправлено: 03.07.15 11:39. Заголовок: Dima Да, пересобранн..
Dima Да, пересобранный код не фурычит. Сейчас взял текущий Harbour MiniGUI Extended Edition 2.4.7, ты не поверишь, я за всю жизнь столько ошибок не сделал.
|
|
|
Сергей Р
|
| |
Пост N: 158
Зарегистрирован: 02.02.06
|
|
Отправлено: 03.07.15 11:41. Заголовок: SergKis Брал комлект..
SergKis Брал комлект, который идет в поставке с 3.2
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 697
Зарегистрирован: 17.02.12
|
|
Отправлено: 03.07.15 12:00. Заголовок: Сергей Р env includ..
Сергей Р 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
|
| постоянный участник
|
Пост N: 4365
Зарегистрирован: 12.09.06
|
|
Отправлено: 07.07.15 12:32. Заголовок: Всем привет. Можно ..
Всем привет. Можно ли из основной программы создать отдельное окно которое бы висело в трее ? Если можно, то подскажите пожалуйста как.
|
|
|
Dima
|
| |
Пост N: 5073
Зарегистрирован: 17.05.05
|
|
Отправлено: 07.07.15 12:39. Заголовок: NOTIFYICON и NOTIFYB..
NOTIFYICON и NOTIFYBALLOONCLICK не устраивает ? Andrey пишет: цитата: | Можно ли из основной программы создать отдельное окно которое бы висело в трее ? |
| Создал окно NOSHOW , прицепил к нему NOTIFYICON и NOTIFYBALLOONCLICK , по клику в трее на иконке окну делаем SHOW.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4367
Зарегистрирован: 12.09.06
|
|
Отправлено: 07.07.15 16:50. Заголовок: Dima пишет: Создал ..
Dima пишет: Наверно MAIN создал. А мне нужно CHILD или STANDART !
|
|
|
Dima
|
| |
Пост N: 5074
Зарегистрирован: 17.05.05
|
|
Отправлено: 07.07.15 16:54. Заголовок: Andrey пишет: Навер..
Andrey пишет: я про MAIN и не писал ни чего да и про тип окна , это уже на твой вкус. просто дал идею ;)
|
|
|
Haz
|
| |
Пост N: 591
Зарегистрирован: 20.02.11
|
|
Отправлено: 07.07.15 17:44. Заголовок: Andrey пишет: А мне..
Andrey пишет: цитата: | А мне нужно CHILD или STANDART ! |
| NotifyIcon - это проперти ТОЛЬКО главного окна . А раз это проперти, то менять его можно откуда угодно через SetProperty() и разумеется эта икона сначала должна быть определена в описании главного окна хоть как пустое значение.
|
|
|
Dima
|
| |
Пост N: 5076
Зарегистрирован: 17.05.05
|
|
Отправлено: 07.07.15 17:46. Заголовок: Haz пишет: NotifyIc..
Haz пишет: цитата: | NotifyIcon - это проперти ТОЛЬКО главного окна . |
| Записал себе. Не знал.
|
|
|
Haz
|
| |
Пост N: 592
Зарегистрирован: 20.02.11
|
|
Отправлено: 07.07.15 18:35. Заголовок: NotifyIcon - это про..
цитата: | NotifyIcon - это проперти ТОЛЬКО главного окна |
| Хочу добавить - только главного окна в реализации MiniGui ( в коде стоит запрет на все окна кроме MAIN ). NotifyIcon можно создать и привязать к любому виду окна, В исходниках c_windows.c есть все для этого ShowNotifyIcon и ChangeNotifyIcon.
|
|
|
Dima
|
| |
Пост N: 5078
Зарегистрирован: 17.05.05
|
|
Отправлено: 07.07.15 19:16. Заголовок: Записал и это , сенк..
Записал и это , сенкс , пробну
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4368
Зарегистрирован: 12.09.06
|
|
Отправлено: 07.07.15 19:39. Заголовок: Взял свою старую про..
Взял свою старую программу которая в трее сидит, заменил 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) Что не так делаю ?
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|