Отправлено: 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.

 Отправлено: 10.06.14 18:47. Заголовок: Andrey пишет:Использ..

Andrey пишет:

цитата:

Использовать у себя это меню в программах будете ?

у нас (~20 лет) в clipper такое 1 окно в задачах (только 2 ряда и 3 колонки и цвета от задачи)
если руки дойдут, то да, надо сделать

 Отправлено: 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 картинку выводить на фон заливки с градиентом, то вообще фигня получается...
Как в таком случае быть ?

 Отправлено: 18.06.14 16:15. Заголовок: Andrey пишет: Вокру..

Andrey пишет:

цитата:

Вокруг картинки ЧЕРНАЯ рамка.

Григорий, если не решаемый этот вопрос - то фиг с ним, напишите что пока так будет !
Я понимаю, что одному ОЧЕНЬ тяжело тянуть такую разработку.
Просто ответ - пока так будет, до следующих решений и все....

 Отправлено: 18.06.14 17:18. Заголовок: Andrey пишет: Прост..

Andrey пишет:

цитата:

Просто ответ - пока так будет, до следующих решений

Именно так

Andrey пишет:

цитата:

Вокруг картинки ЧЕРНАЯ рамка.

Эту проблему при прорисовке PNG создает режим HALFTONE, задаваемый Си-функцией SetStretchBltMode()

 Отправлено: 18.06.14 17:49. Заголовок: Спасибо Григорий ! ..

Спасибо Григорий !
Будем ждать исправлений...

 Отправлено: 18.06.14 17:52. Заголовок: Вот еще вопрос возни..

Вот еще вопрос возник.

Для окна есть соответствия:
NOMAXIMIZE NOSIZE
Form_Main.Sizable := .F. // NOSIZE
Form_Main.MaxButton := .F. // NOMAXIMIZE

Не могу найти соответствий:
NOMINIMIZE NOCAPTION ?

 Отправлено: 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

 Отправлено: 18.06.14 20:13. Заголовок: Andrey пишет: Не мо..

Andrey пишет:

цитата:

Не могу найти соответствий: NOMINIMIZE NOCAPTION ?

Form_Main.MinButton := .F. // NOMINIMIZE
Form_Main.TitleBar := .F. // NOCAPTION

 Отправлено: 18.06.14 20:19. Заголовок: Спасибо ! :sm36: ..

Спасибо !

Пытаюсь скрестить примеры \MiniGUI\SAMPLES\BASIC\SPLASHDEMO_3 и \MiniGUI\SAMPLES\Advanced\GetPassword
Окно пароля выходит, но при случайном переключении мышкой уходит под окно задачи.
Как сделать чтобы окно пароля ВСЕГДА было поверх всех окон ?

Пример тут -> http://files.mail.ru/C541D54D08FD4704B8D0521ABE296705

 Отправлено: 19.06.14 09:11. Заголовок: Оказывается для PING..

Оказывается для PING черная окантовка - это не только беда MINIGUI. В последнем
IrfanView (версия 4.37) есть возможность поменять любой цвет на любой другой выбранный.
Так вот, после замены черного цвета на белый, окантовка остается. Похоже, это где-то на Win API
уровне.

 Отправлено: 19.06.14 13:12. Заголовок: Andrey Окно пароля ..

Andrey

цитата:

Окно пароля выходит, но при случайном переключении мышкой уходит под окно задачи.

Я сделал так
В Инициализации Главного окна скрываю его и открываю форму с вводом пароля.
Если с паролем все Гуд, показываю главное окна, а иначе Конец работы.
Окно главое ты можешь спрятать после прогрессБаров

 Отправлено: 20.06.14 19:02. Заголовок: gfilatov2002 пишет:F..

gfilatov2002 пишет:

цитата:

Form_Main.MinButton := .F. // NOMINIMIZE Form_Main.TitleBar := .F. // NOCAPTION

а MODAL как можно задать таким же образом ?

 Отправлено: 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.)  // все нормально 
 где я глючу ? 
 

 Отправлено: 20.06.14 22:51. Заголовок: SergKis пишет: This..

SergKis пишет:

цитата:

This.Hide := .F. // NOSHOW ThisWindow.Hide := .F. // NOSHOW

допер
IF lHide
This.Hide
ELSE
This.Show
ENDIF
пора выключаться ...

 Отправлено: 22.06.14 23:19. Заголовок: Vlad04 пишет: Я сде..

Vlad04 пишет:

цитата:

Я сделал так В Инициализации Главного окна скрываю его и открываю форму с вводом пароля. Если с паролем все Гуд, показываю главное окна, а иначе Конец работы. Окно главое ты можешь спрятать после прогрессБаров

Ларчик просто открывается оказывается !
Там указаны только ДВА варианта показа окна. Как всегда выбрал самый красивый, но с приключениями (красоту захотел навести при вводе пароля)...
1) GetPassword( , "My Message", "My Caption",....
2) GetPassword( 0, "My Message", "My Caption", LoadBitmap("LOGO")......

Нолик убрать и будет ВСЕГДА висеть, пока пароль не вобьешь....
Хоть комментарий бы поставили, а то пока разберешься....

 Отправлено: 23.06.14 14:58. Заголовок: Подскажите , есть-ли..

Подскажите , есть-ли команда чтоб ВСЕ контролы определенного окна включала/выключала ENABLED = .T. или .F. ?

 Отправлено: 23.06.14 15:07. Заголовок: Softlog86 пишет: ес..

Softlog86 пишет:

цитата:

есть-ли команда чтоб ВСЕ контролы определенного окна включала/выключала

Скорей всего нет такой команды.
Нужно в цикле обойти все контролы на окне. А как, я тоже не знаю.

 Отправлено: 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

 Отправлено: 24.06.14 21:03. Заголовок: Как сделать так, что..

1) Как сделать так, чтобы из главного меню задачи (окно MAIN) другие окна при сворачивании - скидывались на панель задач ОТДЕЛЬНЫМ ОКНОМ со своим заголовком ?

2) А как узнать, есть ли такая функция в ехе-файле в программе на МиниГуи ?
Почему то код в МиниГуи не прокатывает:
IF .NOT.( cRun == 'UI' .OR. cRun == 'UE' )
MsgStop("Нет такой функции "+cRun+"() в ЕХЕ-нике !")
ENDIF

 Отправлено: 25.06.14 12:44. Заголовок: Andrey пишет: скиды..

Andrey пишет:

цитата:

скидывались на панель задач ОТДЕЛЬНЫМ ОКНОМ

Для этого надо определять дочерние окна без слова CHILD (как определяется стандарное окно при работе в IDE).

Andrey пишет:

цитата:

как узнать, есть ли такая функция в ехе-файле

Надо использовать Харбор-функцию hb_IsFunction(<имя функции>)

Пример использования из кода Харбора:

FUNCTION tip_SSL() 
    RETURN hb_IsFunction( "__HBEXTERN__HBSSL__" )