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

 Отправлено: 21.05.16 18:06. Заголовок: Andrey пишет: SergK..

Andrey пишет:

цитата:

SergKis посоветовал.

Однако аргумент
а самому-то зачем

 Отправлено: 12.06.16 13:30. Заголовок: Всем привет ! Как с..

Всем привет !

Как сделать курсор мышки - песочные часы ?
Есть ли в МиниГуи готовая модель или самому нужно делать (искать) ?

 Отправлено: 12.06.16 13:34. Заголовок: Andrey пишет: (иска..

Andrey пишет:

цитата:

(искать)

Ага в примерах Минигуи ))
C:\MiniGUI\SAMPLES\BASIC\CURSOR

 Отправлено: 12.06.16 13:38. Заголовок: Dima пишет: Ага в п..

Dima пишет:

цитата:

Ага в примерах Минигуи ))

Это видел, спасибо.

Мне песочные часы нужно. Если нет, то нет...

 Отправлено: 12.06.16 14:42. Заголовок: Ещё вопрос по курсор..

Ещё вопрос по курсорам возник.
Мне нужен кусор мышки ожидания при переходе с Tbrowse на карточку. Как это сделать ?

Судя по описанию:
SetWaitCursor( Application.Handle ) // Курсор мышки - ожидание
нужно передавать Application.Handle в ту функцию, где курсор нужно убирать ? Или я неправ.

Но у меня курсор ожидания так и не выходит... вообще ....

 Отправлено: 25.06.16 17:11. Заголовок: Всем привет ! Вопро..

Всем привет !

Вопрос простой возник.
На форме есть кнопка BUTTONEX Button_Dbf с обработкой ACTION {|| ..... }

Как эмулировать нажатие на эту кнопку ?
Т.е. хочу в ON INIT формы поставить "нажатие на эту кнопку".

 Отправлено: 25.06.16 17:59. Заголовок: Andrey поставь фоку..

Andrey
поставь фокус на нее и пошли _pushkey(VK_SPACE)

 Отправлено: 25.06.16 18:37. Заголовок: Спасибо большое ! :..

Спасибо большое !

 Отправлено: 03.07.16 21:47. Заголовок: Всем привет ! Испол..

Всем привет !

Использую текстовый GETBOX
Как сделать чтобы центровка текста была по центру ?
В свойствах нашёл только RIGHTALIGN ....

 Отправлено: 03.07.16 22:08. Заголовок: Andrey пишет: Как с..

Andrey пишет:

цитата:

Как сделать чтобы центровка текста была по центру ?

Похоже пока ни как.

 Отправлено: 03.07.16 22:39. Заголовок: Andrey пишет: Как сд..

Andrey пишет:

цитата:

Как сделать чтобы центровка текста была по центру ?

SetWidowStyle(hWnd, ES_LEFT\ES_CENTER\ES_RIGHT, .T.\.F.)
в минигуи вроде такая

 Отправлено: 03.07.16 22:45. Заголовок: SergKis пишет: SetW..

SergKis пишет:

цитата:

SetWidowStyle(hWnd, ES_LEFT\ES_CENTER\ES_RIGHT, .T.\.F.) в минигуи вроде такая

А как её прикрутить к GETBOX ?
cObj := "GetBox_"+HB_NtoS(nJ)+"x"+HB_NtoS(nI)
@ nRowGet, nCol GETBOX &cObj VALUE aTxtDim[nJ,nI] ;
WIDTH nGetWidth HEIGHT nFontSize*IIF(LargeFonts(),3,2) ;
BACKCOLOR { aBackColor, aBackColor, {200,255,255} } ;
FONTCOLOR { aFontColor, aFontColor, aFontColor } ;
ON CHANGE { || aTxtDim[nJ,nI] := SetProperty( ThisWindow.Name, cObj, "Value" ) }

 Отправлено: 03.07.16 23:00. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как её прикрутить к GETBOX ?

Как то так SetWidowStyle(GetFormHandle( "Form_1" ), ES_CENTER, .T.) только Минигуи ни чё не знает
о SetWidowStyle

 Отправлено: 03.07.16 23:00. Заголовок: Andrey пишет А как е..

Andrey пишет

цитата:

А как её прикрутить к GETBOX ?

@ ... GETBOX ...
SetWindowStyle(GetControlHandle(cGetBoxName, cFormName), ES_CENTER, .T.)

 Отправлено: 03.07.16 23:05. Заголовок: Dima пишет только Ми..

Dima пишет

цитата:

только Минигуи ни чё не знает о SetWidowStyle

должна знать, c_window.c

 
 HB_FUNC( SETWINDOWSTYLE ) 
 { 
    LONG_PTR Style = GetWindowLongPtr( ( HWND ) HB_PARNL( 1 ), GWL_STYLE ); 
  
    SetWindowLongPtr( ( HWND ) HB_PARNL( 1 ), GWL_STYLE, 
                      ( hb_parl( 3 ) ) ? Style | ( LONG_PTR ) HB_PARNL( 2 ) : Style & ( ~( LONG_PTR ) HB_PARNL( 2 ) ) ); 
 } 
 

сам пользую самопальную

 Отправлено: 03.07.16 23:07. Заголовок: SergKis пишет: SetW..

SergKis пишет:

цитата:

SetWidowStyle

похоже n пропущена вот у меня и не нашло

 Отправлено: 03.07.16 23:13. Заголовок: Dima пишет похоже n ..

Dima пишет

цитата:

похоже n пропущена

n пропустил это да - маленький экран и клава - не увидел

 Отправлено: 04.07.16 00:00. Заголовок: Не собирается, выдаё..

Не собирается, выдаёт ошибку:
form_PrnA20.prg(300) Warning W0001 Ambiguous reference 'ES_CENTER'
No code generated.
hbmk2[form_1]: Error: Running Harbour compiler (embedded). 1

Проехали...
Подключил #include "i_winuser.ch"

Красиво получается !!! Спасибо БОЛЬШОЕ !

 Отправлено: 04.08.16 11:19. Заголовок: Григорий, в МиниГуи ..

Григорий, в МиниГуи есть у тебя функция MsgDebug() - удачная функция.
Но вот стандартной функции отладки вывода в файл нет.
Я понимаю, каждый пишет свои функции, но для полноты содержания отладки было бы неплохо иметь такую функцию.
Может поместишь в библиотеку функцию SergKis - MsgLog() ?
Она короткая и удобная.

 Отправлено: 04.08.16 12:03. Заголовок: Andrey StrFile()..

Andrey
StrFile()