Форум » GUI » Новая версия Расширенного релиза библиотеки MiniGUI » Ответить

Новая версия Расширенного релиза библиотеки MiniGUI

gfilatov: Вот решил снова начать новую тему, чтобы не раздувать старый топик на 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

Ответов - 144, стр: 1 2 3 4 5 6 7 8 All

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

gfilatov: 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 Желаю удачи!

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


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

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

gfilatov: Текущую версию компилятора Харбор CVS выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=939 Прошу проверить работу этой сборки с HMG Ex build 18a. Собственная проверка показала, что все в порядке

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

gfilatov: Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=949 Что нового: - исправление обнаруженных ошибок - поддержка MDI окон в библиотеке TSBrowse - улучшена совместимость GRID с официальным релизом - новые примеры

krutoff: При компиляции под xHarbour выдается ошибка: Error: Unresolved external '_hb_vmProcessSymbolsEx' referenced from C:\MINIGUI\LIB\MINIGUI.LIB|errorsys

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

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

gfilatov: Текущую версию компилятора Харбор CVS выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=953 Прошу проверить работу этой сборки с HMG Ext build 18b (у меня работает нормально ).

gfilatov: Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=956 Что нового: - обновлена версия компилятора Harbour CVS - исправлена поддержка MDI окон в библиотеке TSBrowse - улучшена работа предпросмотра в библиотеке HbPrinter - новые примеры

gfilatov: Выложил исправленную версию Harbour MiniGUI IDE (вместе с исходниками) по адресу: http://minigui.mylivepage.ru/file/?fileid=957 Что нового: -корректная компиляция под Win98 и WinXP

Владимир: 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) После чего пока работет.

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

alex_II: Привожу мои вопросы 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

gfilatov: alex_II 1 Да, есть такая проблема. Автор адаптации библиотеки периодически возвращается к ней 2 Попробуйте в файле H_TBROWSE.PRG заремить строку 8383 в методе TSBrowse:Reset() Если поможет, то обязательно напишите 3 По-видимому, это проблемы компилятора Харбор. Попробуйте потестировать эту программу, собрав ее с помощью компилятора xHarbour.

gfilatov: Выложил исправленную версию Harbour MiniGUI IDE (вместе с исходниками) по адресу: http://minigui.mylivepage.ru/file/?fileid=958 Что нового: -исправление обнаруженных ошибок

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

gfilatov: 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 и все будет собираться

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

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

gfilatov: 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 Удачной выкачки!

gfilatov: Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу: http://gfilatov.front.ru/hmgexsetup_18d.zip Также отдельно положил Harbour MiniGUI IDE (вместе с исходниками) по адресу: http://gfilatov.front.ru/ide.zip Продублировал эти файлы и на сайте http://minigui.mylivepage.ru. Думаю, что через несколько дней они тоже будут доступны (после спада ажиотажа в скачивании )

i3t4j6: Взял для примера 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>

Владимир: gfilatov gfilatov пишет: Также отдельно положил Harbour MiniGUI IDE (вместе с исходниками) по адресу: http://gfilatov.front.ru/ide.zip Запустил и сразу возникла пара вопросов: 1. Если открываю существующий проект, то открыть форму на редактирование невозможно: раньше достаточно было кликнуть по файлу формы (в списке форм) и редактоор форм открывался (с предупреждением) 2. \Tools\Builders все формочки ведут себя одинаково - открывшись, их нельзя закрыть кнопками Ok и Cancel. Может я что нетак делаю?

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

gfilatov: 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

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

gfilatov: Владимир пишет: проект Hello работает Благодарю! А Ваш проект работает тоже?

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

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

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

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

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

gfilatov: Новую версию Расширенного релиза библиотеки 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 Желаю всем удачи и хорошей связи!

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

i3t4j6: 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 )}. Это возможно ?

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

gfilatov: sashaBG пишет: Все работает НО: Примерчик Лопеса работает гораздо быстрее чем в експериментальном релизе Реч идет о програмке demo_3 где заполняется grid из таблицы при нажатии Refresh Интересно почему ? Возможно, что причина в том, что в официальном HMG используется более свежая версия библиотеки mysql (в Расширенном релизе эта библиотека датирована еще 2004 годом). Рекомендация: попробуйте заменить эту библиотеку более свежей из поставки компилятора Харбор (версия библиотеки от 07.03.2006)

gfilatov: Текущую версию компилятора Харбор CVS выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=965 Прошу проверить работу этой сборки с HMG Ext build 18e (у меня работает нормально ).

i3t4j6: gfilatov пишет: 2) Если с помощью кнопки все работает, то попробуйте использовать для поиска событие ON ENTER (вместо ON DISPLAYCHANGE) Я пробовал и ON ENTER И ON CHANGE , ничего не получается . Может что-то упустил ?

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

