Отправлено: 29.01.08 13:59. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI (часть IV) (продолжение)

Начало темы находится здесь, а теперь

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Готовится к опубликованию новая сборка №48, которая выйдет в конце недели.
Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне

Кратко, что нового:

- исправление обнаруженных ошибок и неточностей кода;
- новый класс HEADERIMAGE для Grid и Browse;
- свойство Address в Hyperlink может теперь открывать папку или файл на диске;
- добавлен NOTABSTOP класс для Browse;
- поддержка пользовательских компонентов (заимствована из оффициального релиза);
- расширения и исправления в библиотеках TsBrowse и PropGrid;
- обновлены сборки Харбор и HMGS-IDE;
- новые и обновленные старые примеры (как обычно ).

 Отправлено: 04.08.10 21:26. Заголовок: Кажется нашлась проб..

Кажется нашлась проблема
В файле h_browse.prg в процедуре _BrowseEdit есть такой код :
_HMG_ActiveFormNameBak := _HMG_ActiveFormName (стр. 1308)

И далее после вызова _EditRecord

_HMG_ActiveFormName := _HMG_ActiveFormNameBak (cnh/ 1526)

Вот по моему это лишние строки. Этими манипуляциями с сохранением и восстановлением этих переменных занимаются процедуры _DefineWindow и _EndWindow в файле h_windows.prg. Наверное их стоит убрать. Я пересобрал библиотеку без них - полет нормальный.

 Отправлено: 05.08.10 10:46. Заголовок: yury пишет: нашлась..

yury пишет:

цитата:

нашлась проблема

Большое спасибо!
Я уже тоже убрал эти лишние строки
Исправленный вариант библиотеки выйдет на следующей неделе

 Отправлено: 05.08.10 12:50. Заголовок: i3t4j6 пишет: ...к..

i3t4j6 пишет:

цитата:

...колонку внести или изменить невозможно...

С первым вопросом я разобрался: теперь , если Brw_6:lPickerMode := .F.,
то необходимо колонку описать Brw_6:aColumns[7]:cPicture := "@D".
А по второму вопросу- не понятно: Почему при использовании функции ComboWBlock() на экран выводится первая буква,
а не все значение поля ???

 Отправлено: 09.08.10 12:29. Заголовок: Опубликован 86-й релиз Расширенной версии библиотеки MiniGUI

Новый релиз библиотеки выложил, как и обещал, по адресу:

http://minigui.mylivepage.ru/file/?fileid=8298<\/u><\/a>

а также, как обычно, на сервере http://hmgextended.com<\/u><\/a> по адресу:

http://hmgextended.com/files/CONTRIB/hmg-1.8-86-setup.zip<\/u><\/a>

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

 Отправлено: 10.08.10 11:59. Заголовок: Спасибо, Григорий! Н..

Спасибо, Григорий! На старт, внимание... тест!!! :)

 Отправлено: 10.08.10 13:59. Заголовок: gustow Обратите вни..

gustow
Обратите внимание, что размер библиотеки уменьшился на 2 кБ за счет оптимизации кода.

 Отправлено: 12.08.10 00:37. Заголовок: Конечно, заметил! :)..

Конечно, заметил! :) Еще удивился поначалу, что "мухой" скачалось, а потом смотрю - а размерчик-то как уменьшился!.. :) вот они - нанотехнологии - в действии! :) :)

 Отправлено: 30.08.10 14:36. Заголовок: АНОНС * АНОНС * АНОН..

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Готовится к опубликованию новая сборка №87, которая выйдет на следующей неделе.

Если у Вас есть интересные дополнения для включения в следующий релиз, то я с удовольствием рассмотрю их (присылайте по почте)

Кратко, что нового:

- кнопка ButtonEx не будет срабатывать, если отжатие левой кнопки мышки было сделано за пределами границ этой кнопки;
- добавлена поддержка клавиатурных комбинаций клавиш (с помощью символа &) для расширенного ownerdraw меню;
- корректировка кода библиотек HbPrinter и MiniPrint;
- обновлены сборка Харбора версии 2.1.0beta2, a также некоторые contrib библиотеки.

Спасибо за внимание!

 Отправлено: 31.08.10 23:39. Заголовок: Чего мне не хватает ..

