Форум » 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.
Dima: \MiniGUI\SAMPLES\Applications\ScreenshotMaker\
Andrey: Спасибо !
Andrey: А есть возможность в МиниГуи цеплять большие курсоры для мышки ? А то при выборе в ТСБ записи медленно окно карточки прорисовывается, пока построит всё объекты на окне, юзер давит на кнопку или мышкой затыкивает запись в ТСБ. Нужно показать немедленную реакцию программы - типа большие часики показать и юзер увидит реакцию проги и не будет нервничать. У кого есть большие курсоры для мышки и как это сделать для МиниГуи ? P.S. Нашёл в инете только ОДИН большой курсор Circle.ani - 350 кб, добавил в пример MiniGUI\SAMPLES\BASIC\CURSOR_2 заработал, а вот собираться в ехе-ник этот курсор не хочет. Выдаёт ошибку: [pre2]Borland Resource Compiler Version 5.40 Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved. Error MyCurcor.rc 2 45: Invalid cursor format hbmk2[5Tbrw_table_2]: Error: Running resource compiler. 20018 [/pre2]Ошибку выдаёт и на других курсорах: HMG.cur Working in Background.ani Почему ?
SergKis: Andrey пишет Выдаёт ошибку: У меня выдает DEMO.RC (61) : error RC2175 : resource file .\Cursors\Circle.ani is not in 3.00 format Ошибка компилятора ресурсов RC2175 имя файла ресурсного файла не в формате 3.00 Указанный ресурс использовал формат более ранней, чем версия 3.00. Файл ресурсов должен быть преобразован или воссоздан с использованием формата версии 3.00 или новее.
Andrey: Вопрос возник опять по окнам. Есть окно модал1, далее строю модал2 с ТСБ. В ячейки таблицы вызываю редактирование - окно модал3. Иногда у заказчика (да и я сам один раз словил) идёт переключение сразу на модал1. Нашёл алгоритм, который роняет прогу: Колёсико мышки в ТСБ вверх/вниз, выхожу обратно на модал2 и после закрытия редактирования ячейки (модал3 закрывается) - идёт переключение на модал1 и становиться АКТИВНЫМ !!! Т.е. окно модал2 под ним и переключиться на него НЕ МОГУ ! Почему ? Как это исправить ?
SergKis: Andrey пишет Т.е. окно модал2 под ним и переключиться на него НЕ МОГУ ! Похожая картина происходит в MDI окнах, если их 3-и и больше и на тек. окне ввод в GETBOX, то по завершении ввода фокус улетает на окно mdi child другое (точно уже не помню, но кажется первое) и все там и сидит. Где то управление окнами в h_events.prg подрабатывает. Определить не смог.
Andrey: Понял тебя. Благо это в одном месте, переделал на контекстное меню. Пропала ошибка...
SergKis: Andrey пишет Благо это в одном месте, переделал на контекстное меню. Если есть потребность 3-го окна, то надо убирать 2-е и вместо него делать, типа, 3-е, отработать и убрав 3-е, пересоздать 2-е, учитывая данные с 3-го. В MDI тек. hmg (так пробовал делать и не было перескоков фокуса).
alex_II: Пример со строчным курсором: MiniGUI\SAMPLES\Advanced\Tsb_linedrag Для решения задачи все ячейки делаются редактируемыми ... // prepare for showing of Double cursor AEval( oBrw:aColumns, {| oCol | oCol:lFixLite := oCol:lEdit := TRUE } ) ... и хотя для предотвращения входа в редактирование я устанавливал в описании столбца PREEDIT {|| .F.} это не спасает от ошибочного входа в редактирование первого столбца Пользователь зачастую не глядя редактирует быстро колонки и ИНОГДА кусок введеных данных оказывается введен параллельно и в первую колонку TSBrowse. Вышел из этой ситуации таким образом: DATA FieldWBlock('ls', Select('sity')) --> DATA str(sity->ls,6,0)
SergKis: alex_II пишет Вышел из этой ситуации таким образом: DATA FieldWBlock('ls', Select('sity')) --> DATA str(sity->ls,6,0) Возможно, так удобнее было бы[pre2] :lInsertMode := .T. :nFreeze := 1 :lLockFreeze := .T. :nCell := 2 END TBROWSE [/pre2] Не используемая в Edit 1-ая колонка не попадала в фокус, отпадают лишние движения
SergKis: PS Если фокус на 1-ой колонке надо иметь, то проще поступать так[pre2] LoadFields( "oBrw", "Form_0", .T., aField ) oBrw:GetColumn(1):lEdit := .F. и убрать строку AEval( oBrw:aColumns, {| oCol | oCol:lFixLite := oCol:lEdit := TRUE } ) если у вас создание колонок из ini, то и установку :lEdit надо делать из ini oBrw:GetColumn( "F1" ):lEdit := "T" $ hIni[ "F1" ][ "Edit" ] oBrw:GetColumn( "F2" ):lEdit := "T" $ hIni[ "F2" ][ "Edit" ] oBrw:GetColumn( "F3" ):lEdit := "T" $ hIni[ "F3" ][ "Edit" ] oBrw:GetColumn( "F4" ):lEdit := "T" $ hIni[ "F4" ][ "Edit" ] добавив FOR n := 1 TO TEST->( FCount() ) hIni[ aField[ n ] ] := hb_Hash() hIni[ aField[ n ] ][ "Position" ] := hb_ntos( n ) hIni[ aField[ n ] ][ "Width" ] := hb_ntos( 100 ) hIni[ aField[ n ] ][ "Heading" ] := aField[ n ] hIni[ aField[ n ] ][ "Edit" ] := iif( aField[ n ] == "F2", ".F.", ".T." ) NEXT [/pre2]
SergKis: PS2 и убрать в строке AEval( oBrw:aColumns, {| oCol | oCol:lFixLite := oCol:lEdit := TRUE } )
Andrey: Блин, опять забыл как сделать передачу параметров для запуска программы. Программа запускается так: import.exe "блабла" 2021 "ок" А как сделать этот параметр в файле import.hbp ? Т.е. чтобы запускать на компиляцию hbmk2.bat import.hbp и после сборки предавалась эта командная строка - "блабла" 2021 "ок"
Dima: Andrey пишет: Блин, опять забыл Андрей у врача давно был ? Склероз явно прогрессирует
Haz: Andrey пишет: Т.е. чтобы запускать на компиляцию hbmk2.bat import.hbp и после сборки предавалась эта командная строка - "блабла" 2021 "ок" http://clipper.borda.ru/?1-4-1632858128412-00000886-000-10001-0#010.001
Andrey: А что поделать, памяти после ковида вообще нет. Год назад об этом спрашивал оказывается, забыл. На форуме в поиске задавал ключ поиска -run и выдало 0 страниц. Поиск на форуме вообще не фурычит. Haz пишет: 2) читаем справку , там есть -runflag=<f> pass single flag to output executable when -run option is used Пробовал этот ключ, что то не пошёл он у меня. Задаю так: [pre2]-runflag="/PLATAIMPORT" "2021" "20" "Оператор 20" [/pre2] Выдаёт вот это: [pre2]Harbour 3.2.0dev (r2104281802) Copyright (c) 1999-2021, https://harbour.github.io/ Cannot open 2021.prg, assumed external No code generated. hbmk2[opl_import]: Error: Running Harbour compiler (built-in). 1[/pre2] Если кавычки убрать, то всё равно такая же ошибка.
SergKis: Andrey Не мучай параметры, создавай ini с параметрами и читай их, без ограничений в кол-ве и качестве
Andrey: SergKis пишет: Не мучай параметры, создавай ini с параметрами и читай их, без ограничений в кол-ве и качестве Да у меня отдельная задача запускается через командную строку. Вот для неё и хотел сделать.
Haz: Andrey пишет: Пробовал этот ключ, что то не пошёл он у меня. Там же написано single flag . т.е. один параметр одной строкой. Убери все пробелы и кавычки ( они точно не нужны т.к. через командную строку передаются только строки) В программе распарсишь полученную строку на нужные составляюшие
SergKis: Andrey пишет Да у меня отдельная задача запускается через командную строку. Тем более. Будешь в link прописывать или Haz пишет распарсишь полученную строку на нужные составляюшие Ini удобнее. Тот пример, что у тебя есть demo5, там только одна строка и парсить ничего не надо
полная версия страницы