Форум » 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.
Vlad04: Можно записать в файл, а дальше как печатать этот файл ? Я открываю файл в AkelPad ( у него есть все средства для масштабирования, ориентации ) и печатаю.
Vlad04: Кодировка ru1251
Andrey: У юзера может не установлен AkelPad и ставить каждому клиенту занятие неблагодарное. Нужно свой компонент для простой печати и просмотра текстовых файлов.
nick_mi: Так у Harbour'а есть средства печати : [pre2]* Печать из HARBOUR на Windows принтере, который не выводит текстовые * данные напрямую oprn := win_prn():new(GetDefaultPrinter()) oprn:create() oprn:topmargin := 40 oprn:bottommargin := oprn:PageHeight - oprn:topmargin -10 oprn:startdoc() oprn:NewLine() lin_page := 1 for iikk :=1 to 120 oprn:textout (" Печать на принтер"+ str(iikk,32) , .T.) lin_page := lin_page + 1 if lin_page >= oprn:maxrow() lin_page := 1 oprn:EndPage(.T.) oprn:NewLine() endif next oprn:enddoc() [/pre2] Еще много лет назад записал себе в программу для подсказки, чтоб не рыться в документации
Andrey: nick_mi пишет: Так у Harbour'а есть средства печати Вопрос был - свою простую печать из МиниГуи ? Вот нашёл короткий пример - MiniGUI\SAMPLES\Advanced\PrintRAW\PrintRAW.exe Но он что-то не работает...
Dima: Andrey пишет: Вопрос был - свою простую печать из МиниГуи ? Скорее из Harbour чем из Минигуи
SergKis: Dima пишет Скорее из Harbour чем из Минигуи Дима, что не так при печати простенькой из MiniGui ? Плотно не занимался, но примеры даже с preview есть. Вот BASIC\PRINT\demo.prg - простенький вывод по листам с preview.
Vlad04: Andrey У юзера может не установлен AkelPad Сразу AkelPad включаю в состав комплекта программы. А в программе настроены горячие клавиши, кнопочки для открытия в редакторе выгруженного файла. Так что, никаких проблем.
SergKis: Vlad04 пишет Сразу AkelPad включаю в состав комплекта программы. Сам использую AkelPad в работе, а для клиентов, ставим (с программами) Notepad2.exe (аналог win notepad, только получше). Клиенты воспринимаюn notepad2.exe легче, чем AkelPad Есть версии 32, 64 ось.
nick_mi: Andrey пишет: Вопрос был - свою простую печать из МиниГуи ? Указанная простенькая печать (oprn := win_prn():new(GetDefaultPrinter()) ) работает в том числе и из программы, написанной на HARBOUR c использованием MINIGUI.
SergKis: nick_mi пишет Указанная простенькая печать (oprn := win_prn():new(GetDefaultPrinter()) ) работает в том числе и из программы, написанной на HARBOUR c использованием MINIGUI. похоже miniprint в hmg сделан на win_prn(), сужу только по одинаково названным методам, только + preview
Andrey: Понял. Но нашёл вроде ещё простое решение и пилить ничего не надо MiniGUI\SAMPLES\Advanced\PrintRAW Но что-то не работает пример PRINTRAW.exe Запускается нормально создаётся файл __testFile.txt - пустой !!! Ещё создаётся файл _MsgLog.txt с нужной страницей печати. Печати нет. Беру и явно в проге меняю: [pre2] //WinPrintRaw(cPrinter, TESTFILE, "Test Print Job") cFILE := GetStartUpFolder() + "\_MsgLog.txt" WinPrintRaw(cPrinter, cFILE, "Test-Print-Job")[/pre2] Всё равно принтер молчит... Почему ? Где ошибка ? Может не у всех работает ?
SergKis: Andrey У тебя стоит, наверно, где то #define _HMG_OUTLOG потому _msglog.txt образовался. У меня сработал пример ок.
Andrey: SergKis пишет: У меня сработал пример ок. Сразу на печать лист ушёл ? Принтер лазерник ? Так я тоже делаю сразу печать WinPrintRaw(cPrinter, cFILE, "Test-Print-Job") - не идёт...
SergKis: Andrey Под рукой принтера нет, но задание для принтера в очередь получил.
SergKis: Andrey Пробнули на 2х др. pc с принтерами на wifi, как и у тебя полный ноль - нет ни очереди, ничего
Andrey: Подскажите пожалуйста - Как определить в какой кодировке файл/строка ? Вроде писалось на форуме об этом, никак не могу найти.
Dima: Andrey пишет: Вроде писалось на форуме об этом, никак не могу найти. Нашел за 5 секунд http://clipper.borda.ru/?1-4-0-00000734-000-0-0-1333909105
Andrey: Dima пишет: Нашел за 5 секунд Спасибо Дима.
gfilatov2002: SergKis пишет: как и у тебя полный ноль - нет ни очереди, ничего Для печати с использованием функции WinPrintRaw() требуется принтер, который поддерживает такой тип печати. По-видимому, современные принтеры уже не имеют этой возможности Поэтому рекомендую посмотреть универсальный пример печати текстового файла, который находится в папке samplrs\Basic\MiniPrint_3
полная версия страницы