| Автор | Сообщение |
|
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.
|
 |
|
|
Ответов - 301
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
All
[только новые]
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 2600
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.01.13 22:56. Заголовок: Andrey пишет: Почт..
Почти готовый пример .... http://files.mail.ru/FD03497F32DC4A309C7F85866BD39FDF SergKis, я переделал пример, но БОРДЮР работает через один цвет. Я пробовал несколько вариантов, ничего не получается. Посмотрите пожалуйста. SergKis, а зачем функция Test_This( cWnd ) в примере ? И еще вопрос, кто знает: cWnd := _HMG_ThisFormName
nWidth := ?
nHeight := ? А в МиниГуи есть переменные типа _HMG_ThisFormName.MaxWidth и _HMG_ThisFormName.MaxHeight ? Я нашел в \Include\i_var.ch #xtranslate _HMG_LoadWindowRow => _HMG_SYSDATA\[427\] #xtranslate _HMG_LoadWindowCol => _HMG_SYSDATA\[428\] #xtranslate _HMG_LoadWindowWidth => _HMG_SYSDATA\[429\] #xtranslate _HMG_LoadWindowHeight => _HMG_SYSDATA\[430\] а для чего эти переменные ? |
|
|
|
Dima
|
| |
Пост N: 2611
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.01.13 23:15. Заголовок: Andrey пишет: А зач..
Andrey пишет: | цитата: | | А зачем функция Test_This( cWnd ) в примере ? |
|
Это ты сам себя спросил ? ;) |
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 111
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.01.13 12:53. Заголовок: Andrey пишет:а для ч..
Andrey пишет: | цитата: | | а для чего эти переменные ? |
|
Это базовые переменные, используемые в MiniGUI для хранения информации - это регистрация окон, контролов, HotKey, ... в массивах MiniGUI (не путать с регистацией в windows). См. h_windows.prg, h_<control>.prg, ... . | цитата: | | есть переменные типа _HMG_ThisFormName.MaxWidth и _HMG_ThisFormName.MaxHeight ? |
|
Препроцессор преобразует команды This... (см. i_this.ch) в вызов функций с использованием переменных _HMG_This... ThisWindow.Width ==> GetProperty ( _HMG_THISFORMNAME , "Width") и т.д. В событиях (OnInit, OnGotFocus, Action, ...) перед выполнением блока кода, устанавливаются переменные _HMG_This..., см. функции: _DoWindowEventProcedure(...), _DoControlEventProcedure(...). | цитата: | | А зачем функция Test_This( cWnd ) в примере ? |
|
Это моя приблуда (для своей lib), но после нее, я уверен в _HMG_ThisFormName. |
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 112
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.01.13 14:04. Заголовок: Andrey пишет:... Пос..
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 2604
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.01.13 15:45. Заголовок: SergKis пишет: Это ..
SergKis пишет: | цитата: | Это моя приблуда (для своей lib), но после нее, я уверен в _HMG_ThisFormName.
|
|
В этом (моем) примере можно её (Test_This( cWnd )) убрать ? |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 2605
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.01.13 16:03. Заголовок: SergKis пишет: Подп..
SergKis пишет: Не понял.... А почему через один цвет бордюр не меняется ?  Я хочу чтобы, если меняем "Label Style" то было бы так:  |
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 113
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.01.13 18:14. Заголовок: Andrey пишет:Не поня..
Andrey пишет: | цитата: | | Не понял.... А почему через один цвет бордюр не меняется ? |
|
Border ставится\снимается нормально, из-за ClientEdge визуальный обман получается для 2-го Label. SergKis писал: | цитата: |
Свойства есть, надо использовать:
- менять стиль
SetWindowStyle(h, WS_BORDER, .T./.F.) - .T. устанавливать, .F. снимать
- менять Ext стиль
ChangeStyle(h, WS_EX_CLIENTEDGE, 0, .T.) - устанавливать или
ChangeStyle(h, 0, WS_EX_CLIENTEDGE, .T.) - снимать
У меня получалось менять или Ext стиль или стиль ( одновременно менять - срабатывал только стиль ).
|
|
В примере, я полагал, для каждого Label, одной кнопкой снимаем\ставим Border, другой - CLIENTEDGE. Для решения Вашей задачи надо иметь в aLbl Label-ы таких же размеров со свойством Visible:=.F. (скрытый) и по кнопке переводить в Visible:=.T. (свойство добавить 9-м элементом), а Label-ы с BORDER и CLIENTEDGE в Visible:=.F. | цитата: | | В этом (моем) примере можно её (Test_This( cWnd )) убрать ? |
|
Да. Я его оставлял как пример манипулирования This... переменными. |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 2616
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.02.13 16:01. Заголовок: Как сделать украинск..
Как сделать украинский язык (UA866) для программ на МиниГуи ? Для русского делаю так: FUNCTION Main()
.........
SET LANGUAGE TO RUSSIAN // язык/lang
SET CODEPAGE TO RUSSIAN // кодовая страница/codepage |
|
|
|
AlexMyr
|
| |
Пост N: 707
Зарегистрирован: 11.06.10
|
|
Отправлено: 01.02.13 17:16. Заголовок: Andrey пишет: Как с..
Andrey пишет: | цитата: | | Как сделать украинский язык (UA866) для программ на МиниГуи ? |
|
Вот что говорит дока, к-ю наверное никто не читает  Select language for interface messages. SYNTAX SET LANGUAGE TO SPANISH | ENGLISH | FRENCH | PORTUGUESE | GERMAN | RUSSIAN | ITALIAN | FINNISH | CROATIAN | BASQUE | POLISH | DUTCH | SLOVENIAN | GREEK | CZECH | UKRAINIAN | BULGARIAN И снова таки, причем тут minigui? |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 2620
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.02.13 18:35. Заголовок: AlexMyr пишет: И сн..
AlexMyr пишет: | цитата: | | И снова таки, причем тут minigui? |
|
А там несколько вариантов было включения русского языка. Вот и спросил как включить украинский язык (UA866) ? Хотя тут МиниГуи не причем, это точно... AlexMyr пишет: | цитата: | | Вот что говорит дока, к-ю наверное никто не читает |
|
Это в точку !  |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 2637
Зарегистрирован: 12.09.06
|
|
Отправлено: 09.02.13 08:01. Заголовок: Последний вариант 3х..
|
|
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 115
Зарегистрирован: 17.02.12
|
|
Отправлено: 10.02.13 13:42. Заголовок: Andrey пишет:Последн..
Andrey пишет: | цитата: | | Последний вариант 3х цветной формы и изменения размера формы. |
|
Примеры работают не корректно - при увеличении окна вниз - контролы и label-color наезжают друг на друга. Исправить можно так: Скрытый текст
FUNCTION ReSize()
...
// change the position of the Label-Color
FOR i := 1 TO Len( aLbl )
SetProperty( cWnd, aLbl[ i ][ _T ], "Visible", .F. ) // label-text hide
SetProperty( cWnd, aLbl[ i ][ _N ], "Visible", .F. ) // label-color hide
SetProperty( cWnd, aLbl[ i ][ _N ], "Row" , aLbl[ i ][ _Y ] )
SetProperty( cWnd, aLbl[ i ][ _N ], "Width" , aLbl[ i ][ _W ] )
SetProperty( cWnd, aLbl[ i ][ _N ], "Height", aLbl[ i ][ _H ] )
SetProperty( cWnd, aLbl[ i ][ _N ], "Visible", .T. ) // label-color show
// change the position of the Label-Text
SetProperty( cWnd, aLbl[ i ][ _T ], "Row" , aLbl[ i ][ _Y ] + 10 )
SetProperty( cWnd, aLbl[ i ][ _T ], "Visible", .T. ) // label-text show
NEXT
/*
// change the position of the Label-Text
FOR i := 1 TO Len( aLbl )
SetProperty( cWnd, aLbl[ i ][ _T ], "Row" , aLbl[ i ][ _Y ] + 10 )
NEXT
*/
|
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 2644
Зарегистрирован: 12.09.06
|
|
Отправлено: 10.02.13 14:01. Заголовок: SergKis пишет: Испр..
SergKis пишет: Спасибо БОЛЬШОЕ !  Кстати функцию Test_This( cWnd ) убрать нельзя ! Пример перестает работать.... |
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 116
Зарегистрирован: 17.02.12
|
|
Отправлено: 10.02.13 15:06. Заголовок: Andrey пишет:Пример ..
Andrey пишет: | цитата: | | Пример перестает работать.... |
|
Все правильно. Переменные _HMG_This... формируются в вызываемых процедурах (events) окна, контролов: Скрытый текст
pre2]
Procedure _ProcessInitProcedure(i)
...
_HMG_ThisEventType := 'WINDOW_INIT'
_HMG_ThisFormIndex := iIndex
_HMG_ThisType := 'W'
_HMG_ThisIndex := iIndex
_HMG_ThisFormName := _HMG_aFormNames [ iIndex ]
_HMG_ThisControlName := ""
Eval( bInit )
...
Function _DoWindowEventProcedure ( bBlock , i , cEventType )
...
_HMG_ThisFormIndex := i
_HMG_ThisEventType := cEventType
_HMG_ThisType := 'W'
_HMG_ThisIndex := i
_HMG_ThisFormName := _HMG_aFormNames [ _HMG_ThisFormIndex ]
_HMG_ThisControlName := ""
lRetVal := Eval( bBlock )
...
Function _DoControlEventProcedure ( bBlock , i , cEventType , nParam )
...
_HMG_ThisFormIndex := ascan ( _HMG_aFormHandles , _HMG_aControlParentHandles )
_HMG_ThisType := 'C'
_HMG_ThisIndex := i
_HMG_ThisFormName := _HMG_aFormNames [ _HMG_ThisFormIndex ]
_HMG_ThisControlName := _HMG_aControlNames [ _HMG_ThisIndex ]
If _HMG_BeginWindowActive == .F. .or. !( cEventType == 'CONTROL_ONCHANGE' ) .or. _HMG_MainClientMDIHandle != 0
Eval( bBlock, nParam )
EndIf
...
|
` Мы после DEFINE WINDOW &cWnd ; вызывали: aLblClrInit() AEval( aLbl, { | a, n | MySayColorLabel( n, n ) } ) и чтобы одинаково работать в своих вызовах и events процедурах Test_This(cWnd) устанавливает _HMG_ThisFormName, _HMG_ThisFormIndex. Если бы мы все проделывали только в events процедурах, то Test_This(cWnd) не нужна. |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 2754
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.03.13 13:19. Заголовок: Вот столкнулся с тем..
Вот столкнулся с тем что не могу поменять цвет в RADIOGROUP Вроде по доке там 2 параметра по цвету, а у меня только черным выводит....  Вот код: Скрытый текст
DEFINE RADIOGROUP RadioGroup_CodeEIRC
...........................
OPTIONS {' ячейка (1:А)',' ячейка (2:А)'}
READONLY { .F. , .F. }
FONTNAME 'Arial Black'
FONTSIZE 14
SPACING 10
FONTCOLOR ORANGE
BACKCOLOR aFonColor[ 2 ]
HORIZONTAL .T.
END RADIOGROUP
|
Как поменять цвет в RADIOGROUP ? И как увеличить размер "кружка" ? P.S. Если не ставить первый пробел в OPTIONS {' ячейка (1:А)',' ячейка (2:А)'}, то труба, текст не появится ! НЕ ЛЮБИТ МИНИГУИ маленькую букву "я" !!!  Час убил на выяснения этого ФЕНОМЕНА !!! Надо бы сообщить разработчикам... Григорий сообщи им пожалуйста ! |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 2763
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.03.13 22:37. Заголовок: Разобрался я с цвето..
Разобрался я с цветом в RADIOGROUP !
В Win8 не меняется цвет, а в Win2003 и Win2008 все работает нормально !!!
До ХР пока не дошел...
|
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 176
Зарегистрирован: 17.02.12
|
|
Отправлено: 21.03.13 08:36. Заголовок: Andrey пишет:Разобра..
Andrey пишет: | цитата: | Разобрался я с цветом в RADIOGROUP !
В Win8 не меняется цвет, а в Win2003 и Win2008 все работает нормально !!!
До ХР пока не дошел... |
|
Когда подстрагивали под себя MiniGui, обратили внимание, что в некоторых контролах управление цветами, фонтами заложено, но не до конца - т.е. для развития. Можно потратить кучу времени и без результата, если очень надо с цветами, то использовать альтернативные решения - Label, Image, Combobox,Browse или Grid (без линий и header, но с Image), и т.д. ... |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 2765
Зарегистрирован: 12.09.06
|
|
Отправлено: 21.03.13 11:47. Заголовок: SergKis пишет: Можн..
SergKis пишет: | цитата: | | Можно потратить кучу времени и без результата, если очень надо с цветами |
|
Да не надо. Спасибо за разъяснения. Просто начал делать и не получается, думал что я что-то не так делаю... |
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 2792
Зарегистрирован: 12.09.06
|
|
Отправлено: 13.04.13 00:58. Заголовок: Есть ли ПРИМЕР копир..
Есть ли ПРИМЕР копирования файла с бегунком (PROGRESSBAR) ? Можно конечно и самому написать, но хочется посмотреть правильный код.... |
|
|
|
Dima
|
| |
Пост N: 3018
Зарегистрирован: 17.05.05
|
|
Отправлено: 13.04.13 09:45. Заголовок: Andrey пишет: Есть ..
Andrey пишет: | цитата: | | Есть ли ПРИМЕР копирования файла с бегунком (PROGRESSBAR) |
|
Где то выкладывали уже и тоже по твоей просьбе. |
|
|
|
Ответов - 301
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
All
[только новые]
|
|
- участник сейчас на форуме
- участник вне форума