Отправлено: 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.

 Отправлено: 27.04.15 00:16. Заголовок: Спасибо БОЛЬШОЕ всем..

Спасибо БОЛЬШОЕ всем за разъяснения !
Буду использовать !
Но не обижайтесь, если еще раз спрошу об этом в другом месте...

 Отправлено: 16.05.15 21:02. Заголовок: Всем привет ! Можно ..

Всем привет !
Можно ли создать объект TAB с 3-мя вкладками, а потом одну вкладку скрыть ?
Есть ли такой метод HIDE для Tab ?

 Отправлено: 18.05.15 10:57. Заголовок: Andrey пишет: вклад..

Andrey пишет:

цитата:

вкладку скрыть

http://clipper.borda.ru/?1-1-0-00000365-000-0-0-1357386336

 Отправлено: 18.05.15 12:27. Заголовок: Haz Спасибо ! :sm36..

Haz Спасибо !
Пропустил я этот пример...

 Отправлено: 24.05.15 09:57. Заголовок: Всем привет ! Подска..

Всем привет !
Подскажите пожалуйста, как узнать размеры чужого окна зная его ХЕНДЛ ?

 Отправлено: 24.05.15 10:06. Заголовок: Andrey пишет: как у..

Andrey пишет:

цитата:

как узнать размеры чужого окна зная его ХЕНДЛ

Посмотри в своем же примере ( только раз хендл звестен то GetFormHandle соответственно не надо )
IniSavePosWinCfg.prg

GetWindowRect( GetFormHandle( FormName ), actpos )

 Отправлено: 24.05.15 10:13. Заголовок: Haz пишет: Посмотри..

Haz пишет:

цитата:

Посмотри в своем же примере

Блин, так просто... Спасибо БОЛЬШОЕ !

 Отправлено: 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
Как лечить ?

 Отправлено: 24.05.15 16:51. Заголовок: Почему решил что пад..

Почему решил что падает именно на Xtoc ?
Что за переменная r и cStr ?

 Отправлено: 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() падать перестало !
Спасибо Дима, выручил !

 Отправлено: 24.05.15 18:52. Заголовок: Смотрел пример Z: ..

Смотрел пример Z:\MiniGUI\SAMPLES\BASIC\COMM не понял для чего.
Пока Григорий пример не дал другой, так и не понял.
Сейчас опять глянул, 2 таблички и всё. Смотрю тексты программ - вижу Set CommPath To 'C:\'
Так как у меня Win8 и она блокирует запись на 'C:\' даже под админской учеткой (переспросит несколько раз зараза),
то понял что за пример и почему не работал. Под WinXP пример работает.

Чем заменить 'C:\' чтобы везде работало ?
Не забываем про русские буквы в пути...
И про то что хХарбор по другому может читать (допустим 866 кодировка, а в пути русские буквы)...

 Отправлено: 09.06.15 14:45. Заголовок: Всем привет. Можно л..

Всем привет.
Можно ли у окна MODAL ограничить изменение размеров до заданных ?
Делаю так:
DEFINE WINDOW Form_Card ;
.............................
MODAL ;
ON SIZE { || ResizeForm() } ;
ON INIT MyInitForm() ;
Работает отлично, но окно можно сделать крохотным. Мне надо ограничить допустим до:
MINWIDTH 770 MINHEIGHT 490 ;
Если вставляю эту строчку, то при 1-ом же изменение размера окна - ОКНО становиться в размер 770х490 и не меняется вообще.
Что не так делаю ?

 Отправлено: 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

 Отправлено: 09.06.15 16:43. Заголовок: Haz Спасибо БОЛЬШОЕ ..

Haz Спасибо БОЛЬШОЕ ! Не раз выручаешь !

 Отправлено: 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

А как изменить цвета для него ? А то получается этот объект весь белый ?

 Отправлено: 16.06.15 16:30. Заголовок: MDICHILD окно , как ..

MDICHILD окно , как ему прицепить свой фон , наследуемый фон из MDI окна не устраивает.

Нашли решение
ON INIT { || SetWindowBackground( GetFormHandle(This.Name) , PaintBkGnd( GetFormHandle(This.Name), aRGB} ) )}

 Отправлено: 16.06.15 17:43. Заголовок: Andrey я еще не мно..

Andrey
я еще не много "на....у" в твоем заповеднике
На основной MDI форме живет картинка , после того как на нем полежало MDICHILD окно
картинка пропадает.
Как решить проблему ?

 Отправлено: 16.06.15 17:56. Заголовок: Dima пишет: Как реш..

Dima пишет:

цитата:

Как решить проблему ?

Скорее всего эту картинку нужно перерисовать заново. Сделай после MDICHILD перерисовку картинки, типа:
Окно_1.картинка_1.Enabled := .F. а потом сразу Окно_1.картинка_1.Enabled := .T.
или если не поможет, то
Окно_1.картинка_1.Hide
INKEYGUI(50)
Окно_1.картинка_1.Show

 Отправлено: 16.06.15 18:06. Заголовок: Andrey Нет не помог..

Andrey
Нет не помогает...

 Отправлено: 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
помогите пожалуйста