Changeset 13 for trunk/UCore.lfm


Ignore:
Timestamp:
May 30, 2015, 1:02:36 PM (9 years ago)
Author:
chronos
Message:
  • Added: New test form where general functionality of selected backend can be tested.
  • Added: Basic git backend implementation.
  • Added: Project group form and ability to open/save group of projects as configuration to XML file.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/UCore.lfm

    r11 r13  
    88  Width = 693
    99  object ActionList1: TActionList
    10     left = 260
    11     top = 172
     10    Images = ImageList1
     11    left = 288
     12    top = 176
    1213    object AQuit: TAction
    1314      Caption = 'Quit'
    … …  
    1819      Caption = 'Settings'
    1920      OnExecute = ASettingsExecute
     21      ShortCut = 121
    2022    end
    2123    object AAbout: TAction
    … …  
    2426    object AHelp: TAction
    2527      Caption = 'Help'
     28      ShortCut = 112
    2629    end
    2730    object AViewFavorites: TAction
    … …  
    2932    end
    3033    object AProjectOpen: TAction
     34      Category = 'Project'
    3135      Caption = 'Open...'
    3236      OnExecute = AProjectOpenExecute
    … …  
    3438    end
    3539    object AProjectClose: TAction
     40      Category = 'Project'
    3641      Caption = 'Close'
    3742      OnExecute = AProjectCloseExecute
    … …  
    5358    end
    5459    object AProjectCheckout: TAction
     60      Category = 'Project'
    5561      Caption = 'Checkout...'
    5662      OnExecute = AProjectCheckoutExecute
    5763    end
     64    object AViewTest: TAction
     65      Caption = 'Test'
     66      OnExecute = AViewTestExecute
     67      ShortCut = 16468
     68    end
     69    object AProjectGroupNew: TAction
     70      Category = 'ProjectGroup'
     71      Caption = 'New'
     72      OnExecute = AProjectGroupNewExecute
     73    end
     74    object AProjectGroupOpen: TAction
     75      Category = 'ProjectGroup'
     76      Caption = 'Open...'
     77      OnExecute = AProjectGroupOpenExecute
     78    end
     79    object AProjectGroupClose: TAction
     80      Category = 'ProjectGroup'
     81      Caption = 'Close'
     82      OnExecute = AProjectGroupCloseExecute
     83    end
     84    object AProjectGroupSave: TAction
     85      Category = 'ProjectGroup'
     86      Caption = 'Save'
     87      OnExecute = AProjectGroupSaveExecute
     88    end
     89    object AProjectGroupSaveAs: TAction
     90      Category = 'ProjectGroup'
     91      Caption = 'Save as...'
     92      OnExecute = AProjectGroupSaveAsExecute
     93    end
    5894  end
    5995  object ImageList1: TImageList
    60     left = 260
    61     top = 228
     96    Height = 32
     97    Width = 32
     98    left = 288
     99    top = 240
    62100  end
    63101  object OpenDialog1: TOpenDialog
    64     left = 260
     102    Filter = 'Project groups (.vcgrp))|*.vcgrp|All files (.*)|*.*'
     103    left = 288
    65104    top = 96
    66105  end
    … …  
    72111    top = 96
    73112  end
    74   object LastOpenedList1: TLastOpenedList
     113  object LastOpenedListProject: TLastOpenedList
    75114    MaxCount = 10
    76     OnChange = LastOpenedList1Change
     115    OnChange = LastOpenedListProjectChange
    77116    left = 96
    78117    top = 168
    … …  
    88127    top = 302
    89128  end
     129  object LastOpenedListProjectGroup: TLastOpenedList
     130    MaxCount = 10
     131    OnChange = LastOpenedListProjectGroupChange
     132    left = 464
     133    top = 224
     134  end
     135  object SaveDialog1: TSaveDialog
     136    DefaultExt = '.vcgrp'
     137    Filter = 'Project groups (.vcgrp))|*.vcgrp|All files (.*)|*.*'
     138    left = 288
     139    top = 24
     140  end
    90141end
Note: See TracChangeset for help on using the changeset viewer.