SET WINDOW DOCUMENT ICON
SET WINDOW DOCUMENT ICON ( winRef )
SET WINDOW DOCUMENT ICON ( winRef ; image )
SET WINDOW DOCUMENT ICON ( winRef ; file )
SET WINDOW DOCUMENT ICON ( winRef ; image ; file )
| Parámetros | Tipo | Descripción | |
|---|---|---|---|
| winRef | Integer | → | Número de referencia de la ventana |
| image | Picture | → | Ícono personalizado |
| file | 4D.File, 4D.Folder | → | Ruta del archivo o de la carpeta |
Historia
| Lanzamiento | Modificaciones |
|---|---|
| 20 R7 | Añadidos |
Descripción
El comando SET WINDOW DOCUMENT ICON permite definir un icono para las ventanas en aplicaciones multiventana utilizando una image y/o un file con la referencia de ventana winRef. El icono será visible dentro de la propia ventana y en la barra de tareas de Windows para ayudar a los usuarios a identificar y navegar por las distintas ventanas.
En el caso de una aplicación MDI en Windows, puede pasar -1 en winRef para definir el icono de la ventana principal. En otros contextos (macOS o aplicación IDE en Windows), usar -1 no hace nada.
- Si solo se pasa file, la ventana utiliza el icono correspondiente al tipo de archivo y la ruta del archivo se muestra en el menú de la ventana.
- If only image is passed, 4D does not show the path and the passed image is used for the window icon.
- If both file and image are passed, the file’s path is displayed in the window’s menu and the passed image is used for the window icon.
- If only winRef is passed or image is empty, the icon is removed on macOS and the default icon is displayed on Windows (application icon).
Ejemplo
En este ejemplo, queremos crear cuatro ventanas:
- Use the application icon on Windows and no icon on macOS (default state when no image or file is used).
- Utilice un icono "user".
- Associate a document with the window (this uses its file type icon).
- Personalizar el icono asociado al documento.
var $winRef : Integer
var $userImage : Picture
var $file : 4D.File
// 1- Open "Contact" form
$winRef:=Open form window("Contact";Plain form window+Form has no menu bar)
SET WINDOW DOCUMENT ICON($winRef)
DIALOG("Contact";*)
// 2- Open "Contact" form with "user" icon
$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- Open "Contact" form associated with the document "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- Open "Contact" form associated with the document "user" with "user" icon
$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";*)