| Class TEditFileIconDlg (unit Ficondlg) |
TForm
| Constructors |
| Functions |
procedure BrowseBtnClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure IconFileNameChange(Sender: TObject);
procedure IconListBoxDblClick(Sender: TObject);
procedure OKbtnClick(Sender: TObject);
procedure SetFileIcon(AFileIcon: TFileIcon);| Properties |
property FileIcon : TFileIcon| Events |
| Variables |
BrowseBtn : TButton;
CancelBtn : TButton;
IconFileName : TEdit;
IconListBox : TIconListBox;
Label1 : TLabel;
Label2 : TLabel;
OKbtn : TButton;
OpenDialog1 : TOpenDialog;
FFileIcon : TFileIcon;| Constructors |
| Functions |
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 } {
| Properties |
property FileIcon : TFileIconDéclarations publiques
| Events |
| Variables |
BrowseBtn : TButton;
CancelBtn : TButton;
IconFileName : TEdit;
IconListBox : TIconListBox;
Label1 : TLabel;
Label2 : TLabel;
OKbtn : TButton;
OpenDialog1 : TOpenDialog;
FFileIcon : TFileIcon;Déclarations privées