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
|