Форум » 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.
Andrey: Спасибо БОЛЬШОЕ всем за разъяснения ! Буду использовать ! Но не обижайтесь, если еще раз спрошу об этом в другом месте...
Andrey: Всем привет ! Можно ли создать объект TAB с 3-мя вкладками, а потом одну вкладку скрыть ? Есть ли такой метод HIDE для Tab ?
Haz: Andrey пишет: вкладку скрыть http://clipper.borda.ru/?1-1-0-00000365-000-0-0-1357386336
Andrey: Haz Спасибо ! Пропустил я этот пример...
Andrey: Всем привет ! Подскажите пожалуйста, как узнать размеры чужого окна зная его ХЕНДЛ ?
Haz: Andrey пишет: как узнать размеры чужого окна зная его ХЕНДЛ Посмотри в своем же примере ( только раз хендл звестен то GetFormHandle соответственно не надо ) IniSavePosWinCfg.prg GetWindowRect( GetFormHandle( FormName ), actpos )
Andrey: Haz пишет: Посмотри в своем же примере Блин, так просто... Спасибо БОЛЬШОЕ !
Andrey: Читаем: XtoC() Converts values of data type C, D, L, M, N to a string. А прога на МиниГуи вываливается... Error BASE/1081 Argument error: + Called from TAKECUSTOMERDATA(76) Called from (b)MAIN(37) Called from _DOCONTROLEVENTPROCEDURE(1654) Called from EVENTS(1325) Called from INKEYGUI(0) Called from MY_MESSAGE(187) Called from TAKECUSTOMERDATA(78) Строка 76: cStaticMsg += cStr + VALTYPE(r) + ":" + XtoC( r ) + CRLF Как лечить ?
Dima: Почему решил что падает именно на Xtoc ? Что за переменная r и cStr ?
Andrey: r := GETDATA() if r != NIL cStr := "Received " + DTOC(DATE()) + " " + TIME() + " - " cStaticMsg += cStr + VALTYPE(r) + ":" + XtoC( r ) + CRLF Form_Main.Edit_Result.Value := cStaticMsg My_Message( VALTYPE(r) + ":" + XtoC( r ) ) endif Заменил XtoC() на hb_ValToExp() падать перестало ! Спасибо Дима, выручил !
Andrey: Смотрел пример Z:\MiniGUI\SAMPLES\BASIC\COMM не понял для чего. Пока Григорий пример не дал другой, так и не понял. Сейчас опять глянул, 2 таблички и всё. Смотрю тексты программ - вижу Set CommPath To 'C:\' Так как у меня Win8 и она блокирует запись на 'C:\' даже под админской учеткой (переспросит несколько раз зараза), то понял что за пример и почему не работал. Под WinXP пример работает. Чем заменить 'C:\' чтобы везде работало ? Не забываем про русские буквы в пути... И про то что хХарбор по другому может читать (допустим 866 кодировка, а в пути русские буквы)...
Andrey: Всем привет. Можно ли у окна MODAL ограничить изменение размеров до заданных ? Делаю так: DEFINE WINDOW Form_Card ; ............................. MODAL ; ON SIZE { || ResizeForm() } ; ON INIT MyInitForm() ; Работает отлично, но окно можно сделать крохотным. Мне надо ограничить допустим до: MINWIDTH 770 MINHEIGHT 490 ; Если вставляю эту строчку, то при 1-ом же изменение размера окна - ОКНО становиться в размер 770х490 и не меняется вообще. Что не так делаю ?
Haz: Andrey пишет: Что не так делаю вроде все так, скорее всего глюк минигуи. PS. раз уж есть ON SIZE то можно в нем отслеживать размер окна и если он меньше заданного минимально - принудительно выставлять минимум ( т.е. не пользоваь MINWIDTH и MINHEIGHT ) Примерно такие строки нужно добавить в ResizeForm() IF GetProperty("Form_Card", "WIDTH") < 770 SetProperty("Form_Card", "WIDTH", 770) END IF GetProperty("Form_Card", "HEIGHT") < 490 SetProperty("Form_Card", "HEIGHT", 490) END
Andrey: Haz Спасибо БОЛЬШОЕ ! Не раз выручаешь !
Andrey: Использую объект: LOCAL aBackcolor := {192, 185, 154} @ 20,30 CHECKLISTBOX ListBox_2 ; WIDTH 390 HEIGHT 290 ; ITEMS aItems ; VALUE {2} ; CHECKBOXITEM {} ; BACKCOLOR aBackcolor ; ON DBLCLICK cmlb_Check() ; MULTISELECT ; ITEMHEIGHT 19 А как изменить цвета для него ? А то получается этот объект весь белый ?
Dima: MDICHILD окно , как ему прицепить свой фон , наследуемый фон из MDI окна не устраивает. Нашли решение ON INIT { || SetWindowBackground( GetFormHandle(This.Name) , PaintBkGnd( GetFormHandle(This.Name), aRGB} ) )}
Dima: Andrey я еще не много "на....у" в твоем заповеднике На основной MDI форме живет картинка , после того как на нем полежало MDICHILD окно картинка пропадает. Как решить проблему ?
Andrey: Dima пишет: Как решить проблему ? Скорее всего эту картинку нужно перерисовать заново. Сделай после MDICHILD перерисовку картинки, типа: Окно_1.картинка_1.Enabled := .F. а потом сразу Окно_1.картинка_1.Enabled := .T. или если не поможет, то Окно_1.картинка_1.Hide INKEYGUI(50) Окно_1.картинка_1.Show
Dima: Andrey Нет не помогает...
alexandr11: пример webcam из MiniGUI2.4 видео пишется в файл c:\capture.avi по умолчанию нужно сменить имя файла нашел в vfw.h такую строку #define capFileSetCaptureFile(hwnd, szName) ((BOOL)AVICapSM(hwnd, WM_CAP_FILE_SET_CAPTURE_FILE, 0, (LPARAM)(LPVOID)(LPTSTR)(szName))) по аналогии с другими функциями из webcam.prg написал функцию HB_FUNC( SetCapFile ) { hb_retl( capFileSetCaptureFile( (HWND) hb_parnl(1), hb_parc(2) ) ); } С-файл собирается, но получаю Unresolved external '_HB_FUN_SETCAPFILE' referenced from WEBCAM.OBJ помогите пожалуйста
полная версия страницы