Отправлено: 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.06.15 16:51. Заголовок: Dima пишет: Перечис..

Dima пишет:

цитата:

Перечисление функций в скобках видимо не прокатит.

Прокатывает ! Если объём файлов в проекте 450Кб то собирается... Если большой проект: 2Мб - не собирается.
Простое копирование файлов из одной паки в другую. 4 файла не компилируются после вставки в большой проект.
Вот хоть тресни.
Это 1-я беда, вторая беда - не может препроцессор найти в 3-х модулях функции GetWindowWidth и GetWindowHeight.
Вручную поставил сам в начале модулей:
#xtranslate GetWindowWidth ( <hWnd> ) => GetWindowRect( <hWnd>, 3 )
#xtranslate GetWindowHeight ( <hWnd> ) => GetWindowRect( <hWnd>, 4 )
Тогда заработало.
Вот и спрашиваю, что за фигня, может у Харбора надо что-то подкрутить ?
В Клипере раньше приходилось шаманить, не помню уже что.

SergKis пишет:

цитата:

Andrey глянь препроцессор и попробуй obj из тестового (работающего) проекта включить в большой. может проще не куски кода таскать, а формировать lib и ее включать в проекты

Попробую.
Нет не особо удобно формировать и таскать lib. Не привык я к такому.

 Отправлено: 21.06.15 17:17. Заголовок: Andrey пишет: втора..

Andrey пишет:

цитата:

вторая беда - не может препроцессор найти в 3-х модулях функции GetWindowWidth и GetWindowHeight. Вручную поставил сам в начале модулей:

#include "minigui.ch" прописан в PRG ?

 Отправлено: 21.06.15 17:35. Заголовок: Dima пишет: #includ..

Dima пишет:

цитата:

#include "minigui.ch" прописан в PRG ?

Конечно ! Иначе бы вообще не собирал !

 Отправлено: 21.06.15 17:42. Заголовок: Тогда фик знает. Мож..

Тогда фик знает. Может и есть какое ограничение.
Максимум что у меня было для сборки (GTWVT) файл размером 320 кило и строк в нем 13000 ,
собирается нормально.

 Отправлено: 21.06.15 17:47. Заголовок: Dima пишет: Это 1-я..

Andrey пишет:

цитата:

Это 1-я беда, вторая беда -

Андрей, думаю в твоей ситуации без "самодостаточного" примера - это пальцем в небо ...

ЗЫ. у меня в проекте 133 файла и 1,5 МБ кода - все норм

 Отправлено: 21.06.15 19:42. Заголовок: Haz пишет: Андрей, ..

Haz пишет:

цитата:

Андрей, думаю в твоей ситуации без "самодостаточного" примера - это пальцем в небо ... ЗЫ. у меня в проекте 133 файла и 1,5 МБ кода - все норм

Давай я тебе пришлю модуль который не компилируется ?
У меня в проекте 89 файлов и 1,9 Мб кода.

 Отправлено: 22.06.15 10:39. Заголовок: Andrey пишет: Давай..

Andrey пишет:

цитата:

Давай я тебе пришлю модуль который не компилируется

шли

 Отправлено: 22.06.15 14:17. Заголовок: Haz пишет: шли Выс..

Haz пишет:

цитата:

шли

Выслал...

 Отправлено: 22.06.15 21:59. Заголовок: Трехдневная эпопея с..

Трехдневная эпопея со сборкой там работает, а здесь нет подола наконец то к завершению.
Спасибо большое всем кто откликнулся.

Убрал в своём большом проекте МойПроект.hbp строчку -incpath=z:\minigui\include
и всё стало нормально компилироваться ...
Блин, ну почему такие явные вещи мешают компиляции - загадка !
Как в той загадке - без окон и дверей полна горница:

 Отправлено: 22.06.15 22:02. Заголовок: Andrey пишет: -incp..

Andrey пишет:

цитата:

-incpath=z:\minigui\include

путь то есть такой ?

 Отправлено: 22.06.15 22:20. Заголовок: Dima пишет: путь то..

Dima пишет:

цитата:

путь то есть такой ?

Да есть, у меня там МиниГуй установлен.

Даже это теперь компилируется:
ON MOUSEHOVER ( SetProperty(ThisWindow.Name, This.Name, "ICON", "iFloppy48x2") ,;
SetProperty(ThisWindow.Name, This.Name, "fontcolor", aButtColor2 ) ) ;
ON MOUSELEAVE ( SetProperty(ThisWindow.Name, This.Name, "ICON", "iFloppy48x1") ,;
SetProperty(ThisWindow.Name, This.Name, "fontcolor", aButtColor ) ) ;

 Отправлено: 23.06.15 09:52. Заголовок: Можно ли сделать/соз..

Можно ли сделать/создать окно - чтобы оно было отдельно на панели задач от MAIN окна ?

 Отправлено: 30.06.15 13:44. Заголовок: Как сделать ввод чис..

Как сделать ввод числа по маске "999 999 999" ?
Делаю так:
@ 45,130 TEXTBOX TextBox_1 VALUE M->nPubMaxRecno WIDTH 120 HEIGHT 32 ;
BACKCOLOR {255,255,255} SIZE 14 NUMERIC INPUTMASK '999 999 999' ;
ON CHANGE {|| M->nPubMaxRecno := Form_6.TextBox_1.Value }
а на экране всё равно слитно цифры отображаются...

 Отправлено: 30.06.15 14:41. Заголовок: Andrey пишет: Как с..

Andrey пишет:

цитата:

Как сделать ввод числа по маске "999 999 999"

переделать через @ 45 ,130 GETBOX ... PICTURE "@R 999 999 999"

 Отправлено: 30.06.15 15:28. Заголовок: Спасибо БОЛЬШОЕ ! :..

Спасибо БОЛЬШОЕ !
Отправил письмо на почту, посмотри пожалуйста.

И еще в догонку к этому письму, не получается переместить фокус в ГРИД после расчёта.
Делаю:
@ 450,15 BUTTONEX Button_Start CAPTION 'Starting calculation';
WIDTH 380 HEIGHT 40 BACKCOLOR LGREEN FONTCOLOR WHITE BOLD ;
NOXPSTYLE HANDCURSOR ACTION {|| Test_Calc_Dbf(), Form_1.Grid_1.Setfocus }

а курсор в ГРИД не переходит...

 Отправлено: 30.06.15 16:00. Заголовок: Смотрел пример \..

Смотрел пример \MiniGUI\SAMPLES\Advanced\GridColor
Там строка 132: Form_1.Grid_1.SetFocus
или я не то смотрю....

А, понял... Нужно сначала ставить: Form_1.Grid_1.Value := 1, а потом уже Form_1.Grid_1.SetFocus !
Тогда работает !

 Отправлено: 30.06.15 16:02. Заголовок: Andrey пишет: Form_..

Andrey пишет:

цитата:

Form_1.Grid_1.SetFocus

А если через Domethod

 Отправлено: 30.06.15 16:04. Заголовок: Dima пишет: А если ..

Dima пишет:

цитата:

А если через Domethod

А не важно как, всеравно препроцессор поставит сам Domethod !

 Отправлено: 30.06.15 16:27. Заголовок: Andrey пишет: Делаю..

Andrey пишет:

цитата:

Делаю: @ 450,15 BUTTONEX Button_Start CAPTION 'Starting calculation'; WIDTH 380 HEIGHT 40 BACKCOLOR LGREEN FONTCOLOR WHITE BOLD ; NOXPSTYLE HANDCURSOR ACTION {|| Test_Calc_Dbf(), Form_1.Grid_1.Setfocus }

Form_1.Grid_1.Setfocus , Form_1.Grid_1.Value := 1 }

 Отправлено: 30.06.15 17:04. Заголовок: Haz пишет: Form_1.G..

Haz пишет:

цитата:

Form_1.Grid_1.Setfocus , Form_1.Grid_1.Value := 1 }

Спасибо, понял !