| Автор | Сообщение |
|
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; - новые и обновленные старые примеры (как обычно  ).
|
 |
|
|
Ответов - 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, такая используется оч. давно, если переносишь код приходится править, но в целом, не принципиально
|
 |
|
|
gfilatov2002
|
| moderator
|
Пост N: 2355
Зарегистрирован: 11.02.10
|
|
Отправлено: 24.09.24 09:47. Заголовок: SergKis пишет: Имел..
SergKis пишет: Не нашел такую функцию в поставке Харбора. Есть только функция NtoC() в библиотеке hbct, но она уже не актуальна с тех пор, как появилась hb_ntos(). 
|
 |
|
|
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
|
 |
|
|
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$ |
| Век живи - век учись 
|
 |
|
|
Andrey
|
| постоянный участник
|
Пост N: 7876
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.09.24 08:32. Заголовок: Григорий, можно сдел..
Григорий, можно сделать правку в коде ? Ошибку хотя бы выводить... @ nY, nX FRAME Frame_1 ... BACKCOLOR aBackColor Если aBackColor - строка, то программа падает 2 раза и понять какой объект на форме привел к падению НЕЛЬЗЯ ! Только ручной перебор, комменты ставить и компилировать. Если вытащил форму из другого проекта - то развлечение ещё то... 
|
 |
|
|
gfilatov2002
|
| moderator
|
Пост N: 2358
Зарегистрирован: 11.02.10
|
|
Отправлено: 30.09.24 11:27. Заголовок: Andrey пишет: сли a..
Andrey пишет: | цитата: | | сли aBackColor - строка, то программа падает 2 раза |
| Добавил проверку - теперь такая ошибка игнорируется, и программа не падает. Благодарю за подсказку 
|
 |
|
|
gfilatov2002
|
| moderator
|
Пост N: 2360
Зарегистрирован: 11.02.10
|
|
Отправлено: 04.10.24 13:15. Заголовок: SergKis Положил на ..
SergKis Положил на ваш ftp модифицированные исходники tsbrowse для проверки. Буду использовать их в следующей сборке, если все нормально работает. 
|
 |
|
|
SergKis
|
| постоянный участник
|
Пост N: 4643
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.10.24 16:36. Заголовок: gfilatov2002 пишет П..
gfilatov2002 пишет | цитата: | | Положил на ваш ftp модифицированные исходники tsbrowse для проверки |
| В чем суть изменений ? На что обратить внимание
|
 |
|
|
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 НЕ передается во втором параметре при вызове функции, иначе будет вылет программы. Также постарался синхронизировать другие мелкие изменения и уточнения кода...
|
 |
|
|
SergKis
|
| постоянный участник
|
Пост N: 4644
Зарегистрирован: 17.02.12
|
|
Отправлено: 04.10.24 17:18. Заголовок: gfilatov2002 пишет ..
gfilatov2002 пишет | цитата: | | в функции SBrowse() cделал такое изменение: |
| это я видел | цитата: | | Также постарался синхронизировать другие мелкие изменения и уточнения кода... |
| посмотрю на своих примерах
|
 |
|
|
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> ] |
| Так выглядит самый простой пример использования: 
|
 |
|
|
|
|
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> ] Подробной документации нет.
|
 |
|
|
SergKis
|
| постоянный участник
|
Пост N: 4645
Зарегистрирован: 17.02.12
|
|
Отправлено: 05.10.24 09:22. Заголовок: gfilatov2002 пишет П..
gfilatov2002 пишет | цитата: | Положил на ваш ftp модифицированные исходники tsbrowse для проверки. Буду использовать их в следующей сборке, если все нормально работает. |
| Покрутил примеры с tsbrowse, полет нормальный, прикрутил к версии 23.12 тоже ok!, кину эту версию Андрею, у него на ней реал. задача, проверит
|
 |
|
|
SergKis
|
| постоянный участник
|
Пост N: 4646
Зарегистрирован: 17.02.12
|
|
Отправлено: 05.10.24 09:35. Заголовок: gfilatov2002 добавь..
gfilatov2002 добавьте в сервер REQUEST hb_NtoC, hb_EnumIndex, hb_cwd, LtoN
|
 |
|
|
gfilatov2002
|
| moderator
|
Пост N: 2363
Зарегистрирован: 11.02.10
|
|
Отправлено: 05.10.24 11:30. Заголовок: SergKis пишет: доба..
SergKis пишет: | цитата: | | добавьте в сервер REQUEST hb_NtoC, hb_EnumIndex, hb_cwd, LtoN |
| Добавил, конечно. 
|
 |
|
|
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 |
|
|
 |
|
|
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) Желаю всем хорошего дня 
|
 |
|
|
Alex_Cher
|
| |
Пост N: 96
Зарегистрирован: 18.06.15
|
|
Отправлено: 09.10.24 12:09. Заголовок: gfilatov2002 Со сбо..
gfilatov2002 Со сборки 24.07 в наименование версии появилось (DEBUG) Можете пояснить что то значит и на что то влияет.
|
 |
|
|
gfilatov2002
|
| moderator
|
Пост N: 2366
Зарегистрирован: 11.02.10
|
|
Отправлено: 09.10.24 12:31. Заголовок: Alex_Cher пишет: чт..
Alex_Cher пишет: | цитата: | | что то значит и на что то влияет |
| Благодарю за вопрос Это означает, что эта сборка предназначена для отладки программ: - компилятор Харбор собран без использования оптимизационных параметров для GUI приложений; - библиотека Минигуи собрана с сохранением отладочной информации (+100 кБ к размеру программы); - на выходе из программы создается отладочный файл с информацией о статических переменных. Если в программе есть утечка ресурсов, то на выходе создается файл с информацией об этих ресурсах и где в программе они были созданы. 
|
 |
|
|
Alex_Cher
|
| |
Пост N: 97
Зарегистрирован: 18.06.15
|
|
Отправлено: 10.10.24 07:37. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: | цитата: | | Это означает, что эта сборка предназначена для отладки программ: |
| Спасибо за ответ, прошу уточнить - я так понимаю что за обычную рабочую сборку надо платить. | цитата: | | Если в программе есть утечка ресурсов, то |
| Пожалуста уточните - что такое утечка ресурсов .....
|
 |
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|