UNIT - FrameImageListbox

   Path: D:\DEV\DX10\FramesFMX\FrameImageListbox.pas

   Date, Size, Lines: 14.06.2020 19:02:52 / 3 kb / 121 lines

 
 SUMMARY ( Unit )

   Frame that displays an image thumbnail-list
 
    Documentation generated by Pascal Project Manager & Editor
   
    How to use:
        1 Add the unit to your project
        2 From the Component-selector select frames and draw a ectangle on
          the form, were the frame sould be insert
        3 In the opened dialog select FrameImageListbox
   
        Downloadlink for source:   FrameImageListbox.zip

        Watch Video on YouTube: https://youtu.be/9Wpnx2AQExI      

 
   
CLASSES

Name Description
TFr_ImageListbox = class(TFrame)-
 
 
ROUTINES - Local

Name Description
F(const Path: string const SearchRec: TSearchRec): Boolean-
P LoadAndShrinkImage-
 
INTERFACES, CLASSES, RECORDS AND ROUTINES

 
TFr_ImageListbox = class(TFrame)    Methods    private    public
Methods and Fields Description
lbFiles: TListBox;-
lbTemplate: TListBox;-
ListBoxItemImageTemplate: TListBoxItem;-
ImageMini: TImage;-
FileInfo: TText;-
Line1: TLine;-
Line2: TLine;-
P ListBoxItemImageTemplateApplyStyleLookup();-
private-
{ Private declarations }-
public-
{ Public declarations }-
P ShowFilesInFolder(Dir: string; AMask: string = '*.*');With this procedure you can show the images in the given directory
 
ROUTINES IN DETAILS

 

procedure ShowFilesInFolder(Dir: string; AMask: string = '*.*');  

Summary: With this procedure you can show the images in the given directory

Procedure Description
Procedure Description
Example:  If you want to access the name of a clicked file,
 use Onclick of the listbox. Example:
 
 procedure TForm1.Fr_ImageListbox1lbFilesClick(Sender: TObject);
 begin
   Image1.Bitmap.LoadFromFile(Fr_ImageListbox1.lbFiles.listitems[Fr_ImageListbox1.lbFiles.itemindex].tagstring)
 end;