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

 Отправлено: 19.02.16 19:43. Заголовок: Andrey а так ACTION..

Andrey
а так
ACTION { |hCB| Forma_1.ComboEx_1.Show , hCB := GetControlHandle( "ComboEx_1", "Forma_1" ), ;
SetFocus(hCB), PostMessage( hCB, WM_KEYDOWN, VK_F4, 0) }

 Отправлено: 19.02.16 23:11. Заголовок: SergKis пишет: а та..

SergKis пишет:

цитата:

а так

Тоже не работает ...

 Отправлено: 19.02.16 23:46. Заголовок: Andrey Посмотри фун..

Andrey
Посмотри функцию ComboboxShowList() в примере samples\Advanced\FileMan

 Отправлено: 19.02.16 23:54. Заголовок: Andrey пишет:Тоже не..

Andrey пишет:

цитата:

Тоже не работае

у меня просто combobox и msvc работает, твой вариант работает так:

 
          ACTION { || Forma_1.ComboEx_1.Show, ; 
                      SetFocus(GetControlHandle( "ComboEx_1", "Forma_1" )), ; 
                      _PushKey ( VK_F4 ) } 
 

 Отправлено: 19.02.16 23:58. Заголовок: SergKis пишет: у ме..

SergKis пишет:

цитата:

у меня просто combobox и msvc работает, твой вариант работает так:

Ура ! Заработало ! Спасибо !

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

gfilatov2002 пишет:

цитата:

Посмотри функцию ComboboxShowList() в примере samples\Advanced\FileMan

Спасибо !

 Отправлено: 21.02.16 15:23. Заголовок: Всем привет ! Возмож..

Всем привет !
Возможно ли закрыть показ вывода объектов на форму ?
А потом разрешить показ.
А то забодало мельтешение объектов на форме при пересчете формы.

 Отправлено: 23.02.16 15:10. Заголовок: Toolbar В Дизайнере

Создаем в дизайнере форму, добавляем Тоолбар и ... все вываливается с ошибкой.

 Отправлено: 23.02.16 16:49. Заголовок: Vlad04 пишет: вывал..

Vlad04 пишет:

цитата:

вываливается с ошибкой

Благодарю за сообщение!
Поправил эту ошибку - обновить Ide можно через меню Help->Update

C праздником!

 Отправлено: 23.02.16 17:25. Заголовок: Спасибо огромное за ..

Спасибо огромное за оперативность! Вас так же!

 Отправлено: 23.02.16 17:37. Заголовок: И еще просьба. Не м..

И еще просьба. Не могли бы повторить один из примеров
c:\MiniGUI\SAMPLES\BASIC\mdi\**
но с использованием Дизайнера.
(Что поделаешь - нравится мне работать с Дизайнером, точнее - комбинированный метод)

 Отправлено: 24.02.16 13:10. Заголовок: Почему криво работае..

Почему криво работает функция ChangeFileExt() ?
Делаю так
cFileDbf := "Customer.dbf"
cFileDbfNew := ChangeFileExt( cFileDbf, "_new.dbf" )
cFileDbfMemo := ChangeFileExt( cFileDbf, "_new.fpt" )

Возвращает спереди ещё дополнительный знак "\", т.е. "\Customer_new.dbf" и "\Customer_new.fpt"
Или так задумано ?
И чем тогда обрезать расширение файла, по старинке - как в Клипере SUBSTR(cFile,1,RAT(".",cFile)-1 ) ?

 Отправлено: 24.02.16 15:01. Заголовок: Andrey Живет она в ..

Andrey
Живет она в i_pseudofunc.ch , переделай если надо.

Andrey пишет:

цитата:

cFileDbfNew := ChangeFileExt( cFileDbf, "_new.dbf" )

Работает она я так понял с расширением (глубже не копал ) а ты указал часть имени + расширение

 Отправлено: 24.02.16 15:32. Заголовок: Dima пишет: Или так..

Andrey пишет:

цитата:

Или так задумано ?

так задумано

 
 #xtranslate ChangeFileExt( <cFile>, <cExt> ) ; 
 => ; 
 cFilePath( <cFile> ) + "\" + cFileNoExt( <cFile> ) + <cExt> 
 

цитата:

И чем тогда обрезать расширение файла, по старинке - как в Клипере SUBSTR(cFile,1,RAT(".",cFile)-1 ) ?

по старинке или используй

 
 hb_FNameSplit( cFileSpec, @cPath, @cFile, @cExt  )  
 

 Отправлено: 24.02.16 16:40. Заголовок: Haz пишет: или испо..

Haz пишет:

цитата:

или используй

Спасибо БОЛЬШОЕ !

 Отправлено: 24.02.16 16:45. Заголовок: Dima пишет: а ты ук..

Dima пишет:

цитата:

а ты указал часть имени + расширение

Понял. Если бы полный путь указал, не было бы ошибки.

 Отправлено: 24.02.16 16:52. Заголовок: Вопрос по окнам созр..

Вопрос по окнам созрел.

Делаю MAIN окно. Из него вызываю WINDOWTYPE STANDARD , а из этого окна вызываю карточку, окно:
MODAL NOSYSMENU ;
После переключения программы, мне нужно переключаться на MAIN окно, там оказывается сидит эта карточка.
Но иконка и надпись в MAIN окна - свои. Юзера путаются.
Что делать ?
1) менять тип окна карточки ?
2) менять иконку и надпись MAIN окна на карточку, а потом возвращать ?

 Отправлено: 10.04.16 16:59. Заголовок: Всем привет ! А как..

Всем привет !

А как сделать в объекте TEXTBOX не показывался ноль ?
INPUTMASK '@Z 99999' - не прокатывает...
FORMAT '@Z 99999' - тоже не прокатывает...

@ 20, 80 TEXTBOX TextBox_Dolg VALUE 0 WIDTH 175 HEIGHT nFontSize*2 ;
BACKCOLOR WHITE NUMERIC INPUTMASK '99999' RIGHTALIGN ;
ON CHANGE {|| nDolg := Form_1.TextBox_Dolg.Value }

 Отправлено: 12.04.16 16:35. Заголовок: Подскажите люди добр..

Подскажите люди добрые, как получить инвертный цвет из любого цвета ?
Может функция есть для этого ?

 Отправлено: 12.04.16 17:01. Заголовок: Andrey пишет: Подск..

Andrey пишет:

цитата:

Подскажите люди добрые, как получить инвертный цвет из любого цвета ? Может функция есть для этого ?

Гуглить
http://www.cyberforum.ru/csharp-net/thread302302.html