Ignore:
Timestamp:
Apr 8, 2022, 9:43:55 PM (3 years ago)
Author:
chronos
Message:
  • Modified: Use Generics.Collection instead of fgl for better Delphi compatibility.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormFind.lfm

    r103 r128  
    11object FormFind: TFormFind
    22  Left = 469
    3   Height = 545
     3  Height = 523
    44  Top = 407
    5   Width = 841
     5  Width = 807
    66  ActiveControl = EditValue
    77  Caption = 'Find'
    8   ClientHeight = 545
    9   ClientWidth = 841
    10   DesignTimePPI = 150
     8  ClientHeight = 523
     9  ClientWidth = 807
     10  DesignTimePPI = 144
    1111  OnClose = FormClose
    1212  OnCreate = FormCreate
    … …  
    1616  object Panel1: TPanel
    1717    Left = 0
    18     Height = 60
     18    Height = 58
    1919    Top = 0
    20     Width = 841
     20    Width = 807
    2121    Align = alTop
    2222    BevelOuter = bvNone
    23     ClientHeight = 60
    24     ClientWidth = 841
     23    ClientHeight = 58
     24    ClientWidth = 807
    2525    ParentFont = False
    2626    TabOrder = 0
    2727    object ComboBoxField: TComboBox
    28       Left = 192
    29       Height = 42
    30       Top = 17
    31       Width = 250
     28      Left = 184
     29      Height = 41
     30      Top = 16
     31      Width = 240
    3232      ItemHeight = 0
    3333      OnChange = ComboBoxFieldChange
    … …  
    3737    end
    3838    object Label1: TLabel
    39       Left = 14
    40       Height = 27
    41       Top = 20
    42       Width = 142
     39      Left = 13
     40      Height = 26
     41      Top = 19
     42      Width = 135
    4343      Caption = 'By contact field:'
    4444      ParentFont = False
    4545    end
    4646    object EditValue: TEdit
    47       Left = 458
    48       Height = 43
    49       Top = 17
    50       Width = 217
     47      Left = 440
     48      Height = 42
     49      Top = 16
     50      Width = 208
    5151      OnKeyPress = EditValueKeyPress
    5252      TabOrder = 1
    5353    end
    5454    object ButtonFind: TButton
    55       Left = 692
    56       Height = 40
    57       Top = 17
    58       Width = 118
     55      Left = 664
     56      Height = 38
     57      Top = 16
     58      Width = 113
    5959      Caption = 'Find'
    6060      OnClick = ButtonFindClick
Note: See TracChangeset for help on using the changeset viewer.