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

 Отправлено: 13.04.13 16:34. Заголовок: А меня интересует ре..

А меня интересует регулировка прозрачности элемента управления "Slider" :) Хочу его запрятать за картинку

 Отправлено: 13.04.13 18:13. Заголовок: Dima пишет: Где то ..

Dima пишет:

цитата:

Где то выкладывали уже и тоже по твоей просьбе.

Да я просмотрел все свои программки на МиниГуи, так и не нашел.
Индексация есть, а вот копирования файла нет.
Пришлось псевдокопирование сделать - бегунок в цикле до 50%, потом копирование, потом остаток бегунка.

 Отправлено: 13.04.13 22:02. Заголовок: не втех примерах иск..

не втех примерах искал
MiniGUI\SAMPLES\BASIC\Filecopy\

 Отправлено: 14.04.13 00:58. Заголовок: Haz пишет: не втех ..

Haz пишет:

цитата:

не втех примерах искал MiniGUI\SAMPLES\BASIC\Filecopy\

Это точно не в тех... Спасибо большое !

 Отправлено: 18.04.13 22:09. Заголовок: Как сделать, чтобы п..

Как сделать, чтобы при аварийном сваливании программы на МиниГуи, она не оставалась в памяти ?
А то потом правишь ехе-ник, а он не собирается, пока из памяти свалившуюся прогу не снимешь...

 Отправлено: 10.06.13 13:03. Заголовок: Как можно получить р..

Как можно получить размеры AVI-файла, показываемый на форме из ресурсов EXE ?

 Отправлено: 19.06.13 12:00. Заголовок: Как узнать запущена ..

Как узнать запущена ли чужая программа или нет ?
Нужно узнать по названию EXE файла.

Функция IsExeRunning() не работает !
Проверял на MiniGUI\SAMPLES\Advanced\IsExeRunning\demo.prg модифицированный немного:
cRun := "WINWORD.EXE"
l1 := IsExeRunning( cRun )
l2 := IsExeRunning( cFileNoPath( HB_ArgV( 0 ) ) )
cR3 := "demo2.exe"
l3 := IsExeRunning( cR3 )
MsgDebug(cRun, l1,cFileNoPath( HB_ArgV( 0 ) ), l2, cR3, l3 )

(запускал WINWORD и demo2.exe )

 Отправлено: 19.06.13 12:17. Заголовок: Andrey пишет: Как у..

Andrey пишет:

цитата:

Как узнать запущена ли чужая программа или нет ?

Запущенные процессы надо анализировать

 Отправлено: 23.06.13 16:14. Заголовок: Можно ли вывести в ф..

Можно ли вывести в функциях BrowseForFolder() или GetFolder() ТОЛЬКО подключенные флешки к компьютеру ?
Или нужно писать самому такую функцию ?
Может у кого есть уже такая функция ?

 Отправлено: 24.06.13 18:44. Заголовок: Haz пишет: не втех ..

Haz пишет:

цитата:

не втех примерах искал MiniGUI\SAMPLES\BASIC\Filecopy\

Посмотрел этот пример и не понял, ошибка или в новой версии БЕГУНОК не работает ?
Собирал с помощью MiniGUI 2.2.3 - 2013.06.12
Кто подскажет как исправить ошибку ?

 Отправлено: 24.06.13 21:05. Заголовок: Andrey пишет: Кто п..

Andrey пишет:

цитата:

Кто подскажет как исправить ошибку ?

Надо заменить вызов команды DO EVENTS на вызов функции inkey(.1) или InkeyGUI()
в этом месте

************************************ 
 Function SHOW_IT(nDl) 
 ************************************ 
    Local nPos := int(nDl*100) 
    if nPos % _SHOW_PERCENT == 0 
 	Form_1.Label_3.Value := ltrim(str(nPos))+" % complete" 
 	Form_1.ProgressBar_1.Value := nPos 
 //        DO EVENTS 
         inkey(.1) 
    endif 
    return NIL 
 

 Отправлено: 24.06.13 21:22. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Надо заменить вызов команды DO EVENTS на вызов функции inkey(.1) или InkeyGUI() в этом мест

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

 Отправлено: 27.06.13 18:48. Заголовок: Пример MiniGUI\S..

Пример MiniGUI\SAMPLES\BASIC\Filecopy\ - заработал...
Для теста пробую копировать файл размером 160 Мб на флешку... Идет копирование медленно даже при
#define _LARGE_BLOCK 16384*10 (при 20 прога вешается...)
Если еще при этом сделать копирование другого файла на эту же флешку, то труба... Программа "подвисает" вот с таким сообщением:


Стандартная харборовская функция FILECOPY( cSource, cDestination ) - работает в разы лучше...
Вопрос: как увеличить скорость записи и убрать подвисание программы ?

 Отправлено: 27.06.13 20:54. Заголовок: Andrey пишет: Станд..

Andrey пишет:

цитата:

Стандартная харборовская функция FILECOPY( cSource, cDestination ) - работает в разы лучше... Вопрос: как увеличить скорость записи и убрать подвисание программы ?

Переработать этот пример на Filecopy , Hb_fcopy ....и тд и тп
А вообще если шибко надо можно и свою функцию по копированию сваять.

 Отправлено: 08.07.13 02:58. Заголовок: На форме использую о..

На форме использую объект ANIMATEBOX:
@ 10,80 ANIMATEBOX Avi_1 ;
WIDTH 340 HEIGHT 60 ;
FILE 'AVI1' AUTOPLAY TRANSPARENT NOBORDER

Работает отлично. Закончилась одна обработка, перехожу к другой обработке.
Как сменить AVI1 на другой, допустим AVI2 ?
В примерах и доке не нашел ничего....
Все AVI-файлы уже загружены в ресурсы программы....

 Отправлено: 08.07.13 11:08. Заголовок: Попробуй так: Fo..

Попробуй так:
Form_Main.Avi_1.Stop()
Form_Main.Avi_1.Open('Avi2')
Form_Main.Avi_1.Play()

 Отправлено: 08.07.13 12:30. Заголовок: Спасибо, получилось ..

Спасибо, получилось !

 Отправлено: 13.07.13 18:48. Заголовок: Как изменить цвета б..

Как изменить цвета букв после вывода на форму ?
Т.е. я не хочу выводить слово побуквенно, а вывести надпись целиком, а потом изменить цвет у некоторых букв.
Например:
@ 10,120 LABEL Label_1 VALUE "Test color label" ;
WIDTH 500 HEIGHT 60 FONT "Times Roman" SIZE 24 BOLD

и выборочно изменить цвет нескольких букв "e" и "o".

 Отправлено: 22.07.13 22:59. Заголовок: Работаю с базой, чер..

Работаю с базой, через объект GRID.
После обновления базы обновляю GRID, так:
aList := LoadLogZaiv() // загрузка базы (маленькая) в массив
Form_9.Grid_Log.DeleteAllItems
Form_9.Grid_Log.DisableUpdate
FOR nI := 1 to LEN(aList)
Form_9.Grid_Log.AddItem( aList[nI] )
NEXT
Form_9.Grid_Log.EnableUpdate


Вопрос: а как сделать чтобы в окне GRID отображались самые нижние записи ?
Может метод какой то есть ?

Заранее спасибо за ответ !

 Отправлено: 22.07.13 23:16. Заголовок: это то что надо ?

Andrey пишет:

цитата:

а как сделать чтобы в окне GRID отображались самые нижние записи ?

Это так ?

Form_9.Grid_log.Value := Len(aList)