メインコンテンツまでスキップ
バージョン: 開発中

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 )

引数型説明
winRef整数→Window reference number
imageピクチャー→Custom icon
file4D.File, 4D.Folder→File path or folder path

説明​

The SET WINDOW DOCUMENT ICON command allows you to define an icon for windows in multi-window applications using either an image and/or file with the window reference winRef. The icon will be visible within the window itself and on the windows taskbar to help users identify and navigate different windows.

  • If only file is passed, the window uses the icon corresponding to the file type and the file’s path is displayed in the window’s menu.
  • 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).

例題​

In this example, we want to create four windows:

  1. Use the application icon on Windows and no icon on macOS (default state when no image or file is used).
  2. Use a "user" icon.
  3. Associate a document with the window (this uses its file type icon).
  4. Customize the icon associated with the document.
 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";*)

参照​

Create entity selection