Отправлено: 15.11.11 21:36. Заголовок: Примеры из Минигуи -ошибки, вопросы..... (продолжение)

Всем привет.
Взялся смотреть примеры из МиниГуи, так не все работают. Может кто подскажет что там "допилить" нужно ?
А заодно может и исправить и добавить новые....

Очень красочный пример: \MiniGUI\SAMPLES\Advanced\AVI_Animation - не работает под Win7 (наверно AVI-шки нет в ресурсах)
Предложение Григорию:
Можно ли добавить еще один пример с отдельным AVI-файлом в ресурсах проекта и показом такого же бегунка ?

Пример: \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.

 Отправлено: 08.09.15 15:19. Заголовок: Всем привет. Хочу в ..

Всем привет.
Хочу в GETBOX адреса, отвечающим за буквы сделать перекодировку автоматом латинские буквы в русские.
Как это сделать ?

 Отправлено: 08.09.15 17:12. Заголовок: Andrey пишет: Как э..

Andrey пишет:

цитата:

Как это сделать ?

самое простое - в процедуре по ON CHANGE делай замену через CharRepl , типа

 
 SetProperty('Form_1', 'GetBox_1', 'Value', CharRepl("qwert", GetProperty('Form_1', GetBox_1', 'Value'), "йцуке" )  
 

 Отправлено: 08.09.15 18:01. Заголовок: Haz пишет: самое пр..

Haz пишет:

цитата:

самое простое - в процедуре по ON CHANGE делай замену через CharRepl , типа

Спасибо !

Как получить список устанновленных SET RELATION по базе ?
Хотя это вопрос не по МиниГуи, но нужно получить список для контроля.

 Отправлено: 08.09.15 18:17. Заголовок: Andrey пишет: Как п..

Andrey пишет:

цитата:

Как получить список устанновленных SET RELATION по базе

начать читать справку, для начала эту
http://harbour.edu.pl/clipper/en/ng2dfcc.html

 Отправлено: 08.09.15 18:33. Заголовок: Haz пишет: начать ч..

Haz пишет:

цитата:

начать читать справку, для начала эту http://harbour.edu.pl/clipper/en/ng2dfcc.html

Классная справка. И не знал что есть такая, более подробная чем xHarbour Language Reference Guide.chm

 Отправлено: 08.09.15 21:51. Заголовок: Andrey пишет: Класс..

Andrey пишет:

цитата:

Классная справка

эта функция из Clipper, ей 25 лет примерно

 Отправлено: 08.09.15 22:37. Заголовок: Haz пишет: эта функ..

Haz пишет:

цитата:

эта функция из Clipper, ей 25 лет примерно

Так я не про функцию пишу, а про справку.
Искать Клиперовскую справку было влом, а здесь всё под рукой, включая Клипер.
Ктож упомнит то всё...

 Отправлено: 30.09.15 17:10. Заголовок: Привет всем. Вопрос..

Привет всем.
Вопрос возник по окнам STANDARD.

На главной форме Form_Main есть кнопка. В этой кнопке:
ACTION { || Form_Main.Minimize,;
Form_MyTable(),;
Form_Main.Restore }

Один раз (первый) срабатывает как положено. На второй раз нет. Почему ?
Т.е. я хочу чтобы окно STANDARD во второй раз открылось на экране, а главная форма минимизировалась.
Скрытый текст

///////////////////////////////////////////////// Function Form_MyTable() .............. IF !_IsWindowActive( cFormName ) DEFINE WINDOW &cFormName ; WINDOWTYPE STANDARD TOPMOST ; ....... ELSE hWndMain := GetFormHandle("Form_Main") IF IsIconic( hWndMain ) // главное окно на экране DoMethod( "Form_Main", "Minimize" ) // минимизировать главное окно ENDIF SwitchToWin( cFormName ) // переключить на тек.форму hWnd := GetFormHandle(cFormName) BringWindowToTop( hWnd ) // поверх всех окон Brw4Focus() // фокус на таблицу ENDIF // !IsWindowActive() RETURN NIL

 Отправлено: 24.10.15 20:53. Заголовок: Привет всем ! Вот во..

Привет всем !
Вот вопрос возник:

 Отправлено: 24.10.15 23:36. Заголовок: Andrey Цветной Таб ..

Andrey
Цветной Таб настроен для размера шрифта до 12 пунктов.
Настройка, оптимизированная для шрифтов большего размера, как на рисунке, будет доступна в следующей сборке (уже поправил исходник)

 Отправлено: 25.10.15 18:25. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

будет доступна в следующей сборке (уже поправил исходник)

Ура ! Спасибо !

 Отправлено: 25.10.15 21:18. Заголовок: Заодно ещё вопрос по..

Заодно ещё вопрос по Tab:

 Отправлено: 15.11.15 13:16. Заголовок: Ошибка в RichEdit

У меня в программе во всех меню пропали иконки. Начал разбираться и вычислил проблему в
использовании RichEdit, который я брал практически один в один из примеров.

Нашел ошибку в папке RichEditEx.
Если вставить оператор SET MENUSTYLE EXTENDED то иконки показываться не будут вообще.
В папке RichEditEx_2 такой ошибки уже нет.
Скорей всего ошибка в модуле l_richeditbox.prg. Там проги на C, поэтому не докопал...
Поменял этот модуль и у меня все заработало.

 Отправлено: 16.11.15 20:24. Заголовок: Почему не компилируе..

Почему не компилируется вот такое:
Form_AYC.Image_0.BackgroundColor := aBColor

Синтаксис объекта IMAGE отличается от других объектов ? И в хелпе нет ничего по этому свойству.
Как тогда мне "передёрнуть" цвет у уже выведенной PNG картинки на форме ?

 Отправлено: 17.11.15 10:05. Заголовок: Andrey , я у себя та..

Andrey , я у себя такие штуки делаю через
SETPROPERTY('Form_AYC','Image_0','BackgroundColor',aBColor)
И всё компилируется отлично :)

 Отправлено: 17.11.15 10:19. Заголовок: Softlog86 пишет: И ..

Softlog86 пишет:

цитата:

И всё компилируется отлично :)

Компилируется да. Спасибо.
Только вот цвет на ходу не передёргивается ...
Наверно еще что-то нужно подшаманить...

 Отправлено: 17.11.15 10:31. Заголовок: Не, не шаманиться.....

Не, не шаманиться....
Делаю так:
ACTION { || aBColor := GetColor(),;
Form_AYC.Label_1.BackColor := aBColor,;
Form_AYC.Label_2.BackColor := aBColor,;
Form_AYC.Label_3.BackColor := aBColor,;
Setproperty(ThisWindow.Name,'Image_0','Visible',.F.),;
Setproperty(ThisWindow.Name,'Image_0','BackgroundColor',aBColor),;
Setproperty(ThisWindow.Name,'Image_0','Visible',.T.),;
RedrawAll() }

Может ещё как то надо ?

 Отправлено: 17.11.15 11:03. Заголовок: Я понял из примера M..

Я понял из примера MiniGUI\SAMPLES\BASIC\IMAGE_2
что объект надо убить... А потом заново нарисовать....
Ну блин, ...

 Отправлено: 18.11.15 12:19. Заголовок: Не убить , а измени..

Не убить , а [выключить] изменить и [включить] :)

 Отправлено: 18.11.15 16:00. Заголовок: Softlog86 пишет: Не..

Softlog86 пишет:

цитата:

Не убить , а [выключить] изменить и [включить] :)

А я что делаю:
Setproperty(ThisWindow.Name,'Image_0','Visible',.F.),;
Setproperty(ThisWindow.Name,'Image_0','BackgroundColor',aBColor),;
Setproperty(ThisWindow.Name,'Image_0','Visible',.T.),;