Changeset 12 for trunk/UFormMain.lfm


Ignore:
Timestamp:
May 5, 2014, 3:33:31 PM (10 years ago)
Author:
chronos
Message:
  • Modified: Fixed project path replaced by directory select dialog and recent list menu.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/UFormMain.lfm

    r11 r12  
    7373      Action = AShowLog
    7474    end
     75    object ToolButton5: TToolButton
     76      Left = 93
     77      Top = 2
     78      Action = AOpenDir
     79      DropdownMenu = PopupMenuOpenRecent
     80      Style = tbsDropDown
     81    end
     82    object ToolButton6: TToolButton
     83      Left = 128
     84      Top = 2
     85      Action = ACompare
     86      DropdownMenu = PopupMenuCompareRecent
     87      Style = tbsDropDown
     88    end
    7589  end
    7690  object Memo1: TMemo
     
    135149      object MenuItem7: TMenuItem
    136150        Action = ACompare
     151        Caption = 'Compare directory'
     152      end
     153      object MenuItemCompareRecent: TMenuItem
     154        Caption = 'Compare recent'
    137155      end
    138156      object MenuItem9: TMenuItem
     
    140158      end
    141159      object MenuItem10: TMenuItem
    142         Caption = 'Exit'
     160        Action = AExit
    143161      end
    144162    end
     
    300318      ShortCut = 16454
    301319    end
     320    object AExit: TAction
     321      Caption = 'Exit'
     322      OnExecute = AExitExecute
     323      ShortCut = 32883
     324    end
    302325  end
    303326  object ImageList1: TImageList
     
    468491    }
    469492  end
    470   object LastOpenedList1: TLastOpenedList
     493  object LastOpenedListOpen: TLastOpenedList
    471494    MaxCount = 10
    472     OnChange = LastOpenedList1Change
     495    OnChange = LastOpenedListOpenChange
    473496    left = 144
    474497    top = 160
    475498  end
     499  object PopupMenuOpenRecent: TPopupMenu
     500    left = 194
     501    top = 369
     502  end
     503  object PopupMenuCompareRecent: TPopupMenu
     504    left = 192
     505    top = 432
     506  end
     507  object LastOpenedListCompare: TLastOpenedList
     508    MaxCount = 10
     509    OnChange = LastOpenedListCompareChange
     510    left = 144
     511    top = 232
     512  end
    476513end
Note: See TracChangeset for help on using the changeset viewer.