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




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


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

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

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

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

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




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


moderator




Пост N: 1851
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 02.04.21 15:01. Заголовок: SergKis пишет: поче..


SergKis пишет:

 цитата:
почему не проходит REQUEST HB_LANG_LVWIN


Попробуйте использовать

 цитата:
REQUEST HB_LANG_LV




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




Пост N: 3690
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 02.04.21 15:09. Заголовок: gfilatov2002 пишет R..


gfilatov2002 пишет
 цитата:
REQUEST HB_LANG_LV


Спасибо , собралось
Нашел еще REQUEST HB_CODEPAGE_LVWIN это что ?
Как то запутали все, бум разбирать, пробовать, бум

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




Пост N: 3691
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 02.04.21 21:11. Заголовок: gfilatov2002 С язык..


gfilatov2002
С языками получилось в тсб все как надо
Пример с 4-мя кодировками (Edit работает по ним) тут https://TransFiles.ru/yp6ui
Языковые тексты из prg идут на ура (как должно быть при utf8)
Спасибо за unicode версию

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




Пост N: 3692
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 02.04.21 21:16. Заголовок: PS REQUEST HB_LANG_L..


PS

 цитата:
REQUEST HB_LANG_LV


Это Dos коировка

 цитата:
REQUEST HB_CODEPAGE_LVWIN


Это 1257 кодировка, которая нужна и в примере задействовал, все ok!

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




Пост N: 3694
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 03.04.21 12:02. Заголовок: gfilatov2002 Не мог..


gfilatov2002
Не могу найти (уже глаза сломал), где ::lDontChange становится .T.
Делаю в примере (:lEdit := .T. все колонки и в показ добавил колонку MARRIED)
 
:lNoKeyChar := .T. // надо ставить иначе, lEdit := .T. по нажатию вкл. getbox на корркетировку
:UserKeys(VK_1, {|ob| MsgBox( "Test " + ob:GetColumn(ob:nCell):cName + CRLF, ob:cParentWnd ) } )
:bLDblClick := {|up1,up2,nfl,ob| up1:=up2:=nfl, ob:PostMsg(WM_KEYDOWN, VK_RETURN, 0)}
:UserKeys(VK_RETURN, {|ob|
IF ob:GetColumn(ob:nCell):cName == "STREET"
_wPost(111, ob:cParentWnd, ob)
ELSEIF ob:GetColumn(ob:nCell):lCheckBox //cName == "MARRIED"
ob:PostMsg( WM_KEYDOWN, VK_SPACE, 0 ) ; DO EVENTS
ELSE
_wPost(110, ob:cParentWnd, ob)
ENDIF
RETURN Nil
} )
В :HandleEvent() попадаем сюда, выделено
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TSBrowse
...
ELSEIF nMsg == WM_CHAR .AND. ::lEditing
RETURN 0
ELSEIF nMsg == WM_CHAR
RETURN ::KeyChar( nWParam, nLParam )
ELSEIF nMsg == WM_KEYDOWN .AND. ::lDontChange
RETURN 0

ELSEIF nMsg == WM_KEYDOWN
RETURN ::KeyDown( nWParam, nLParam )
...
и отрубаются назначенные клавиши Enter, Spase, dblClick

Может, свежим взглядом глянете ?

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




Пост N: 3695
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 03.04.21 12:06. Заголовок: PS Причем, отключают..


PS
Причем, отключаются только (фокус курсор установлен) на колонке логической MARRIED,
на других все назначения клавиш и dblclick работают

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




Пост N: 3696
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 03.04.21 12:28. Заголовок: PS2 Пока писал, поня..


PS2
Пока писал, понял, дело не в ::lDontChange (но где она становится .T., все равно, интересно),
а в :lNoKeyChar := .T.. По ней откл. метод ::KeyChar(), а в нем ::Edit() для логической колонки.
Установленные события срабатывают, не работает ob:PostMsg( WM_KEYDOWN, VK_SPACE, 0 ),
т.к. отключен ::KeyChar(). Тут что то надо ..., подумать

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




Пост N: 3697
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 03.04.21 12:53. Заголовок: SergKis пишет Тут чт..


SergKis пишет
 цитата:
Тут что то надо ..., подумать


"Все уже украдено придумано до нас"
 
:UserKeys(VK_RETURN, {|ob|
IF ob:GetColumn(ob:nCell):cName == "STREET"
_wPost(111, ob:cParentWnd, ob)
ELSEIF ob:GetColumn(ob:nCell):lCheckBox //cName == "MARRIED"
ob:PostEdit(!ob:GetValue(ob:nCell), ob:nCell)

ELSE
_wPost(110, ob:cParentWnd, ob)
ENDIF
RETURN Nil
} )


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




Пост N: 3698
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 03.04.21 16:34. Заголовок: SergKis пишет Тут чт..


SergKis пишет
 цитата:
Тут что то надо ..., подумать


Похоже надо, т.к. на самой колонке с :lCheckBox == .T. не работает LDblClick, не выходит на MsgBox()
а клавиши работают, т.е. имеем
 
// :lEdit := .T. на всех колонках
:lNoKeyChar := .T.
:UserKeys(VK_1, {|ob,lo| MsgBox( "Test " + ob:GetColumn(ob:nCell):cName + CRLF, ob:cParentWnd ) })
:bLDblClick := {|up1,up2,nfl,ob| up1:=up2:=nfl, MsgBox(":bLDblClick press", "INFO"), ;
ob:PostMsg( WM_KEYDOWN, VK_RETURN, 0 ) }
:UserKeys(VK_RETURN, {|ob|
IF ob:GetColumn(ob:nCell):lCheckBox //cName == "MARRIED"
ob:PostEdit(!ob:GetValue(ob:nCell), ob:nCell)
RETURN Nil // завершить работу метода :KeyDown(), вкл. поле на корректировку
ENDIF
RETURN .T. // продолжить работу метода :KeyDown()
} )


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




Пост N: 3699
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 03.04.21 16:37. Заголовок: PS Не туда дописал ..


PS
Не туда дописал
 
RETURN Nil // завершить работу метода :KeyDown(), вкл. поле на корректировку
ENDIF
RETURN .T. // продолжить работу метода :KeyDown(), вкл. поле на корректировку


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




Пост N: 3703
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 03.04.21 17:12. Заголовок: SergKis пишет ..


SergKis пишет
 цитата:
// :lEdit := .T. на всех колонках
:lNoKeyChar := .T.


Может я рвусь в открытую дверь ? И есть способ отключить метод :KeyChar() для выключения авто корректировки
в GetBox при нажатии букв, цифр. Пытаюсь понять некоторые моменты, отличающиеся в работе тек. версии hmg и
своей раб. версией, т.к. при нажатии букв, цифр вкл. другие режимы работы.

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




Пост N: 3706
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 05.04.21 07:44. Заголовок: gfilatov2002 Можно ..


gfilatov2002
Можно чуток поправить
 
FUNCTION _GetStatusItemWidth( hWnd, nItem )
...
RETURN iif( !Empty(nItem), aItemWidth [nItem], aItemWidth )

h_objects.prg
CLASS TStbData INHERIT TCnlData
...
METHOD Width ( nItem, nWidth ) INLINE iif( HB_ISNUMERIC( nWidth ) .AND. nWidth > 0, ;
_SetStatusWidth ( ::oWin:cName, hb_defaultValue( nItem, 1 ), nWidth ), ;
_GetStatusItemWidth( ::oWin:nHandle, nItem ) )



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




Пост N: 3707
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 05.04.21 08:03. Заголовок: Еще METHOD KeyChar( ..


Еще
 
METHOD KeyChar( nKey, nFlags ) CLASS TSBrowse
LOCAL cComp, lProcess, cTypeCol
LOCAL ix
LOCAL lNoKeyChar := ::lNoKeyChar

DEFAULT ::nUserKey := nKey

cTypeCol := iif( ::nLen == 0, "U", ValType( ::bDataEval( ::aColumns[ ::nCell ] ) ) ) // Modificado por Carlos

IF cTypeCol == "L" .AND. ::aColumns[ ::nCell ]:lCheckBox .AND. nKey == VK_SPACE
lNoKeyChar := .F.
ENDIF

IF ::nUserKey == 255 .OR. ! ::lEnabled .OR. lNoKeyChar // from KeyDown() method
RETURN 0
ENDIF

IF ::lAppendMode
RETURN 0
ENDIF

::lNoPaint := .F.
//cTypeCol := iif( ::nLen == 0, "U", ValType( ::bDataEval( ::aColumns[ ::nCell ] ) ) ) // Modificado por Carlos

IF Upper( ::aMsg[ 1 ] ) == "YES"

тогда решается edit логического поля при ::lNoKeyChar := .T.

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




Пост N: 1852
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 05.04.21 10:05. Заголовок: SergKis пишет: попр..


SergKis пишет:

 цитата:
поправить


OK

SergKis пишет:

 цитата:
решается edit логического поля при ::lNoKeyChar := .T.


Принято с благодарностью

P.S. Обновил unicode сборку с учетом всех последних изменений, в т.ч. обновил компилятор Harbour

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




Пост N: 1853
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 07.04.21 09:48. Заголовок: Выложил 1-е обновлен..


Выложил 1-е обновление сборки 21,03 с учетом всех последних изменений по адресу

http://hmgextended.com/files/CONTRIB/hmg-21.03-setup.exe

Что нового:
Скрытый текст



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




Пост N: 3708
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 07.04.21 22:47. Заголовок: gfilatov2002 Пример..


gfilatov2002
Пример BASIC\Firebird работает в unicode версии, RU1251, LV1257 (LVWIN) поддерживает.
Buid Скрытый текст

Demo.prg (UTF8 с BOM) Скрытый текст


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




Пост N: 1854
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 08.04.21 09:36. Заголовок: SergKis пишет: Прим..


SergKis пишет:

 цитата:
Пример BASIC\Firebird работает в unicode версии


Ok
Благодарю за подтверждение

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




Пост N: 1855
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 14.04.21 09:32. Заголовок: Всем кому это интересно :)


Выложил 2-е обновление сборки 21.03 с учетом всех последних исправлений по адресу

http://hmgextended.com/files/CONTRIB/hmg-21.03-setup.exe

Что нового:
Скрытый текст

Также подготовил MinGW сборки с использованием свежей версии 10.3 (вышла 8 апреля 2021 г.)

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




Пост N: 6940
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 15.04.21 16:10. Заголовок: Поставил, полёт норм..


Поставил, полёт нормальный !

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




Пост N: 1856
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 26.04.21 10:45. Заголовок: Всем кому это интересно 8-)


Завершена подготовка 3-го обновления сборки 21.03, которое выйдет послезавтра.

Что нового:
Скрытый текст

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

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

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