Чего мне не хватает в Harbour MiniGUI Extended - это специальных элементов редактирования (COMBOBOX и т.д.) прямо в BROWSE. В GRID они есть, но я бы хотел, чтобы они были в Browse и, крайне желательно, в TSBROWSE. До сих пор я работал с OOHG, где есть функция COLUMNCONTROLS, но шефу не понравилось, что поле ввода надо сначала дважды кликать мышкой, а потом, по окончании ввода нажимать на ENTER. А вот в TSBROWSE можно сразу переходить на другое поле, как в электронной таблице. Это исключение из правил. Почти все BROWSE, поддерживающие ввод данных, вплоть до допотопного ДОСявого StarClass, работают по принципу: двойной щелчок мыши на поле ввода - создание буфера ввода-ввод данных-нажатие ENTER-сохранение данных в DBF-очистка буфера ввода.

 Отправлено: 01.09.10 09:49. Заголовок: Есть пример в MiniGU..

Есть пример в MiniGUI\SAMPLES\Advanced\GoogleDirections

А как использовать его по России ? Какой адрес нужно вставить например для Москвы ?

 Отправлено: 01.09.10 12:24. Заголовок: Поддерживаю

Dr. Oldwarez: «Чего мне не хватает в Harbour MiniGUI Extended - это специальных элементов редактирования (COMBOBOX и т.д.) прямо в BROWSE. В GRID они есть, но я бы хотел, чтобы они были в Browse ...Есть функция COLUMNCONTROLS...»

Полностью поддерживаю.

 Отправлено: 02.09.10 15:56. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

Чего мне не хватает в Harbour MiniGUI Extended - это специальных элементов редактирования (COMBOBOX и т.д.) прямо в BROWSE.

посмотрите oBrw:SetData(nCol,Nil,{aItems, aData} )
aItems - массив строк списка Combobox
aData - массив значений для каждой строки

 Отправлено: 03.09.10 20:13. Заголовок: Синхронизация главного и подчинённого TSBROWSE с CDX индексом

Подскажите пожалуйста, как обеспечить в TSBROWSE синхронизацию главного и подчинённого BROWSE если применён CDX индекс.

*------------------------------------------------------------------------------* 
 Function SincroTb(obrw,Invert) 
 *------------------------------------------------------------------------------* 
    LOCAL pos , cSelState 
    default invert to .F. 
  
    if invert 
       cSelState := Employee->state 
       oBrw:SetFilter( "State", cSelState ) 
    else 
       cSelState := SubStr(sta->state,1,2) 
       oBrw:SetFilter( "State+Last", cSelState ) 
    Endif 
  
    _setitem("statusbar","Form_10",2,cSelState) 
  
    oBrw:cPrefix := cSelState 
    IF FieldGet(FieldPos("State")) != cSelState 
       oBrw:Enabled(.f.) 
    ELSE 
       oBrw:Enabled(.T.) 
    endif 
    oBrw:Refresh( .T. ) 
    oBrw:lHasChanged := .T. 
    oBrw:lNoGrayBar := .T. 
  
 return NIL

Это пример для NTX-индекса, а у меня CDX и SET SCOPE. Почему-то при этом TSBROWSE становится неадекватным. При изменениях в главном BROWSE первая строка почему-то не обновляется, но если на неё встать курсором и прокрутить до конца, а потом обратно вернуться в начало, то BROWSE уже начинает правильно показывать данные. Хуже всего, если у записи в главном окне нет соответствия в окне подчинённом. В таком случае показывается набор данных от предыдущего окна, а при попытке его прокрутить, курсор останавливается на первой строке. Подскажите, пожалуйста, как заставить TSBROWSE автоматически обновлять набор данных.

Проблему комбобоксов я уже решил

oBrw:SetData(nCol,ComboWBlock(oBrw,"FIELD_NAME",nCol,aList))

 Отправлено: 06.09.10 09:49. Заголовок: Dr. Oldwarez пишет: ..

Dr. Oldwarez пишет:

цитата:

как обеспечить в TSBROWSE синхронизацию главного и подчинённого

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

@ 0.1, 0.1 FOLDER oFld ;
PROMPTS " Картотека "," Приход ", " расход" ;
SIZE 385, 275 PIXEL FONT oFon1
oFld:aEnable={.T.,.T.,.T. }

Selec Mm
SET ORDER TO TAG Ki
Go top

@ 1,1 XBROWSE oBrw SIZE 367,260 PIXEL OF oFld:aDialogs[1] ALIAS "Mm";
AUTOSORT FOOTERS FASTEDIT LINES CELL ;
ON CHANGE (ChC("K"), Fresh(Mm->kod),;
oBr3:Paint(),oBr3:Setfocus(),oBr3:Refresh(),oBrw:nlen:=ORDKEYCOUNT(),oBrw:Setfocus() ) ;

