Автор | Сообщение |
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: 4255
Зарегистрирован: 17.02.12
|
|
Отправлено: 27.03.23 20:24. Заголовок: gfilatov2002 Немног..
gfilatov2002 Немного поправил, получилось *-----------------------------------------------------------------------------* FUNCTION _EndTBrowse( bEnd ) *-----------------------------------------------------------------------------* LOCAL i, k, n, oBrw LOCAL oc := NIL, ow := NIL #ifdef _OBJECT_ ow := oDlu2Pixel() #endif IF _HMG_BeginTBrowseActive i := AScan( _HMG_aControlHandles, _HMG_ActiveTBrowseHandle ) IF i > 0 oBrw := _HMG_aControlIds[ i ] oBrw:lRePaint := .T. oBrw:Display() IF ( k := Len(oBrw:aColumns) ) > 0 .AND. ! Empty( oBrw:oPhant ) oc := ATail(oBrw:aColumns) n := iif( ValType( oc:nClrHeadBack ) == "B", Eval( oc:nClrHeadBack, k, oBrw ), oc:nClrHeadBack ) oBrw:oPhant:nClrHeadBack := n n := iif( ValType( oc:nClrFootBack ) == "B", Eval( oc:nClrFootBack, k, oBrw ), oc:nClrFootBack ) oBrw:oPhant:nClrFootBack := n oBrw:Refresh() oc := NIL ENDIF
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 2115
Зарегистрирован: 11.02.10
|
|
Отправлено: 27.03.23 21:38. Заголовок: SergKis пишет: Немн..
SergKis пишет: OK, принято Благодарю за помощь
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 2116
Зарегистрирован: 11.02.10
|
|
Отправлено: 30.03.23 10:44. Заголовок: Выложил 4-е обновлен..
Выложил 4-е обновление сборки 23.02 с учетом последних исправлений и дополнений click here Благодарю за многолетнюю поддержку и помощь в разработке этого проекта: Сергея Киселева, Игоря Назарова и Андрея Верченко. Также я признателен Саше Савову из Болгарии. До новых встреч
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 4263
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.03.23 11:34. Заголовок: gfilatov2002 пишет В..
gfilatov2002 пишет цитата: | Выложил 4-е обновление сборки 23.02 - minor corrections in the method UpStable(). |
| ::lPainted := ::lInitGoTop IF ::lPainted .AND. ::bChange != NIL Eval( ::bChange, Self, VK_UP ) ENDIF ::bChange := NIL ::lHitTop := .F. ::lHitBottom := .F. ::GoTop() ::lPainted := .T. While !( ::cAlias )->( Eof() ) Получается, что прорисовку теперь в :UpStable() нельзя отключить. Наверно, такую возможность надо было оставить, сделать LOCAL nRow := ::nRowPos, ; ... bChange := ::bChange, ; nLastPos := ::nLastPos, ; lPainted := ::lPainted ... ::GoTop() ::lPainted := lPainted While !( ::cAlias )->( Eof() ) PS Только сейчас обратил внимание, что HB_FUNC( RCDATATOFILE ) HB_FUNC( RCDATATOMEM ) достают только из ресурсов своего exe, а из dll внешней - нет, HMODULE hModule = GetResources(); может есть смысл брать, если задан параметр из него hModule брать
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 2117
Зарегистрирован: 11.02.10
|
|
Отправлено: 30.03.23 12:02. Заголовок: SergKis пишет: таку..
SergKis пишет: цитата: | такую возможность надо было оставить, сделать LOCAL nRow := ::nRowPos, ; ... bChange := ::bChange, ; nLastPos := ::nLastPos, ; lPainted := ::lPainted ... ::GoTop() ::lPainted := lPainted While !( ::cAlias )->( Eof() ) |
| Да, так будет лучше Благодарю за подсказку P.S. Уже поправил эту неточность в инсталляторе текущей сборки P.S.2 Обновил также Unicode архив этой сборки для Сергея...
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 2118
Зарегистрирован: 11.02.10
|
|
Отправлено: 30.03.23 18:23. Заголовок: Всем кому это интересно
По ходу добавил возможность отображения на кнопке PNG файлов с альфа-каналом. На картинке ниже видно, как выглядят кнопки в нормальном и отключенном виде. Кстати, сегодня исполнилось ровно 170 лет со дня рождения Ван Гога...
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 4264
Зарегистрирован: 17.02.12
|
|
Отправлено: 30.03.23 18:28. Заголовок: gfilatov2002 пишет О..
gfilatov2002 пишет цитата: | Обновил также Unicode архив этой сборки для Сергея... |
| Спасибо , уже взял
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 7344
Зарегистрирован: 12.09.06
|
|
Отправлено: 30.03.23 18:43. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | Обновил также Unicode архив этой сборки для Сергея |
| А я тоже хочу....
|
|
|
Haz
|
| |
Пост N: 1929
Зарегистрирован: 20.02.11
|
|
Отправлено: 31.03.23 10:03. Заголовок: SergKis пишет: ..
SergKis пишет: цитата: | bChange := ::bChange, ; nLastPos := ::nLastPos, ; lPainted := ::lPainted ... ::GoTop() ::lPainted := lPainted |
| в новой версии как моргал при редактировании ::Upstable() так и моргает в ::GoTop() влетаем со включенным ::lPainted и это вызывает прорисовку , простое решение перед ::Gotop() выключить а после него включить. У себя такую правку делаю, чтоб не править везде bPre(Post)Edit. Но если никто не жалуется , значит не востребовано. PS или во все методы навигации добавлять параметр , например ::Gotop( lRefresh ) по умолчанию включено.
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 4265
Зарегистрирован: 17.02.12
|
|
Отправлено: 31.03.23 10:27. Заголовок: Haz пишет в новой ве..
Haz пишет цитата: | в новой версии как моргал при редактировании ::Upstable() так и моргает в ::GoTop() влетаем со включенным ::lPainted и это вызывает прорисовку , простое решение перед ::Gotop() выключить а после него включить. У себя такую правку делаю, чтоб не править везде bPre(Post)Edit. Но если никто не жалуется , значит не востребовано |
| Моргать и должно, ситуация не менялась от пред. версии. То что не востребовано, согласен, т.к. заметно на "тяжелых" таблицах, а таких раз, два и все. Мест, где надо править bPostEdit (отключить :lPainted) с зависимыми строками по Row, от произведенного Edit, тоже мало, так что это не вызывает трудностей. Делать ::Gotop( lRefresh ), по мне так совсем не катит, лишнее. Если доберусь до переделки VO прогр., где таблица с откл. стандартным поведением клавиш перемещения (назначены свои блоки кода), то попробую после 1-го отображения откл. ::lPainted и вкл.\выкл. в своих блоках кода на клавишах перемещения. Но программа VO работает и пока острой замены не требует.
|
|
|
Haz
|
| |
Пост N: 1930
Зарегистрирован: 20.02.11
|
|
Отправлено: 31.03.23 10:40. Заголовок: SergKis пишет: зам..
SergKis пишет: цитата: | заметно на "тяжелых" таблицах, а таких раз, два и все. |
| заметно на простой таблице при работе со слабой сеткой. Ну а все невостребованные решения я и так делаю заменой методов на внешние, так что править bPostEdit нужды нет. У остальных , при необходимости трудностей видимо не вызовет
|
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 7345
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.03.23 13:44. Заголовок: gfilatov2002 пишет: ..
gfilatov2002 пишет: цитата: | По ходу добавил возможность отображения на кнопке PNG файлов с альфа-каналом. |
| А где этот красивый пример ?
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 2119
Зарегистрирован: 11.02.10
|
|
Отправлено: 31.03.23 14:17. Заголовок: Andrey пишет: где э..
Andrey пишет: цитата: | где этот красивый пример ? |
| Это пример из папки SAMPLES\BASIC\BUTTON_4 для будущих сборок, поскольку требуется также изменение в ядре библиотеки. Если же интересует текст сырцов самого примера, то он приведен ниже. /* * MINIGUI - Harbour Win32 GUI library */ #include "minigui.ch" FUNCTION Main() LOCAL aBtn, n LOCAL cPngPath := ".\images\" LOCAL aPng := {} AEval( { 3, 1, 2, 6, 7, 8, 9, 10 }, {| c | ; AAdd( aPng, cPngPath + "image" + hb_ntos( c ) + ".png" ) } ) aBtn := Array( Len( aPng ) ) DEFINE WINDOW Form_1 ; AT 0, 0 ; WIDTH 80 + 70 * Len( aPng ) ; HEIGHT 430 ; MAIN ; TITLE 'Disabled Buttons Test' ; NOSIZE ; NOMAXIMIZE @ 40, 40 LABEL Lbl_1 VALUE "ENABLED BUTTONS NORMAL LOOK" AUTOSIZE FOR n := 1 TO Len( aPng ) aBtn[ n ] := "Btn1_" + hb_ntos( n ) DEFINE BUTTON &( aBtn[ n ] ) ROW 70 COL n * 70 - 30 ACTION NIL PICTURE aPng[ n ] WIDTH 64 HEIGHT 64 END BUTTON NEXT @ 150, 40 LABEL Lbl_2 VALUE "LOADED PICTURES NORMAL LOOK" AUTOSIZE FOR n := 1 TO Len( aPng ) aBtn[ n ] := "Img2_" + hb_ntos( n ) DEFINE IMAGE &( aBtn[ n ] ) ROW 180 COL n * 70 - 20 ACTION NIL PICTURE aPng[ n ] WIDTH 48 HEIGHT 48 STRETCH .T. IF n == 4 HEIGHT 55 ENDIF END IMAGE NEXT @ 260, 40 LABEL Lbl_3 VALUE "DISABLED BUTTONS" AUTOSIZE FOR n := 1 TO Len( aPng ) aBtn[ n ] := "Btn3_" + hb_ntos( n ) DEFINE BUTTON &( aBtn[ n ] ) ROW 290 COL n * 70 - 30 ACTION NIL PICTURE aPng[ n ] WIDTH 64 HEIGHT 64 END BUTTON Form_1.&( aBtn[ n ] ).Enabled := .F. NEXT END WINDOW CENTER WINDOW Form_1 ACTIVATE WINDOW Form_1 RETURN NIL
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 7346
Зарегистрирован: 12.09.06
|
|
Отправлено: 31.03.23 14:29. Заголовок: Ждём с не терпеньем ..
Ждём с не терпеньем - этот пример !
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 7359
Зарегистрирован: 12.09.06
|
|
Отправлено: 11.04.23 12:55. Заголовок: Пример MiniGUI\S..
Пример MiniGUI\SAMPLES\Advanced\AESDEMO Не собирается... Harbour 3.2.0dev (r2301231146) Copyright (c) 1999-2023, https://harbour.github.io/ D:\TEMP\hbmk_bh65r7.dir\aesdemo.c: D:\TEMP\hbmk_12kx7d.c: Turbo Incremental Link 5.66 Copyright (c) 1997-2002 Borland Error: Unresolved external '_HB_FUN_ENCRYPTFILEAES' referenced from D:\TEMP\HBMK_BH65R7.DIR\AESDEMO.OBJ Error: Unresolved external '_HB_FUN_DECRYPTFILEAES' referenced from D:\TEMP\HBMK_BH65R7.DIR\AESDEMO.OBJ hbmk2[aesdemo]: Error: Running linker. 2 Откуда брать эти функции ?
|
|
|
Dima
|
| |
Пост N: 7755
Зарегистрирован: 17.05.05
|
|
Отправлено: 11.04.23 15:35. Заголовок: Andrey пишет: Откуд..
Andrey пишет: цитата: | Откуда брать эти функции ? |
| HBAES
|
|
|
SergKis
|
| постоянный участник
|
Пост N: 4267
Зарегистрирован: 17.02.12
|
|
Отправлено: 11.04.23 15:41. Заголовок: Andrey build.bat за..
Andrey build.bat запусти в примере (в нем написано)
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 7360
Зарегистрирован: 12.09.06
|
|
Отправлено: 11.04.23 18:35. Заголовок: SergKis пишет: buil..
SergKis пишет: цитата: | build.bat запусти в примере (в нем написано) |
| Не сообразил сразу. Начал как всегда запускать Compile.bat Спасибо !
|
|
|
gfilatov2002
|
| moderator
|
Пост N: 2126
Зарегистрирован: 11.02.10
|
|
Отправлено: 14.04.23 15:49. Заголовок: Всем кому это интересно
Попробовал добавить иконки приложений в список запущенных задач в примере из папки SAMPLES\Advanced\PROCESS_TERMINATOR И вот что у меня получилось:
|
|
|
Andrey
|
| постоянный участник
|
Пост N: 7362
Зарегистрирован: 12.09.06
|
|
Отправлено: 15.04.23 07:40. Заголовок: Классное решение ! ..
Классное решение ! Пример в новую библиотеку !
|
|
|
Ответов - 300
, стр:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
All
[только новые]
|
|