Skip to content
Branch: master
Find file History
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
..
Failed to load latest commit information.
FMX.TMSFNCCategoryList.pas
LCLTMSFNCCategoryList.pas
README.md
VCL.TMSFNCCategoryList.pas
WEBLib.TMSFNCCategoryList.pas

README.md

TMS FNC Cloud Pack

Category List

Please follow the steps below to get started with the Category List, after following the main steps to install the components in the IDE.

  1. Drop an instance of TTMSFNCCategoryList on the form
  2. Drop an instance of TTMSFNCBitmapContainer on the form
  3. Add items to the TTMSFNCBitmapContainer instance
  4. Use the following code to initialize the list
    procedure TForm1.InitializeCategoryList;
    var
      I: Integer;
    begin
      TMSFNCCategoryList1.BitmapContainer := TMSFNCBitmapContainer1;
      TMSFNCCategoryList1.Mode := clmHorizontal;
      for I := 0 to TMSFNCBitmapContainer1.ItemCount - 1 do
        TMSFNCCategoryList1.AddCategoryItem(TMSFNCBitmapContainer1.Items[I].Name);
     end;

Assigning a popup or embedded control

  1. Drop an instance of any visual control you wish to show when clicking on an item on the form
  2. Assign the visual control to the PopupControl property of the category list item
    procedure TForm1.InitializeCategoryList;
    var
      it: TTMSFNCCategoryListItem;
    begin
      TMSFNCCategoryList1.BitmapContainer := TMSFNCBitmapContainer1;
      TMSFNCCategoryList1.Mode := clmHorizontal;
    
      it := TMSFNCCategoryList1.AddCategoryItem('Calendar.png');
      it.PopupControl := TMSFNCCalendar1;
      it.PopupMode := ipmPopupControlSize;
    
      TMSFNCCategoryList1.AddCategoryItem('Recycle Bin.png');
      TMSFNCCategoryList1.AddCategoryItem('Home.png');
      TMSFNCCategoryList1.AddCategoryItem('Print.png');
    end;
  3. Optionally change the popup mode to show an embedded control
    procedure TForm1.InitializeCategoryList;
    var
      it: TTMSFNCCategoryListItem;
    begin
      TMSFNCCategoryList1.BitmapContainer := TMSFNCBitmapContainer1;
      TMSFNCCategoryList1.Mode := clmHorizontal;
    
      it := TMSFNCCategoryList1.AddCategoryItem('Calendar.png');
      it.PopupControl := TMSFNCCalendar1;
      it.PopupMode := ipmPopupControlSize;
    
      TMSFNCCategoryList1.AddCategoryItem('Recycle Bin.png');
      TMSFNCCategoryList1.AddCategoryItem('Home.png');
      TMSFNCCategoryList1.AddCategoryItem('Print.png');
      
      TMSFNCCategoryList1.EmbeddedMode := True;    
    end;
You can’t perform that action at this time.