i3t4j6: gfilatov пишет: Жду комментариев на этот выпуск здесь и ... Насколько я понял, на странмце в DEFINE TAB нельзя расположить еще один DEFINE TAB ? А есть ли возможность переключение страниц расположить внизу ?

gfilatov: i3t4j6 пишет: на странмце в DEFINE TAB нельзя расположить еще один DEFINE TAB ? Да, верно. i3t4j6 пишет: А есть ли возможность переключение страниц расположить внизу ? Сейчас нет такой возможности Но если добавить в файл c_tab.c обработку стиля TCS_BOTTOM //Tabs on Bottom, то эта возможность появится Дерзайте!

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

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

gfilatov: 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 - НЕ знаю

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

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

gfilatov: Текущую версию компилятора Харбор CVS выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=976 Следующая версия Расширенного HMG будет иметь в своем составе эту сборку

gfilatov: Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=990 Также отдельно положил Harbour MiniGUI IDE (вместе с исходниками) по адресу: http://minigui.mylivepage.ru/file/?fileid=989 Что нового: - новый класс BOTTOM в элементе управления TAB - исправления и улучшения в библиотеке TsBrowse - исправление старых примеров

gfilatov: Новую версию Расширенного релиза библиотеки 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 от оффициальной

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

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

gfilatov: Текущую версию компилятора Харбор CVS выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1093

gfilatov: Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1100 Что нового: - команда Set Navigation Extended поддерживает теперь также и Spinner - обновление Харбора CVS - исправления в библиотеке TsBrowse (благодаря Олегу Крутову) - новый пример для программной чистки системы от мусора

gfilatov: Текущую версию компилятора Харбор CVS выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1102 Прошу испытать эту сборку в связке с MiniGUI (у меня работает нормально)

gfilatov: Текущую версию компилятора Харбор CVS выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1121 Также отдельно положил Harbour MiniGUI IDE версии 0.3.2 (вместе с исходниками) по адресу: http://minigui.mylivepage.ru/file/?fileid=1120 Забираем и комментируем

gfilatov: Новую версию Расширенного релиза библиотеки 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

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

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

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

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

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

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

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

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

gfilatov: Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1131 Что нового: - виртуальные столбцы в Grid - обновление Харбора CVS (как обычно ) - исправления в библиотеке TsBrowse (благодаря Олегу Крутову ) - поддержка TWAIN-сканеров - обновление и исправление различных примеров

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

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

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

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

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

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

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

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

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

gfilatov: Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1140 Что нового: - исправления в библиотеке TsBrowse (благодаря Олегу Крутову ) - обновление Харбора CVS (как обычно ) - обновление различных примеров

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

LYSK: что бы это? 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

gfilatov: 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

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

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

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

gfilatov: 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

gfilatov: Текущую версию компилятора Харбор CVS выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1143 Удачных выходных!

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

gfilatov: i3t4j6 пишет: Ошибка Error BASE/1003 Variable does not exist: _HMG_ACONTROLHANDLES Спасибо, уже поправил. i3t4j6 пишет: Что нужно сделать? Просто заменить переменную _HMG_ACONTROLHANDLES на элемент массива _HMG_SYSDATA[137] i3t4j6 пишет: можно ли в BTNTEXTBOX использовать TsBrowse? Просто попробуйте сами

i3t4j6: gfilatov пишет: Просто попробуйте сами Не пускает ! Ошибка - Error E0030 "syntax error at 'TBROWSE'

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

gfilatov: i3t4j6 пишет: в примерах по TsBrowse выскакивает ошибка : Error BASE/44 Assigned value is wrong class: TSCOLUMN:BDATA Спасибо за сообщение: эти ошибки вызваны изменениями в поддержке классов Харбором, которые были внесены Пржемеком в последнее время

gfilatov: Ошибка уже исправлена: необходимо в файле TsColumn.prg поправить объявление переменной bData (убрать AS CODEBLOCK) DATA bData // Mandatory code block to return column data Завтра выйдет Расширенный релиз 23

gfilatov: Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1147 Что нового: - новый элемент управления HotKeyBox - исправления в библиотеке TsBrowse (благодаря быстрой реакции i3t4j6 ) - обновление Харбора CVS (как обычно ) - новые примеры

gfilatov: Текущую версию компилятора Харбор CVS выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1148 В этой сборке переопределил две константы: #define HB_FM_STATISTICS_OFF #define HARBOUR_MAIN_WIN

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

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

gfilatov: Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1152 Что нового: - исправления в библиотеке TsBrowse (благодаря Олегу Крутову ) - обновление Харбора CVS (как обычно ) и заплатка для класса TReg32 - обновление различных примеров

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

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

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

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

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

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

i3t4j6: krutoff пишет: Если клавиатурой : Enter -> Alt+Вниз + Enter все это работает. Олег ! Да, как Вы описываете - работает . Блокируется и виснет следующее поле - после выхода изTComboBox ...

gfilatov: i3t4j6 пишет: Блокируется и виснет следующее поле - после выхода изTComboBox Я тоже подтверждаю эту проблему, и у меня нет ее решения. Олег, поможешь?

Петр: Ув. 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() отрабатывает без ошибок В чем здесь проблема?

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

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

gfilatov: Петр пишет: 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

i3t4j6: krutoff пишет: что после работы клавиатурой с TComboBox след. поле становится в режим редактирования. И необходимо нажатие Esc. Не совсем ... Возьми пробей при помощи Enter любую строку сначала и до конца - после поля с TComboBox курсор замирает и след. поле вовсе не становится в режим редактирования.

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

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

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

Петр: gfilatov пишет: Все просто и логично: при нажатии Enter и ряд, и колонка равны нулю Просто - да, а насчет логично? Я вообще то спрашивал не о Error BASE/1133 Bound error: array assign Меня просто заинтересовало, почему в MiniGUI нажатие Enter (вроде клавиатура) обрабатывается в ON DBLCLICK (вроде бы должно относится к мыши). Или это так задумано? или не хочется проводить лишних проверок? И нельзя ли добавить что-то вроде ON KEYPRESS? Спасибо.

gfilatov: Петр пишет: И нельзя ли добавить что-то вроде ON KEYPRESS? Петр, К Вашим услугам есть горячие клавиши. Вы можете легко переопределить нажатие клавиши Enter: ON KEY RETURN ACTION MsgInfo( "Нажата клавиша Enter!" )

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

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

gfilatov: Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1156 Что нового: - небольшое исправление в библиотеке TsBrowse (благодаря Олегу Крутову ) - исходники и пример для библиотеки HbXML Александра Кресина - новый пример печати с помощью библиотеки MiniPrint - обновление различных примеров

gfilatov: i3t4j6 пишет: И кстати - устаревший вопрос : - incremental search в TsBrowse (Sample_3) Благодаря настойчивости и наводке со стороны i3t4j6 проблема встроенного поиска решена. Это решение будет доступно в следующем выпуске Расширенного релиза библиотеки. Думаю, что вопрос закрыт Огромное спасибо за поддержку проекта!

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

gfilatov: Новую версию Расширенного релиза библиотеки 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 программы

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

gfilatov: Петр пишет: В xCompile.bat %MG_HRB%\lib\gtwin.lib сменить бы на %MG_HRB%\lib\gtgui.lib Да, я знаю об этом Но такая замена будет произведена только после выхода оффициальной версии компилятора. В текущей стабильной версии 0.99.60 используется библиотека gtwin.lib

gfilatov: Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1227 Что нового: - новые псевдо-функции, заимствованные из библиотеки What32 - исправления в библиотеке TsBrowse, связанные с конвертацией в Excel - небольшие исправления в библиотеках поддержки печати - новый пример быстрого поиска в Гриде - обновление старых примеров

i3t4j6: 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 - что-то непонятное и непредсказуемое ???

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

gfilatov: Новую версию Расширенного релиза библиотеки MiniGUI выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1242 Что нового: - исправления в Tab при добавлении/удалении страниц и работе в WinXP SP2 - обновление IDE до версии 0.3.4 - новые примеры и обновление старых примеров Выложил "облегченный" инсталлятор, поскольку Харбор уже месяц, как не обновлялся Желаю всем удачной выкачки!

i3t4j6: 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 ) - и здесь пролет. Где искать причину ?..

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

i3t4j6: 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 - НЕ ХОЧЕТ !!!

gfilatov: i3t4j6 пишет: эти две строки нужно вставить в исходник \Advanced\TsBrowse\TsBtest.prg Теперь стало яснее Проблема не в компиляторе Харбор, а в тех изменениях, которые были внесены в библиотеку TSBrowse, начиная с 24 релиза Олег, ты можешь посмотреть, в чем дело ?!

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

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

krutoff: TSBrowse: начиная со строки 9982 разкоментировать блок if ::cDriver == "NTX" ... endif Для чего его закоментировали, я не знаю, проверьте - кто изменял TSBrowse:SetOrder()

gfilatov: 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 ...

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

gfilatov: Петр пишет: Вы не могли бы на mylivepage выложить исходники IDE version 0.3.4? Полный пакет (бинарники+исходники) IDE выложил по адресу: http://minigui.mylivepage.ru/file/?fileid=1252 Благодарю за Ваш интерес!

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

Петр: Спасибо, уже качаю!

Петр: Да, не дадут теме набрать пять звездочек Ну, пока еще не закрыли.. 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 вылетаем с ошибкой

gfilatov: Петр пишет: кто-то сделал нерабочей Это вызвано последними изменениями от автора IDE Его извиняет только то, что перед этим у него накрылся винт и он повторял свои изменения по памяти Большое спасибо за коррекцию!

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



полная версия страницы