Ignore:
Timestamp:
Dec 26, 2010, 8:12:59 PM (14 years ago)
Author:
george
Message:
  • Modified: Non-visual functions moved to USystem unit.
  • Modified: Loading of object, properties and values rebuilded to general structures.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        22Config.xml
        33chronis
         4heaptrclog.trc

  • trunk/Forms/UMainForm.lfm

    r8 r9  
    66  ActiveControl = Panel1
    77  Caption = 'ChronIS'
    8   ClientHeight = 422
     8  ClientHeight = 418
    99  ClientWidth = 649
    1010  Menu = MainMenu1
    … …  
    1616  object Panel1: TPanel
    1717    Left = 0
    18     Height = 422
     18    Height = 418
    1919    Top = 0
    2020    Width = 184
    2121    Align = alLeft
    2222    BevelOuter = bvNone
    23     ClientHeight = 422
     23    ClientHeight = 418
    2424    ClientWidth = 184
    2525    TabOrder = 0
    2626    object Label1: TLabel
    2727      Left = 7
    28       Height = 14
     28      Height = 18
    2929      Top = 4
    30       Width = 44
     30      Width = 51
    3131      Caption = 'Groups:'
    3232      ParentColor = False
    3333    end
    3434    object TreeView1: TTreeView
    35       Left = 8
    36       Height = 398
     35      Left = 4
     36      Height = 394
    3737      Top = 19
    38       Width = 176
     38      Width = 180
    3939      Anchors = [akTop, akLeft, akRight, akBottom]
    40       DefaultItemHeight = 16
     40      DefaultItemHeight = 19
    4141      Images = ImageListActions
    4242      ReadOnly = True
    … …  
    4848  object Panel2: TPanel
    4949    Left = 189
    50     Height = 422
     50    Height = 418
    5151    Top = 0
    5252    Width = 460
    5353    Align = alClient
    5454    BevelOuter = bvNone
    55     ClientHeight = 422
     55    ClientHeight = 418
    5656    ClientWidth = 460
    5757    TabOrder = 1
    5858    object Label2: TLabel
    59       Left = 11
    60       Height = 14
     59      Left = 2
     60      Height = 18
    6161      Top = 4
    62       Width = 46
     62      Width = 54
    6363      Caption = 'Reports:'
    6464      ParentColor = False
    6565    end
    6666    object ListView1: TListView
    67       Left = 3
    68       Height = 366
     67      Left = 2
     68      Height = 362
    6969      Top = 19
    70       Width = 450
     70      Width = 456
    7171      Anchors = [akTop, akLeft, akRight, akBottom]
    7272      Columns = <>
    … …  
    8686      Left = 3
    8787      Height = 25
    88       Top = 393
     88      Top = 389
    8989      Width = 75
    9090      Action = AItemAdd
    … …  
    9595      Left = 83
    9696      Height = 25
    97       Top = 393
     97      Top = 389
    9898      Width = 75
    9999      Action = AItemDelete
    … …  
    104104  object Splitter1: TSplitter
    105105    Left = 184
    106     Height = 422
     106    Height = 418
    107107    Top = 0
    108108    Width = 5
Note: See TracChangeset for help on using the changeset viewer.