oBrw:nHeaderLines := 2

ADD oCol TO oBrw DATA Mm->KOD HEADER "код" SIZE 70
oCol:AddResource( "In1" )
oCol:AddResource( "In2" )
oCol:nHeadBmpNo := 2
oCol :oHeaderFont := oFon3
oCol:oDataFont := oFon3
oCol:bLClickHeader = {|nMRow,nMCol,nFlags,Self|DBSETORDER(1),Mumu(oBrw,ordname(),Self,9)}

Ну и т.д. .....

При любом телодвижении на первом бровсе срабатывает
ON CHANGE (ChC("K"), Fresh(Mm->kod),;

А там :)))
*******************
Function Fresh(rtn)
*******************
Local old:=Select()
Public oBr1,oBr2,oBr3,oBr4,oBrw

Selec Pr1
SET ORDER TO TAG Pi1
ORDSCOPE(0,Str(rtn,7))
ORDSCOPE(1,Str(rtn,7))
Go top
oBr3:nLen:=ordkeycount()
oBr3:upstable()
oBr3:GoBottom()
oBr3:Gotop()
oBr3:Setfocus()
oBr3:Refresh(.T.)

Selec Ra1
SET ORDER TO TAG Ri1
ORDSCOPE(0,Str(rtn,7))
ORDSCOPE(1,Str(rtn,7))
Go top
oBr4:nLen:=ordkeycount()
oBr4:upstable()
oBr4:GoBottom()
oBr4:Gotop()
oBr4:Setfocus()
oBr4:Refresh(.T.)

Select(old)
Return .T.

 Отправлено: 06.09.10 11:30. Заголовок: Harbour MiniGUI IDE version 1.0.3 - 2010.08.31

Обновил с учетом последних изменений от автора полную сборку IDE
на сайте http://minigui.mylivepage.ru<\/u><\/a> по адресу:

http://minigui.mylivepage.ru/file/?fileid=8300<\/u><\/a>

а также, как обычно, на сервере http://hmgextended.com<\/u><\/a> в папке HMGS-IDE.

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

 Отправлено: 06.09.10 13:18. Заголовок: Уже сам догадался. П..

Уже сам догадался. Просто поставил SetFilter, как и в NTX. Отрубить фильтр oBrw:SetFilter("","")

А вот как сделать, чтобы длинное (120 знаков), но не MEMO-поле выходило, как MEMO, а отображалось в одну строку? И как, при редактировании MEMO сделать так, чтобы при нажатии ESC само TBROWSE никуда не уходило?

 Отправлено: 06.09.10 16:28. Заголовок: Dr. Oldwarez Филато..

Dr. Oldwarez
Филатов тактично молчит, но мне кажется надо заводить отдельные темы,
а не мусорить в главной. Давайте так и сделаем.

 Отправлено: 06.09.10 18:25. Заголовок: Извините, пожалуйста..

Извините, пожалуйста
В следующий раз заведу отдельную темку.

 Отправлено: 07.09.10 19:15. Заголовок: ММК пишет: SET ORDE..

ММК пишет:

цитата:

SET ORDER TO TAG Pi1 ORDSCOPE(0,Str(rtn,7)) ORDSCOPE(1,Str(rtn,7)) Go top oBr3:nLen:=ordkeycount() oBr3:upstable() oBr3:GoBottom() oBr3:Gotop() oBr3:Setfocus() oBr3:Refresh(.T.)

УРА-А-А!!! Заработало!
Огромное спасибо и ящик пива!

Извините, это я последний раз в главной теме.

 Отправлено: 08.09.10 10:18. Заголовок: Опубликован 87-й релиз Расширенной версии библиотеки MiniGUI

Новый релиз библиотеки выложил, как и обещал, по адресу:

http://minigui.mylivepage.ru/file/?fileid=8301<\/u><\/a>

а также, как обычно, на сервере http://hmgextended.com<\/u><\/a> по адресу:

http://hmgextended.com/files/CONTRIB/hmg-1.8-87-setup.zip<\/u><\/a>

Ваши комментарии приветствуются

P.S.
Что планируется включить в сборку в будущем:

Януш Пора сейчас работает над адаптацией TSBrowse версии 9.0 для нашей библиотеки