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




Пост 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 [только новые]


постоянный участник




Пост N: 3777
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 18.06.21 12:40. Заголовок: rvu пишет А зачем то..


rvu пишет
 цитата:
А зачем тогда в примере перекодировку писать?


Пример был на показ использования однобайтных ф-ий в теле программы на Utf8 ( SET CODEPAGE TO UNICODE )
Взял, что было под рукой, русский (был еще латышский) текст, думал так будет понятнее.

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





Пост N: 350
Зарегистрирован: 05.11.05
ссылка на сообщение  Отправлено: 18.06.21 12:56. Заголовок: Поторопился я сказат..


Поторопился я сказать, что все работает. Не туда посмотрел.

Так надо запрашивать? -

msginfo(hb_Utf8Rat('ó','áéíóú')) -> 4

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




Пост N: 3778
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 18.06.21 13:02. Заголовок: rvu Что не так ? &#..


rvu
Что не так ?
áéíóú
-> 4
áéíóú
12345
Ищет с конца, позиция от начала

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





Пост N: 351
Зарегистрирован: 05.11.05
ссылка на сообщение  Отправлено: 18.06.21 13:30. Заголовок: SergKis пишет: Что ..


SergKis пишет:

 цитата:
Что не так ?



Извините. Пришел в офис, а тут задергали. Ничего не соображаю. Это у меня всё не так.
Свою хрень себе оставлю, чтобы с конца показывала. Зачем это нужно пока не знаю.

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





Пост N: 353
Зарегистрирован: 05.11.05
ссылка на сообщение  Отправлено: 18.06.21 14:35. Заголовок: hb_utf8Len() и hb_UL..


hb_utf8Len() и hb_ULen() ничем не отличаются? Остальные аналогичные тоже?

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




Пост N: 1704
Зарегистрирован: 20.02.11
ссылка на сообщение  Отправлено: 22.06.21 15:40. Заголовок: Haz пишет: собрал н..


Haz пишет:

 цитата:
собрал на скорую тест лог ошибок в json . Еще подпилю позже чуть


подпилил чуть
https://drive.google.com/file/d/162KSwaSB5_cdALxvLxTmq3AjEO8VkBfa/view?usp=sharing

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




Пост N: 1891
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 22.06.21 16:01. Заголовок: Haz пишет: подпилил..


Haz пишет:

 цитата:
подпилил


Спасибо

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




Пост N: 1892
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 24.06.21 11:55. Заголовок: Всем кому это интересно


Выложил Update 4 для сборки 21.05 с учетом всех последних исправлений и дополнений по адресу

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

Обновил также UNICODE архив

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




Пост N: 3779
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 28.06.21 13:38. Заголовок: gfilatov2002 Неточн..


gfilatov2002
Неточность (tget) GETBOX при выполнении присваивания не срабатывает ON CHANGE ...
 
METHOD VarPut( xValue, lReFormat ) CLASS Get
...
IF lReFormat
::cType := ValType( xValue )
::xVarGet := xValue
::lEdit := .F.
::Changed := .T.

::Picture := ::cPicture
ENDIF
...

с добавкой работают _SetGetBoxValue(), _SetValue() и SetProperty(..., ..., "Value", ...)
Пример Скрытый текст


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




Пост N: 1893
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 28.06.21 18:09. Заголовок: SergKis пишет: Нето..


SergKis пишет:

 цитата:
Неточность (tget) GETBOX при выполнении присваивания


Принято
Хотя, возможно, что при переформатировании значения в TGET классе срабатывание события ON CHANGE и не планировалось...
Благодарю за помощь

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




Пост N: 3780
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 28.06.21 18:29. Заголовок: gfilatov2002 пишет Х..


gfilatov2002 пишет
 цитата:
Хотя, возможно, что при переформатировании значения в TGET классе срабатывание события ON CHANGE и не планировалось...


Согласен, тут есть подводный камень для исп. ф-ии в ON CHANGE ... и после _SetValue() ручное применение той же ф-ии, могут привести к неточностям счетчиков изменений или еще чего то. Но "правильней" после присвоения\изменения данных GETBOX по _SetValue() ON CHANGE ... должен отрабатывать. Конфликт со старой версией ON CHANGE ... возможен.

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




Пост N: 6973
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 30.06.21 18:16. Заголовок: gfilatov2002 пишет: ..


gfilatov2002 пишет:

 цитата:
Принято


Григорий, а в текущую версию эта добавка вошла ?
А то я не могу пере собрать minigui.lib, ошибки лезут...
Наверное из-за BCC 5.5

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




Пост N: 1894
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 30.06.21 19:37. Заголовок: Andrey пишет: в тек..


Andrey пишет:

 цитата:
в текущую версию эта добавка вошла ?


Нет, она будет включена в следующую июльскую сборку.

Кстати, подготовил первую бетку этой сборки со следующим списком изменений:
Скрытый текст

Но пока не решил, когда опубликовать новую сборку, потому что ...

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




Пост N: 1895
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 30.06.21 19:43. Заголовок: P.S. Картинка из нов..


P.S. Картинка из новой сборки


и полный текст этого примера ниже:

Скрытый текст


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





Пост N: 206
Зарегистрирован: 17.10.05
ссылка на сообщение  Отправлено: 17.07.21 12:51. Заголовок: INVISIBLE BLINK


Заметил одну ситуацию, если в LABEL определяется INVISIBLE BLINK,
то все равно показ идет и Visible == .T.

@ 15,150 LABEL Label_1 VALUE 'Blink Test:' AUTOSIZE INVISIBLE BLINK

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




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


Выложил июльскую ANSI сборку 21.07 с учетом всех последних наработок по адресу

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

Также подготовил эту сборку для таких бесплатных Си-компиляторов:

- Embarcadero C++ 7.30 for Win32;

- MinGW 32-bit (GCC with MCF thread model, built by LH_Mouse.) 11.1.1 20210708;

- MinGW 64-bit (MinGW-W64 x86_64-posix-seh, built by Brecht Sanders) 11.1.1 20210710;

- Microsoft Visual C++ 19.29.30037 (32/64-bit).

Рассматриваю эту сборку как финальную

Вот теперь ВСЕ...

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




Пост N: 3793
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 21.07.21 10:37. Заголовок: gfilatov2002 unicod..


gfilatov2002
unicode версию сделайте по старому или новому адресу, пробую когда есть время
Спасибо

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




Пост N: 1898
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 21.07.21 10:48. Заголовок: SergKis пишет: unic..


SergKis пишет:

 цитата:
unicode версию сделайте


Отправил ссылку в личку

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




Пост N: 3794
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 21.07.21 11:05. Заголовок: gfilatov2002 пишет О..


gfilatov2002 пишет
 цитата:
Отправил ссылку в личку


Спасибо
PS
не успел предложить добавить к System. ... (но вдруг ... )
 
#xtranslate _GetAppCargo () => _HMG_MainCargo

/////////////////////////////////////////////
// System pseudo-properties
/////////////////////////////////////////////

#translate <p:System,Sys>.Cargo => _HMG_MainCargo
#translate <p:System,Sys>.Cargo := <arg> => _HMG_MainCargo := <arg>

#translate System.Clipboard => RetrieveTextFromClipboard()
...

и в др. строках сделать <p:System,Sys>.
коротко писать удобнее, например
 
Sys.Cargo := oKeyData() ; o := Sys.Cargo

o:cUsr := "sysdba"
o:cPsw := "masterkey"
o:cFdb := ""
o:cIP := ""
o:nLang := 2
o:cCur := cmCurDir()+"\"
o:cLog := o:cCur+"ealarm.log"
o:BIN := o:cCur+"BIN"+"\" // доп. прогрммы

LogFileName( o:cLog )

o:WRK := "WRK"
o:HBK := "HBK"
o:BAK := "BAK" // сюда складывть bak копию для gbak.exe (сканируем)
o:FDB := "FDB" // сюда складывть fdb и снимок фйлов с него
o:INI := "HBK\INI"

a := {o:WRK, o:WRK+"\E", o:HBK, o:INI, o:BAK, o:FDB} ; AEval( a, {|cd| DirMake(cd) } )

o:WRK := o:cCur+o:WRK+"\" ; o:HBK := o:cCur+o:HBK+"\" ; o:INI:= o:cCur+o:INI+"\"
o:FDB := o:cCur+o:FDB+"\" ; o:BAK := o:cCur+o:BAK+"\"
... или
LOCAL o := Sys.Cargo

o:oBaseText := oKeyData()

o:oBaseText:aNew := {"Add new", "Jauns" , "Добавить" }
o:oBaseText:aDel := {"Delete" , "Dzēst" , "Удалить" }
o:oBaseText:aRefr := {"Refresh", "Atjaunot" , "Обновить" }
o:oBaseText:aEdit := {"Edit" , "Rediģēt" , "Менять" }
o:oBaseText:aSort := {"Sorting", "Šķirošana", "Сортировка"}
o:oBaseText:aExit := {"Exit" , "Izeja" , "Выход" }
...
LOCAL cForm := 'wListSel', t, o := Sys.Cargo, ot := o:oBaseText
...
BUTTON BtnList CAPTION ot:cList PICTURE 'page_plus' ;
TOOLTIP NIL SEPARATOR ;
ACTION _wPost(1, , This.Name)
BUTTON BtnSort CAPTION ot:cSort PICTURE 'page_123' ;
TOOLTIP NIL SEPARATOR ;
ACTION ( DoEvents(), _wPost(4, oMain:Cargo:cFocused, 0) ) DROPDOWN
...
oCol := :GetColumn("EVENT") ; oCol:cHeading := ot:cEvnt
oCol := :GetColumn("OBJECTNUM"); oCol:cHeading := ot:cObj
oCol := :GetColumn("NAME") ; oCol:nWidth := oCol:ToWidth(50)
oCol:cHeading := ot:cName
oCol := :GetColumn("ADDRESS") ; oCol:nWidth := oCol:ToWidth(50)
oCol:cHeading := ot:cAddr
...


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




Пост N: 1899
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 21.07.21 12:32. Заголовок: SergKis пишет: #tr..


SergKis пишет:

 цитата:
#translate <p:System,Sys>.Cargo => _HMG_MainCargo
#translate <p:System,Sys>.Cargo := <arg> => _HMG_MainCargo := <arg>


Добавил в форме

 цитата:

#translate <p:Application,App>.Cargo => _HMG_MainCargo
#translate <p:Application,App>.Cargo := <arg> => _HMG_MainCargo := <arg>


SergKis пишет:

 цитата:
в др. строках сделать <p:System,Sys>


Сделал
Благодарю за помощь

Спасибо: 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 час. Хитов сегодня: 247
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет