Changeset 87 for trunk/Forms


Ignore:
Timestamp:
Aug 8, 2016, 1:51:33 PM (8 years ago)
Author:
chronos
Message:
  • Added: Dropdown menu for open file icon in main toolbar.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.lfm

    r81 r87  
    8787    end
    8888    object ToolButton2: TToolButton
    89       Left = 75
     89      Left = 110
    9090      Top = 2
    9191      Action = AShowAcronyms
    9292    end
    9393    object ToolButton3: TToolButton
    94       Left = 98
     94      Left = 133
    9595      Top = 2
    9696      Action = AShowCategories
    9797    end
    9898    object ToolButton4: TToolButton
    99       Left = 144
     99      Left = 179
    100100      Top = 2
    101101      Action = AShowImportFormats
    102102    end
    103103    object ToolButton5: TToolButton
    104       Left = 121
     104      Left = 156
    105105      Top = 2
    106106      Action = AShowImportSources
     
    110110      Top = 2
    111111      Action = AFileOpen
     112      DropdownMenu = PopupMenuOpenRecent
     113      Style = tbsDropDown
    112114    end
    113115    object ToolButton7: TToolButton
    114       Left = 47
     116      Left = 59
    115117      Top = 2
    116118      Action = AFileSave
    117119    end
    118120    object ToolButton8: TToolButton
    119       Left = 70
     121      Left = 105
    120122      Height = 22
    121123      Top = 2
     
    125127    end
    126128    object ToolButton9: TToolButton
    127       Left = 167
     129      Left = 202
    128130      Top = 2
    129131      Action = AProcessImports
    130132    end
    131133    object ToolButton10: TToolButton
    132       Left = 190
     134      Left = 225
    133135      Height = 22
    134136      Top = 2
     
    138140    end
    139141    object ToolButton11: TToolButton
    140       Left = 195
     142      Left = 230
    141143      Top = 2
    142144      Action = ASettings
     145    end
     146    object ToolButton12: TToolButton
     147      Left = 82
     148      Top = 2
     149      Action = AFileClose
    143150    end
    144151  end
     
    19942001    top = 296
    19952002  end
     2003  object PopupMenuOpenRecent: TPopupMenu
     2004    left = 379
     2005    top = 136
     2006  end
    19962007end
  • trunk/Forms/UFormMain.pas

    r86 r87  
    7070    Panel1: TPanel;
    7171    PersistentForm1: TPersistentForm;
     72    PopupMenuOpenRecent: TPopupMenu;
    7273    PopupMenuTryIcon: TPopupMenu;
    7374    SaveDialog1: TSaveDialog;
     
    7677    ToolButton10: TToolButton;
    7778    ToolButton11: TToolButton;
     79    ToolButton12: TToolButton;
    7880    ToolButton2: TToolButton;
    7981    ToolButton3: TToolButton;
     
    382384begin
    383385  LastOpenedList1.LoadToMenuItem(MenuItemOpenRecent, OpenRecentClick);
     386  LastOpenedList1.LoadToMenuItem(PopupMenuOpenRecent.Items, OpenRecentClick);
    384387end;
    385388
Note: See TracChangeset for help on using the changeset viewer.