Changeset 20 for trunk/UCore.lfm


Ignore:
Timestamp:
Apr 3, 2025, 10:37:14 PM (9 days ago)
Author:
chronos
Message:
  • Added: Create repository action.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/UCore.lfm

    r19 r20  
    33  OnDestroy = DataModuleDestroy
    44  OldCreateOrder = False
    5   Height = 544
    6   HorizontalOffset = 869
    7   VerticalOffset = 383
    8   Width = 866
    9   PPI = 120
     5  Height = 653
     6  HorizontalOffset = 1060
     7  VerticalOffset = 515
     8  Width = 1039
     9  PPI = 144
    1010  object ActionList1: TActionList
    1111    Images = ImageList1
    12     left = 360
    13     top = 220
     12    Left = 432
     13    Top = 264
    1414    object AQuit: TAction
    1515      Caption = 'Quit'
     
    9393      OnExecute = AProjectGroupSaveAsExecute
    9494    end
     95    object ARepositoryCreate: TAction
     96      Caption = 'Create'
     97      OnExecute = ARepositoryCreateExecute
     98    end
    9599  end
    96100  object ImageList1: TImageList
    97101    Height = 32
    98102    Width = 32
    99     left = 360
    100     top = 300
     103    Left = 432
     104    Top = 360
    101105  end
    102106  object OpenDialog1: TOpenDialog
    103107    Filter = 'Project groups (.vcgrp))|*.vcgrp|All files (.*)|*.*'
    104     left = 360
    105     top = 120
     108    Left = 432
     109    Top = 144
    106110  end
    107111  object XMLConfig1: TXMLConfig
     
    109113    RootName = 'CONFIG'
    110114    ReadOnly = False
    111     left = 120
    112     top = 120
     115    Left = 144
     116    Top = 144
    113117  end
    114118  object LastOpenedListProject: TLastOpenedList
    115119    MaxCount = 10
    116120    OnChange = LastOpenedListProjectChange
    117     left = 120
    118     top = 210
     121    Left = 144
     122    Top = 252
    119123  end
    120124  object LastOpenedListRepoURL: TLastOpenedList
    121125    MaxCount = 10
    122     left = 120
    123     top = 300
     126    Left = 144
     127    Top = 360
    124128  end
    125129  object LastOpenedListNewDir: TLastOpenedList
    126130    MaxCount = 10
    127     left = 581
    128     top = 378
     131    Left = 697
     132    Top = 454
    129133  end
    130134  object LastOpenedListProjectGroup: TLastOpenedList
    131135    MaxCount = 10
    132136    OnChange = LastOpenedListProjectGroupChange
    133     left = 580
    134     top = 280
     137    Left = 696
     138    Top = 336
    135139  end
    136140  object SaveDialog1: TSaveDialog
    137141    DefaultExt = '.vcgrp'
    138142    Filter = 'Project groups (.vcgrp))|*.vcgrp|All files (.*)|*.*'
    139     left = 360
    140     top = 30
     143    Left = 432
     144    Top = 36
    141145  end
    142146end
Note: See TracChangeset for help on using the changeset viewer.