Форум » 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.
SergKis: Andrey пишет:Только для 866 кодировки нужно ставить так где нибудь с этим могут быть проблемы. лучше: <html><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <title>Create dokuments</title> ... и кодировать вывод в utf8. Ты же не любишь модули на Run, почему не сделал для вывода текста окно MiniGui с EditBox или RichEditBox с disable := .T. ?
Andrey: SergKis пишет: Ты же не любишь модули на Run, почему не сделал для вывода текста окно MiniGui с EditBox или RichEditBox с disable := .T. ? Да хотел обойтись Notepad'ом, а потом посыпались предложения... Вот пока выбираю.
SergKis: Andrey пишет: Вот пока выбираю. Если планируешь, получать таблички и т.д. в html, а не только тэг pre, то глянь пример SAMPLES\Advanced\ActiveX
Andrey: Всем привет ! Возвращаюсь опять к ранее заданному вопросу: В терминалке на хХарборе использую базы в 866 кодировке. Символы CHR(250)-CHR(253) пишутся в текстовые поля базы нормально ! Пытаюсь то же самое сделать под МиниГуи не выходит, коды другие: Как записать в поле базы символы CHR(250) или CHR(251) или CHR(253) ? Так и не смог сделать.
SergKis: Andrey пишет:Так и не смог сделать. а кодовая страница установлена 866 ? работаю с LV866 - chr(251), chr(254) точно нормальные, другие не пользую может у тебя 1251 - смотри в фонте, что на этих местах а в базу и utf8 прекрасно пишутся.
Andrey: SergKis пишет: а кодовая страница установлена 866 ? Экран - 1251, а база открыта 866 !
SergKis: т.е. у тебя раскладка 1251, dbf 866. ansitooem() может надо применить при записи
Andrey: Делаю так: USE ( cPath+cDatabase ) ALIAS ( cAlias ) CODEPAGE "RU866" SHARED NEW // сетевой захват записи IF RecLock( LOCK_RETRY ) cVal := CHR(250)+CHR(251)+CHR(252)+CHR(253) cVal := HB_ANSITOOEM(cVal) FIELDPUT(2,cVal) DBUnlock() DBCOMMIT() ENDIF В поле записывается: "клмн" Если убрать HB_ANSITOOEM(cVal), то записывается: "ъыьэ"
SergKis: Andrey пишет:Если убрать а если поставить страницу 866 FieldPut(..., chr(251)) поставить страницу 1251
SergKis: PS. в твоем варианте на месте 250, 251,... стоят буквы, получемые по ansitooem, найди в 1251 нужные (если они есть) и попробуй сделать от них
Softlog86: Вопросик : в контроле PROGRESSBAR ограничение максимального значения в 65535 .... Нафига вообще было ограничивать ??? Я часто сканирую базы с большим числом записей и крайне неудобно использовать алгоритмы пересчета чтоб войти в эти самые 65 тыщ ...... Кто как решает таое неудобство ?
petr707: FIELDPUT(2,cVal) DBUnlock() DBCOMMIT() Вроде лучше так.. FIELDPUT(2,cVal) DBCOMMIT() DBUnlock()
Andrey: SergKis пишет: в твоем варианте на месте 250, 251,... стоят буквы, получемые по ansitooem, найди в 1251 нужные (если они есть) и попробуй сделать от них Вот есть шестнадцатеричные коды Unicode (1251): ° - 00B0, ∙ - 2219, · - 00B7, √ - 221A, № - 2116, ¤ - 00A4 Как их вывести ? Может вопрос и тупой, но что-то я никак не соображу...
SergKis: Andrey будет работать: [pre2] на входе ставь страницу 866 gC866() // инициализация ставь страницу 1251 и работай, где надо вызывай gC866(251)+gc866(254) ... Func gC866( nChar866 ) Local cChar866 := '' STATIC aChar866 IF aChar866 == NIL aChar866 := array(255) aEval(aChar866, {|x,n| aChar866[ n ] := chr(n) }) ENDIF IF hb_IsNumeric(nChar866) .and. nChar866 > 0 .and. nChar866 < 256 cChar866 := aChar866[ nChar866 ] ENDIF Return cChar866 [/pre2]
Andrey: Andrey пишет: будет работать: Не а, не работает - "ъыьэ" ....
Andrey: Для чего это ОЧЕНЬ нужно: 1) чтобы при сортировке записи были в конце списка 2) визуальное отображение по SET RELATION Это терминалка хХарбор: Это на МиниГуи:
SergKis: Andrey пишет:Не а, не работает сделай hb_memowrit('_0.txt', gc866(251)+gc866(254)) - будут в файле символы 866 вмешивается перекодировка при записи в dbf убери указание страницы у dbf - тоже должно быть ok с этими символами
Andrey: SergKis пишет: вмешивается перекодировка при записи в dbf убери указание страницы у dbf - тоже должно быть ok с этими символами Блин, так просто....
Andrey: Ура, заработало !!! SergKis СПАСИБО БОЛЬШОЕ !!!
Andrey: Сделал небольшую программу, ввод пароля. Работает нормально. Беру переношу в свой большой проект, компиляция НЕ ИДЕТ вообще. Выдает такую ошибку: Harbour 3.2.0dev (r1503131756) Copyright (c) 1999-2015, http://harbour-project.org/ Source\form_LoginPassw.prg(82) Error E0030 Syntax error "syntax error at '@'" Source\form_LoginPassw.prg(90) Error E0030 Syntax error "syntax error at '@'" 2 errors No code generated. Что за фигня такая ? Стоки 82 и 90: @ 245,155 BUTTONEX BUTTON_Ok WIDTH 90 HEIGHT 32 ; CAPTION "Ввод" ; FONTCOLOR aButtColor ; BACKCOLOR LGREEN ; SIZE nFBSize BOLD ; NOHOTLIGHT NOXPSTYLE HANDCURSOR ; ACTION {|| nRet := 0, cUserName := cLogin, cPassword := cPswd, ; ThisWindow.Release } @ 245,255 BUTTONEX BUTTON_Cancel WIDTH 90 HEIGHT 32 ; CAPTION "Отмена" ; FONTCOLOR aButtColor ; BACKCOLOR MAROON ; SIZE nFBSize BOLD ; NOHOTLIGHT NOXPSTYLE HANDCURSOR ; ACTION {|| nRet := -1, ThisWindow.Release } И в обычные скобки ставил () и в одну строчку делал: ACTION { || nRet := 0, cUserName := cLogin, cPassword := cPswd, domethod("Form_LoginPass", "Release") } и модуль в проекте сдвигал, ни чего не помогает. А в маленьком проекте (6 файлов) всё нормально собирается и работает ! Помогите понять в чем дело ....
полная версия страницы