Форум » 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.
Softlog86: А меня интересует регулировка прозрачности элемента управления "Slider" :) Хочу его запрятать за картинку
Andrey: Dima пишет: Где то выкладывали уже и тоже по твоей просьбе. Да я просмотрел все свои программки на МиниГуи, так и не нашел. Индексация есть, а вот копирования файла нет. Пришлось псевдокопирование сделать - бегунок в цикле до 50%, потом копирование, потом остаток бегунка.
Haz: не втех примерах искал MiniGUI\SAMPLES\BASIC\Filecopy\
Andrey: Haz пишет: не втех примерах искал MiniGUI\SAMPLES\BASIC\Filecopy\ Это точно не в тех... Спасибо большое !
Andrey: Как сделать, чтобы при аварийном сваливании программы на МиниГуи, она не оставалась в памяти ? А то потом правишь ехе-ник, а он не собирается, пока из памяти свалившуюся прогу не снимешь...
Andrey: Как можно получить размеры AVI-файла, показываемый на форме из ресурсов EXE ?
Andrey: Как узнать запущена ли чужая программа или нет ? Нужно узнать по названию 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 )
Dima: Andrey пишет: Как узнать запущена ли чужая программа или нет ? Запущенные процессы надо анализировать
Andrey: Можно ли вывести в функциях BrowseForFolder() или GetFolder() ТОЛЬКО подключенные флешки к компьютеру ? Или нужно писать самому такую функцию ? Может у кого есть уже такая функция ?
Andrey: Haz пишет: не втех примерах искал MiniGUI\SAMPLES\BASIC\Filecopy\ Посмотрел этот пример и не понял, ошибка или в новой версии БЕГУНОК не работает ? Собирал с помощью MiniGUI 2.2.3 - 2013.06.12 Кто подскажет как исправить ошибку ?
gfilatov2002: Andrey пишет: Кто подскажет как исправить ошибку ? Надо заменить вызов команды DO EVENTS на вызов функции inkey(.1) или InkeyGUI() в этом месте [pre2]************************************ 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 [/pre2]
Andrey: gfilatov2002 пишет: Надо заменить вызов команды DO EVENTS на вызов функции inkey(.1) или InkeyGUI() в этом мест Спасибо БОЛЬШОЕ !!!
Andrey: Пример MiniGUI\SAMPLES\BASIC\Filecopy\ - заработал... Для теста пробую копировать файл размером 160 Мб на флешку... Идет копирование медленно даже при #define _LARGE_BLOCK 16384*10 (при 20 прога вешается...) Если еще при этом сделать копирование другого файла на эту же флешку, то труба... Программа "подвисает" вот с таким сообщением: Стандартная харборовская функция FILECOPY( cSource, cDestination ) - работает в разы лучше... Вопрос: как увеличить скорость записи и убрать подвисание программы ?
Dima: Andrey пишет: Стандартная харборовская функция FILECOPY( cSource, cDestination ) - работает в разы лучше... Вопрос: как увеличить скорость записи и убрать подвисание программы ? Переработать этот пример на Filecopy , Hb_fcopy ....и тд и тп А вообще если шибко надо можно и свою функцию по копированию сваять.
Andrey: На форме использую объект ANIMATEBOX: @ 10,80 ANIMATEBOX Avi_1 ; WIDTH 340 HEIGHT 60 ; FILE 'AVI1' AUTOPLAY TRANSPARENT NOBORDER Работает отлично. Закончилась одна обработка, перехожу к другой обработке. Как сменить AVI1 на другой, допустим AVI2 ? В примерах и доке не нашел ничего.... Все AVI-файлы уже загружены в ресурсы программы....
a_sidorov: Попробуй так: Form_Main.Avi_1.Stop() Form_Main.Avi_1.Open('Avi2') Form_Main.Avi_1.Play()
Andrey: Спасибо, получилось !
Andrey: Как изменить цвета букв после вывода на форму ? Т.е. я не хочу выводить слово побуквенно, а вывести надпись целиком, а потом изменить цвет у некоторых букв. Например: @ 10,120 LABEL Label_1 VALUE "Test color label" ; WIDTH 500 HEIGHT 60 FONT "Times Roman" SIZE 24 BOLD и выборочно изменить цвет нескольких букв "e" и "o".
Andrey: Работаю с базой, через объект 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 отображались самые нижние записи ? Может метод какой то есть ? Заранее спасибо за ответ !
Haz: Andrey пишет: а как сделать чтобы в окне GRID отображались самые нижние записи ? Это так ? Form_9.Grid_log.Value := Len(aList)
полная версия страницы