File: unit26b.lfm

package info (click to toggle)
dozzaqueux 3.51-2.1
  • links: PTS
  • area: main
  • in suites: bookworm, bullseye
  • size: 5,764 kB
  • sloc: pascal: 35,831; xml: 961; makefile: 50; sh: 32
file content (152 lines) | stat: -rwxr-xr-x 4,692 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
object Form26b: TForm26b
  Left = 730
  Height = 438
  Top = 183
  Width = 630
  ActiveControl = Editformulebrute
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Recherche dans la base'
  ClientHeight = 438
  ClientWidth = 630
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.2.2.0'
  object Label1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 10
    Height = 20
    Top = 10
    Width = 380
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Entrez tout ou partie de l''indentifiant ou du synonyme'
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label3: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Label1
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 20
    Top = 40
    Width = 341
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = ' Exemples: éthanoïque       Acide pentanedioïque '
    Font.Color = clBlack
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label2: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = BitBtn1
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 20
    Top = 199
    Width = 210
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Puis cliquez sur l''espéce choisie:'
    ParentColor = False
  end
  object Editformulebrute: TEdit
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Label3
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 10
    Height = 28
    Top = 70
    Width = 620
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Editformulebrute
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = BitBtn2
    Left = 10
    Height = 81
    Top = 108
    Width = 463
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    BorderSpacing.Right = 10
    Caption = 'Chercher'
    Default = True
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      04000000000068010000120B0000120B00001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000
    }
    NumGlyphs = 2
    OnClick = BitBtn1Click
    TabOrder = 1
  end
  object sgreactifs: TStringGrid
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Label2
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 10
    Height = 209
    Hint = 'Pour sélectionner un réactif, cliquez sur la ligne correspondante.'
    Top = 229
    Width = 610
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    BorderSpacing.Right = 10
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnMouseUp = sgreactifsMouseUp
  end
  object BitBtn2: TBitBtn
    AnchorSideTop.Control = BitBtn1
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 483
    Height = 81
    Top = 108
    Width = 137
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 10
    Cancel = True
    Caption = 'Annuler'
    Kind = bkCancel
    ModalResult = 2
    TabOrder = 3
  end
end