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

 Отправлено: 10.07.20 14:47. Заголовок: Andrey пишет: Очере..

Andrey пишет:

цитата:

Очередная китайская загадка.

Тема называется "Примеры из Минигуи -ошибки, вопросы"

 Отправлено: 10.07.20 15:45. Заголовок: Andrey пишет: пробо..

Andrey пишет:

цитата:

пробовал и так: @ nY, nX TEXTBOX TbShbl_1 VALUE cFileSbln WIDTH nWtb1 HEIGHT nHTxt ; FONTCOLOR BLACK BACKCOLOR aBColorTxt ; ON CHANGE {|| cFileSbln := Form_SetCmp.TbSbln_1.Value }

Как минимум в этом.

цитата:

Тема называется "Примеры из Минигуи -ошибки, вопросы"

согласен с Димой, тема относится к примерам. Про личную невнимательность лучше писать не здесь.

 Отправлено: 10.07.20 17:00. Заголовок: Haz пишет: Про личн..

Haz пишет:

цитата:

Про личную невнимательность лучше писать не здесь

Ну извините меня.
Запутался в переменной... с кем не бывает ?

 Отправлено: 10.07.20 17:26. Заголовок: А вот дальше у меня ..

А вот дальше у меня точно НЕ МОЯ ошибка или баг.
При использовании отладки в лог-файл допустим _MsgLog.txt
после использования команды GetFile(...) перестаёт писаться в текущий лог,
создаёт НОВЫЙ лог в папке где был использован последний путь из GetFile(...)
Почему ?

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

Andrey пишет

цитата:

после использования команды GetFile(...) перестаёт писаться в текущий лог

Исходники для того, что бы их смотреть h_ini.prg

 
 *-----------------------------------------------------------------------------* 
 FUNCTION _SetGetLogFile( cFile ) 
 *-----------------------------------------------------------------------------* 
    LOCAL cOld 
    STATIC MLog_File 
  
    cOld := MLog_File 
    IF cFile != NIL 
       MLog_File := cFile 
       RETURN MLog_File 
    ENDIF 
  
 RETURN cOld 
  
 *-----------------------------------------------------------------------------* 
 #ifndef __XHARBOUR__ 
 FUNCTION _LogFile( lCrLf, ... ) 
 #else 
 FUNCTION _LogFile( ... ) 
 #endif 
 *-----------------------------------------------------------------------------* 
    LOCAL hFile, i, xVal, cTp 
    LOCAL aParams := hb_AParams() 
    LOCAL nParams := Len( aParams ) 
    LOCAL cFile := hb_defaultValue( _SetGetLogFile(), GetStartUpFolder() + "\_MsgLog.txt" ) 
 #ifdef __XHARBOUR__ 
    LOCAL lCrLf 
 #endif 
    IF !Empty( cFile ) 
       hFile := iif( File( cFile ), FOpen( cFile, FO_READWRITE ), FCreate( cFile, FC_NORMAL ) ) 
       IF hFile == F_ERROR 
          RETURN .F. 
       ENDIF 
       FSeek( hFile, 0, FS_END ) 
       IF nParams > 1 
 #ifdef __XHARBOUR__ 
          lCrLf := aParams[ 1 ] 
 #endif 
          IF ( lCrLf := hb_defaultValue( lCrLf, .T. ) ) 
             FWrite( hFile, CRLF, 2 ) 
          ENDIF 
          IF nParams == 2 .AND. HB_ISNIL( aParams[ 2 ] ) .AND. lCrLf 
          ELSE 
             FOR i := 2 TO nParams 
                xVal := aParams[ i ] 
                cTp  := ValType( xVal ) 
                IF     cTp == 'C' ; xVal := iif( Empty( xVal ), "'" + "'", Trim( xVal ) ) 
                ELSEIF cTp == 'N' ; xVal := hb_ntos( xVal ) 
                ELSEIF cTp == 'L' ; xVal := iif( xVal, ".T.", ".F." ) 
 #ifdef __XHARBOUR__ 
                ELSEIF cTp == 'D' ; xVal := DToC( xVal ) 
 #else 
                ELSEIF cTp == 'D' ; xVal := hb_DToC( xVal, 'DD.MM.YYYY' ) 
 #endif 
                ELSEIF cTp == 'A' ; xVal := "ARRAY["  + hb_ntos( Len( xVal ) ) + "]" 
                ELSEIF cTp == 'H' ; xVal :=  "HASH["  + hb_ntos( Len( xVal ) ) + "]" 
                ELSEIF cTp == 'B' ; xVal := "'" + "B" + "'" 
                ELSEIF cTp == 'T' ; xVal := hb_TSToStr( xVal, .T. ) 
                ELSEIF cTp == 'U' ; xVal := 'NIL' 
                ELSE              ; xVal := "'" + cTp + "'" 
                ENDIF 
                FWrite( hFile, xVal + Chr( 9 ) ) 
             NEXT 
          ENDIF 
       ELSE 
          FWrite( hFile, CRLF, 2 ) 
       ENDIF 
       FClose( hFile ) 
    ENDIF 
  
 RETURN .T. 
 ... 
 

А GetFile() до фонаря эти ф-ии, внутри работает C ф-я, где то использована выделенная цветом

 Отправлено: 16.07.20 21:20. Заголовок: Использую виндовую ф..

Использую виндовую функцию GetColor() из h_dialogs.prg
Открывается аж на другом конце экрана, по позиции окна примерно 10x10.
Окно с ТСБ на весь экран, колонка с изменением цвета в правом углу.
Вызываешь эту функцию и она показывается в левом углу...
Блин юзера задолбают вопросом - сдвинуть там где колонка.
А можно как то задать позицию этого GetColor() ?
В старом примере Tsb_Config тоже так же, только там задание цвета в отдельном окне и выходит по центру.
Более менее красиво.

 Отправлено: 16.07.20 22:08. Заголовок: Andrey пишет: А мож..

