On-line: гостей 1. Всего: 1 [подробнее..]
АвторСообщение
модератор




Пост N: 200
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 29.06.06 13:02. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI


Вот решил снова начать новую тему, чтобы не раздувать старый топик на 4 листа
Новую версию Экспериментального релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=938

Что нового:
- исправления в TAB
- исправления в библиотеке TsBrowse, добавлен новый метод Report
- синхронизация с оффициальной версией HMG 2.0.020

Жду комментариев на этот выпуск здесь и на русском форуме MiniGUI по адресу:

http://talk.mail.ru/forum/talk.ru.boom.minigui?page=1


Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 144 , стр: 1 2 3 4 5 6 7 8 All [только новые]





Пост N: 6
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 29.06.06 14:24. Заголовок: И снова старое о новом !


Может я нетерплячий, но позволю себе Вас процитировать по поводу MDI окон в TsBrowse :
"Решение будет доступно в следующем неофициальном Расширенном релизе библиотеки MiniGUI
(следите за новостями)". Я скачал Build 18a - результат тот же - программа вылетает !
P.S. И по поводу ввода символов при редактировании полей в Tsbrowse.


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 201
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 29.06.06 15:12. Заголовок: Re:


i3t4j6 пишет:

 цитата:
Я скачал Build 18a - результат тот же - программа вылетает !


Критика - это, конечно, хорошо
Но еще лучше было бы привести небольшой пример кода, который Вы используете.
Для Вашего сведения Чтобы пример из папки samples\Advanced\TsBrowse работал с MDI, мне потребовалось внести всего 3 изменения в код:
1) объявить основное окно как MDI в файле demo.prg
2) объявить дочерние окна как MDICHILD в файле TsBtest.prg
3) заремить эту строку в файле TsBtest.prg
// ACTIVATE WINDOW &cWnd

Вот и все!
Если потребуется, то я могу выложить рабочий пример вместе с исходниками на сайте http://minigui.mylivepage.ru
Желаю удачи!

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 7
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 29.06.06 18:03. Заголовок: Re:


Я не настаиваю категорически , но все же попытаюсь не согласиться.
Все три изменения были сделаны еще в первый раз (плюс убрал ICON).
В итоге :
- курсор в TsBrowse не активный;
- навигация при помощи клавиатуры отсутствует полностью (только мышкой);
- при попытке редактирования любого поля - сбой в программе.



Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 202
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 29.06.06 18:32. Заголовок: Re:


i3t4j6 пишет:

 цитата:
В итоге :
- курсор в TsBrowse не активный;
- навигация при помощи клавиатуры отсутствует полностью (только мышкой);
- при попытке редактирования любого поля - сбой в программе.


Все замечания справедливы!
Вывод: компонент TsBrowse не готов для работы в MDI
Обязательно сообщу об этом автору адаптации этой библиотеки

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 8
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 29.06.06 19:02. Заголовок: Re:


И еще , если можно, пожалуйста?
Все-таки хотелось бы восстановления status quo для ввода символов при редактировании полей
в TsBrowse

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 203
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 30.06.06 09:53. Заголовок: Harbour Compiler Alpha 0.46.2 (CVS 2006-06-29 08:25)


Текущую версию компилятора Харбор CVS выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=939

Прошу проверить работу этой сборки с HMG Ex build 18a.
Собственная проверка показала, что все в порядке

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 205
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 30.06.06 12:37. Заголовок: Продолжаем хорошие новости


Продолжаем хорошие новости: добавил на сайте http://minigui.mylivepage.ru программу INI File Editor - универсальный редактор конфигурационных ini-файлов Теперь в папке MyProgram лежит уже 21 избранная программа

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 206
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 03.07.06 14:27. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=949

Что нового:
- исправление обнаруженных ошибок
- поддержка MDI окон в библиотеке TSBrowse
- улучшена совместимость GRID с официальным релизом
- новые примеры

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 23
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 05.07.06 12:49. Заголовок: 18b & xHarbor


При компиляции под xHarbour выдается ошибка:

Error: Unresolved external '_hb_vmProcessSymbolsEx' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|errorsys


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 24
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 05.07.06 13:37. Заголовок: Быстренько извиняюсь


Каюсь. Забыл перекомпилировать 18b под xharbour - тут же и получил
error.

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 208
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 05.07.06 13:39. Заголовок: Re:


krutoff пишет:

 цитата:
Каюсь


Поспешишь - людей насмешишь!
Я - сам такой

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 209
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 05.07.06 15:59. Заголовок: Harbour Compiler Alpha (CVS 2006-07-04 13:20)


Текущую версию компилятора Харбор CVS выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=953

Прошу проверить работу этой сборки с HMG Ext build 18b (у меня работает нормально ).

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 212
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 10.07.06 18:28. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=956

Что нового:
- обновлена версия компилятора Harbour CVS
- исправлена поддержка MDI окон в библиотеке TSBrowse
- улучшена работа предпросмотра в библиотеке HbPrinter
- новые примеры


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 213
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 11.07.06 10:42. Заголовок: Re:


Выложил исправленную версию Harbour MiniGUI IDE (вместе с исходниками) по адресу:

http://minigui.mylivepage.ru/file/?fileid=957

Что нового:
-корректная компиляция под Win98 и WinXP

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 107
Зарегистрирован: 08.11.05
ссылка на сообщение  Отправлено: 11.07.06 11:48. Заголовок: Re:


gfilatov
Скачал. Поставил. Собрал.

Четыре ошибки:

1. Нет #include "minigui.ch" в LoadFmg.prg - после чего куча Illegal'ов вылезает
2. DECLARE WINDOW нет в LoadFmg.prg - опять-таки синтаксические ошибки "."
После того как поставил:
Declare window controls
Declare window projectbrowser
Declare window objectinspector
ошибки пропали.

3. Не задекларирована Form_1 - после того как поставил
DECLARE WINDOW Form_1 в LoadForm.prg и в HmgsIde.prg ошибки пропали

4. SaveForm.prg строка 8
If .Not. IsWindowActive(Form_1)
не может найти эту функцию: я исправил на
If .Not. _IsWindowActive(Form_1)

После чего пока работет.


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 214
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 11.07.06 12:15. Заголовок: Re:


Владимир,
Откомпилированная программа уже есть в поставке.
Исходники предназначены для компиляции исключительно с помощью Харбора и носят справочный характер


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 1
Зарегистрирован: 12.07.06
ссылка на сообщение  Отправлено: 12.07.06 05:09. Заголовок: А в ответ тишина


Привожу мои вопросы c форума: http://talk.mail.ru/forum/talk.ru.boom.minigui?page=1 иожет мне здесь ответят.

1 В TSBrowse я прграмно делаю: добавляю записи, удаляю записи, меняю колонки, меняю содержимое полей.
Возникает проблема корректного отображения всех внесенных програмно изменений.
Каким методом можно заставить TSBrowse перерисовать все свои строки?
Пробовал Refresh(), Reset() - почему-то работает неустойчиво.

2 При програмном изменении кол-ва записей почему-то появляется вертикальная полоса прокрутки, хотя места для всех строк хватает (даже когда удаляю строки) и все прокрутки отключены:
TBrowse_ppl:lNoHScroll := .T.
TBrowse_ppl:lNoVScroll := .T.

3 Программа, собранная на Harbour и Build 18c (HMG 1.2 Extended) работает на SATA-диске медленнее в 2-3 раза чем на IDE-диске. Файловая система в обих случаях FAT32



Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 215
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 12.07.06 10:58. Заголовок: Re:


alex_II
1 Да, есть такая проблема. Автор адаптации библиотеки периодически возвращается к ней

2 Попробуйте в файле H_TBROWSE.PRG заремить строку 8383 в методе TSBrowse:Reset()
Если поможет, то обязательно напишите

3 По-видимому, это проблемы компилятора Харбор. Попробуйте потестировать эту программу, собрав ее с помощью компилятора xHarbour.

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 216
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 12.07.06 16:56. Заголовок: Harbour MiniGUI IDE v.0.2.4


Выложил исправленную версию Harbour MiniGUI IDE (вместе с исходниками) по адресу:

http://minigui.mylivepage.ru/file/?fileid=958

Что нового:
-исправление обнаруженных ошибок


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 2
Зарегистрирован: 12.07.06
ссылка на сообщение  Отправлено: 13.07.06 04:49. Заголовок: Спасибо за помошь, Григорий


1. Хочется верить, что проблема рано или поздно будет решена
2. Правка кода в H_TBROWSE.PRG проблему решила (способ конечно радикальный)
3 Не могли бы вы мне подсказать где скачать рабочую версию xHarbour со всеми библиотеками, с CVS не работал да и нет времени копаться.
И еще: если мне не изменяет память в более ранних версиях HMG Ext TSBrowse содержал bat-файл для создания библиотеки для xHarbour, сейчас его нет. Та же проблема и с HBPrinter

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 217
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 13.07.06 10:08. Заголовок: Re:


alex_II пишет:

 цитата:
где скачать рабочую версию xHarbour со всеми библиотеками


