SET WINDOW DOCUMENT ICON

4D v20 R7


SET WINDOW DOCUMENT ICON ( winRef {; imagem}{; file} )

Parâmetro	Tipo	Descrição
winRef	Inteiro	Número de referência de janela
imagem	Imagem	ícone personalizado
file	Objeto arquivo, 4D.Folder	Rota de arquivo ou rota da pasta

Descrição

O SET WINDOW DOCUMENT ICON comando permite definir um ícone para windows em aplicações multi-janela usando uma imagem ou um arquivo com a referência de janela winRef. O ícone será visível sem a janela e na barra de ferramentas janelas para ajudar usuários a identificar e navegar entre janelas diferentes.

Se só file for passado, a janela usa o ícone correspondente ao tipo arquivo e a rota do arquivo é exibida no menu janelas.
Se só image sfor passado, 4D não mostra a rota e a imagem passada for usada para o ícone janela.
Se só file e image forem passados, a rota do arquivo é exibida no menu janelas e a imagem passada é usada no ícone janelas
Se só winRef for passado ou se image estiver vazio, o ícone é removido em macOS e o ícone padrão é exibido em Windows (ícone aplicação).

Exemplo

Neste exemplo para criar quatro janelas:

Use o ícone da aplicação em Windows e sem ícone em macOS (padrão quando no image or file for usado).
Use um ícone “user”.
Associa um documento com a janela (isso usa tipo ícone).
Personaliza o ícone associado com o documento.

 var $winRef : Integer

 var $userImage : Picture

 var $file : 4D.File

 

  // 1- Abre formulário "Contact" 

 $winRef:=Open form window("Contact";Plain form window+Form has no menu bar)

 SET WINDOW DOCUMENT ICON($winRef)

 DIALOG("Contact";*)

 

  // 2- Abre formulário "Contact" com ícone "user" 

 $winRef:=Open form window("Contact";Plain form window+Form has no menu bar)

 BLOB TO PICTURE(File("/RESOURCES/icon/user.png").getContent();$userImage)

 SET WINDOW DOCUMENT ICON($winRef;$userImage)

 DIALOG("Contact";*)

 

  // 3- Abra formulário "Contact" associado com o documento  "user"

 $winRef:=Open form window("Contact";Plain form window+Form has no menu bar)

 $file:=File("/RESOURCES/files/user.txt")

 SET WINDOW DOCUMENT ICON($winRef;$file)

 DIALOG("Contact";*)

 

  // 4- Abra formulário "Contact" associado com o documento "user"com ícone "user"

 $winRef:=Open form window("Contact";Plain form window+Form has no menu bar)

 BLOB TO PICTURE(File("/RESOURCES/icon/user.png").getContent();$userImage)

 $file:=File("/RESOURCES/files/user.txt")

 SET WINDOW DOCUMENT ICON($winRef;$userImage;$file)

 DIALOG("Contact";*)

Ver também

Define a different icon for each window (blog post)