Class TEditFileIconDlg (unit Ficondlg) |
Inherits from
TForm
procedure BrowseBtnClick(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.
procedure FormCreate(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.
procedure FormDestroy(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.
procedure FormShow(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.
procedure IconFileNameChange(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.
procedure IconListBoxDblClick(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.
procedure OKbtnClick(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.
procedure SetFileIcon(AFileIcon: TFileIcon);
*************************************************************************} { TEditFileIconDlg.
property FileIcon : TFileIcon
Déclarations publiques
BrowseBtn : TButton;
CancelBtn : TButton;
IconFileName : TEdit;
IconListBox : TIconListBox;
Label1 : TLabel;
Label2 : TLabel;
OKbtn : TButton;
OpenDialog1 : TOpenDialog;
FFileIcon : TFileIcon;
Déclarations privées
procedure BrowseBtnClick(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.BrowseBtnClick } {
procedure FormCreate(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.FormCreate } {
procedure FormDestroy(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.FormDestroy } {
procedure FormShow(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.FormShow } {
procedure IconFileNameChange(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.IconFileNameChange } {
procedure IconListBoxDblClick(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.IconListBoxDblClick } {
procedure OKbtnClick(Sender: TObject);
*************************************************************************} { TEditFileIconDlg.OKbtnClick } {
procedure SetFileIcon(AFileIcon: TFileIcon);
*************************************************************************} { TEditFileIconDlg.SetFileIcon } {
property FileIcon : TFileIcon
Déclarations publiques
BrowseBtn : TButton;
CancelBtn : TButton;
IconFileName : TEdit;
IconListBox : TIconListBox;
Label1 : TLabel;
Label2 : TLabel;
OKbtn : TButton;
OpenDialog1 : TOpenDialog;
FFileIcon : TFileIcon;
Déclarations privées