xHarbour Compiler build 0.99.61 бинарники можно скачать по адресу:

http://minigui.mylivepage.ru/file/?fileid=381

xHarbour Compiler build 0.99.61 дополнительные библиотеки лежат здесь:

http://minigui.mylivepage.ru/file/?fileid=382

alex_II пишет:

 цитата:
в более ранних версиях HMG Ext TSBrowse содержал bat-файл для создания библиотеки для xHarbour


Нет, таких батников никогда НЕ было, надо просто изменить глобальную константу:
SET MG_HRB=c:\xharbour в autoexec и все будет собираться

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 3
Зарегистрирован: 12.07.06
ссылка на сообщение  Отправлено: 14.07.06 04:05. Заголовок: Лимит сайта исчерпан


Григорий! скачать по указанным ссылкам не удается (просит деньги)

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 27
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 14.07.06 10:05. Заголовок: Harbour MiniGUI IDE


Не могу скачать. Говорит, что лимит сайта исчерпан.

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 218
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 14.07.06 11:57. Заголовок: Re:


krutoff пишет:

 цитата:
Говорит, что лимит сайта исчерпан


Переложил архивы на другой сайт

xHarbour Compiler build 0.99.61 бинарники можно скачать по адресу:

http://gfilatov.front.ru/xharbour-0.99.61.bin.w32.bcc32.zip

xHarbour Compiler build 0.99.61 дополнительные библиотеки лежат здесь:

http://gfilatov.front.ru/xharbour-0.99.61.contrib.w32.bcc32.zip

Удачной выкачки!

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 219
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 14.07.06 13:25. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://gfilatov.front.ru/hmgexsetup_18d.zip

Также отдельно положил Harbour MiniGUI IDE (вместе с исходниками) по адресу:

http://gfilatov.front.ru/ide.zip

Продублировал эти файлы и на сайте http://minigui.mylivepage.ru.
Думаю, что через несколько дней они тоже будут доступны (после спада ажиотажа в скачивании )

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 10
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 18.07.06 22:04. Заголовок: Наблюдения о работе TsBrowse(mdi)


Взял для примера Sample 6 из Tsb_Mdi.prg, использую два поля:
1) Затем описал Textbox
@ 50, 330 LABEL Label_1 VALUE "Name" HEIGHT 22 FONTCOLOR BLUE
@ 50, 383 textbox Text_1 Value "" WIDTH 140 HEIGHT 22 NOTABSTOP
и вставил для отображения данных при навигации
Brw_6:bChange := { |o| {ChildMdi.Text_1.Value := Employee->first }}.
В итоге получил - Control: Text_1 Of ChildMdi Not defined. Program Terminated<BR>
2) Попробовал использовать
DRAW BOX IN WINDOW ChildMdi AT 150,532 TO 152,996
и программа вылетает с ошибкой :
Error BASE/1003 Variable does not exist: _CHILDMDI</p><BR>



Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 108
Зарегистрирован: 08.11.05
ссылка на сообщение  Отправлено: 19.07.06 08:58. Заголовок: Re:


gfilatov gfilatov пишет:

 цитата:
Также отдельно положил Harbour MiniGUI IDE (вместе с исходниками) по адресу:

http://gfilatov.front.ru/ide.zip



Запустил и сразу возникла пара вопросов:
1. Если открываю существующий проект, то открыть форму на редактирование невозможно: раньше достаточно было кликнуть по файлу формы (в списке форм) и редактоор форм открывался (с предупреждением)
2. \Tools\Builders все формочки ведут себя одинаково - открывшись, их нельзя закрыть кнопками Ok и Cancel.
Может я что нетак делаю?

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 222
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 19.07.06 11:43. Заголовок: Вопросы по IDE


Владимир,
1. В списке форм надо сделать двойной клик по имени формы, чтобы открыть редактор форм.
Пожалуйста, подтвердите, работает ли это на примерах, ВКЛЮЧЕННЫХ в поставку ide

2. Эти формы только нарисованы, но не работают (смотри исходники, ВКЛЮЧЕННЫЕ в поставку ide )
Надеюсь, что в новом релизе они уже будут работать

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 223
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 19.07.06 11:52. Заголовок: Re:


i3t4j6 пишет:

 цитата:
В итоге получил - Control: Text_1 Of ChildMdi Not defined.


Все правильно, поскольку для MDI дочерних окон это имя НЕ годится
Этих окон может быть много и поэтому нужна другая техника работы с ними.
Посмотри, например, как работает установка фокуса на элемент управления:

Procedure SetEditFocus()
Local ChildHandle, ChildName, cBrw
Local i,k

ChildHandle := GetActiveMdiHandle()
i := aScan ( _HMG_aFormHandles , ChildHandle )
if i > 0
ChildName := _HMG_aFormNames [ i ]
k := aScan ( _HMG_aControlParenthandles ,ChildHandle)
IF k > 0
cBrw := _HMG_aControlNames [k]
_SetFocus ( cBrw, ChildName)
endif
endif
Return

Сначала мы получаем указатель на АКТИВНОЕ дочернее окно, а затем только находим имя этого окна в массиве _HMG_aFormNames

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 109
Зарегистрирован: 08.11.05
ссылка на сообщение  Отправлено: 19.07.06 15:43. Заголовок: Re:


gfilatov gfilatov пишет:

 цитата:
1. В списке форм надо сделать двойной клик по имени формы, чтобы открыть редактор форм.
Пожалуйста, подтвердите, работает ли это на примерах, ВКЛЮЧЕННЫХ в поставку ide


Работает: проект Hello работает.

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 224
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 19.07.06 15:54. Заголовок: Re:


Владимир пишет:

 цитата:
проект Hello работает


Благодарю! А Ваш проект работает тоже?


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 110
Зарегистрирован: 08.11.05
ссылка на сообщение  Отправлено: 19.07.06 15:56. Заголовок: Re:


gfilatov
Продолжил эксперимент. Создал проект a'la Hello. Создал новую форму, положил в нее некоторые контролы и закрыл через крестик. И все - в файле проекта форма прописана, файла формы нет и соответсвенно открываться нечему
Из файла проекта (.hpj) удаляю файл формы. Создаю его заново. И сохраняю через Save Form. Close Form.
Далее все начинает работать как и должно.
Может я ошибаюсь, но раньше при выходе из редактора форм выводилось окошко с вопросом-предупреждением. Ну и несуществующих форм в файл проекта не писалось.

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 225
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 19.07.06 16:01. Заголовок: Re:


Владимир пишет:

 цитата:
Создал новую форму, положил в нее некоторые контролы и закрыл через крестик


Да, я знаю об этом
Пока не удается корректно ловить такое закрытие (событие ON INTERACTIVECLOSE)
Может у Вас есть идеи, как это сделать? Милости просим: ведь проект Open Source

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 5
Зарегистрирован: 19.04.06
ссылка на сообщение  Отправлено: 20.07.06 05:18. Заголовок: Попробовал IDE


Попробовал долгожданный модернизированый IDE. Свежескачаный!!!
Сразу появились пара вопросов.
1. Не нашел SplitBox Builder, который был в пред.версии.
2. Наконец-то окно Project Browser имеет Resize, да только единственный Tab-объект в этом окне на это не реагирует :(
А окно Object Inspector так и не Resize :(
3.Main Menu Builder не работает ? И вообще ни один билдер не работает.
4.Вместо вновь созданного модуля Proba.prg (который есть в списке модулей) в редаторе упорно вызывается пустой модуль с именем SkladMySQL.Prg (имя - из совсем другого проекта).
Хотя файл Proba.prg создан на диске правильно.
...и еще валится в некоторых случаях.
Или меня вирус посетил? придется восстановить старую версию IDE.

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 226
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 20.07.06 11:02. Заголовок: Re:


SadStar пишет:

 цитата:
Или меня вирус посетил?


Нет, никаких вирусов у Вас нет
Просто это еще очень сырой OPEN SOURSE проект в ранней стадии (версия 0.2)
Этот проект задуман как альтернатива старому IDE, который поддерживает сейчас только компилятор MinGW.
Исходники нового IDE есть в поставке, также работает CVS сервер по адресу:
http://hmgs-minigui.cvs.sourceforge.net/hmgs-minigui/minigui/HMGS-IDE/

Присоединяйтесь !?

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 4
Зарегистрирован: 12.07.06
ссылка на сообщение  Отправлено: 21.07.06 08:57. Заголовок: Борьба с TSBrowse


Хочу из другой п/п удалить объект TSBrowse методом oBr:Destroy
и создать его заново, но компилятор не находит объект TSBrowse и выходит на ошибку
в строке с удалением объекта.
Хотя строка с oBr:SetColor компилятором обрабатывается без ошибки
Подскажите в чем тонкость?

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 227
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 21.07.06 12:07. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=962

Также отдельно положил Harbour MiniGUI IDE (вместе с исходниками) по адресу:

http://minigui.mylivepage.ru/file/?fileid=961

Что нового:
- новый класс ON VSCROLL в элементе управления RicheditBox
- исправления и улучшения в библиотеке TsBrowse
- исправление старого и один новый пример

Продублировал эти файлы также на другом сервере

http://gfilatov.front.ru/hmgexsetup_18e.zip

http://gfilatov.front.ru/ide.zip

Желаю всем удачи и хорошей связи!

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 20
Зарегистрирован: 15.09.05
ссылка на сообщение  Отправлено: 22.07.06 23:32. Заголовок: MiniGUI + MySQL


В официальном релизе Лопеса есть пример MYSQL а в Експериментальном релизе нет
Так вот я попробовал перенести его :
скопировал, поставил в папуку libmysqlib.dll и откомпилировал Експериментальным релизом
Все работает НО: Примерчик Лопеса работает гораздо быстрее чем в експериментальном релизе
Реч идет о програмке demo_3 где заполняется grid из таблицы при нажатии Refresh

Интересно почему ?

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 11
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 23.07.06 11:17. Заголовок: Наблюдения о TsBrowse ...


gfilatov пишет:

 цитата:
Жду комментариев на этот выпуск здесь и ...



1) Из примера \Advanced\TsBrowse\sbexel.prg для строки 55 попытался аналогично
\Basic\Buttun_2\buttons.prg сделать Form_10.Btn_1a.Picture := {'clear'} вместо
BUTTON Btn_1a PICTURE "Tick" , т.е. при включении фильтра - поменять картинку
на кнопке. Но не вышло ...(наверное из-за Toolbar ?);
2) Как в TsBrowse расположить курсор на нужной записи? Например, после произведенного
поиска Dbseek() ? При помощи Button - получается . Хотелось бы при помощи
COMBOBOX Combo_02 WIDTH 100 HEIGHT 220 ON DISPLAYCHANGE {|| Poiisk2( Brw_8 )}.
Это возможно ?



Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 228
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 24.07.06 11:25. Заголовок: Re:


