Форум » GUI » Как "заморозить" выполнение программы Минигуи ? » Ответить
Как "заморозить" выполнение программы Минигуи ?
Andrey: Имею программу типа - \SAMPLES\Advanced\ShellExec\demo2.prg Как заморозить/заблокировать главную форму программы чтобы юзер не тыкал главное меню программы ? Т.е. только после закрытия notepad.exe главная форма стала доступной. Список объектов на форме я знаю как получить. Только не хочется делать самому ручной обход объектов на форме и блокировать/разблокировать их. Есть ли другой способ блокирования ВСЕЙ формы в МиниГуи ?
Ответов - 24, стр:
1 2 All
SergKis: gfilatov2002 пишет DoMethod(cForm, cObj, 'ReDraw') У Андрея фишка, типа, экономить DoMethod(cForm, cObj, 'Release'), а так Label остается и имеем мой вариант, т.е. у Андрея "ветер" не туда дует, по мне.
Andrey: gfilatov2002 пишет: // MsgDebug("Background check!") [pre2]MsgDebug("Background check!") [/pre2] нужен чтобы увидеть что форма пере рисовалась. А потом делаем восстановление формы. Это просто показ-отладка. SergKis пишет: У Андрея фишка, типа, экономить DoMethod(cForm, cObj, 'Release') Да просто проба, как можно сделать - и это не работает. Из-за этого и вопросы.
Andrey: gfilatov2002 пишет: DoMethod(cForm, cObj, 'ReDraw') Спасибо БОЛЬШОЕ ! Заработало ! Будем запоминать... Хотя память уже дырявая...
SergKis: Andrey пишет Да просто проба, как можно сделать - и это не работает. Из-за этого и вопросы. Все работает [pre2] /* * MINIGUI - Harbour Win32 GUI library Demo */ #include "minigui.ch" FUNCTION Main() LOCAL nW, nH, aBack := GREEN, aFont := YELLOW DEFINE WINDOW Win_1 ; AT 50,100 ; WIDTH 400 ; HEIGHT 400 ; TITLE 'Replacing the window background' ; MAIN NOSIZE NOMAXIMIZE nW := This.ClientWidth - 10 //- GetBorderWidth() * 2 nH := This.ClientHeight - 10 //- GetBorderHeight() - GetTitleHeight() //@ 5, 5 LABEL Label_Del1 WIDTH nW HEIGHT nH VALUE " " INVISIBLE ; // FONT "Arial Black" SIZE 24 FONTCOLOR aFont BACKCOLOR aBack @ 300,100 BUTTON But1 CAPTION "Click Me" ; HEIGHT 65 WIDTH 200 ; ACTION ReplaceWindowBackground() END WINDOW CENTER WINDOW Win_1 ACTIVATE WINDOW Win_1 RETURN NIL FUNCTION ReplaceWindowBackground() LOCAL nW, nH, cMsg, cObj, cForm, aBack LOCAL aBold, aFold, aBwnd cForm := "Win_1" cObj := "Label_Del1" cMsg := "Replacing the window background" + CRLF + "Change window background" IF !_IsControlDefined(cObj, cForm) nW := GetProperty( cForm, "ClientWidth" ) - 10 //- GetBorderWidth()*2 nH := GetProperty( cForm, "ClientHeight" ) - 10 //- GetBorderHeight() - GetTitleHeight() aBack := BROWN @ 5, 5 LABEL &cObj PARENT &cForm WIDTH nW HEIGHT nH VALUE cMsg ; FONT "Arial Black" SIZE 24 FONTCOLOR BLACK BACKCOLOR aBack DoMethod(cForm, cObj, "ReDraw") DO EVENTS wApi_Sleep(1000) ENDIF aBOld := GetProperty( cForm, cObj, "BACKCOLOR") aFOld := GetProperty( cForm, cObj, "FONTCOLOR") aBwnd := GetProperty( cForm, "BACKCOLOR") SetProperty( cForm, "BACKCOLOR", YELLOW ) aBack := GRAY // меняем цвет формы SetProperty( cForm, cObj, "BACKCOLOR", aBack ) SetProperty( cForm, cObj, "FONTCOLOR", RED ) // BLACK SetProperty( cForm, cObj, "VALUE" , cMsg ) SetProperty( cForm, cObj, "VISIBLE" , .T. ) DO EVENTS MsgDebug("Background check!") SetProperty( cForm, cObj, "VALUE" , " " ) SetProperty( cForm, cObj, "BACKCOLOR", aBOld ) SetProperty( cForm, cObj, "FONTCOLOR", aFOld ) wApi_Sleep(1000) SetProperty( cForm, cObj, "VISIBLE" , .F. ) SetProperty( cForm, "BACKCOLOR", aBwnd ) DoMethod(cForm, cObj, 'Release') DO EVENTS RETURN NIL [/pre2] PS Можно так написать [pre2] @ 5, 5 LABEL &cObj PARENT &cForm WIDTH nW HEIGHT nH VALUE cMsg ; FONT "Arial Black" SIZE 24 FONTCOLOR BLACK BACKCOLOR aBack ; ON INIT {|| This.Redraw } /*DoMethod(cForm, cObj, "ReDraw")*/ [/pre2]
полная версия страницы