How to: Customize a GalleryControl at Runtime

Nov 13, 2018
2 minutes to read

This example creates a GalleryControl with two groups (Cars and People) and adds images to these groups:

C#
VB.NET

csharp

using DevExpress.XtraBars.Ribbon;
using DevExpress.Utils;
using DevExpress.Utils.Drawing;

GalleryControl gc = new GalleryControl();
gc.Dock = DockStyle.Fill;
this.Controls.Add(gc);

Image im1 = Image.FromFile("c:\\Images\\BMW.jpg");
Image im2 = Image.FromFile("c:\\Images\\Ford.jpg");
Image im3 = Image.FromFile("c:\\Images\\MercedesBenz.jpg");
Image im4 = Image.FromFile("c:\\Images\\AnneDodsworth.jpg");
Image im5 = Image.FromFile("c:\\Images\\HannaMoos.jpg");
Image im6 = Image.FromFile("c:\\Images\\JanetLeverling.jpg");

gc.Gallery.ItemImageLayout = ImageLayoutMode.ZoomInside;
gc.Gallery.ImageSize = new Size(120, 90);
gc.Gallery.ShowItemText = true;

GalleryItemGroup group1 = new GalleryItemGroup();
group1.Caption = "Cars";
gc.Gallery.Groups.Add(group1);

GalleryItemGroup group2 = new GalleryItemGroup();
group2.Caption = "People";
gc.Gallery.Groups.Add(group2);

group1.Items.Add(new GalleryItem(im1, "BMW", ""));
group1.Items.Add(new GalleryItem(im2, "Ford", ""));
group1.Items.Add(new GalleryItem(im3, "Mercedes-Benz", ""));

group2.Items.Add(new GalleryItem(im4, "Anne Dodsworth", ""));
group2.Items.Add(new GalleryItem(im5, "Hanna Moos", ""));
group2.Items.Add(new GalleryItem(im6, "Janet Leverling", ""));

Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.Utils
Imports DevExpress.Utils.Drawing

Dim gc As GalleryControl = New GalleryControl()
gc.Dock = DockStyle.Fill
Me.Controls.Add(gc)

Dim im1 As Image = Image.FromFile("c:\Images\BMW.jpg")
Dim im2 As Image = Image.FromFile("c:\Images\Ford.jpg")
Dim im3 As Image = Image.FromFile("c:\Images\MercedesBenz.jpg")
Dim im4 As Image = Image.FromFile("c:\Images\AnneDodsworth.jpg")
Dim im5 As Image = Image.FromFile("c:\Images\HannaMoos.jpg")
Dim im6 As Image = Image.FromFile("c:\Images\JanetLeverling.jpg")

gc.Gallery.ItemImageLayout = ImageLayoutMode.ZoomInside
gc.Gallery.ImageSize = New Size(120, 90)
gc.Gallery.ShowItemText = True

Dim group1 As GalleryItemGroup = New GalleryItemGroup()
group1.Caption = "Cars"
gc.Gallery.Groups.Add(group1)

Dim group2 As GalleryItemGroup = New GalleryItemGroup()
group2.Caption = "People"
gc.Gallery.Groups.Add(group2)

group1.Items.Add(New GalleryItem(im1, "BMW", ""))
group1.Items.Add(New GalleryItem(im2, "Ford", ""))
group1.Items.Add(New GalleryItem(im3, "Mercedes-Benz", ""))

group2.Items.Add(New GalleryItem(im4, "Anne Dodsworth", ""))
group2.Items.Add(New GalleryItem(im5, "Hanna Moos", ""))
group2.Items.Add(New GalleryItem(im6, "Janet Leverling", ""))