Como confirmar a resolução do ícone?

[JoséQuintas]

Como confirmar a resolução de um ícone?

Teoricamente coloquei no meu aplicativo pra selecionar automaticamente um ícone 16x16, 32x32, 48x48 ou 64x64.

Como eu consigo confirmar na prática isso?

Por exemplo, minha foto, como saber qual o tamanho que foi selecionado?

[asimoes]

Quintas,

Você pode usar: considerando que o icone é um bitmap

Código: Selecionar todos

Fi_Initialise()
__nHandleFile := Fi_Load( FIF_BMP, cBitFile, BMP_DEFAULT )
__nWidth      := Fi_GetWidth( __nHandleFile )
__nHeight     := Fi_GetHeight( __nHandleFile )
Fi_DeInitialise()

#include "freeimag.ch"

Lib hbfimage.hbc

Formatos que a lib suporta:

FIF_BMP
FIF_ICO
FIF_JPEG
FIF_JNG
FIF_KOALA
FIF_LBM
FIF_IFF
FIF_MNG
FIF_PBM
FIF_PBMRAW
FIF_PCD
FIF_PCX
FIF_PGM
FIF_PGMRAW
FIF_PNG
FIF_PPM
FIF_PPMRAW
FIF_RAS
FIF_TARGA
FIF_TIFF
FIF_WBMP
FIF_PSD
FIF_CUT
FIF_XBM
FIF_XPM
FIF_DDS
FIF_GIF
FIF_HDR

[Kapiaba]

Veja se ajuda:

https://pctoledo.org/forum/viewto ... =4&t=11297

https://pctoledo.org/forum/viewto ... =4&t=13152

Abs.

[JoséQuintas]

Não é isso.

Tenho lá um arquivo de ícone JOSE.ICO
Esse arquivo contém imagens nos tamanhos 16 x 16, 32 x 32, 48 x 48, 64 x 64
Carrego esse ícone via API do Windows que escolhe qual tamanho usar.
Recarrego o mesmo ícone ao redimensionar a tela.

E o ícone atualmente na tela é do tamanho (?)

[asimoes]

Em harbour ? complicado !, acho que não tem isso.

[acelconsultoria]

Quintas,

Isso aí não tem como pegar pela API wapi_SendMessage(nWin, TB_GETBUTTON)

Na WVG vi algo como a função wvg_SendToolBarMessage(). E no wvtwin.ch tem as flags montadas TB_GETBUTTONSIZE e TB_GETPADDING, pra "pescar" essas informações.

Infelizmente, eu não consigo testá-las aqui e nem sei qual a sintaxe certa pra se trabalhar. Mas acredito que seja esse o caminho.

[Kapiaba]

Código: Selecionar todos

SetSize()

https://github.com/vszakats/harbour-cor ... oolbar.prg

https://github.com/vszakats/harbour-cor ... window.prg



Não serve?

[acelconsultoria]

Quintas,

Eu fiz o seguinte teste, usando wapi_GetSystemMetrics:

Código: Selecionar todos

#define CXICON 11
#define CYICON 12

Function Cadastro()
Local TamX, TamY
AbreJanela()

If CriaToolBar() = .F.
   Alerta("Não foi possível criar a Barra de Ferramentas")
EndIf

TamX := wapi_GetSystemMetrics( CXICON )
TamY := wapi_GetSystemMetrics( CYICON )

@ 01,01 say TamX // aqui apareceu 32, que foi exatamente a resolução que defini para os icones da minha toolbar
@ 02,01 say TamY // também apareceu 32

Inkey( 0 )

FechaJanela()
Return Nil

Link com a função GetSystemMetrics e os códigos dos objetos de tela:
https://msdn.microsoft.com/en-us/librar ... 85(v=vs.85).aspx

[JoséQuintas]

Acho que só vai ter uma opção: no olhômetro

O problema é:
Pode ter ampliado/reduzido a 16x16, 32x32, 48x48, 64x64.
Se testar o tamanho final, vai ser sempre o mesmo.

Tentar descobrir se dá pra montar o multiícone com imagens diferentes, aí basta olhar qual a imagem usada.
Na prática, ainda nem sei se deu certo o multiícone.... rs
É justamente isso que estou tentando descobrir.

[JoséQuintas]

Um teste em 4 tamanhos diferentes.

O difícil é saber qual tamanho de ícone foi usado em cada um.
A maioria dos ícones só tem opção 32 x 32.
O duplicata é um multiícone com opções 16x16, 32x32, 48x48 e 64x64