Отправлено: 15.11.11 21:36. Заголовок: Примеры из Минигуи -ошибки, вопросы..... (продолжение)

Всем привет.
Взялся смотреть примеры из МиниГуи, так не все работают. Может кто подскажет что там "допилить" нужно ?
А заодно может и исправить и добавить новые....

Очень красочный пример: \MiniGUI\SAMPLES\Advanced\AVI_Animation - не работает под Win7 (наверно AVI-шки нет в ресурсах)
Предложение Григорию:
Можно ли добавить еще один пример с отдельным AVI-файлом в ресурсах проекта и показом такого же бегунка ?

Пример: \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.

 Отправлено: 27.02.21 18:44. Заголовок: \MiniGUI\SAM..

\MiniGUI\SAMPLES\Applications\ScreenshotMaker\

 Отправлено: 27.02.21 23:22. Заголовок: Спасибо ! :sm36:..

Спасибо !

 Отправлено: 02.04.21 18:08. Заголовок: А есть возможность в..

А есть возможность в МиниГуи цеплять большие курсоры для мышки ?
А то при выборе в ТСБ записи медленно окно карточки прорисовывается, пока построит всё объекты на окне,
юзер давит на кнопку или мышкой затыкивает запись в ТСБ.
Нужно показать немедленную реакцию программы - типа большие часики показать
и юзер увидит реакцию проги и не будет нервничать.
У кого есть большие курсоры для мышки и как это сделать для МиниГуи ?

P.S. Нашёл в инете только ОДИН большой курсор Circle.ani - 350 кб, добавил в пример
MiniGUI\SAMPLES\BASIC\CURSOR_2 заработал, а вот собираться в ехе-ник этот курсор не хочет.
Выдаёт ошибку:

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 
 

Ошибку выдаёт и на других курсорах:
HMG.cur
Working in Background.ani
Почему ?

 Отправлено: 02.04.21 21:39. Заголовок: Andrey пишет Выдаёт ..

Andrey пишет

цитата:

Выдаёт ошибку:

У меня выдает DEMO.RC (61) : error RC2175 : resource file .\Cursors\Circle.ani is not in 3.00 format

цитата:

Ошибка компилятора ресурсов RC2175 имя файла ресурсного файла не в формате 3.00 Указанный ресурс использовал формат более ранней, чем версия 3.00. Файл ресурсов должен быть преобразован или воссоздан с использованием формата версии 3.00 или новее.

 Отправлено: 03.04.21 17:16. Заголовок: Вопрос возник опять ..

Вопрос возник опять по окнам.
Есть окно модал1, далее строю модал2 с ТСБ.
В ячейки таблицы вызываю редактирование - окно модал3.
Иногда у заказчика (да и я сам один раз словил) идёт переключение сразу на модал1.

Нашёл алгоритм, который роняет прогу:
Колёсико мышки в ТСБ вверх/вниз, выхожу обратно на модал2 и после закрытия редактирования ячейки
(модал3 закрывается) - идёт переключение на модал1 и становиться АКТИВНЫМ !!!
Т.е. окно модал2 под ним и переключиться на него НЕ МОГУ !
Почему ?
Как это исправить ?

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

Andrey пишет

цитата:

Т.е. окно модал2 под ним и переключиться на него НЕ МОГУ !

Похожая картина происходит в MDI окнах, если их 3-и и больше и на тек. окне ввод в GETBOX, то по завершении ввода фокус улетает на окно mdi child другое (точно уже не помню, но кажется первое) и все там и сидит. Где то управление окнами в h_events.prg подрабатывает. Определить не смог.

 Отправлено: 03.04.21 18:29. Заголовок: Понял тебя. :sm36: ..

Понял тебя.
Благо это в одном месте, переделал на контекстное меню.
Пропала ошибка...

 Отправлено: 03.04.21 18:44. Заголовок: Andrey пишет Благо э..

Andrey пишет

цитата:

Благо это в одном месте, переделал на контекстное меню.

Если есть потребность 3-го окна, то надо убирать 2-е и вместо него делать, типа, 3-е, отработать и убрав 3-е, пересоздать 2-е, учитывая данные с 3-го. В MDI тек. hmg (так пробовал делать и не было перескоков фокуса).

 Отправлено: 01.05.21 08:18. Заголовок: Наткнулся на баг!

Пример со строчным курсором:
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)

 Отправлено: 01.05.21 08:42. Заголовок: alex_II пишет Вышел ..

alex_II пишет

цитата:

Вышел из этой ситуации таким образом: DATA FieldWBlock('ls', Select('sity')) --> DATA str(sity->ls,6,0)

Возможно, так удобнее было бы

 
       :lInsertMode := .T. 
  
       :nFreeze := 1 
       :lLockFreeze := .T. 
       :nCell := 2 
  
    END TBROWSE 
 

Не используемая в Edit 1-ая колонка не попадала в фокус, отпадают лишние движения

 Отправлено: 01.05.21 09:10. Заголовок: PS Если фокус на 1-о..

PS
Если фокус на 1-ой колонке надо иметь, то проще поступать так

 
    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 
 

 Отправлено: 01.05.21 09:14. Заголовок: PS2 и убрать в стро..

PS2
и убрать в строке
AEval( oBrw:aColumns, {| oCol | oCol:lFixLite := oCol:lEdit := TRUE } )

 Отправлено: 28.09.21 19:24. Заголовок: Блин, опять забыл ка..

Блин, опять забыл как сделать передачу параметров для запуска программы.
Программа запускается так: import.exe "блабла" 2021 "ок"
А как сделать этот параметр в файле import.hbp ?
Т.е. чтобы запускать на компиляцию hbmk2.bat import.hbp и после сборки предавалась эта командная строка - "блабла" 2021 "ок"

 Отправлено: 28.09.21 19:43. Заголовок: Andrey пишет: Блин,..

Andrey пишет:

цитата:

Блин, опять забыл

Андрей у врача давно был ?
Склероз явно прогрессирует

 Отправлено: 28.09.21 22:37. Заголовок: Andrey пишет: Т.е. ..

Andrey пишет:

цитата:

Т.е. чтобы запускать на компиляцию hbmk2.bat import.hbp и после сборки предавалась эта командная строка - "блабла" 2021 "ок"

http://clipper.borda.ru/?1-4-1632858128412-00000886-000-10001-0#010.001

 Отправлено: 29.09.21 00:13. Заголовок: А что поделать, памя..

А что поделать, памяти после ковида вообще нет.
Год назад об этом спрашивал оказывается, забыл.
На форуме в поиске задавал ключ поиска -run и выдало 0 страниц. Поиск на форуме вообще не фурычит.

Haz пишет:

цитата:

2) читаем справку , там есть -runflag=<f> pass single flag to output executable when -run option is used

Пробовал этот ключ, что то не пошёл он у меня.
Задаю так:

-runflag="/PLATAIMPORT" "2021" "20" "Оператор 20" 

Выдаёт вот это:

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

Если кавычки убрать, то всё равно такая же ошибка.

 Отправлено: 29.09.21 01:58. Заголовок: Andrey Не мучай пар..

Andrey
Не мучай параметры, создавай ini с параметрами и читай их, без ограничений в кол-ве и качестве

 Отправлено: 29.09.21 08:36. Заголовок: SergKis пишет: Не м..

SergKis пишет:

цитата:

Не мучай параметры, создавай ini с параметрами и читай их, без ограничений в кол-ве и качестве

Да у меня отдельная задача запускается через командную строку.
Вот для неё и хотел сделать.

 Отправлено: 29.09.21 10:30. Заголовок: Andrey пишет: Пробо..

Andrey пишет:

цитата:

Пробовал этот ключ, что то не пошёл он у меня.

Там же написано single flag . т.е. один параметр одной строкой.
Убери все пробелы и кавычки ( они точно не нужны т.к. через командную строку передаются только строки)
В программе распарсишь полученную строку на нужные составляюшие

 Отправлено: 29.09.21 11:38. Заголовок: Andrey пишет Да у ме..

Andrey пишет

цитата:

Да у меня отдельная задача запускается через командную строку.

Тем более. Будешь в link прописывать или Haz пишет

цитата:

распарсишь полученную строку на нужные составляюшие

Ini удобнее. Тот пример, что у тебя есть demo5, там только одна строка и парсить ничего не надо