Ignore:
Timestamp:
Oct 28, 2010, 4:52:53 PM (14 years ago)
Author:
george
Message:
  • Added: Generic class TGDictionary and TGPair. Specialized class TDictionaryString.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/Demo/UMainForm.lfm

    r71 r72  
    11object MainForm: TMainForm
    22  Left = 379
    3   Height = 322
     3  Height = 397
    44  Top = 129
    5   Width = 433
     5  Width = 478
    66  ActiveControl = ButtonIntegerList
    77  Caption = 'Template generics demo'
    8   ClientHeight = 322
    9   ClientWidth = 433
     8  ClientHeight = 397
     9  ClientWidth = 478
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
    … …  
    1515    Height = 25
    1616    Top = 8
    17     Width = 75
    18     Caption = 'IntegerList'
     17    Width = 112
     18    Caption = 'TListInteger'
    1919    OnClick = ButtonIntegerListClick
    2020    TabOrder = 0
    2121  end
    2222  object MemoOutput: TMemo
    23     Left = 95
    24     Height = 306
    25     Top = 6
    26     Width = 329
     23    Left = 128
     24    Height = 384
     25    Top = 8
     26    Width = 344
    2727    Anchors = [akTop, akLeft, akRight, akBottom]
    2828    ReadOnly = True
    … …  
    3434    Height = 25
    3535    Top = 40
    36     Width = 75
    37     Caption = 'StringList'
     36    Width = 112
     37    Caption = 'TListString'
    3838    OnClick = ButtonStringListClick
    3939    TabOrder = 2
    4040  end
     41  object ButtonDictionaryString: TButton
     42    Left = 8
     43    Height = 25
     44    Top = 72
     45    Width = 112
     46    Caption = 'TDictionaryString'
     47    OnClick = ButtonDictionaryStringClick
     48    TabOrder = 3
     49  end
    4150end
Note: See TracChangeset for help on using the changeset viewer.