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

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

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

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

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

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

 Отправлено: 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 
 

 Отправлено: 27.03.23 21:38. Заголовок: SergKis пишет: Немн..

SergKis пишет:

цитата:

Немного поправил

OK, принято
Благодарю за помощь

 Отправлено: 30.03.23 10:44. Заголовок: Выложил 4-е обновлен..

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

click here

Благодарю за многолетнюю поддержку и помощь в разработке этого проекта:
Сергея Киселева, Игоря Назарова и Андрея Верченко.

Также я признателен Саше Савову из Болгарии.

До новых встреч

 Отправлено: 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 брать

 Отправлено: 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 архив этой сборки для Сергея...

 Отправлено: 30.03.23 18:23. Заголовок: Всем кому это интересно

По ходу добавил возможность отображения на кнопке PNG файлов с альфа-каналом.

На картинке ниже видно, как выглядят кнопки в нормальном и отключенном виде.



Кстати, сегодня исполнилось ровно 170 лет со дня рождения Ван Гога...

 Отправлено: 30.03.23 18:28. Заголовок: gfilatov2002 пишет О..

gfilatov2002 пишет

цитата:

Обновил также Unicode архив этой сборки для Сергея...

Спасибо , уже взял

 Отправлено: 30.03.23 18:43. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Обновил также Unicode архив этой сборки для Сергея

А я тоже хочу....

 Отправлено: 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 ) по умолчанию включено.

 Отправлено: 31.03.23 10:27. Заголовок: Haz пишет в новой ве..

Haz пишет

цитата:

в новой версии как моргал при редактировании ::Upstable() так и моргает в ::GoTop() влетаем со включенным ::lPainted и это вызывает прорисовку , простое решение перед ::Gotop() выключить а после него включить. У себя такую правку делаю, чтоб не править везде bPre(Post)Edit. Но если никто не жалуется , значит не востребовано

Моргать и должно, ситуация не менялась от пред. версии. То что не востребовано, согласен, т.к. заметно на "тяжелых" таблицах, а таких раз, два и все. Мест, где надо править bPostEdit (отключить :lPainted) с зависимыми строками по Row, от произведенного Edit, тоже мало, так что это не вызывает трудностей. Делать ::Gotop( lRefresh ), по мне так совсем не катит, лишнее. Если доберусь до переделки VO прогр., где таблица с откл. стандартным поведением клавиш перемещения (назначены свои блоки кода), то попробую после 1-го отображения откл. ::lPainted и вкл.\выкл. в своих блоках кода на клавишах перемещения. Но программа VO работает и пока острой замены не требует.

 Отправлено: 31.03.23 10:40. Заголовок: SergKis пишет: зам..

SergKis пишет:

цитата:

заметно на "тяжелых" таблицах, а таких раз, два и все.

заметно на простой таблице при работе со слабой сеткой. Ну а все невостребованные решения я и так делаю заменой методов на внешние, так что править bPostEdit нужды нет. У остальных , при необходимости трудностей видимо не вызовет

 Отправлено: 31.03.23 13:44. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

По ходу добавил возможность отображения на кнопке PNG файлов с альфа-каналом.

А где этот красивый пример ?

 Отправлено: 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 
 

 Отправлено: 31.03.23 14:29. Заголовок: Ждём с не терпеньем ..

Ждём с не терпеньем - этот пример !

 Отправлено: 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

Откуда брать эти функции ?

 Отправлено: 11.04.23 15:35. Заголовок: Andrey пишет: Откуд..

Andrey пишет:

цитата:

Откуда брать эти функции ?

HBAES

 Отправлено: 11.04.23 15:41. Заголовок: Andrey build.bat за..

Andrey
build.bat запусти в примере (в нем написано)

 Отправлено: 11.04.23 18:35. Заголовок: SergKis пишет: buil..

SergKis пишет:

цитата:

build.bat запусти в примере (в нем написано)

Не сообразил сразу. Начал как всегда запускать Compile.bat
Спасибо !

 Отправлено: 14.04.23 15:49. Заголовок: Всем кому это интересно

Попробовал добавить иконки приложений в список запущенных задач в примере из папки SAMPLES\Advanced\PROCESS_TERMINATOR

И вот что у меня получилось:

 Отправлено: 15.04.23 07:40. Заголовок: Классное решение ! ..

Классное решение !
Пример в новую библиотеку !