Hi,
I am working with the TplGallery and wanting to get some help please just on a just few points.
I so far have not been able to find anything on the web or here for this component at ll.
1. I am successfully adding images to the gallery, but each successive image is showing larger than the previous - how can I please stabilise the image display sizes?
2. Can a gallery image be scrolled to by index number?
3. (a) LargeChange and SMmallChange control the gallery horizantal scrolling?
(b) If so, how is SmallChange used please?
4. with tGalleryItem there is an inherited property - DisplayName - is it possible to use that as a GalleryItem display label please?
5. Currently I appear to successfully do this -
Using a type...
type
TNodeData = class
fullPath : string;
end;
--- And from a top TreeView Node (only two levels in total)
procedure TForm1.buildGallery;
var
newGalleryItem : tGalleryItem ;
parentNode, thisNode : ttreenode;
counter : integer;
begin
if plGallery1.Items.Count > 0 then
plGallery1.Items.Clear;
parentNode := CatergoriesMembers.selected;
if parentNode.Parent <> nil then
parentNode := parentNode.Parent;
if not parentNode.HasChildren then exit;
for counter := 0 to parentNode.Count -1 do
begin
application.ProcessMessages;
thisNode := parentNode.Items[counter];
newGalleryItem := plGallery1.Items.Add;
with newGalleryItem do
Begin
// showmessage(TNodeData(thisNode.Data).fullPath);
Picture.LoadFromFile(TNodeData(thisNode.Data).fullPath);
DisplayName:=thisNode.Text;
Hint := TNodeData(thisNode.Data).fullPath;
end;
application.ProcessMessages;
end;
end;
Is there anything else I should be doing or be aware of please?
Many thanks,
Paul
