Форум » GUI » Примеры из Минигуи -ошибки, вопросы..... (продолжение) » Ответить

Примеры из Минигуи -ошибки, вопросы..... (продолжение)

Andrey: Всем привет. Взялся смотреть примеры из МиниГуи, так не все работают. Может кто подскажет что там "допилить" нужно ? А заодно может и исправить и добавить новые.... Очень красочный пример: \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.

Ответов - 300, стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All

Andrey: 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. Не привык я к такому.

Dima: Andrey пишет: вторая беда - не может препроцессор найти в 3-х модулях функции GetWindowWidth и GetWindowHeight. Вручную поставил сам в начале модулей: #include "minigui.ch" прописан в PRG ?

Andrey: Dima пишет: #include "minigui.ch" прописан в PRG ? Конечно ! Иначе бы вообще не собирал !


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

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

Andrey: Haz пишет: Андрей, думаю в твоей ситуации без "самодостаточного" примера - это пальцем в небо ... ЗЫ. у меня в проекте 133 файла и 1,5 МБ кода - все норм Давай я тебе пришлю модуль который не компилируется ? У меня в проекте 89 файлов и 1,9 Мб кода.

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

Andrey: Haz пишет: шли Выслал...

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

Dima: Andrey пишет: -incpath=z:\minigui\include путь то есть такой ?

Andrey: 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 ) ) ;

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

Andrey: Как сделать ввод числа по маске "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 } а на экране всё равно слитно цифры отображаются...

Haz: Andrey пишет: Как сделать ввод числа по маске "999 999 999" переделать через @ 45 ,130 GETBOX ... PICTURE "@R 999 999 999"

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 } а курсор в ГРИД не переходит...

Andrey: Смотрел пример \MiniGUI\SAMPLES\Advanced\GridColor Там строка 132: Form_1.Grid_1.SetFocus или я не то смотрю.... А, понял... Нужно сначала ставить: Form_1.Grid_1.Value := 1, а потом уже Form_1.Grid_1.SetFocus ! Тогда работает !

Dima: Andrey пишет: Form_1.Grid_1.SetFocus А если через Domethod

Andrey: Dima пишет: А если через Domethod А не важно как, всеравно препроцессор поставит сам Domethod !

Haz: 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 }

Andrey: Haz пишет: Form_1.Grid_1.Setfocus , Form_1.Grid_1.Value := 1 } Спасибо, понял !



полная версия страницы