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

 Отправлено: 28.04.16 21:37. Заголовок: Я нашел функцию h..

Я нашел функцию
hWnd := GetFormHandle(cFormName)
GetClientRect(hWnd, actpos) // размеры окна
MsgDebug(actpos)
Но она же выдаёт размеры окна, т.е. типа 0,0,1024,660
Окно же само по центру экрана. Можно же конечно посчитать разрешение экрана - размеры окна, поделить на 2 минус... и т.д.

Есть готовая функция или нет ?

 Отправлено: 28.04.16 21:40. Заголовок: Andrey пишет: Но он..

Andrey пишет:

цитата:

Но она же выдаёт размеры окна, т.е. типа 0,0,1024,660

Это точно? Пробовал ? Вроде всегда выдавала координаты.
Проперти окна проверял?
Пишу с мобилы. Но вопрос чес слово не серьезный.

 Отправлено: 28.04.16 21:45. Заголовок: Да, пробовал. Не то ..

Да, пробовал. Не то я делал. Нужно было другую функцию брать.

GetWindowRect( hWnd, actpos ) и всё...

Всем спасибо !

 Отправлено: 28.04.16 22:24. Заголовок: Andrey пишет: Нужно..

Andrey пишет:

цитата:

Нужно было другую функцию брать. GetWindowRect( hWnd, actpos ) и всё...

Кстати не знал что меж ними разница есть
GetClientRect() лишняя какая то получается , GetWindowRect() более информативна

 Отправлено: 28.04.16 22:50. Заголовок: Haz пишет: GetClien..

Haz пишет:

цитата:

GetClientRect() лишняя какая то получается

Нет не лишняя. Очень часто использую.

 Отправлено: 28.04.16 23:03. Заголовок: Andrey пишет: Очень..

Andrey пишет:

цитата:

Очень часто использую.

для чего ?

 Отправлено: 29.04.16 06:31. Заголовок: Haz пишет: для чего..

Haz пишет:

цитата:

для чего ?

nHStBar := GetWindowHeight(GetControlHandle('STATUSBAR', 'Form_0')) // высота StatusBar

и т.д.

 Отправлено: 29.04.16 08:10. Заголовок: Как убрать предупреж..

Как убрать предупреждение при компиляции с ключом -w2 -es2:
form_test.prg(351) Warning W0004 Codeblock parameter 'A' declared but not used in function "CREATEBROWSE"

Я понимаю, что переменную такую не использую, но и удалить её не хочется (на будущее пригодиться):
// переназначим цвет: строка маркера/курсора текущй записи базы
oBrwA:SetColor( { 6 }, { { |a,b,c| IF( c:nCell == b,{ 4915199, 255 }, { Rgb( 255, 192, 160 ), Rgb( 255, 226, 0 ) }) } } )

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

Andrey пишет:

цитата:

Как убрать предупреждение

{ |a,b,c| IF( c:nCell == b,{ 4915199, 255 }, { Rgb( 255, 192, 160 ), Rgb( 255, 226, 0 ), a:=NIL }

 Отправлено: 29.04.16 10:44. Заголовок: Haz пишет: GetClien..

Haz пишет:

цитата:

GetClientRect() лишняя какая то получается , GetWindowRect() более информативна

Уяснил для себя разницу в функциях GetClientRect() GetWindowRect()
http://shot.qip.ru/00Qiof-3ZkNFxXnN/

 Отправлено: 29.04.16 12:14. Заголовок: Haz пишет:Уяснил для..

Haz пишет:

цитата:

Уяснил для себя разницу в функциях GetClientRect() ...

Функция применима и к контролам и к окнам, пример исп. есть в TBrw_create(...) \Advanced\Tsb_seek_2

 Отправлено: 29.04.16 13:11. Заголовок: SergKis пишет: Функ..

SergKis пишет:

цитата:

Функция применима и к контролам и к окнам

Спасиб. И без примера понятно , функция возвращает размер рабочего поля окна в относительных координатах начиная с 0, 0 .

 Отправлено: 11.05.16 18:12. Заголовок: Всем привет ! Исполь..

Всем привет !
Использую объект TAB. На маленьких разрешениях объекты которые положил на TAB уезжают вниз экрана.
Можно ли как то сделать виртуальный TAB, чтобы объекты на нём можно было сдвигать вверх или вниз ?
Как в примере MiniGUI\SAMPLES\BASIC\ExtractIcon\demo2.prg

 Отправлено: 21.05.16 15:18. Заголовок: Использую объект Get..

Использую объект GetBox.
1) Как в нём сделать переход на другие объекты (КНОПКУ) по клавише ENTER ?
2) Как сделать для числа отбивку влево (как у текста) ?

Заранее спасибо за помощь !

 Отправлено: 21.05.16 16:40. Заголовок: Andrey пишет: 1) Ка..

Andrey пишет:

цитата:

1) Как в нём сделать переход на другие объекты (КНОПКУ) по клавише ENTER ?

В примере C:\MiniGUI\SAMPLES\BASIC\GetBox\demo.prg вроде так и есть

цитата:

2) Как сделать для числа отбивку влево (как у текста) ?

Изучить наконец шаблоны и функции GET объектов, они унаследованы еще из CLIPPERа
а то подобные вопросы , учитывая твой стаж просто ставят в тупик

 Отправлено: 21.05.16 17:10. Заголовок: Haz пишет: Изучить ..

Haz пишет:

цитата:

Изучить наконец шаблоны и функции GET объектов, они унаследованы еще из CLIPPER

А я думал как у TEXTBOX типа RIGHTALIGN и NUMERIC и ON ENTER ( Форма.Кнопка.Setfocus ) ....
Понял. Спасибо.

Haz пишет:

цитата:

В примере C:\MiniGUI\SAMPLES\BASIC\GetBox\demo.prg так и есть

Да я его до этого смотрел. Не то...

Делаю на форме один GETBOX и две кнопки. На кнопках стоит NOTABSTOP.
Как после ввода в GETBOX при нажатии на ENTER перейти на кнопку ( Форма.Кнопка.Setfocus ) ?

 Отправлено: 21.05.16 17:15. Заголовок: Andrey пишет: Да я ..

Andrey пишет:

цитата:

Да я его до этого смотрел. Не то... Делаю на форме один GETBOX и две кнопки. На кнопках стоит NOTABSTOP.

попробуй на Valid это повесить

цитата:

( Форма.Кнопка.Setfocus )

 Отправлено: 21.05.16 17:21. Заголовок: Andrey пишет: На кн..

Andrey пишет:

цитата:

На кнопках стоит NOTABSTOP.

в этом кстати какой смысл ?

 Отправлено: 21.05.16 17:56. Заголовок: Haz пишет: в этом ..

Haz пишет:

цитата:

в этом кстати какой смысл ?

SergKis посоветовал.

 Отправлено: 21.05.16 18:03. Заголовок: Кто как делает для Б..

Кто как делает для Больших Фонтов - Крупный размер 120 (точек/дюйм) в объекте GETBOX ?
Приходиться писать так:
@ 40, 40 GETBOX Get_1 .... ;
HEIGHT nFontSize*IIF(LargeFonts(),3,2) ;

Для LABEL есть AUTOSIZE, а для GETBOX что можно использовать ?