Andrey пишет:

цитата:

А можно как то задать позицию этого GetColor() ?

Попробуй задать команду

цитата:

SET DIALOGBOX CENTER OF PARENT

 Отправлено: 16.07.20 23:31. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Попробуй задать команду

Так получше !
А как можно снять эту команду, т.е. отменить её потом ?

 Отправлено: 17.07.20 07:41. Заголовок: Andrey пишет: А как..

Andrey пишет:

цитата:

А как можно снять эту команду, т.е. отменить её потом ?

Не судьба глянуть i_hmgcompat.ch ?

 Отправлено: 17.07.20 09:12. Заголовок: Andrey пишет: отмен..

Andrey пишет:

цитата:

отменить её потом ?

Dima пишет:

цитата:

глянуть i_hmgcompat.ch

цитата:

SET DIALOGBOX [ POSITION ] DISABLE

 Отправлено: 17.07.20 15:16. Заголовок: Dima пишет: Не судь..

Dima пишет:

цитата:

Не судьба глянуть i_hmgcompat.ch ?

Да тормознул...

gfilatov2002 пишет:

цитата:

SET DIALOGBOX [ POSITION ] DISABLE

Спасибо !

 Отправлено: 22.11.20 17:31. Заголовок: Всем привет. Фигня к..

Всем привет.
Фигня какая то получается.
Пишу в коде:

 
 #define VIRT_COLUMN_END    6 
 #define VIRT_COLUMN_MAX    VIRT_COLUMN_END + 1 
 .... 
    nCol0 := nCol - VIRT_COLUMN_MAX 
 ? "nCol=",nCol, "- VIRT_COLUMN_MAX=",VIRT_COLUMN_MAX, "nCol0 =",nCol0

В отладке выводит так:

  nCol= 9  - VIRT_COLUMN_MAX=   7  nCol0 =  4  

т.е. получается 9-7=4 Почему ?

 Отправлено: 22.11.20 17:43. Заголовок: Andrey пишет #define..

Andrey пишет

цитата:

#define VIRT_COLUMN_MAX VIRT_COLUMN_END + 1

Если используешь в вычислениях, то надо скобки
#define VIRT_COLUMN_MAX ( VIRT_COLUMN_END + 1 )

 Отправлено: 22.11.20 18:10. Заголовок: Спасибо ! :sm208:..

Спасибо !

 Отправлено: 22.01.21 12:41. Заголовок: C:\MiniGUI\S..

C:\MiniGUI\SAMPLES\Advanced\ActiveX\

Пример браузера. Наблюдается такое: выделяешь выражение, если вызвать меню мышкой, то Копировать работает. А по CTRL+C не копирует.
Как это исправить? Какие могут быть причины?
По идее это виндовый браузер, в нем же это работает.

 Отправлено: 14.02.21 22:31. Заголовок: Можно ли на объекте ..

Можно ли на объекте BUTTONEX сделать отключение показа окантовки кнопки внизу/вверху/справа/слева ?
Очень удобно при совмещении кнопки и FRAME сделать объект единым, т.е. совмещать два объекта.

В коде примерно так:
@ nR, nC BUTTONEX Button_11 CAPTION "Page (1)" WIDTH nWBth HEIGHT nHBth ;
PARENT &cForm FONTCOLOR BLACK BACKCOLOR aColors[1] FONT cFname SIZE nFSize BOLD ;
SETBORDER {.T.,.T.,.T.,.F.} FLAT NOXPSTYLE ACTION {|| myAction(1), myFocus() }

Да и для LABEL тоже бы такое хотелось бы.

 Отправлено: 26.02.21 19:54. Заголовок: Можно ли при старте ..

Можно ли при старте MAIN окна сделать запуск отдельной формы (с наворотами) в отдельном потоке ?
Этот поток должен существовать до конца закрытия программы.
И как тогда обращаться к этой форме в другом потоке (вывод на форму) ?

 Отправлено: 26.02.21 20:19. Заголовок: Andrey пишет Можно л..

Andrey пишет

цитата:

Можно ли при старте MAIN окна сделать запуск отдельной формы (с наворотами) в отдельном потоке ?

А.Кресин (http://www.kresin.ru/hrbfaq_3.html#Doc11)

цитата:

Отдельные Public и Private переменные могут передаваться потоку при его создании ... Поэтому в тех случаях, когда потоки используют какие-либо общие ресурсы ( чаще всего - переменные ), необходимы средства синхронизации работы потоков, чтобы они не обращались к общим ресурсам одновременно. Такими средствами являются семафоры и одна из их разновидностей - mutex ...

Учитывая что _HMG_SYSDATA это глобальный массив с ~ _HMG_SYSDATA\[455] (_HMG_aFormNames, _HMG_aFormHandles, ...) элементами, то совместный доступ организовать будет не возможно, учитывая, что обработчик всего общая ф-я Events(...). Забудь.
Запускай свою же прогу повторно с др. параметрами при первом старте и общайся между ними по потребностям

 Отправлено: 26.02.21 22:16. Заголовок: SergKis пишет: Запу..

SergKis пишет:

цитата:

Запускай свою же прогу повторно с др. параметрами при первом старте и общайся между ними по потребностям

Да уже ехе-ник перевалил за 25 Мб.
Лучше уж новый сделать на 3-4 Мб.

 Отправлено: 27.02.21 17:11. Заголовок: Как в МиниГуи сделат..

Как в МиниГуи сделать скрин всего экрана в файл?