SaveToDoc(Value: String; BgColor: IGxColor): Boolean;
Value. Путь к файлу, в который необходимо сохранить изображения.
BgColor. Цвет фона картинки. Если в качестве цвета фона передается Null, то цвет будет выбираться случайно.
Метод SaveToDoc сохраняет все изображения из коллекции в файл, путь которого передается в качестве входного параметра Value. Все изображения сохраняются в виде горизонтального ряда, и метод возвращает признак удачного сохранения.
Для выполнения примера предполагается наличие формы, где расположены: кнопка с наименованием «Button1», компонент ImageList с наименованием «ImageList1» и набором изображений в коллекции. Подробнее о загрузке изображений в компонент написано в разделе ImageList. Подключите системные сборки: Drawing, Forms, Io.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
ImgList: IGxImageList;
Str: IIOStream;
Begin
ImgList := New GxImageList.Create;
Str := New MemoryStream.Create;
// Через поток передаем пиктораммы в коллекцию изображений
ImageList1.SaveToStream(Str, GxColor.FromName("White"));
ImgList.LoadFromStream(Str);
// Удаляем одно изображение из коллекции и сохраняем в файл оставшиеся
ImgList.Remove(1);
ImgList.SaveToDoc("C:\temp\1.bmp", GxColor.FromName("White"));
// Выводим в консоль количество изображений в коллекции и размеры первого изображения
Debug.WriteLine("Количество изображений в коллекции: " + ImgList.Count.ToString);
Debug.WriteLine("Size:");
Debug.WriteLine("Width: " + ImgList.Item(0).Size.Width.ToString);
Debug.WriteLine("Height: " + ImgList.Item(0).Size.Height.ToString);
End Sub Button1OnClick;
При нажатии на кнопку удалится одно изображение из коллекции, и в заданный файл будут сохранены оставшиеся изображения в виде горизонтального ряда:
В окно консоли выведется количество изображений, содержащихся в файле, и размеры первого изображения.
Для выполнения примера предполагается наличие формы, где расположены: кнопка с наименованием «Button1», компонент ImageListNet с наименованием «imageListNet1». В файловой системе должно быть изображение с пиктограммами: «C:\1.bmp». Подключите .NET сборку System.IO и системные сборки: Drawing, Forms, Forms.NET.
Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Forms;
Imports System.IO;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
ImgList: IGxImageList;
Str: Stream;
Color: GxColorClassClass = New GxColorClassClass();
il: IImageList;
Begin
ImgList := New GxImageList.Create();
Str := New MemoryStream.Create();
// Добавим изображение с пиктограммами из файла в компонент ImageListNet
il := (imageListNet1.Component As IImageList);
il.LoadFromFile("C:\1.bmp", Color.FromName("White"));
// Через поток передаем пиктораммы в коллекцию изображений
il.SaveToStream(Str, Color.FromName("White"));
ImgList.LoadFromStream(Str, Color.FromName("White"));
// Удаляем одно изображение из коллекции и сохраняем в файл оставшиеся
ImgList.Delete(1);
ImgList.SaveToDoc("C:\temp\1.bmp", Color.FromName("White"));
// Выводим в консоль количество изображений в коллекции и размеры первого изображения
System.Diagnostics.Debug.WriteLine("Количество изображений в коллекции: " + ImgList.Count.ToString());
System.Diagnostics.Debug.WriteLine("Size:");
System.Diagnostics.Debug.WriteLine("Width: " + ImgList.Item[0].Size.Width.ToString());
System.Diagnostics.Debug.WriteLine("Height: " + ImgList.Item[0].Size.Height.ToString());
End Sub;
Результат выполнения примера Fore.NET совпадает с примером Fore.
См. также: