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




Пост 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 
Профиль
Ответов - 300 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]


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




Пост N: 4640
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 23.09.24 20:56. Заголовок: gfilatov2002 пишет В..


gfilatov2002 пишет
 цитата:
Видимо, имелась ввиду функция hb_NtoS


Имел ввиду hb_NtoC, такая используется оч. давно, если переносишь код приходится править, но в целом, не принципиально

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 2355
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 24.09.24 09:47. Заголовок: SergKis пишет: Имел..


SergKis пишет:

 цитата:
Имел ввиду hb_NtoC


Не нашел такую функцию в поставке Харбора.
Есть только функция NtoC() в библиотеке hbct, но она уже не актуальна с тех пор, как появилась hb_ntos().

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




Пост N: 4641
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 24.09.24 10:04. Заголовок: gfilatov2002 пишет Н..


gfilatov2002 пишет
 цитата:
Не нашел такую функцию в поставке Харбора.


Advanced\ErrorView\ErrorSys
hError[ cDateTime ][ "StackTrace" ][ hb_ntoc( n - 1 ) ] := ProcName( n ) + "(" + hb_ntos( ProcLine( n ) ) + ")" + iif( ProcLine( n ) > 0, " in module: " + ProcFile( n ), "" )
... и др.

добавка REQUST hb_ntoc вопросы снимает, где то лежит, значит

 цитата:
но она уже не актуальна с тех пор, как появилась hb_ntos()


hb_ntos() никогда не использовал, но в целом не оч. важно, можно #xcommand сделать в udf

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 2356
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 24.09.24 11:24. Заголовок: SergKis пишет: доба..


SergKis пишет:

 цитата:
добавка REQUST hb_ntoc вопросы снимает, где то лежит


Нашел эту функцию в ядре Харбора
Вот ее описание:

 цитата:

$AUTHOR$
2017 Pete D. <pete_westg@yahoo.gr>
$TEMPLATE$
Function
$NAME$
hb_ntoc()
$CATEGORY$
API
$SUBCATEGORY$
Strings
$ONELINER$
Converts a numeric value to string
$SYNTAX$
hb_ntoc( <nValue>, [<nDecs>] ) --> cValue
$ARGUMENTS$
<nValue> is the numeric value to convert.

<nDecs> decimal digits to retain (if any).
$RETURNS$
<cValue> A string representation of <nValue>
$DESCRIPTION$
This function converts the given <nValue> numeric value
to a string value, while (trying to) keep all or at least `nDecs`
significant digits in double numbers, unless `<nDecs>` is lesser
than actual decimal digits of <nValue>, in which case the result
will be rounded.

SET DECIMAL setting has no effect on the returned value (ignored),
which means that, unlike f.e. Str(), all non-significant digits
(e.g.: trailing decimal zeros) will be removed. Likewise, all
leading empty spaces will be trimmed.

Returns stringified value of `<nValue>`, preserving all (or at least
`<nDecs>`) significant digits, if any.
Interestingly, if `<nValue>` is NIL or not numeric, this function
will return a null string and, unlike Str(), will NOT cause an RTE.
NOTE: new function, available after 2016-06-20 21:59 UTC+0200 commit,
(it is not available in earlier versions).
$EXAMPLES$
LOCAL n := ( 5 / 2 ) + 0.009

? hb_ntoc( n ) // --> 2.509
? Str( n ) // --> 2.51
? hb_ntoc( n, 2 ) // --> 2.51
? Str( n, 5, 2 ) // --> 2.51
? hb_ntos( n ) // --> 2.51
? "--- decimals set to 7 ----"
SET DECIMALS TO 7
? Str( n ) // --> 2.51
? hb_ntoc( n ) // --> 2.509
? Str( n, 10, 7 ) // --> 2.5090000
? hb_ntoc( n, 7 ) // --> 2.509
? "--- pass non numeric / NIL value ----"
? Str( "42" ) // --> RTE
$STATUS$
R
$COMPLIANCE$
H
$FILES$
Library is core
$SEEALSO$
Str(), hb_ntos()
$END$


Век живи - век учись

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




Пост N: 7876
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 30.09.24 08:32. Заголовок: Григорий, можно сдел..


Григорий, можно сделать правку в коде ?
Ошибку хотя бы выводить...
      @ nY, nX FRAME Frame_1 ...    BACKCOLOR aBackColor 