i3t4j6
1) Все правильно: для Toolbar возможно определить картинку только при создании этой панели
2) Если с помощью кнопки все работает, то попробуйте использовать для поиска событие ON ENTER (вместо ON DISPLAYCHANGE)

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 229
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 24.07.06 11:30. Заголовок: Re:


sashaBG пишет:

 цитата:
Все работает НО: Примерчик Лопеса работает гораздо быстрее чем в експериментальном релизе
Реч идет о програмке demo_3 где заполняется grid из таблицы при нажатии Refresh

Интересно почему ?


Возможно, что причина в том, что в официальном HMG используется более свежая версия библиотеки mysql (в Расширенном релизе эта библиотека датирована еще 2004 годом).
Рекомендация: попробуйте заменить эту библиотеку более свежей из поставки компилятора Харбор (версия библиотеки от 07.03.2006)

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 231
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 24.07.06 12:09. Заголовок: Harbour Compiler Alpha (CVS 2006-07-21 02:47)


Текущую версию компилятора Харбор CVS выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=965

Прошу проверить работу этой сборки с HMG Ext build 18e (у меня работает нормально ).


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 13
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 24.07.06 16:30. Заголовок: Re:


gfilatov пишет:

 цитата:
2) Если с помощью кнопки все работает, то попробуйте использовать для поиска событие ON ENTER (вместо ON DISPLAYCHANGE)



Я пробовал и ON ENTER И ON CHANGE , ничего не получается . Может что-то упустил ?

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 236
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 25.07.06 17:04. Заголовок: Продолжаем хорошие новости


Продолжаем хорошие новости: обновил на сайте http://minigui.mylivepage.ru программу Uninstall Editor - аналог апплета Add/Remove programs с возможностью редактирования списка установленных программ

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 18
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 25.07.06 19:21. Заголовок: по поводу DEFINE TAB ...


gfilatov пишет:

 цитата:
Жду комментариев на этот выпуск здесь и ...



Насколько я понял, на странмце в DEFINE TAB нельзя расположить еще один DEFINE TAB ?
А есть ли возможность переключение страниц расположить внизу ?

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 237
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 25.07.06 19:48. Заголовок: Re:


i3t4j6 пишет:

 цитата:
на странмце в DEFINE TAB нельзя расположить еще один DEFINE TAB ?


Да, верно.

i3t4j6 пишет:

 цитата:
А есть ли возможность переключение страниц расположить внизу ?


Сейчас нет такой возможности
Но если добавить в файл c_tab.c обработку стиля TCS_BOTTOM //Tabs on Bottom, то эта возможность появится

Дерзайте!

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 238
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 26.07.06 14:31. Заголовок: Re:


i3t4j6 пишет:

 цитата:
А есть ли возможность переключение страниц расположить внизу ?


Эта возможность появится в новом выпуске Расширенного релиза библиотеки MiniGUI

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 19
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 26.07.06 16:57. Заголовок: TsBrowse


gfilatov пишет:

 цитата:
Эта возможность появится в новом выпуске Расширенного релиза библиотеки MiniGUI



1) В DEFINE TAB опция Vertical не работает под Windows XP (но если переключить оформление на Классический
стиль, то появляется )
2) Теперь вопрос , если можно ?
Как добиться, чтобы курсор расположился внизу - на последней записи (например в
\Advanced\TsBrowse\sbalign.prg и в \Advanced\TsBrowse\TsBtest.prg для Sample 8 ) ?


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 239
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 26.07.06 18:39. Заголовок: Re:


i3t4j6 пишет:

 цитата:
1) В DEFINE TAB опция Vertical не работает под Windows XP (но если переключить оформление на Классический
стиль, то появляется )


Да, все верно, поскольку Windows XP не поддерживает эту опцию, когда включена поддержка тем оформления.

i3t4j6 пишет:

 цитата:
Как добиться, чтобы курсор расположился внизу - на последней записи (например в
\Advanced\TsBrowse\sbalign.prg и в \Advanced\TsBrowse\TsBtest.prg для Sample 8 ) ?


В \Advanced\TsBrowse\TsBtest.prg для Sample 8 надо просто добавить Brw_8:GoBottom() при определении TBROWSE
А как это сделать в \Advanced\TsBrowse\sbalign.prg - НЕ знаю


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 20
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 26.07.06 19:19. Заголовок: Re:


gfilatov пишет:

 цитата:
для Sample 8 надо просто добавить Brw_8:GoBottom() при определении TBROWSE



Неудачно предложил . Сразу же попробовал для Sample 1, 2, 3, 4 - ничего не получилось (курсор или
вообще пропадает или стоит вверху )

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 5
Зарегистрирован: 12.07.06
ссылка на сообщение  Отправлено: 27.07.06 04:29. Заголовок: Работа на SATA и IDE дисках


Программа собранная на xHarbour также работает медленнее на SATA-дисках чем на IDE.
Странно что этого никто не замечает, пробовал на 2 машинах.

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 240
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 28.07.06 20:05. Заголовок: Harbour Compiler 0.46.2 (CVS 2006-07-28 00:10)


Текущую версию компилятора Харбор CVS выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=976

Следующая версия Расширенного HMG будет иметь в своем составе эту сборку

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 241
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 31.07.06 11:37. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=990

Также отдельно положил Harbour MiniGUI IDE (вместе с исходниками) по адресу:

http://minigui.mylivepage.ru/file/?fileid=989

Что нового:
- новый класс BOTTOM в элементе управления TAB
- исправления и улучшения в библиотеке TsBrowse
- исправление старых примеров



Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 244
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 18.08.06 16:08. Заголовок: Re:


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1067

Также отдельно положил Harbour MiniGUI IDE (вместе с исходниками) по адресу:

http://minigui.mylivepage.ru/file/?fileid=1068

Текущую версию компилятора Харбор CVS выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1069


Что нового:
- исправление ошибки в GETBOX
- обновление IDE и Харбора (DEBUG уже работает)
- исправления в библиотеке TsBrowse
- 2 версия примера MsgMenu
- описание (или точнее - перечисление) отличий расширенной версии HMG от оффициальной

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 6
Зарегистрирован: 19.04.06
ссылка на сообщение  Отправлено: 22.08.06 03:53. Заголовок: Ув.тов.Филатов


Ув.тов.Филатов.
Почему ваш архив с MiniGUI частенько не открывается и при этом грязно ругается?
Как в этот раз.
повторная загрузка ничего не изменила.
Т.ч. ознакомиться не удалось.

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 252
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 22.08.06 10:10. Заголовок: Re:


SadStar пишет:

 цитата:
Почему ваш архив с MiniGUI частенько не открывается


Все просто:
для лучшего сжатия я использую zip-алгоритм Deflate64, который легко понимает Total Commander 6.55 и замечательный архиватор 7zip (http://www.7-zip.org/), использовать который я весьма рекомендую

SadStar пишет:

 цитата:
Т.ч. ознакомиться не удалось.


Жаль, что старые архиваторы стоят на пути прогресса

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 255
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 28.08.06 12:33. Заголовок: Re:


Текущую версию компилятора Харбор CVS выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1093



Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 257
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 31.08.06 10:31. Заголовок: Опубликован HMG Extended Build 20


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1100


Что нового:
- команда Set Navigation Extended поддерживает теперь также и Spinner
- обновление Харбора CVS
- исправления в библиотеке TsBrowse (благодаря Олегу Крутову)
- новый пример для программной чистки системы от мусора


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 258
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 01.09.06 13:58. Заголовок: Harbour Compiler (CVS 2006-09-01 10:25)


Текущую версию компилятора Харбор CVS выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1102

Прошу испытать эту сборку в связке с MiniGUI (у меня работает нормально)


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 267
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 12.09.06 18:03. Заголовок: Harbour Compiler (CVS 2006-09-12 14:48) и IDE 0.3.2


Текущую версию компилятора Харбор CVS выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1121

Также отдельно положил Harbour MiniGUI IDE версии 0.3.2 (вместе с исходниками) по адресу:

http://minigui.mylivepage.ru/file/?fileid=1120

Забираем и комментируем



Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 271
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 14.09.06 13:13. Заголовок: Опубликован HMG Extended Build 21


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1127

Что нового:
- чистка СИ-кода с целью оптимизации
- обновление IDE до версии 0.3.2.1
- обновление Харбора CVS
- исправления в библиотеке TsBrowse (благодаря Олегу Крутову)
- новый пример использования AVI из ресурсного файла
- обновление двух примеров из оффициального выпуска

Также отдельно положил Harbour MiniGUI IDE версии 0.3.2.1 (вместе с исходниками) по адресу:

http://minigui.mylivepage.ru/file/?fileid=1126



Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 272
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 14.09.06 15:11. Заголовок: Продолжаем хорошие новости


Продолжаем хорошие новости: добавил на сайте http://minigui.mylivepage.ru программу FreeMemory Pro - оптимизатор оперативной памяти, который может работать в ручном или автоматическом режиме
Теперь в папке MyProgram лежит уже 22 избранные программы

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 32
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 14.09.06 18:22. Заголовок: Нестабильная работа в TsBrowse...


gfilatov пишет:

 цитата:
Жду комментариев на этот выпуск здесь и ...


В релизе HMG Extended Build 20 при работе с TsBrowse проблема была только с
одним единственным ПОСЛЕДНИМ полем при добавлении новой записи.
Теперь же - непонятно что : старые записи на экране - моргают, курсор - прыгает,
очередная новая запись - не появляется. при вводе букв - появляются непонятные
символы . Хуже всего - Неопределенность ...


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 42
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 14.09.06 19:29. Заголовок: Разбираюсь


Я только что скачал новую версию - Григорий, большое спасибо.
Коллеги! Не забывайте, что это открытый проект - ошибки возможны и
давайте вместе, по возможности помогать Григорию.

Уважаемый "i3t4j6" - если надо очень быстро - попробуйте:
1. строку 3462 закоментировать
// oCol:oEdit:KeyChar( nKey, nKeyFlags )
2. строку 5480 сделать
::oWnd:nLastKey := ::nLastKey := nKey; ::nUserKey := 0





Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 274
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 15.09.06 12:17. Заголовок: Re:


krutoff пишет:

 цитата:
давайте вместе, по возможности помогать Григорию


Олег! Это просто глас вопиющего в пустыне
Но, тем не менее, я тебе очень благодарен за поддержку и реальные предложения по улучшению кода!


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 34
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 15.09.06 17:14. Заголовок: Re:


krutoff пишет:

 цитата:
если надо очень быстро ...


Я подожду , не волнуйтесь !..
krutoff пишет:

 цитата:
Давайте вместе, по возможности помогать Григорию.


Всецело поддерживаю !!! И буду стараться !
И кстати - устаревший вопрос , даже два :
- проблемка в TsBrowse при вводе с клавиатуры с использованием ComboWBlock() ;
- incremental search в TsBrowse (Sample_3)


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 44
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 17.09.06 10:40. Заголовок: ComboWBlock


Мне самому пока не удается одолеть ComboWBlock.
Что-то скоординатами (Rect) блока - я послал мои
размышления Янушу, но он пока занят. Я хотел
подключить массив значений (для FIELD) по массиву Items Combo
( и у меня все заработало, кроме координат - Combo не попадает в ячейку)
- но, видимо, у Януша другие ссображения

Стандартный инкрементальный поиск TSBrowse мне
не нравится - я сделал просто поиск по нажатию на Header.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 35
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 17.09.06 12:43. Заголовок: Ура!!! Ура!!!


krutoff пишет:

 цитата:
пока не удается


Огромное спасибо - теперь хотя бы понятно, что я не один с такими проблемами и процесс не стоит на месте!!!
И еще- а можно подробнее про "я сделал просто поиск по нажатию на Header" ???

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 45
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 17.09.06 20:19. Заголовок: OnHeadClick


oBrw:aColumns[k]:bHLClicked := { |nRowPix,nColPix,nAt| OnHeadClick(oBrw,nColPix) }
При нажатии на заголовок активирую процедуру - и там ввожу значение поиска ...

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 275
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 20.09.06 12:06. Заголовок: Опубликован HMG Extended Build 22


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1131

Что нового:
- виртуальные столбцы в Grid
- обновление Харбора CVS (как обычно )
- исправления в библиотеке TsBrowse (благодаря Олегу Крутову )
- поддержка TWAIN-сканеров
- обновление и исправление различных примеров



Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 36
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 20.09.06 14:05. Заголовок: Re:


gfilatov пишет:

 цитата:
- исправления в библиотеке TsBrowse ( ...


В HMG Extended Build 22 - почти ничего не изменилось !!! Только решилась проблема с вводом цифр в числовые поля ...
Остались : - проблема с заполнением и отображением ПОСЛЕДНЕГО поля ;
- проблема при вводе - вводимый символ нужно набирать дважды, если я ввожу первоначально
букву a - появляется цифра 1, если d - 3, если f - 6 и так далее ... Ответьте, можно ли надеяться на решение ?..




Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 276
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 20.09.06 14:18. Заголовок: Re:


i3t4j6 пишет:

 цитата:
Ответьте, можно ли надеяться на решение ?


Олег! Я подтверждаю эту проблему. У тебя есть решение?

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 47
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 21.09.06 10:36. Заголовок: Не увидел


Я в 22-й версии пока оибок в TSBrowse не нашел - можно подробнее?

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 279
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 21.09.06 10:49. Заголовок: Re:


krutoff пишет:

 цитата:
можно подробнее?


OK. Компилируем демку в каталоге samples\advanced\TSBrowse, запускаем из меню Sample 6, переходим на любое символьное поле и нажимаем клавишу "a" - получаем в поле ввода вместо "а"+содержимое поля - цифру 1+содержимое поля. Та же проблема при вводе других символов

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 48
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 21.09.06 11:44. Заголовок: Виноват - нашел!


Не могу понять, что происходит. На 21-й версии у меня
TSBrowse работал отлично (с доработкой) - а теперь
сделал откат на версию 21 - поставил те же свои доработки
- и при вводе прорисовка прыгает.
(А в старой программе такого нет).
Буду разбираться.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 49
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 21.09.06 12:05. Заголовок: Опять я


С "прыжками" я разобрался - моя ошибка - пытался поменять
TSBrowse: Row,Col - динаически в процессе работы(видно что-то не учел)
А с примером - да, правда, есть такое - сейчас буду тестировать.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 39
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 21.09.06 12:31. Заголовок: Re:


krutoff пишет:

 цитата:
С "прыжками" я разобрался


Кроме прыжков- отображение ПОСЛЕДНЕГО вводимого поля новой записи и лишнее нажатие Enter для активизации ввода букв

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 54
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 26.09.06 10:08. Заголовок: Вроде получилось


Переслал Григорию "на утверждение" новый вариант h_tbrowse.prg
- должно все отработать.

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 282
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 26.09.06 10:36. Заголовок: Re:


krutoff пишет:

 цитата:
новый вариант h_tbrowse.prg


...Будет доступен в новой версии Расширенного релиза.
ОТК одобряет

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 283
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 28.09.06 11:35. Заголовок: Опубликован HMG Extended Build 22a


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1140

Что нового:
- исправления в библиотеке TsBrowse (благодаря Олегу Крутову )
- обновление Харбора CVS (как обычно )
- обновление различных примеров


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 42
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 28.09.06 14:25. Заголовок: Re:


gfilatov пишет:

 цитата:
Жду комментариев на этот ...


Все при вводе в TsBrowse работает отлично ! Молодцы !!!А как там обстоят дела и можно ли надеяться на хоть
какое-то решение или комментарий от ОТК :
- проблемка в TsBrowse при вводе с клавиатуры с использованием ComboWBlock() ;
- incremental search в TsBrowse (Sample_3)
И еще вы что-то говорили об адаптации RTFReport ...
Заранее Огромнейшее спасибо !!!


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 7
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 28.09.06 14:53. Заголовок: Re:


что бы это?

Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN__ADS' referenced from C:\MINIGUI\SAMPLES\BASIC\ADS_RDD\TEST.OBJ


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 284
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 28.09.06 15:01. Заголовок: Re:


LYSK пишет:

 цитата:
что бы это?



Ниже рабочий пример:

#include "minigui.ch"
#include "Ads.ch"

Function Main()

REQUEST ADS
rddRegister( "ADS", 1 )
rddsetdefault( "ADS" )
SET SERVER LOCAL
SET FILETYPE TO CDX

DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 640 ;
HEIGHT 480 ;
TITLE "EDIT Command Demo" ;
MAIN ;
ON INIT OpenTable() ;
ON RELEASE Closetable() ;
BACKCOLOR GRAY

DEFINE MAIN MENU OF Win_1
POPUP "&File"
ITEM "&Simple Edit test" ACTION EDIT WORKAREA CLIENTES
SEPARATOR
ITEM "E&xit" ACTION Win_1.Release
END POPUP
END MENU

END WINDOW

MAXIMIZE WINDOW Win_1
ACTIVATE WINDOW Win_1

return nil


Procedure OpenTable()

USE CLIENTES INDEX CLIENTES NEW

Return Nil


Procedure CloseTable()

CLOSE CLIENTES

Return Nil


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 8
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 28.09.06 15:50. Заголовок: Re:


ага.. собственно разница в
request _ADS /* не работает */
и
request ADS /* работает */



спасибо!

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 43
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 28.09.06 17:31. Заголовок: Re:


krutoff пишет:

 цитата:
Переслал Григорию "на утверждение" ... - должно все отработать.


Должно быть я рано обрадовался. В TsBrowse при добавлении новой записи -
дважды стрелкой вниз - изображение соседнего правого поля не обновляетя (не уходит). Этот глючок происходит только, если записей в файле немного, т.е. на одном экране и всего два поля. Для сравнения я взял одни и те же исходники и скомпилировал их с HMG Extended Build 20 , а затем с HMG Extended Build 22a. В первом случае все отлично, а во втором - ??? Подскажите, в чем проблема ?



Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 9
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 28.09.06 22:07. Заголовок: Re:


чето EDIT EXTENDED не реагирует на SET LANGUAGE to RUSSIAN

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 285
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 29.09.06 09:56. Заголовок: Re:


LYSK пишет:

 цитата:
EDIT EXTENDED не реагирует на SET LANGUAGE to RUSSIAN


Да, это так, поскольку НЕ переведены на русский соответствующие массивы в файле h_init.prg:

// EDIT EXTENDED

_HMG_aLangButton := { ;
"&Close", ; // 1
"&New", ; // 2
"&Modify", ; // 3
"&Delete", ; // 4
"&Find", ; // 5
"&Print", ; // 6
"&Cancel", ; // 7
"&Ok", ; // 8
"&Copy", ; // 9
"&Activate Filter", ; // 10
"&Deactivate Filter", ; // 11
"&Restore" } // 12
_HMG_aLangLabel := { ;
"None", ; // 1
"Record", ; // 2
"Total", ; // 3
"Active order", ; // 4
"Options", ; // 5
"New record", ; // 6
"Modify record", ; // 7
"Select record", ; // 8
"Find record", ; // 9
"Print options", ; // 10
"Available fields", ; // 11
"Fields to print", ; // 12
"Available printers", ; // 13
"First record to print", ; // 14
"Last record to print", ; // 15
"Delete record", ; // 16
"Preview", ; // 17
"View page thumbnails", ; // 18
"Filter Condition: ", ; // 19
"Filtered: ", ; // 20
"Filtering Options" , ; // 21
"Database Fields" , ; // 22
"Comparison Operator", ; // 23
"Filter Value", ; // 24
"Select Field To Filter", ; // 25
"Select Comparison Operator", ; // 26
"Equal", ; // 27
"Not Equal", ; // 28
"Greater Than", ; // 29
"Lower Than", ; // 30
"Greater or Equal Than", ; // 31
"Lower or Equal Than" } // 32
_HMG_aLangUser := { ;
ABM_CRLF + "Can't find an active area. " + ABM_CRLF + "Please select any area before call EDIT " + ABM_CRLF, ; // 1
"Type the field value (any text)", ; // 2
"Type the field value (any number)", ; // 3
"Select the date", ; // 4
"Check for true value", ; // 5
"Enter the field value", ; // 6
"Select any record and press OK", ; // 7
ABM_CRLF + "You are going to delete the active record " + ABM_CRLF + "Are you sure? " + ABM_CRLF, ; // 8
ABM_CRLF + "There isn't any active order " + ABM_CRLF + "Please select one " + ABM_CRLF, ; // 9
ABM_CRLF + "Can't do searches by fields memo or logic " + ABM_CRLF, ; // 10
ABM_CRLF + "Record not found " + ABM_CRLF, ; // 11
"Select the field to include to list", ; // 12
"Select the field to exclude from list", ; // 13
"Select the printer", ; // 14
"Push button to include field", ; // 15
"Push button to exclude field", ; // 16
"Push button to select the first record to print", ; // 17
"Push button to select the last record to print", ; // 18
ABM_CRLF + "No more fields to include " + ABM_CRLF, ; // 19
ABM_CRLF + "First select the field to include " + ABM_CRLF, ; // 20
ABM_CRLF + "No more fields to exlude " + ABM_CRLF, ; // 21
ABM_CRLF + "First select th field to exclude " + ABM_CRLF, ; // 22
ABM_CRLF + "You don't select any field " + ABM_CRLF + "Please select the fields to include on print " + ABM_CRLF, ; // 23
ABM_CRLF + "Too many fields " + ABM_CRLF + "Reduce number of fields " + ABM_CRLF, ; // 24
ABM_CRLF + "Printer not ready " + ABM_CRLF, ; // 25
"Ordered by", ; // 26
"From record", ; // 27
"To record", ; // 28
"Yes", ; // 29
"No", ; // 30
"Page:", ; // 31
ABM_CRLF + "Please select a printer " + ABM_CRLF, ; // 32
"Filtered by", ; // 33
ABM_CRLF + "There is an active filter " + ABM_CRLF, ; // 34
ABM_CRLF + "Can't filter by memo fields " + ABM_CRLF, ; // 35
ABM_CRLF + "Select the field to filter " + ABM_CRLF, ; // 36
ABM_CRLF + "Select any operator to filter " + ABM_CRLF, ; // 37
ABM_CRLF + "Type any value to filter " + ABM_CRLF, ; // 38
ABM_CRLF + "There isn't any active filter " + ABM_CRLF, ; // 39
ABM_CRLF + "Deactivate filter? " + ABM_CRLF, ; // 40
ABM_CRLF + "Record locked by another user " + ABM_CRLF, ; // 41
ABM_CRLF + "You are going to restore the deleted record " + ABM_CRLF + "Are you sure? " + ABM_CRLF } // 42

Переопредели их в начале программы, и все будет OK


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 286
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 29.09.06 19:45. Заголовок: Harbour Compiler (CVS 2006-09-28 23:55)


Текущую версию компилятора Харбор CVS выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1143

Удачных выходных!


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 44
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 03.10.06 16:37. Заголовок: Re:


gfilatov пишет:

 цитата:
Жду комментариев на этот ...


Григорий !!! Не получается просмотреть пример в \samples\Basic\BrowseAppend .
Ошибка Error BASE/1003 Variable does not exist: _HMG_ACONTROLHANDLES .
Что нужно сделать? (И еще - можно ли в BTNTEXTBOX использовать TsBrowse???)


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 289
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 03.10.06 17:00. Заголовок: Re:


i3t4j6 пишет:

 цитата:
Ошибка Error BASE/1003 Variable does not exist: _HMG_ACONTROLHANDLES


Спасибо, уже поправил.

i3t4j6 пишет:

 цитата:
Что нужно сделать?


Просто заменить переменную _HMG_ACONTROLHANDLES на элемент массива _HMG_SYSDATA[137]

i3t4j6 пишет:

 цитата:
можно ли в BTNTEXTBOX использовать TsBrowse?


Просто попробуйте сами

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 45
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 03.10.06 17:55. Заголовок: Re:


gfilatov пишет:

 цитата:
Просто попробуйте сами


Не пускает ! Ошибка - Error E0030 "syntax error at 'TBROWSE'

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 46
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 04.10.06 17:33. Заголовок: Re:


gfilatov пишет:

 цитата:
Жду комментариев на этот выпуск...


Уважаемый и любимый ОТК !!! Может я тороплюсь , но даже в примерах по TsBrowse выскакивает ошибка :
Error BASE/44 Assigned value is wrong class: TSCOLUMN:BDATA


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 294
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 04.10.06 17:51. Заголовок: Re:


i3t4j6 пишет:

 цитата:
в примерах по TsBrowse выскакивает ошибка :
Error BASE/44 Assigned value is wrong class: TSCOLUMN:BDATA


Спасибо за сообщение: эти ошибки вызваны изменениями в поддержке классов Харбором, которые были внесены Пржемеком в последнее время

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 295
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 04.10.06 18:27. Заголовок: Re:


Ошибка уже исправлена:
необходимо в файле TsColumn.prg поправить объявление переменной bData (убрать AS CODEBLOCK)

DATA bData // Mandatory code block to return column data

Завтра выйдет Расширенный релиз 23

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 296
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 05.10.06 10:47. Заголовок: Опубликован HMG Extended Build 23


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1147

Что нового:
- новый элемент управления HotKeyBox
- исправления в библиотеке TsBrowse (благодаря быстрой реакции i3t4j6 )
- обновление Харбора CVS (как обычно )
- новые примеры


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 298
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 05.10.06 13:03. Заголовок: Harbour Compiler (CVS 2006-10-05 01:40)


Текущую версию компилятора Харбор CVS выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1148

В этой сборке переопределил две константы:

#define HB_FM_STATISTICS_OFF
#define HARBOUR_MAIN_WIN



Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 302
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 06.10.06 10:12. Заголовок: Re:


gfilatov пишет:

 цитата:
Текущую версию компилятора Харбор CVS выложил по адресу


Предупреждение: эта сборка некорректно работает с программами, использующими классы (эти ошибки вызваны изменениями в поддержке классов Харбором, которые были внесены Пржемеком в последнее время)

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 303
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 06.10.06 16:13. Заголовок: Re:


gfilatov пишет:

 цитата:
эта сборка некорректно работает с программами, использующими классы


Конкретно это касается программ, использующих класс TReg32. Заплатка готова, и она будет доступна в следующем Расширенном выпуске библиотеки.

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 306
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 10.10.06 10:27. Заголовок: Опубликован HMG Extended Build 23a


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1152

Что нового:
- исправления в библиотеке TsBrowse (благодаря Олегу Крутову )
- обновление Харбора CVS (как обычно ) и заплатка для класса TReg32
- обновление различных примеров



Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 47
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 10.10.06 18:44. Заголовок: Re:


gfilatov пишет:

 цитата:
исправления в библиотеке TsBrowse (благодаря Олегу Крутову)


Уважаемый ОТК или Олег Крутов ! Объясните ,пожалуйста, популярно - что за
изменения или нововведения по поводу TComboBox в последнем релизе?
Это что - альтернатива неработающему ComboWBlock в TsBrowse или что-то
другое ?


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 307
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 10.10.06 19:17. Заголовок: Re:


i3t4j6 пишет:

 цитата:
что за изменения или нововведения по поводу TComboBox в последнем релизе?


Сейчас при INPLACE редактировании работает ComboBox как для символьных, так и для логических полей базы.
Посмотри пример 6 в demo из папки samples\advanced\TSBrowse

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 48
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 10.10.06 20:10. Заголовок: Re:


gfilatov пишет:

 цитата:
Посмотри пример 6 в demo из папки ...


Я так и сделал - сначала проверил , а потом спросил. Так вот : после выбора нужного элемента и нажатия Enter - блокируется вся работа с клавиатуры, нужно несколько раз понажимать стрелки - только потом курсор начинает
двигаться . Так было и раньше, я уже об этом писал 13.09.06.


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 59
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 11.10.06 15:55. Заголовок: Отозвался


У меня были некоторые замечания по TSBrowse.
Сейчас протестировал последний вариант с TComboBox (от 10.10.06) - все Ok.
Клавиатура не блокируется.
А изменения -> связаны с массивом aData для Column.
aData - передает свое значение в поле из выбора Combo,
т.е. aData - это список значений (любого типа и любых значений,
и в произвольном порядке) для изменения значения поля файла.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 49
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 11.10.06 18:01. Заголовок: Re:


krutoff пишет:

 цитата:
...все Ok. Клавиатура не блокируется.


Если работать с мышкой - не блокируется, а если при помощи стрелок и Enter - глухо !
(пример 6 в demo из папки samples\advanced\TSBrowse)

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 60
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 12.10.06 08:54. Заголовок: Работает


Проверил пример 6 - у меня работает (правда я использую свмые последние
изменения) . Если клавиатурой : Enter -> Alt+Вниз + Enter
все это работает.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 50
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 12.10.06 10:24. Заголовок: Re:


krutoff пишет:

 цитата:
Если клавиатурой : Enter -> Alt+Вниз + Enter все это работает.


Олег ! Да, как Вы описываете - работает . Блокируется и виснет следующее поле - после выхода изTComboBox ...

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 309
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 12.10.06 13:19. Заголовок: Re:


i3t4j6 пишет:

 цитата:
Блокируется и виснет следующее поле - после выхода изTComboBox


Я тоже подтверждаю эту проблему, и у меня нет ее решения.
Олег, поможешь?


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 7
Зарегистрирован: 09.10.06
ссылка на сообщение  Отправлено: 12.10.06 15:40. Заголовок: Re:


Ув. gfilatov!

samples\basic\grid_2

При нажатии Enter вылетает с

Error BASE/1133 Bound error: array assign

Called from _SETGRIDCELLVALUE(1414)
Called from SETPROPERTY(3604)
Called from CAS_CLICK(126)
Called from (b)MAIN(71)
Called from _DOCONTROLEVENTPROCEDURE(4637)
Called from EVENTS(1829)
Called from _DOMESSAGELOOP(0)
Called from _ACTIVATEWINDOW(4296)
Called from DOMETHOD(3985)
Called from MAIN(75)

В то же время, по двойному щелчку мыши CAS_CLICK() отрабатывает без ошибок

В чем здесь проблема?


Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 63
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 12.10.06 16:22. Заголовок: Постараюсь.


Буду смотреть. Только сейчас со временем туго, но уж взялся за гуж...

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 64
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 12.10.06 16:54. Заголовок: Товарищ не понимает


(TSBrowse) Я так понял, что после работы
клавиатурой с TComboBox след. поле становится в
режим редактирования. И необходимо нажатие Esc.
Я правильно понял - что режим редактора убрать для след.поля?

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 310
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 12.10.06 17:47. Заголовок: Re:


Петр пишет:

 цитата:
samples\basic\grid_2

При нажатии Enter вылетает с

Error BASE/1133 Bound error: array assign


Все просто и логично: при нажатии Enter и ряд, и колонка равны нулю

Пожалуйста, попробуйте исправленный пример ниже:

/*
* Grid com MultiSelect
* Author: CAS <cas_webnet@yahoo.com.br>
* 14/Nov/2005 01:31am
*/

#include "minigui.ch"

Function Main

Declare aRows[20][3], a_image[4], a_cab[3], a_width[3]

* Imagens para ficar mudando dentro da GRID
a_image[1] = 'BMP_CAS' && 0
a_image[2] = 'BMP_OK' && 1
a_image[3] = 'BMP_COR' && 2
a_image[4] = 'BMP_NO' && 3

* IMG
aRows [01] := { 1 , 'Ayrton Senna' , '???-????'}
aRows [02] := { 0 , 'Pele' , '324-6432'}
aRows [03] := { 0 , 'Smart Max' , '432-5892'}
aRows [04] := { 0 , 'Grillo Pepe' , '894-2332'}
aRows [05] := { 0 , 'Kirk James' , '346-9873'}
aRows [06] := { 0 , 'Barriga Carlos' , '394-9654'}
aRows [07] := { 0 , 'Flanders Ned' , '435-3211'}
aRows [08] := { 0 , 'Smith John' , '123-1234'}
aRows [09] := { 0 , 'Pedemonti Flavio' , '000-0000'}
aRows [10] := { 0 , 'Gomez Juan' , '583-4832'}
aRows [11] := { 0 , 'Fernandez Raul' , '321-4332'}
aRows [12] := { 0 , 'Borges Javier' , '326-9430'}
aRows [13] := { 0 , 'Alvarez Alberto' , '543-7898'}
aRows [14] := { 0 , 'Gonzalez Ambo' , '437-8473'}
aRows [15] := { 0 , 'Batistuta Gol' , '485-2843'}
aRows [16] := { 0 , 'Vinazzi Amigo' , '394-5983'}
aRows [17] := { 0 , 'Pedemonti Flavio' , '534-7984'}
aRows [18] := { 0 , 'Samarbide Armando' , '854-7873'}
aRows [19] := { 0 , 'Pradon Alejandra' , '555-5555'}
aRows [20] := { 0 , 'Reyes Monica' , '432-5836'}

a_cab[1] = '?' ; a_width[1] = 22
a_cab[2] = 'Name' ; a_width[2] = 220
a_cab[3] = 'Phone' ; a_width[3] = 220


DEFINE WINDOW Form_1 ;
AT 0,0 WIDTH 640 HEIGHT 480 ;
TITLE 'Grid MultiSelect - Press Delete By CAS - cas_webnet@yahoo.com.br' MAIN NOMAXIMIZE NOSIZE

DEFINE STATUSBAR
STATUSITEM "" action nil
END STATUSBAR

ON KEY DELETE ACTION cas_del()

@ 2,0 BUTTON btn_cas1 caption 'Result' action cas_result() default
@ 2,150 BUTTON btn_cas2 caption 'Limpa' action cas_limpa("click")
@ 2,300 BUTTON btn_cas3 caption 'Update' action form_1.grid_1.cell( 1 , 2 ) := 'cas_webnet@yahoo.com.br'
@ 2,450 BUTTON btn_cas4 caption 'Exit' action thiswindow.release

@ 50,70 GRID Grid_1 ;
WIDTH 484 ;
HEIGHT 328 ;
HEADERS a_cab ;
WIDTHS a_width ;
ITEMS aRows ;
VALUE {1,3} ;
IMAGE a_image ;
TOOLTIP 'Grid CAS' ;
ON DBLCLICK cas_click() ;
ON CHANGE cas_change() MULTISELECT

END WINDOW

form_1.center ; form_1.activate

Return

*.......................................................*

func cas_limpa
local n_for, n_pos, a_result
local m_itemcount := form_1.grid_1.itemcount

if m_itemcount = 0
return
endif

form_1.grid_1.DisableUpdate
for n_for=1 to m_itemcount
if form_1.grid_1.cell( n_for , 1 ) # 0
form_1.grid_1.cell( n_for , 1 ) := 0
end
next
form_1.grid_1.EnableUpdate

if pcount()=1
retu nil
end

a_result := form_1.grid_1.value
if len( a_result ) = 0
return
end

form_1.grid_1.DisableUpdate
for n_for=1 to len( a_result )
n_pos := a_result[ n_for ]
form_1.grid_1.cell( n_pos , 1 ) := 1
next
form_1.grid_1.EnableUpdate

retu nil

*.......................................................*

func cas_click
local row := max(1, This.CellRowIndex), col := max(1, This.CellColIndex)
local x := ;
'CellRowIndex = ' + alltrim( str( This.CellRowIndex ) ) +chr(13)+;
'CellColIndex = ' + alltrim( str( This.CellColIndex ) ) +chr(13)+;
'CellColRow = ' + alltrim( str( This.CellRow ) ) +chr(13)+;
'CellColCol = ' + alltrim( str( This.CellCol ) ) +chr(13)+;
'CellColWidth = ' + alltrim( str( This.CellWidth ) ) +chr(13)+;
'CellColHeight = ' + alltrim( str( This.CellHeight ) )

Form_1.Grid_1.Cell( row , col ) := 'cas_webnet@yahoo.com.br'

MsgInfo( x , 'This.Cellxxxxxx' )

return

*.......................................................*

func cas_change
local spc := space(3)
form_1.statusbar.item(1) := ;
'Selected: ' + alltrim( str( len(this.value) ) ) +'/'+;
alltrim( str( form_1.grid_1.ItemCount ) )

cas_limpa()

retu nil

*.......................................................*

func cas_del
local m_go, a_grid, a_grid_value
local m_itemcount := form_1.grid_1.itemcount

if m_itemcount = 0
return
endif

m_go = 0
a_grid_value := form_1.grid_1.value

do while .t.
a_grid = form_1.grid_1.value
if len( a_grid ) = 0
exit
end
if m_go = 0
m_go = a_grid[ 1 ]
end
Form_1.Grid_1.DeleteItem( a_grid[ 1 ] )
enddo

if len( a_grid_value ) = 1 .and. m_itemcount = a_grid_value[ 1 ]
m_go = a_grid_value[ 1 ] - 1
end

form_1.grid_1.setfocus
form_1.grid_1.value := { m_go }

return

*.......................................................*

func cas_result
local n_for, x, a_result
local m_itemcount := form_1.grid_1.itemcount

if m_itemcount = 0
return
endif

a_result := form_1.grid_1.value
if len( a_result ) = 0
return
end

x := ''
for n_for=1 to len( a_result )
n_pos := a_result[ n_for ]
x += ;
form_1.grid_1.header( 2 ) +'='+;
form_1.grid_1.cell( n_pos , 2 ) +space(15)+;
form_1.grid_1.header( 3 ) +'='+;
form_1.grid_1.cell( n_pos , 3 ) + chr(13)
next

msginfo( x , 'Selected item(s): ' + alltrim( str( len( a_result ) ) ) )

return nil

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 51
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 12.10.06 18:08. Заголовок: Re:


krutoff пишет:

 цитата:
что после работы клавиатурой с TComboBox след. поле становится в режим редактирования. И необходимо нажатие Esc.


Не совсем ... Возьми пробей при помощи Enter любую строку сначала и до конца - после поля с TComboBox курсор
замирает и след. поле вовсе не становится в режим редактирования.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 65
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 12.10.06 19:00. Заголовок: Пробил


У меня больше 50 полей и гдето 5 Combo.
Клацал только ENTER'ом - дошел до конца и перешел на новую строку.
Что сделать дальше?


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 53
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 12.10.06 19:57. Заголовок: Re:


krutoff пишет:

 цитата:
Что сделать дальше?


Я понял -в чем дело, почему ты не находишь дефект :
убери Brw_6:lAutoEdit := .T.


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 311
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 12.10.06 21:59. Заголовок: Re:


krutoff пишет:

 цитата:
Что сделать дальше?


Олег! Я, кажется, разобрался
В твоем, последнем, варианте НЕ существует блокировки после редактирования ComboBox.
Это решение будет доступно в следующем выпуске Расширенного релиза библиотеки.
Вопрос закрыт

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 8
Зарегистрирован: 09.10.06
ссылка на сообщение  Отправлено: 12.10.06 22:57. Заголовок: Re:


gfilatov пишет:

 цитата:
Все просто и логично: при нажатии Enter и ряд, и колонка равны нулю



Просто - да, а насчет логично?

Я вообще то спрашивал не о Error BASE/1133 Bound error: array assign

Меня просто заинтересовало, почему в MiniGUI нажатие Enter (вроде клавиатура)
обрабатывается в ON DBLCLICK (вроде бы должно относится к мыши).

Или это так задумано? или не хочется проводить лишних проверок?
И нельзя ли добавить что-то вроде ON KEYPRESS?

Спасибо.




Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 313
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 13.10.06 13:26. Заголовок: Re:


Петр пишет:

 цитата:
И нельзя ли добавить что-то вроде ON KEYPRESS?


Петр,
К Вашим услугам есть горячие клавиши. Вы можете легко переопределить нажатие клавиши Enter:

ON KEY RETURN ACTION MsgInfo( "Нажата клавиша Enter!" )

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 10
Зарегистрирован: 09.10.06
ссылка на сообщение  Отправлено: 13.10.06 15:03. Заголовок: Re:


Еще раз спасибо!

Посмотрел i_keybd.ch и все понял.

Извините за вопросы, но я к MiniGUI только присматриваюсь - раньше работал только с консолью.
Понравилось, наверное и далее буду донимать..


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 314
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 13.10.06 18:02. Заголовок: Re:


Петр пишет:

 цитата:
наверное и далее буду донимать..


Сколько угодно, если это делать в пределах разумного...


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 315
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 17.10.06 11:20. Заголовок: Опубликован HMG Extended Build 23b


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1156

Что нового:
- небольшое исправление в библиотеке TsBrowse (благодаря Олегу Крутову )
- исходники и пример для библиотеки HbXML Александра Кресина
- новый пример печати с помощью библиотеки MiniPrint
- обновление различных примеров


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 318
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 19.10.06 19:25. Заголовок: Re:


i3t4j6 пишет:

 цитата:
И кстати - устаревший вопрос :
- incremental search в TsBrowse (Sample_3)


Благодаря настойчивости и наводке со стороны i3t4j6 проблема встроенного поиска решена.
Это решение будет доступно в следующем выпуске Расширенного релиза библиотеки.
Думаю, что вопрос закрыт
Огромное спасибо за поддержку проекта!



Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 57
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 19.10.06 20:39. Заголовок: Re:


gfilatov пишет:

 цитата:
Огромное спасибо за поддержку проекта!


Всегда рад ! А в качестве награды за настойчивость - нельзя рассмотреть вопрос :
при открытии окна MODAL и вместе с ним TsBrowse - курсор не активирован. (или хотя бы подсказать - где искать?)

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 323
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 24.10.06 10:33. Заголовок: Опубликован HMG Extended Build 24


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1193

Что нового:
- исправления в библиотеке TsBrowse от автора
- обновление библиотеки Socket после последних изменений в компиляторе Харбор
- новый пример для библиотеки HbXML Александра Кресина
- обновление старых примеров

Также выложил на сервере http://minigui.mylivepage.ru русскую версию инсталлятора Easy Install 1.0 (спасибо, Паша ) и обновил сменщик обоев Wallpaper Changer до версии 1.2.3
В папке избранных программ сейчас находится уже 24 программы

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 11
Зарегистрирован: 09.10.06
ссылка на сообщение  Отправлено: 24.10.06 11:25. Заголовок: Re: Опубликован HMG Extended Build 24


В xCompile.bat
%MG_HRB%\lib\gtwin.lib сменить бы на %MG_HRB%\lib\gtgui.lib,
а то приложения получаются какие-то "гибридные"

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 324
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 24.10.06 12:26. Заголовок: Re:


Петр пишет:

 цитата:
В xCompile.bat
%MG_HRB%\lib\gtwin.lib сменить бы на %MG_HRB%\lib\gtgui.lib


Да, я знаю об этом
Но такая замена будет произведена только после выхода оффициальной версии компилятора.
В текущей стабильной версии 0.99.60 используется библиотека gtwin.lib

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 327
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 31.10.06 12:06. Заголовок: Опубликован HMG Extended Build 25


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1227

Что нового:
- новые псевдо-функции, заимствованные из библиотеки What32
- исправления в библиотеке TsBrowse, связанные с конвертацией в Excel
- небольшие исправления в библиотеках поддержки печати
- новый пример быстрого поиска в Гриде
- обновление старых примеров


Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 58
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 05.11.06 21:33. Заголовок: Re:


gfilatov пишет:

 цитата:
Жду комментариев на этот выпуск ...


Уважаемый Григорий ! Объясните, пожалуйста, почему перестала работать индексация
с условием ??? Например :
INDEX ON str(tabn,5) TO &(imind) FOR (pos=abon->kod_pdrz) .AND. (posdom=abon->dom)
SET INDEX TO &(imind)
Я специально проверил - до версии HMG Extended Build 23b - все работало замечательно, а с
HMG Extended Build 24 - что-то непонятное и непредсказуемое ???


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 331
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 06.11.06 16:05. Заголовок: Re:


i3t4j6 пишет:

 цитата:
до версии HMG Extended Build 23b - все работало замечательно, а с
HMG Extended Build 24 - что-то непонятное и непредсказуемое ???


Дело в том, что в состав Расширенного выпуска MiniGUI включаются последние сборки компилятора Харбор CVS, поэтому возможна нестабильная работа компилятора из-за внесенных в него изменений. Поэтому Вы можете заменить в папке minigui\harbour компилятор той версией, которая у Вас стабильно работает, и перекомпилировать библиотеку этой версией компилятора.

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 332
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 07.11.06 14:15. Заголовок: Опубликован HMG Extended Build 25a


Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=1242

Что нового:
- исправления в Tab при добавлении/удалении страниц и работе в WinXP SP2
- обновление IDE до версии 0.3.4
- новые примеры и обновление старых примеров

Выложил "облегченный" инсталлятор, поскольку Харбор уже месяц, как не обновлялся

Желаю всем удачной выкачки!

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 59
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 07.11.06 19:45. Заголовок: Re:


gfilatov пишет:

 цитата:
можете заменить в папке minigui\harbour компилятор той версией, которая у Вас стабильно работает, и перекомпилировать библиотеку этой версией компилятора.


Я последовал Вашему совету - но безрезультатно !!! Подскажите, может все-таки я что-то делаю не так.
Для примера я взял "облегченный" HMG Extended Build 25a и переписал туда полностью папку Harbour с компилятором Харбор CVS от 08.10.06 (релиз HMG Extended Build 23b ). Затем перекомпилировал библиотеки
minigui.lib и TsBrowse.lib и собрал свою программу - глухо ! Я повторил то же с компилятором Харбор CVS от 29.09.06 (релиз HMG Extended Build 23 ) - и здесь пролет. Где искать причину ?..


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 333
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 07.11.06 22:04. Заголовок: Re:


i3t4j6 пишет:

 цитата:
Где искать причину ?..


Начните поиск причины с создания простого примера, который демонстрирует проблему.
Если в этом примере все будет работать нормально, то надо искать причину в Вашем коде.
В противном случае - отправить этот простой пример разработчикам Харбора для анализа и принятия мер...

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 60
Зарегистрирован: 12.06.06
ссылка на сообщение  Отправлено: 07.11.06 23:54. Заголовок: Re:


gfilatov пишет:

 цитата:
...поиск причины с создания простого примера, который демонстрирует ...


Чудес не бывает, но я все-таки еще раз попытаюсь объяснить.
Вот эти две строки нужно вставить в исходник \Advanced\TsBrowse\TsBtest.prg после строки N 93.
Index On State To State1 for Employee->age=50
set index to state1
До версии HMG Extended Build 23b - все работает замечательно, а начиная с HMG Extended Build 24 с любыми версиями компилятора Харбор CVS - НЕ ХОЧЕТ !!!



Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 334
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 08.11.06 12:28. Заголовок: Re:


i3t4j6 пишет:

 цитата:
эти две строки нужно вставить в исходник \Advanced\TsBrowse\TsBtest.prg


Теперь стало яснее
Проблема не в компиляторе Харбор, а в тех изменениях, которые были внесены в библиотеку TSBrowse, начиная с 24 релиза
Олег, ты можешь посмотреть, в чем дело ?!

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 68
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 08.11.06 13:15. Заголовок: Попробую


Попробую разобраться, но пока не вижу, откуда начинать
(процедуру вывода строк не трогали).

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 69
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 08.11.06 13:45. Заголовок: Re:


Сделал откат своих изменений и предполагаю,
что все дело в изменениях(не моих) : SetFilter() и т.п. T
SBrowse: Build 1.55 (24/10/06)
Постараюсь еще и их проверить.

Спасибо: 0 
ПрофильЦитата Ответить





Пост N: 70
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 08.11.06 14:26. Заголовок: Нашел!


TSBrowse: начиная со строки 9982 разкоментировать
блок
if ::cDriver == "NTX"
...
endif

Для чего его закоментировали, я не знаю, проверьте - кто изменял TSBrowse:SetOrder()

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 335
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 08.11.06 16:36. Заголовок: Re:


krutoff пишет:

 цитата:
проверьте - кто изменял TSBrowse:SetOrder()


Большое спасибо: это был мой ляп!

Теперь все работает после такого исправления в методе SetOrder (файл h_tbrowse.prg):
...
If ::cDriver == "NTX" //.and. ! ( "5.3" $ Version() )
::uLastTag := If( ValType( oColumn:cOrder ) == "C", ;
Val( oColumn:cOrder ), oColumn:cOrder )
( cAlias )->( Eval( ::bTagOrder, Max( 1, ::uLastTag ) ) )
::uLastTag := oColumn:cOrder
Else
::uLastTag := oColumn:cOrder
( cAlias )->( Eval( ::bTagOrder, oColumn:cOrder ) )
EndIf
...


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 30
Зарегистрирован: 09.10.06
ссылка на сообщение  Отправлено: 11.11.06 23:16. Заголовок: Re:


Григорий, Вы не могли бы на mylivepage выложить исходники IDE version 0.3.4?

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 337
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 12.11.06 18:55. Заголовок: IDE version 0.3.4


Петр пишет:

 цитата:
Вы не могли бы на mylivepage выложить исходники IDE version 0.3.4?


Полный пакет (бинарники+исходники) IDE выложил по адресу:
http://minigui.mylivepage.ru/file/?fileid=1252

Благодарю за Ваш интерес!


Спасибо: 0 
ПрофильЦитата Ответить
администратор




Пост N: 469
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 12.11.06 19:06. Заголовок: Re:


gfilatov
Дружище может начнем новую тему а то эту вон как раздуло , как бы форум не перекосило
Например так
Новая версия Расширенного релиза библиотеки MiniGUI (часть II)
а в самом начале дать линк на эту тему.

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 31
Зарегистрирован: 09.10.06
ссылка на сообщение  Отправлено: 12.11.06 19:08. Заголовок: Re:


Спасибо, уже качаю!

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник


Пост N: 32
Зарегистрирован: 09.10.06
ссылка на сообщение  Отправлено: 13.11.06 09:50. Заголовок: Re:



Да, не дадут теме набрать пять звездочек

Ну, пока еще не закрыли..

gfilatov пишет:

 цитата:
Благодарю за Ваш интерес!



Интерес не праздный - и так глючную софтину, кто-то сделал нерабочей

и все из-за

*------------------------------------------------------------*
Procedure XGRIDPROPEDIT()
*------------------------------------------------------------*
..
local a2,a3,a4

в

*------------------------------------------------------------*
Procedure XGRIDPROPOK()
*------------------------------------------------------------*
local a3,a5,x1,x2
IF XGRIDPROPEDIT.COMBO_1.VALUE = 2
setcolvalue("XGRID_1","OBJECTINSPECTOR",2,A4)
Endif

вылетаем с ошибкой


Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 338
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 13.11.06 11:35. Заголовок: Re:


Петр пишет:

 цитата:
кто-то сделал нерабочей


Это вызвано последними изменениями от автора IDE
Его извиняет только то, что перед этим у него накрылся винт и он повторял свои изменения по памяти

Большое спасибо за коррекцию!

Спасибо: 0 
ПрофильЦитата Ответить
модератор




Пост N: 339
Зарегистрирован: 25.05.05
ссылка на сообщение  Отправлено: 13.11.06 12:10. Заголовок: IDE version 0.3.4 с исправлением


gfilatov пишет:

 цитата:
и так глючную софтину, кто-то сделал нерабочей


Исправленный пакет (бинарники+исходники) IDE выложил по адресу:
http://minigui.mylivepage.ru/file/?fileid=1255


Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 144 , стр: 1 2 3 4 5 6 7 8 All [только новые]
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 171
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет