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

 Отправлено: 31.08.13 20:44. Заголовок: БОЛЬШОЕ СПАСИБО за р..

БОЛЬШОЕ СПАСИБО за разъяснения !
Буду думать....

 Отправлено: 02.09.13 19:21. Заголовок: Читаю хелпер по Мини..

Читаю хелпер по МиниГуи - CheckBox
Хочу задать другой цвет, добавляю в пример:
\MiniGUI\SAMPLES\BASIC\checkbox\demo.prg

Define CheckBox Check1
Row 40
Col 10
Value .F.
Caption 'Simple CheckBox'
Width 120
FontColor RED
BackColor YELLOW
OnChange MsgInfo( "CheckBox 1 Value is Changed!" )
End CheckBox


Цвет не меняется ! Фон меняется !
Так должно быть ?
Или у меня Win8 глючит ?

 Отправлено: 15.09.13 18:08. Заголовок: Всем привет. Пример ..

Всем привет.
Пример \MiniGUI\SAMPLES\BASIC\Grid_5
Как поменять цвет выбора (маркера) на другой ?
Хочу черный маркер и на нем желтые буквы....
Как поменять цвет заголовка таблицы на другой ?
Никак у меня не получается ...

 Отправлено: 16.09.13 10:26. Заголовок: Andrey пишет: Как п..

Andrey пишет:

цитата:

Как поменять цвет выбора (маркера) на другой ?

Такая возможность для стандартного Grid есть (см. пример в папке samples\Advanced\GridColor).

Andrey пишет:

цитата:

Как поменять цвет заголовка таблицы на другой ?

Для стандартного Grid - никак, в таком случае надо использовать библиотеку TSBrowse с расширенными возможностями (см. элемент управления TBROWSE).

 Отправлено: 16.09.13 22:37. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Такая возможность для стандартного Grid есть (см. пример в папке samples\Advanced\GridColor).

Что-то не получается у меня (для меню из 3-х элементов) ...
Если включить CELLNAVIGATION .T. то цвет на одной ячейке появляется...
Вот текст примера:
Скрытый текст

/* * MiniGUI Grid Color Demo * * The idea of 2013 Verchenko Andrey <verchenkoag@gmail.com> * Implementation (c) 2013 Grigory Filatov <gfilatov@inbox.ru> */ #include "minigui.ch" Procedure Main LOCAL aColor := {105,182,34} // bright green LOCAL aColor2 := YELLOW LOCAL aColor3 := AQUA LOCAL aBtnColor := WHITE, aBackColor := aColor LOCAL fColor := { | Val, CellRowIndex | IF ( CellRowIndex / 2 == Int( CellRowIndex / 2 ) , RGB( aColor2[1],aColor2[2],aColor2[3] ) , RGB( aColor3[1],aColor3[2],aColor3[3] ) ) } LOCAL fColor2 := { | Val, CellRowIndex | IF ( CellRowIndex / 2 == Int( CellRowIndex / 2 ) , RGB( aColor[1],aColor[2],aColor[3] ) , RGB( aColor[1],aColor[2],aColor[3] ) ) } SET MULTIPLE OFF SET AUTOADJUST ON DEFINE WINDOW Form_2 ; AT 0,0 ; WIDTH 600 ; HEIGHT 400 ; TITLE 'Grid Colors Themes (color style)' ; MAIN ; BACKCOLOR aBackColor ; FONT 'Tahoma' SIZE 14 ; ON INIT OnInitGrid() DEFINE MAIN MENU DEFINE POPUP 'File' MENUITEM 'Exit' ACTION ThisWindow.Release END POPUP END MENU // Title grid {HEADERS} consists of only one line. // The second line is not visible! Limitation grid. DEFINE GRID Grid_2 ROW 10 COL 10 WIDTH 570 HEIGHT 300 WIDTHS { 550 - IF(IsXPThemeActive(), 2, 0) } HEADERS {'No (1)','Menu (2)', 'File (3)' } WIDTHS { 100, 280, 150 } ITEMS MyLoadDim() VALUE 1 ON DBLCLICK Test_Choice(1) ONHEADCLICK { {|| MsgInfo('Header 1 Clicked !')} , { || MsgInfo('Header 2 Clicked !')}, { || MsgInfo('Header 3 Clicked !')} } NOLINES .T. CELLNAVIGATION .F. DYNAMICFORECOLOR { fColor , fColor, fColor } DYNAMICBACKCOLOR { fColor2, fColor2, fColor2 } FONTBOLD .T. FONTCOLOR BLUE BACKCOLOR aBackColor END GRID ON KEY F4 ACTION Test_Choice(2) END WINDOW CENTER WINDOW Form_2 ACTIVATE WINDOW Form_2 Return /////////////////////////////////////////////////////////////////////////// Procedure OnInitGrid() _HMG_GridSelectedCellForeColor := RED _HMG_GridSelectedCellBackColor := BLACK Form_2.Grid_2.Value := 1 Form_2.Grid_2.SetFocus Return /////////////////////////////////////////////////////////////////////////// Function MyLoadDim() Local nI, aRows := {} FOR nI := 1 TO 25 AAdd( aRows, { STR(nI)+".", "Example menu -> "+STR(nI,3), "file"+LTRIM(STR(nI))+".txt" } ) NEXT Return aRows /////////////////////////////////////////////////////////////////////////// Procedure Test_Choice(nVal) Local nMenuNum := Form_2.Grid_2.Value Local cMenuName := GetColValue( "Grid_2", "Form_2", 2 ) Local cFileName := GetColValue( "Grid_2", "Form_2", 3 ) Local cText //MsgDebug(nMenuNum,VALTYPE(nMenuNum)) cText := IIF(nVal==2,"You press F4","") + CRLF + CRLF cText += "Menu selection = " + STR(nMenuNum,2) + CRLF + CRLF cText += "Menu (2): ["+ cMenuName + "]" + CRLF + CRLF cText += "File (3): ["+ cFileName + "]" + CRLF + CRLF MsgInfo(cText) //refresh_it() // не работает что-то Return /////////////////////////////////////////////////////////////////////////// Function GetColValue( xObj, xForm, nCol ) Local nPos:= GetProperty(xForm, xObj, 'Value') Local aRet:= GetProperty(xForm, xObj, 'Item', nPos) Return aRet[nCol] /////////////////////////////////////////////////////////////////////////// Function refresh_it() Local a := Form_2.Grid_2.Value Form_2.Grid_2.Value := iif(a[1] # 1, 1, 2) Form_2.Grid_2.Value := a Return NIL

gfilatov2002 пишет:

цитата:

Для стандартного Grid - никак, в таком случае надо использовать библиотеку TSBrowse

Понял. Спасибо.

 Отправлено: 16.10.13 21:43. Заголовок: Есть ли в МиниГуи ок..

Есть ли в МиниГуи окно (не MsgInfo) без остановки программы ?
Т.е. на экран вешается ПРОСТОЕ сообщение, а программа выполняется дальше...

 Отправлено: 16.10.13 22:26. Заголовок: есть

в минигуи пример называется WaitWindow

 Отправлено: 17.10.13 00:54. Заголовок: \MiniGUI\SAM..

\MiniGUI\SAMPLES\BASIC\WAIT_WINDOW\demo2.prg - подходит, но при нажатии в любом месте мышкой, окно закрывается... Нужно бы кнопку на это окно "Закрыть", тогда юзер успеет посмотреть что за ошибка была !

Да и пример пару раз повисал...

 Отправлено: 17.10.13 10:44. Заголовок: так это базовый пример

так это базовый пример, и лучше подходит demo1 - там параметр NOWAIT используется чтоб не ждать any key ...
а кнопку в окно добавить легко - в InitWaitWindow до/после LABEL дописать и подвесить на нее событие { || _HMG_CHILDWAITWINDOW.HIDE }

PS. Я бы использовал трей для вывода сообщения об ошибке - посмотри пример TrayBalloon_2

 Отправлено: 17.10.13 18:00. Заголовок: Haz пишет: Я бы исп..

Haz пишет:

цитата:

Я бы использовал трей для вывода сообщения об ошибке - посмотри пример TrayBalloon_2

Я другое хочу:

Т.е. много ошибок или просто сообщений на рабочий стол...

 Отправлено: 26.10.13 21:45. Заголовок: Так, с предыдущим пр..

Так, с предыдущим примером закончили. Пример сделал с помощью Григория.

Теперь другой, вопрос.
Как узнать размер desktop toolbars в своей программе ?
Для вычисления истинного размера экрана своей проги.

Подобный вопрос уже обсуждали в теме: http://clipper.borda.ru/?1-20-0-00000265-000-0-0-1171206710
Но этих функций на С нет в библиотеке МиниГуи. А таскать каждый раз их в другие проекты неудобно.
Хотя это отличные функции.

Есть ли еще другие варианты решения этой проблемы ?

 Отправлено: 27.10.13 19:24. Заголовок: Andrey пишет: Как у..

Andrey пишет:

цитата:

Как узнать размер desktop toolbars в своей программе ?

Посмотри функцию GetTaskBarHeight()

 Отправлено: 28.10.13 11:25. Заголовок: Anderey пишет:Но эти..

Anderey пишет:

цитата:

Но этих функций на С нет в библиотеке МиниГуи. А таскать каждый раз их в другие проекты неудобно

Может стоит создать проект для своей lib и подключать к проектам программ:
for %%i in ( OBJ\*.obj ) Do %HB_INS_BCC%\bin\tlib.exe LIB\my_lib1.lib -+%%i > nul

 Отправлено: 29.10.13 18:03. Заголовок: SergKis пишет: Може..

SergKis пишет:

цитата:

Может стоит создать проект для своей lib и подключать к проектам программ

Да я не любитель своих библиотек.
Намаялся в свое время с восстановлением потерянных библиотек и решил не писать их, только библиотека исходников.

Просто на маленькие примеры стараюсь пользоваться стандартными функциями.

 Отправлено: 29.10.13 18:41. Заголовок: Есть замечательный п..

Есть замечательный пример \MiniGUI\SAMPLES\Advanced\TrayBalloon
Только иконка на этом "балоне" одна - [ i ]
Как бы его можно модифицировать, чтобы можно было задавать типы иконок, как в следующем примере:

Кто знает как менять иконки в балоне ?

 Отправлено: 29.10.13 18:55. Заголовок: Andrey пишет: как м..

Andrey пишет:

цитата:

как менять иконки в балоне ?

Просто посмотри следующий пример Advanced\TrayBalloon_2
в котором можно менять тип иконки

 Отправлено: 29.10.13 19:42. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Просто посмотри следующий пример Advanced\TrayBalloon_2 в котором можно менять тип иконки

Да этот пример - монстр. И библиотеку hbwin цеплять нужно...
И угловатый какой то. Первый пример округленький, красивей.
В первом так все понятно: MsgBalloon( cMessage, cTitle ) - простота лучший друг понимания.
Вот бы сюда добавить тип иконки: MsgBalloon( cMessage, cTitle, nIcon )
Можно добавить этот параметр ?

 Отправлено: 30.10.13 16:06. Заголовок: Andrey пишет: Можно..

Andrey пишет:

цитата:

Можно добавить этот параметр ?

Andrey
Сделаю для следующей сборки

 Отправлено: 30.10.13 18:24. Заголовок: Спасибо БОЛЬШОЕ Григ..

Спасибо БОЛЬШОЕ Григорий !

 Отправлено: 30.10.13 18:27. Заголовок: Если задача вылетает..

Если задача вылетает по ошибке, то в файле ошибок ErrorLog.htm есть такая строка:
Time from start: 0 days 0 hours 0 mins 3 secs<BR>
А как можно получить в программе это значение ?
Хочу использовать для отображения на NOTIFYTOOLTIP программы. ?