Автор | Сообщение |
Andrey
|
| постоянный участник
|
Пост N: 1929
Зарегистрирован: 12.09.06
|
|
Отправлено: 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.
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
Andrey
|
| постоянный участник
|
Пост N: 4140
Зарегистрирован: 12.09.06
|
|
Отправлено: 27.04.15 00:16. Заголовок: Спасибо БОЛЬШОЕ всем..
Спасибо БОЛЬШОЕ всем за разъяснения ! Буду использовать ! Но не обижайтесь, если еще раз спрошу об этом в другом месте...
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4173
Зарегистрирован: 12.09.06
|
|
Отправлено: 16.05.15 21:02. Заголовок: Всем привет ! Можно ..
Всем привет ! Можно ли создать объект TAB с 3-мя вкладками, а потом одну вкладку скрыть ? Есть ли такой метод HIDE для Tab ?
|
|
|
Haz
|
| |
Пост N: 553
Зарегистрирован: 20.02.11
|
|
Отправлено: 18.05.15 10:57. Заголовок: Andrey пишет: вклад..
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4174
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.05.15 12:27. Заголовок: Haz Спасибо ! :sm36..
Haz Спасибо ! Пропустил я этот пример...
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4181
Зарегистрирован: 12.09.06
|
|
Отправлено: 24.05.15 09:57. Заголовок: Всем привет ! Подска..
Всем привет ! Подскажите пожалуйста, как узнать размеры чужого окна зная его ХЕНДЛ ?
|
|
|
Haz
|
| |
Пост N: 560
Зарегистрирован: 20.02.11
|
|
Отправлено: 24.05.15 10:06. Заголовок: Andrey пишет: как у..
Andrey пишет: цитата: | как узнать размеры чужого окна зная его ХЕНДЛ |
| Посмотри в своем же примере ( только раз хендл звестен то GetFormHandle соответственно не надо ) IniSavePosWinCfg.prg GetWindowRect( GetFormHandle( FormName ), actpos )
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4183
Зарегистрирован: 12.09.06
|
|
Отправлено: 24.05.15 10:13. Заголовок: Haz пишет: Посмотри..
Haz пишет: цитата: | Посмотри в своем же примере |
| Блин, так просто... Спасибо БОЛЬШОЕ !
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4189
Зарегистрирован: 12.09.06
|
|
Отправлено: 24.05.15 16:45. Заголовок: Читаем: XtoC() Conve..
Читаем: 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
|
| |
Пост N: 4830
Зарегистрирован: 17.05.05
|
|
Отправлено: 24.05.15 16:51. Заголовок: Почему решил что пад..
Почему решил что падает именно на Xtoc ? Что за переменная r и cStr ?
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4191
Зарегистрирован: 12.09.06
|
|
Отправлено: 24.05.15 16:57. Заголовок: r := GETDATA() if r ..
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
|
| постоянный участник
|
Пост N: 4196
Зарегистрирован: 12.09.06
|
|
Отправлено: 24.05.15 18:52. Заголовок: Смотрел пример Z: ..
Смотрел пример Z:\MiniGUI\SAMPLES\BASIC\COMM не понял для чего. Пока Григорий пример не дал другой, так и не понял. Сейчас опять глянул, 2 таблички и всё. Смотрю тексты программ - вижу Set CommPath To 'C:\' Так как у меня Win8 и она блокирует запись на 'C:\' даже под админской учеткой (переспросит несколько раз зараза), то понял что за пример и почему не работал. Под WinXP пример работает. Чем заменить 'C:\' чтобы везде работало ? Не забываем про русские буквы в пути... И про то что хХарбор по другому может читать (допустим 866 кодировка, а в пути русские буквы)...
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4233
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.06.15 14:45. Заголовок: Всем привет. Можно л..
Всем привет. Можно ли у окна MODAL ограничить изменение размеров до заданных ? Делаю так: DEFINE WINDOW Form_Card ; ............................. MODAL ; ON SIZE { || ResizeForm() } ; ON INIT MyInitForm() ; Работает отлично, но окно можно сделать крохотным. Мне надо ограничить допустим до: MINWIDTH 770 MINHEIGHT 490 ; Если вставляю эту строчку, то при 1-ом же изменение размера окна - ОКНО становиться в размер 770х490 и не меняется вообще. Что не так делаю ?
|
|
|
Haz
|
| |
Пост N: 570
Зарегистрирован: 20.02.11
|
|
Отправлено: 09.06.15 16:17. Заголовок: Andrey пишет: Что н..
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
|
| постоянный участник
|
Пост N: 4234
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.06.15 16:43. Заголовок: Haz Спасибо БОЛЬШОЕ ..
Haz Спасибо БОЛЬШОЕ ! Не раз выручаешь !
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4257
Зарегистрирован: 12.09.06
|
|
Отправлено: 14.06.15 20:11. Заголовок: Использую объект: ..
Использую объект: 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
|
| |
Пост N: 4902
Зарегистрирован: 17.05.05
|
|
Отправлено: 16.06.15 16:30. Заголовок: MDICHILD окно , как ..
MDICHILD окно , как ему прицепить свой фон , наследуемый фон из MDI окна не устраивает. Нашли решение ON INIT { || SetWindowBackground( GetFormHandle(This.Name) , PaintBkGnd( GetFormHandle(This.Name), aRGB} ) )}
|
|
|
Dima
|
| |
Пост N: 4903
Зарегистрирован: 17.05.05
|
|
Отправлено: 16.06.15 17:43. Заголовок: Andrey я еще не мно..
Andrey я еще не много "на....у" в твоем заповеднике На основной MDI форме живет картинка , после того как на нем полежало MDICHILD окно картинка пропадает. Как решить проблему ?
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4260
Зарегистрирован: 12.09.06
|
|
Отправлено: 16.06.15 17:56. Заголовок: Dima пишет: Как реш..
Dima пишет: Скорее всего эту картинку нужно перерисовать заново. Сделай после MDICHILD перерисовку картинки, типа: Окно_1.картинка_1.Enabled := .F. а потом сразу Окно_1.картинка_1.Enabled := .T. или если не поможет, то Окно_1.картинка_1.Hide INKEYGUI(50) Окно_1.картинка_1.Show
|
|
|
Dima
|
| |
Пост N: 4904
Зарегистрирован: 17.05.05
|
|
Отправлено: 16.06.15 18:06. Заголовок: Andrey Нет не помог..
Andrey Нет не помогает...
|
|
|
alexandr11
|
| |
Пост N: 20
Зарегистрирован: 17.12.14
|
|
Отправлено: 17.06.15 10:06. Заголовок: пример webcam из MiniGUI2.4
пример 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 помогите пожалуйста
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|