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/UItemView.lfm

    r7 r9  
    11object ItemViewForm: TItemViewForm
    2   Left = 337
    3   Height = 416
    4   Top = 135
    5   Width = 552
     2  Left = 311
     3  Height = 469
     4  Top = 110
     5  Width = 626
    66  Caption = 'View item'
    7   ClientHeight = 416
    8   ClientWidth = 552
     7  ClientHeight = 469
     8  ClientWidth = 626
    99  OnClose = FormClose
     10  OnCreate = FormCreate
     11  OnDestroy = FormDestroy
    1012  OnShow = FormShow
    1113  LCLVersion = '0.9.29'
    1214  object ButtonClose: TButton
    13     Left = 472
     15    Left = 546
    1416    Height = 25
    15     Top = 386
     17    Top = 439
    1618    Width = 75
    1719    Anchors = [akRight, akBottom]
    … …  
    2022    TabOrder = 0
    2123  end
    22   object Panel1: TPanel
    23     Left = 0
    24     Height = 378
    25     Top = 0
    26     Width = 552
    27     Align = alTop
    28     Anchors = [akLeft, akRight, akBottom]
    29     BevelOuter = bvNone
    30     TabOrder = 1
    31   end
    3224  object ButtonEdit: TButton
    33     Left = 384
     25    Left = 458
    3426    Height = 25
    35     Top = 386
     27    Top = 439
    3628    Width = 75
    3729    Anchors = [akRight, akBottom]
    3830    Caption = 'Edit'
    3931    OnClick = ButtonEditClick
     32    TabOrder = 1
     33  end
     34  object Panel1: TPanel
     35    Left = 0
     36    Height = 433
     37    Top = 0
     38    Width = 626
     39    Align = alTop
     40    Anchors = [akTop, akLeft, akRight, akBottom]
     41    BevelOuter = bvNone
     42    ClientHeight = 433
     43    ClientWidth = 626
    4044    TabOrder = 2
     45    object Panel2: TPanel
     46      Left = 0
     47      Height = 200
     48      Top = 233
     49      Width = 626
     50      Align = alBottom
     51      BevelOuter = bvNone
     52      ClientHeight = 200
     53      ClientWidth = 626
     54      TabOrder = 0
     55      object TabControl1: TTabControl
     56        Left = 0
     57        Height = 32
     58        Top = 0
     59        Width = 626
     60        Align = alTop
     61        TabIndex = 0
     62        TabOrder = 0
     63        Tabs.Strings = (
     64          'Tab1'
     65          'Tab2'
     66          'Tab3'
     67        )
     68        TabStop = False
     69      end
     70      object ListView1: TListView
     71        Left = 0
     72        Height = 168
     73        Top = 32
     74        Width = 626
     75        Align = alClient
     76        Columns = <>
     77        TabOrder = 1
     78      end
     79    end
     80    object Splitter1: TSplitter
     81      Cursor = crVSplit
     82      Left = 0
     83      Height = 3
     84      Top = 230
     85      Width = 626
     86      Align = alBottom
     87      ResizeAnchor = akBottom
     88    end
     89    object PanelControls: TPanel
     90      Left = 0
     91      Height = 230
     92      Top = 0
     93      Width = 626
     94      Align = alClient
     95      Anchors = [akLeft, akRight, akBottom]
     96      BevelOuter = bvNone
     97      TabOrder = 2
     98    end
    4199  end
    42100end
Note: See TracChangeset for help on using the changeset viewer.