Автор | Сообщение |
Andrey
|
| постоянный участник
|
Пост N: 1929
Зарегистрирован: 12.09.06
|
|
Отправлено: 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.
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|
Andrey
|
| постоянный участник
|
Пост N: 4514
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.09.15 15:19. Заголовок: Всем привет. Хочу в ..
Всем привет. Хочу в GETBOX адреса, отвечающим за буквы сделать перекодировку автоматом латинские буквы в русские. Как это сделать ?
|
|
|
Haz
|
| |
Пост N: 659
Зарегистрирован: 20.02.11
|
|
Отправлено: 08.09.15 17:12. Заголовок: Andrey пишет: Как э..
Andrey пишет: самое простое - в процедуре по ON CHANGE делай замену через CharRepl , типа SetProperty('Form_1', 'GetBox_1', 'Value', CharRepl("qwert", GetProperty('Form_1', GetBox_1', 'Value'), "йцуке" )
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4515
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.09.15 18:01. Заголовок: Haz пишет: самое пр..
Haz пишет: цитата: | самое простое - в процедуре по ON CHANGE делай замену через CharRepl , типа |
| Спасибо ! Как получить список устанновленных SET RELATION по базе ? Хотя это вопрос не по МиниГуи, но нужно получить список для контроля.
|
|
|
Haz
|
| |
Пост N: 660
Зарегистрирован: 20.02.11
|
|
Отправлено: 08.09.15 18:17. Заголовок: Andrey пишет: Как п..
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4516
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.09.15 18:33. Заголовок: Haz пишет: начать ч..
Haz пишет: Классная справка. И не знал что есть такая, более подробная чем xHarbour Language Reference Guide.chm
|
|
|
Haz
|
| |
Пост N: 661
Зарегистрирован: 20.02.11
|
|
Отправлено: 08.09.15 21:51. Заголовок: Andrey пишет: Класс..
Andrey пишет: эта функция из Clipper, ей 25 лет примерно
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4517
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.09.15 22:37. Заголовок: Haz пишет: эта функ..
Haz пишет: цитата: | эта функция из Clipper, ей 25 лет примерно |
| Так я не про функцию пишу, а про справку. Искать Клиперовскую справку было влом, а здесь всё под рукой, включая Клипер. Ктож упомнит то всё...
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4531
Зарегистрирован: 12.09.06
|
|
Отправлено: 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
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4549
Зарегистрирован: 12.09.06
|
|
Отправлено: 24.10.15 20:53. Заголовок: Привет всем ! Вот во..
Привет всем ! Вот вопрос возник:
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 843
Зарегистрирован: 11.02.10
|
|
Отправлено: 24.10.15 23:36. Заголовок: Andrey Цветной Таб ..
Andrey Цветной Таб настроен для размера шрифта до 12 пунктов. Настройка, оптимизированная для шрифтов большего размера, как на рисунке, будет доступна в следующей сборке (уже поправил исходник)
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4550
Зарегистрирован: 12.09.06
|
|
Отправлено: 25.10.15 18:25. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | будет доступна в следующей сборке (уже поправил исходник) |
| Ура ! Спасибо !
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4553
Зарегистрирован: 12.09.06
|
|
Отправлено: 25.10.15 21:18. Заголовок: Заодно ещё вопрос по..
Заодно ещё вопрос по Tab:
|
|
|
krutoff
|
| |
Пост N: 178
Зарегистрирован: 17.10.05
|
|
Отправлено: 15.11.15 13:16. Заголовок: Ошибка в RichEdit
У меня в программе во всех меню пропали иконки. Начал разбираться и вычислил проблему в использовании RichEdit, который я брал практически один в один из примеров. Нашел ошибку в папке RichEditEx. Если вставить оператор SET MENUSTYLE EXTENDED то иконки показываться не будут вообще. В папке RichEditEx_2 такой ошибки уже нет. Скорей всего ошибка в модуле l_richeditbox.prg. Там проги на C, поэтому не докопал... Поменял этот модуль и у меня все заработало.
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4574
Зарегистрирован: 12.09.06
|
|
Отправлено: 16.11.15 20:24. Заголовок: Почему не компилируе..
Почему не компилируется вот такое: Form_AYC.Image_0.BackgroundColor := aBColor Синтаксис объекта IMAGE отличается от других объектов ? И в хелпе нет ничего по этому свойству. Как тогда мне " передёрнуть" цвет у уже выведенной PNG картинки на форме ?
|
|
|
Softlog86
|
| |
Пост N: 270
Зарегистрирован: 03.12.08
|
|
Отправлено: 17.11.15 10:05. Заголовок: Andrey , я у себя та..
Andrey , я у себя такие штуки делаю через SETPROPERTY('Form_AYC','Image_0','BackgroundColor',aBColor) И всё компилируется отлично :)
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4575
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.11.15 10:19. Заголовок: Softlog86 пишет: И ..
Softlog86 пишет: цитата: | И всё компилируется отлично :) |
| Компилируется да. Спасибо. Только вот цвет на ходу не передёргивается ... Наверно еще что-то нужно подшаманить...
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4576
Зарегистрирован: 12.09.06
|
|
Отправлено: 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() } Может ещё как то надо ?
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4577
Зарегистрирован: 12.09.06
|
|
Отправлено: 17.11.15 11:03. Заголовок: Я понял из примера M..
Я понял из примера MiniGUI\SAMPLES\BASIC\IMAGE_2 что объект надо убить... А потом заново нарисовать.... Ну блин, ...
|
|
|
Softlog86
|
| |
Пост N: 271
Зарегистрирован: 03.12.08
|
|
Отправлено: 18.11.15 12:19. Заголовок: Не убить , а измени..
Не убить , а [выключить] изменить и [включить] :)
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 4578
Зарегистрирован: 12.09.06
|
|
Отправлено: 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.),;
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|