Если aBackColor - строка, то программа падает 2 раза и понять какой объект на форме привел к падению НЕЛЬЗЯ !
Только ручной перебор, комменты ставить и компилировать.
Если вытащил форму из другого проекта - то развлечение ещё то...

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 2358
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 30.09.24 11:27. Заголовок: Andrey пишет: сли a..


Andrey пишет:

 цитата:
сли aBackColor - строка, то программа падает 2 раза


Добавил проверку - теперь такая ошибка игнорируется, и программа не падает.
Благодарю за подсказку

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 2360
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 04.10.24 13:15. Заголовок: SergKis Положил на ..


SergKis
Положил на ваш ftp модифицированные исходники tsbrowse для проверки.
Буду использовать их в следующей сборке, если все нормально работает.

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




Пост N: 4643
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 04.10.24 16:36. Заголовок: gfilatov2002 пишет П..


gfilatov2002 пишет
 цитата:
Положил на ваш ftp модифицированные исходники tsbrowse для проверки


В чем суть изменений ?
На что обратить внимание

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 2361
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 04.10.24 17:12. Заголовок: SergKis пишет: На ч..


SergKis пишет:

 цитата:
На что обратить внимание


Для корректной работы редактирования строки по правому клику (второго диалога) в функции SBrowse() cделал такое изменение:

 цитата:
   IF _HMG_lOOPEnabled 
DEFAULT uParam := oHmgData()
ELSE
uParam := oHmgData()
ENDIF


Это нужно сделать, если объект oTsb НЕ передается во втором параметре при вызове функции, иначе будет вылет программы.
Также постарался синхронизировать другие мелкие изменения и уточнения кода...

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




Пост N: 4644
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 04.10.24 17:18. Заголовок: gfilatov2002 пишет ..


gfilatov2002 пишет
 цитата:
в функции SBrowse() cделал такое изменение:


это я видел

 цитата:
Также постарался синхронизировать другие мелкие изменения и уточнения кода...


посмотрю на своих примерах

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 2362
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 04.10.24 17:24. Заголовок: SergKis пишет: посм..


SergKis пишет:

 цитата:
посмотрю на своих примерах


Заранее большое спасибо за помощь
Сейчас завершается подготовка новой сборки.
Самая интересная новинка:

 цитата:
* New: The SPLITTER library source code (see in folder \Source\Splitter).
Don't miss this very interesting expansion!
Contributed by Kamil Kalus <kamilkalus0[at]gmail.com>

SYNTAX:

DEFINE SPLITTER <ControlName>
[ ID <nId> ]
[ OF, PARENT, DIALOG> <ParentWindowName> ]
[ AT <nRow> ,<nCol> ]
[ WIDTH <nWidth> ]
[ HEIGHT <nHeight> ]
[ VERTICAL ] [ HORIZONTAL ]
[ HIDEARROW ]
[ NOHOVER ]
[ USEGRADIENT ]
[ ROUNDED ]
[ COLOR <color> ]
[ BACKCOLOR <backColor> ]
[ COLORHOVER <hoverColor> ]
[ BACKCOLORHOVER <hoverBackColor> ]
[ GRADIENT <leftColor>, <middleColor> [, <rightColor> ] ]
[ GRADIENTHOVER <hoverLeftColor>, <hoverMiddleColor> [, <hoverRightColor> ] ]
[ SPLIT <aLeftControls> FROM <aRightControls> ]
[ LIMITS <aLimits> ]


Так выглядит самый простой пример использования:


Спасибо: 0 
Профиль
Alex_Cher





Пост N: 95
Зарегистрирован: 18.06.15
ссылка на сообщение  Отправлено: 05.10.24 07:10. Заголовок: gfilatov2002 Прошу ..


gfilatov2002
Прошу прощения за не профессионализм, просьба - где можно почитать расшифровку параметров по
данной функции (ВПРОЧЕМ КАК ПО ДРУГИМ).

[ GRADIENT <leftColor>, <middleColor> [, <rightColor> ] ]
[ GRADIENTHOVER <hoverLeftColor>, <hoverMiddleColor> [, <hoverRightColor> ] ]
[ SPLIT <aLeftControls> FROM <aRightControls> ]
[ LIMITS <aLimits> ]


Подробной документации нет.

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




Пост N: 4645
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 05.10.24 09:22. Заголовок: gfilatov2002 пишет П..


gfilatov2002 пишет
 цитата:
Положил на ваш ftp модифицированные исходники tsbrowse для проверки.
Буду использовать их в следующей сборке, если все нормально работает.


Покрутил примеры с tsbrowse, полет нормальный, прикрутил к версии 23.12 тоже ok!, кину эту версию Андрею, у него на ней реал. задача, проверит

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




Пост N: 4646
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 05.10.24 09:35. Заголовок: gfilatov2002 добавь..


gfilatov2002
добавьте в сервер REQUEST hb_NtoC, hb_EnumIndex, hb_cwd, LtoN

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 2363
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 05.10.24 11:30. Заголовок: SergKis пишет: доба..


SergKis пишет:

 цитата:
добавьте в сервер REQUEST hb_NtoC, hb_EnumIndex, hb_cwd, LtoN


Добавил, конечно.

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 2364
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 05.10.24 11:34. Заголовок: Alex_Cher пишет: По..


Alex_Cher пишет:

 цитата:
Подробной документации нет


Да, вы правы.
Но в папке с исходниками этой библиотеки будет лежать файл doc.txt и, конечно, текст рабочих примеров прояснит смысл передаваемых параметров.

 цитата:
 
// Define a VERTICAL SPLITTER between the two EditBoxes
DEFINE SPLITTER VerticalSplitter ;
AT 50, 370 ; // Position the splitter between controls
WIDTH 10 ; // Width of the splitter
HEIGHT 250 ; // Height of the splitter
VERTICAL ; // Vertical splitter
SPLIT {"LeftEditBox"} FROM {"RightEditBox"} ; // Split the two controls
COLOR {0, 128, 255} ; // Set the color of the splitter
BACKCOLOR {230, 230, 230} ; // Background color
USEGRADIENT ; // Enable gradient effect
GRADIENT {255, 255, 255}, {0, 128, 255}, {0, 0, 128} ; // Gradient colors
GRADIENTHOVER {255, 200, 200}, {200, 50, 50}, {100, 0, 0} ; // Hover gradient colors
HIDEARROW ; // Hide the arrow icon
LIMITS {5, 10} // Define the minimum and maximum limits for each section



Спасибо: 0 
Профиль
gfilatov2002
moderator




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


Опубликована финальная MiniGUI сборка 24.10

Стандартная сборка

Профессиональная сборка (под паролем)

Также были подготовлены дополнительные сборки для следующих компиляторов:

- MinGW GNU C 14.2.0 (packaged on 2024-10-05)

- BCC 7.70 (32-bit) (основан на коде Борланда)

- BCC 7.70 (64-bit) (основан на CLang 5.0)

Желаю всем хорошего дня

Спасибо: 0 
Профиль
Alex_Cher





Пост N: 96
Зарегистрирован: 18.06.15
ссылка на сообщение  Отправлено: 09.10.24 12:09. Заголовок: gfilatov2002 Со сбо..


gfilatov2002
Со сборки 24.07 в наименование версии появилось (DEBUG)


Можете пояснить что то значит и на что то влияет.

Спасибо: 0 
Профиль
gfilatov2002
moderator




Пост N: 2366
Зарегистрирован: 11.02.10
ссылка на сообщение  Отправлено: 09.10.24 12:31. Заголовок: Alex_Cher пишет: чт..


Alex_Cher пишет:

 цитата:
что то значит и на что то влияет


Благодарю за вопрос
Это означает, что эта сборка предназначена для отладки программ:
- компилятор Харбор собран без использования оптимизационных параметров для GUI приложений;
- библиотека Минигуи собрана с сохранением отладочной информации (+100 кБ к размеру программы);
- на выходе из программы создается отладочный файл с информацией о статических переменных.
Если в программе есть утечка ресурсов, то на выходе создается файл с информацией об этих ресурсах и где в программе они были созданы.

Спасибо: 0 
Профиль
Alex_Cher





Пост N: 97
Зарегистрирован: 18.06.15
ссылка на сообщение  Отправлено: 10.10.24 07:37. Заголовок: gfilatov2002 пишет: ..


gfilatov2002 пишет:


 цитата:
Это означает, что эта сборка предназначена для отладки программ:



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


 цитата:
Если в программе есть утечка ресурсов, то


Пожалуста уточните - что такое утечка ресурсов .....

Спасибо: 0 
Профиль
Ответов - 300 , стр: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 All [только новые]
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 11
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет