Отправлено: 05.10.19 13:47. Заголовок: Динамическое изменение размеров иконки/картинки ?

Всем привет.
Столкнулся с проблемой изменения размеров иконки/картинки на кнопке.
Имеется иконка + картинка одного размера в ресурсах проги.

iSanta128         ICON           res\Santa128x128.ico 
 Santa128          PNG            res\santa128x128.png

Как на базе этой иконки/картинки получить другой размер ?
Есть ли какие функции в MiniGui или в FW ?
В МиниГуи можно же загрузить из ресурса объект и получить его хендл:

M->hImg   := LoadImage( "Santa128" )

А хенд на кнопку как можно поместить ?
И можно ли делать преобразования иконки/картинки по этому хендлу ?
Я слабо разбираюсь в этой тематике, просветите пожалуйста меня.

 Отправлено: 09.10.19 16:02. Заголовок: Andrey пишет: с ик..

Andrey пишет:

цитата:

с иконками когда пример будет работать ?

После выхода новой сборки 19.10

 Отправлено: 09.10.19 17:03. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

После выхода новой сборки 19.10

Ждем с нетерпеньем !

На сайте http://www.hmgextended.com/download.html :
Harbour MiniGUI Extended Edition 19.08 setup.
Includes MiniGUI libraries, include files, development tools, source code, sample applications, documentation, Harbour compiled libraries, Harbour include files and Harbour compiler binaries. Libraries are compiled for Borland C++.
Borland C++ Compiler version 5.8

Borland C++ Compiler version 5.8 - это сейчас Open Source лицензия ?
Не хотелось бы попадать под всякие разборки...

 Отправлено: 12.10.19 09:25. Заголовок: Всем привет ! В дого..

Всем привет !
В догонку к исправлениям для иконок.
Имеем сейчас в МиниГуи такую команду:

   DRAW ICON IN WINDOW Form_1 AT 0, 0 PICTURE cIco WIDTH 96 HEIGHT 96 COLOR aBackColor

Можно ли сделать/добавить вот такой новый синтаксис:

   nImgSize := 48 
    hIco := LoadIconByName( cIco, nImgSize, nImgSize ) 
    DRAW ICON IN WINDOW Form_1 AT 0, 0 PICTURE hIco WIDTH nImgSize HEIGHT nImgSize COLOR aBackColor 
    или  
    DRAW ICON IN WINDOW Form_1 AT 0, 0 HPICTURE hIco WIDTH nImgSize HEIGHT nImgSize COLOR aBackColor

Т.е. показ иконки через загруженный хендл иконки ?

 Отправлено: 12.10.19 18:25. Заголовок: Andrey пишет: добав..

Andrey пишет:

цитата:

добавить вот такой новый синтаксис

Такая возможность уже существует в этой команде
Попробуй

цитата:

DRAW ICON IN WINDOW Form_1 AT 0, 0 HICON hIco WIDTH nImgSize HEIGHT nImgSize COLOR aBackColor

 Отправлено: 12.10.19 19:21. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Попробуй

Отлично, Работает. Спасибо !

А в доку эти команды попадут ?

 Отправлено: 17.11.19 18:02. Заголовок: Всем привет ! Надо б..

Всем привет !
Надо бы пример исправить \MiniGUI\SAMPLES\BASIC\ButtonEx_DynamicMenu\demo.prg, вот так:

         // Расчет фонтов кнопок  STOP ------------------------------ 
  
          // получить размер иконки кнопки в зависимости от высоты кнопки 
          nIcoSize := INT(nBtnH - 10)  // размер иконки 
          nIcoSize := IIF( nIcoSize > 128, 128, nIcoSize) 
  
          FOR nI := 1 TO Len(aBtn) 
  
            cN := aBtn[nI][1] 
            @ nY, nX BUTTONEX &cN WIDTH nBtnW HEIGHT nBtnH               ; 
              CAPTION aBtn[nI][2] ICON aBtn[nI][4] BOLD SIZE aBtn[nI][9] ;  
              FLAT NOXPSTYLE HANDCURSOR NOTABSTOP                        ; 
              BACKCOLOR aBtn[nI][6] GRADIENTFILL aBtn[nI][7]             ; 
              ON MOUSEHOVER ( This.Fontcolor := aFC2Btn, This.GradientFill := This.Cargo[2][7] ,; 
                              This.Icon := LoadIconByName( This.Cargo[2][5], This.ImageWidth, This.ImageHeight ) ) ; 
              ON MOUSELEAVE ( This.Fontcolor := aFC1Btn, This.GradientOver := This.Cargo[2][6] ,; 
                              This.Icon := LoadIconByName( This.Cargo[2][4], This.ImageWidth, This.ImageHeight ) ) ; 
              ACTION         _wPost( 1, This.Index ) ; 
              ON INIT    { || This.Cargo := { nI, aBtn[ nI ] } } 
  
            This.&(cN).ImageWidth  := nIcoSize    
            This.&(cN).ImageHeight := nIcoSize    
            This.&(cN).Icon := LoadIconByName( aBtn[nI,4], nIcoSize, nIcoSize ) 
  
              aN := aBtn[ nI ][8]              // HotKey array

А то в некоторых случаях пролёт получается, пока придумал как сделать все мозги себе вынес...

 Отправлено: 17.11.19 19:25. Заголовок: Andrey пишет: приме..

Andrey пишет:

цитата:

пример исправить

Поправлю, конечно.
Благодарю за помощь

 Отправлено: 20.03.23 20:21. Заголовок: Вывожу на форме икон..

Вывожу на форме иконку:

               DRAW ICON IN WINDOW &cForm AT nY, nX2 + nG PICTURE cFile2 WIDTH nWImg HEIGHT nHImg COLOR WHITE

Если в эти координаты надо перерисовать такую же иконку, но с другими размерами,
надо ли убивать хендл этой иконки ?
И как это сделать ?

При задании имени файла - какой будет хендл этой иконки.
Команду - DestroyIcon( hIcon ) видел, hIcon - какой будет, если выводим иконку по имени ?