× General Purpose Components and Libraries, discussions, problems and suggestions

Question help with TplGallery in TplGalleryUnit in pl_ExControls.pkg

  • Paul
  • Paul's Avatar Topic Author
  • Offline
  • Fresh Boarder
  • Fresh Boarder
More
2 years 9 months ago #11066 by Paul
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

Please Log in or Create an account to join the conversation.