Автор | Сообщение |
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.
|
|
|
Ответов - 301
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
All
[только новые]
|
|
SergKis
|
| постоянный участник
|
Пост N: 333
Зарегистрирован: 17.02.12
|
|
Отправлено: 10.06.14 18:47. Заголовок: Andrey пишет:Использ..
Andrey пишет: цитата: | Использовать у себя это меню в программах будете ? |
| у нас (~20 лет) в clipper такое 1 окно в задачах (только 2 ряда и 3 колонки и цвета от задачи) если руки дойдут, то да, надо сделать
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3424
Зарегистрирован: 12.09.06
|
|
Отправлено: 16.06.14 13:13. Заголовок: nick_mi пишет: А вы..
nick_mi пишет: цитата: | А вы это исправление делали DEFINE IMAGE Image_1 PARENT Win_1 ROW 200 COL 140 WIDTH nWidth HEIGHT nHeight PICTURE aPicture [ i ] STRETCH lStretch TRANSPARENT .T. BACKGROUNDCOLOR win_1.backcolor ADJUSTIMAGE lAdjustImage END IMAGE у меня с этой строкой берет фон основного окна |
| Перенес эту тему сюда, т.к. там писать не дело... Вот самодостаточный пример. http://files.mail.ru/C0CE5FDAA4764A2F802FDBF99A5B80CE Вокруг картинки ЧЕРНАЯ рамка. Это раз - недостаток, а во вторых, если PNG картинку выводить на фон заливки с градиентом, то вообще фигня получается... Как в таком случае быть ?
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3426
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.06.14 16:15. Заголовок: Andrey пишет: Вокру..
Andrey пишет: цитата: | Вокруг картинки ЧЕРНАЯ рамка. |
| Григорий, если не решаемый этот вопрос - то фиг с ним, напишите что пока так будет ! Я понимаю, что одному ОЧЕНЬ тяжело тянуть такую разработку. Просто ответ - пока так будет, до следующих решений и все....
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 597
Зарегистрирован: 11.02.10
|
|
Отправлено: 18.06.14 17:18. Заголовок: Andrey пишет: Прост..
Andrey пишет: цитата: | Просто ответ - пока так будет, до следующих решений |
| Именно так Andrey пишет: цитата: | Вокруг картинки ЧЕРНАЯ рамка. |
| Эту проблему при прорисовке PNG создает режим HALFTONE, задаваемый Си-функцией SetStretchBltMode()
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3427
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.06.14 17:49. Заголовок: Спасибо Григорий ! ..
Спасибо Григорий ! Будем ждать исправлений...
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3428
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.06.14 17:52. Заголовок: Вот еще вопрос возни..
Вот еще вопрос возник. Для окна есть соответствия: NOMAXIMIZE NOSIZE Form_Main.Sizable := .F. // NOSIZE Form_Main.MaxButton := .F. // NOMAXIMIZE Не могу найти соответствий: NOMINIMIZE NOCAPTION ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 344
Зарегистрирован: 17.02.12
|
|
Отправлено: 18.06.14 18:35. Заголовок: Andrey пишет:Не могу..
Andrey пишет: цитата: | Не могу найти соответствий: NOMINIMIZE NOCAPTION ? |
| глянь MiniGUI.chm раздел DEFINE WINDOW в самом конце: ... WINDOW METHODS: · Show · Hide · Center · Maximize · Minimize · Activate · Restore · Release · SetFocus · SaveAs
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 598
Зарегистрирован: 11.02.10
|
|
Отправлено: 18.06.14 20:13. Заголовок: Andrey пишет: Не мо..
Andrey пишет: цитата: | Не могу найти соответствий: NOMINIMIZE NOCAPTION ? |
| Form_Main.MinButton := .F. // NOMINIMIZE Form_Main.TitleBar := .F. // NOCAPTION
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3429
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.06.14 20:19. Заголовок: Спасибо ! :sm36: ..
Спасибо ! Пытаюсь скрестить примеры \MiniGUI\SAMPLES\BASIC\SPLASHDEMO_3 и \MiniGUI\SAMPLES\Advanced\GetPassword Окно пароля выходит, но при случайном переключении мышкой уходит под окно задачи. Как сделать чтобы окно пароля ВСЕГДА было поверх всех окон ? Пример тут -> http://files.mail.ru/C541D54D08FD4704B8D0521ABE296705
|
|
|
nick_mi
|
| |
Пост N: 147
Зарегистрирован: 19.05.05
|
|
Отправлено: 19.06.14 09:11. Заголовок: Оказывается для PING..
Оказывается для PING черная окантовка - это не только беда MINIGUI. В последнем IrfanView (версия 4.37) есть возможность поменять любой цвет на любой другой выбранный. Так вот, после замены черного цвета на белый, окантовка остается. Похоже, это где-то на Win API уровне.
|
|
|
Vlad04
|
| постоянный участник
|
Пост N: 449
Зарегистрирован: 13.10.05
|
|
Отправлено: 19.06.14 13:12. Заголовок: Andrey Окно пароля ..
Andrey цитата: | Окно пароля выходит, но при случайном переключении мышкой уходит под окно задачи. |
| Я сделал так В Инициализации Главного окна скрываю его и открываю форму с вводом пароля. Если с паролем все Гуд, показываю главное окна, а иначе Конец работы. Окно главое ты можешь спрятать после прогрессБаров
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 346
Зарегистрирован: 17.02.12
|
|
Отправлено: 20.06.14 19:02. Заголовок: gfilatov2002 пишет:F..
gfilatov2002 пишет: цитата: | Form_Main.MinButton := .F. // NOMINIMIZE Form_Main.TitleBar := .F. // NOCAPTION |
| а MODAL как можно задать таким же образом ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 347
Зарегистрирован: 17.02.12
|
|
Отправлено: 20.06.14 22:08. Заголовок: gfilatov2002 This..
gfilatov2002 This.TopMost := lTopMost // TOPMOST This.SysMenu := lSysMenu // NOSYSMENU This.Sizable := lSizable // NOSIZE This.MaxButton := lMaxButton // NOMAXIMIZE This.MinButton := lMinButton // NOMINIMIZE This.TitleBar := lTitleBar // NOCAPTION это нормально, а This.Hide := .F. // NOSHOW ThisWindow.Hide := .F. // NOSHOW выдает: Error E0022 invalid lvalue '()' DoMethod(_HMG_ThisFormName, 'Hide', .F.) // все нормально где я глючу ?
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 348
Зарегистрирован: 17.02.12
|
|
Отправлено: 20.06.14 22:51. Заголовок: SergKis пишет: This..
SergKis пишет: цитата: | This.Hide := .F. // NOSHOW ThisWindow.Hide := .F. // NOSHOW |
| допер IF lHide This.Hide ELSE This.Show ENDIF пора выключаться ...
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3439
Зарегистрирован: 12.09.06
|
|
Отправлено: 22.06.14 23:19. Заголовок: Vlad04 пишет: Я сде..
Vlad04 пишет: цитата: | Я сделал так В Инициализации Главного окна скрываю его и открываю форму с вводом пароля. Если с паролем все Гуд, показываю главное окна, а иначе Конец работы. Окно главое ты можешь спрятать после прогрессБаров |
| Ларчик просто открывается оказывается ! Там указаны только ДВА варианта показа окна. Как всегда выбрал самый красивый, но с приключениями (красоту захотел навести при вводе пароля)... 1) GetPassword( , "My Message", "My Caption",.... 2) GetPassword( 0, "My Message", "My Caption", LoadBitmap("LOGO")...... Нолик убрать и будет ВСЕГДА висеть, пока пароль не вобьешь.... Хоть комментарий бы поставили, а то пока разберешься....
|
|
|
Softlog86
|
| |
Пост N: 149
Зарегистрирован: 03.12.08
|
|
Отправлено: 23.06.14 14:58. Заголовок: Подскажите , есть-ли..
Подскажите , есть-ли команда чтоб ВСЕ контролы определенного окна включала/выключала ENABLED = .T. или .F. ?
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3441
Зарегистрирован: 12.09.06
|
|
Отправлено: 23.06.14 15:07. Заголовок: Softlog86 пишет: ес..
Softlog86 пишет: цитата: | есть-ли команда чтоб ВСЕ контролы определенного окна включала/выключала |
| Скорей всего нет такой команды. Нужно в цикле обойти все контролы на окне. А как, я тоже не знаю.
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 600
Зарегистрирован: 11.02.10
|
|
Отправлено: 23.06.14 15:30. Заголовок: Andrey пишет: Нужно..
Andrey пишет: цитата: | Нужно в цикле обойти все контролы на окне. |
| Именно так /******************************************************************************/ Function _GetArrayOfAllControlsForForm ( cFormName ) /******************************************************************************/ Local nFormHandle , i , nControlCount , aRetVal := {} , x nFormHandle := GetFormHandle ( cFormName ) nControlCount := Len ( _HMG_aControlHandles ) For i := 1 To nControlCount If _HMG_aControlParentHandles == nFormHandle If ValType( _HMG_aControlHandles ) == 'N' IF ! Empty( _HMG_aControlNames ) If Ascan( aRetVal, _HMG_aControlNames ) == 0 Aadd( aRetVal, _HMG_aControlNames ) EndIf ENDIF ElseIf ValType( _HMG_aControlHandles ) == 'A' For x := 1 To Len ( _HMG_aControlHandles ) IF !Empty( _HMG_aControlNames ) If Ascan( aRetVal, _HMG_aControlNames ) == 0 Aadd( aRetVal, _HMG_aControlNames ) EndIf ENDIF Next x EndIf EndIf Next i Return Asort( aRetVal ) Полный текст примера см. в папке samples\Basic\Form_Controls
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 3443
Зарегистрирован: 12.09.06
|
|
Отправлено: 24.06.14 21:03. Заголовок: Как сделать так, что..
1) Как сделать так, чтобы из главного меню задачи (окно MAIN) другие окна при сворачивании - скидывались на панель задач ОТДЕЛЬНЫМ ОКНОМ со своим заголовком ? 2) А как узнать, есть ли такая функция в ехе-файле в программе на МиниГуи ? Почему то код в МиниГуи не прокатывает: IF .NOT.( cRun == 'UI' .OR. cRun == 'UE' ) MsgStop("Нет такой функции "+cRun+"() в ЕХЕ-нике !") ENDIF
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 601
Зарегистрирован: 11.02.10
|
|
Отправлено: 25.06.14 12:44. Заголовок: Andrey пишет: скиды..
Andrey пишет: цитата: | скидывались на панель задач ОТДЕЛЬНЫМ ОКНОМ |
| Для этого надо определять дочерние окна без слова CHILD (как определяется стандарное окно при работе в IDE). Andrey пишет: цитата: | как узнать, есть ли такая функция в ехе-файле |
| Надо использовать Харбор-функцию hb_IsFunction(<имя функции>) Пример использования из кода Харбора: FUNCTION tip_SSL() RETURN hb_IsFunction( "__HBEXTERN__HBSSL__" )
|
|
|
Ответов - 301
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
All
[только новые]
|
|