IImageList.LoadFromFile

Синтаксис

LoadFromFile(Value: String; [Transparent: IGxColor = Null]);

Параметры

Value. Параметр, определяющий строку, указывающую путь к файлу, который будет загружен в компонент.

Transparent. Параметр, определяющий цвет, который будет использоваться как прозрачный.

Описание

Метод LoadFromFile осуществляет загрузку изображения в компонент из файла, путь и наименование которого, передаются посредством параметра Value.

Пример Fore

Для выполнения примера предполагается наличие формы, где расположены: кнопка с наименованием «Button1», кнопка с наименованием «Button2», компонент TreeList с наименованием «TreeList1» с добавленным элементом, компонент ImageList с наименованием «ImageList1», компонент FileOpenDialog с наименованием «FileOpenDialog1». Подключите системные сборки: Drawing, Forms. В файловой системе должно быть изображение с пиктограммами в виде горизонтального ряда: «C:\temp\1.bmp».

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Node: ITreeListNode;
Begin
    ImageList1.LoadFromFile("C:\temp\1.bmp", GxColor.FromName("White"));
    TreeList1.Images := ImageList1;
    Node := TreeList1.Nodes.FirstNode;
    Node.ImageIndex := 1;
    Text := ImageList1.Count.ToString;
End Sub Button1OnClick;

Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Node: ITreeListNode;
Begin
    If FileOpenDialog1.Execute Then
        ImageList1.LoadFromFile(FileOpenDialog1.FileName, GxColor.FromName("White"));
        TreeList1.Images := ImageList1;
        Node := TreeList1.Nodes.FirstNode;
        Node.ImageIndex := 1;
        Text := ImageList1.Count.ToString;
    End If;
End Sub Button2OnClick;

При нажатии на кнопку «Button1» в компоненте TreeList появится вторая пиктограмма заданного изображения и отразится количество пиктограмм в наименовании формы. При нажатии на кнопку «Button2» будет выведено диалоговое окно для открытия изображения, после этого в компоненте TreeList появится вторая пиктограмма этого изображения и отразится количество пиктограмм в наименовании формы.

Пример Fore.NET

Для выполнения примера предполагается наличие формы, где расположены: кнопка с наименованием «Button1», кнопка с наименованием «Button2», компонент TreeListNet с наименованием «treeListNet1» с добавленным элементом, компонент ImageListNet с наименованием «imageListNet1», компонент OpenFileDialog с наименованием «openFileDialog1». Подключите системные сборки: Drawing, Forms, Forms.Net. В файловой системе должно быть изображение с пиктограммами в виде горизонтального ряда: «C:\temp\1.bmp».

Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Forms;
Imports Prognoz.Platform.Interop.Drawing;

Sub LoadImageList(ilNet: Prognoz.Platform.Forms.Net.ImageListNet; fileName, clrName: string);
Var
    ImageList: IImageList;
    Clr: GxColor;
Begin
    ImageList := (ilNet.Component As IImageList);
    Clr := New GxColorClassClass().FromName(clrName);
    ImageList.LoadFromFile(fileName, clr);
    Text := ImageList.Count.ToString();
End Sub;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Begin
    LoadImageList(ImageListNet1, "C:\temp\1.bmp", "White");
    TreeListNet1.CtrlBox.Images := imageListNet1.Component As Prognoz.Platform.Interop.Forms.ImageList;
    TreeListNet1.ForeNodes.FirstNode.ImageIndex := 1;
End Sub;
   
Private Sub button2_Click(sender: System.Object; e: System.EventArgs);
Begin
    If openFileDialog1.ShowDialog(self) = DialogResult.OK Then
        LoadImageList(ImageListNet1, openFileDialog1.FileName, "White");
        TreeListNet1.CtrlBox.Images := imageListNet1.Component As Prognoz.Platform.Interop.Forms.ImageList;
        TreeListNet1.ForeNodes.FirstNode.ImageIndex := 1;
    End If;
End Sub;

Результат выполнения примера Fore.NET совпадает с примером Fore.

См. также:

IImageList