/InraAfz/UnitMain.dfm - Annoter - EvaPig - Forge DGA

1

avalancogn

object FormMain: TFormMain

2

  Left = 0

3

  Top = 0

4

  Caption = 'Tables'

5

  ClientHeight = 566

6

  ClientWidth = 792

7

  Color = clBtnFace

8

  Font.Charset = DEFAULT_CHARSET

9

  Font.Color = clWindowText

10

  Font.Height = -11

11

  Font.Name = 'Tahoma'

12

  Font.Style = []

13

  OldCreateOrder = False

14

  WindowState = wsMaximized

15

  OnClose = FormClose

16

  OnShow = FormShow

17

  PixelsPerInch = 96

18

  TextHeight = 13

19

  object DBGridInraAfz: TDBGrid

20

    Left = 0

21

    Top = 0

22

    Width = 792

23

    Height = 526

24

    Align = alClient

25

    DataSource = DataSourceInraAfz

26

    DefaultDrawing = False

27

    TabOrder = 0

28

    TitleFont.Charset = DEFAULT_CHARSET

29

    TitleFont.Color = clWindowText

30

    TitleFont.Height = -11

31

    TitleFont.Name = 'Tahoma'

32

    TitleFont.Style = []

33

    OnDrawColumnCell = DBGridInraAfzDrawColumnCell

34

    OnTitleClick = DBGridInraAfzTitleClick

35

    Columns = <

36

      item

37

        Expanded = False

38

        FieldName = 'Id'

39

        ReadOnly = True

40

        Width = 48

41

        Visible = True

42

end

43

      item

44

        Expanded = False

45

        FieldName = 'Name'

46

        Width = 320

47

        Visible = True

48

end

49

      item

50

        Expanded = False

51

        FieldName = 'Source'

52

        Width = 120

53

        Visible = True

54

end

55

      item

56

        Expanded = False

57

        FieldName = 'ClassName'

58

        Title.Caption = 'Classe'

59

        Width = 200

60

        Visible = True

61

end

62

      item

63

        Expanded = False

64

        FieldName = 'MS'

65

        Visible = True

66

end

67

      item

68

        Expanded = False

69

        FieldName = 'MM'

70

        Visible = True

71

end

72

      item

73

        Expanded = False

74

        FieldName = 'MAT'

75

        Visible = True

76

end

77

      item

78

        Expanded = False

79

        FieldName = 'MG'

80

        Visible = True

81

end

82

      item

83

        Expanded = False

84

        FieldName = 'CB'

85

        Visible = True

86

end

87

      item

88

        Expanded = False

89

        FieldName = 'CoefCB'

90

        Visible = True

91

end

92

      item

93

        Expanded = False

94

        FieldName = 'NDF'

95

        Visible = True

96

end

97

      item

98

        Expanded = False

99

        FieldName = 'CoefNDF'

100

        Visible = True

101

end

102

      item

103

        Expanded = False

104

        FieldName = 'ADF'

105

        Visible = True

106

end

107

      item

108

        Expanded = False

109

        FieldName = 'CoefADF'

110

        Visible = True

111

end

112

      item

113

        Expanded = False

114

        FieldName = 'ADL'

115

        Visible = True

116

end

117

      item

118

        Expanded = False

119

        FieldName = 'Amidon'

120

        Visible = True

121

end

122

      item

123

        Expanded = False

124

        FieldName = 'Sucres'

125

        Visible = True

126

end

127

      item

128

        Expanded = False

129

        FieldName = 'EB'

130

        Visible = True

131

end

132

      item

133

        Expanded = False

134

        FieldName = 'dEc'

135

        Visible = True

136

end

137

      item

138

        Expanded = False

139

        FieldName = 'EMc/EDc'

140

        Visible = True

141

end

142

      item

143

        Expanded = False

144

        FieldName = 'ENc/EMc'

145

        Visible = True

146

end

147

      item

148

        Expanded = False

149

        FieldName = 'EMt/EDt'

150

        Visible = True

151

end

152

      item

153

        Expanded = False

154

        FieldName = 'ENt/EMt'

155

        Visible = True

156

end

157

      item

158

        Expanded = False

159

        FieldName = 'EDt/EDc'

160

        Visible = True

161

end

162

      item

163

        Expanded = False

164

        FieldName = 'a'

165

        Visible = True

166

end

167

      item

168

        Expanded = False

169

        FieldName = 'b'

170

        Visible = True

171

end

172

      item

173

        Expanded = False

174

        FieldName = 'dNc'

175

        Visible = True

176

end

177

      item

178

        Expanded = False

179

        FieldName = 'dNt'

180

        Visible = True

181

end

182

      item

183

        Expanded = False

184

        FieldName = 'Lys'

185

        Visible = True

186

end

187

      item

188

        Expanded = False

189

        FieldName = 'Thr'

190

        Visible = True

191

end

192

      item

193

        Expanded = False

194

        FieldName = 'Met'

195

        Visible = True

196

end

197

      item

198

        Expanded = False

199

        FieldName = 'Cys'

200

        Visible = True

201

end

202

      item

203

        Expanded = False

204

        FieldName = 'MetCys'

205

        Visible = True

206

end

207

      item

208

        Expanded = False

209

        FieldName = 'Trp'

210

        Visible = True

211

end

212

      item

213

        Expanded = False

214

        FieldName = 'Ile'

215

        Visible = True

216

end

217

      item

218

        Expanded = False

219

        FieldName = 'Val'

220

        Visible = True

221

end

222

      item

223

        Expanded = False

224

        FieldName = 'Leu'

225

        Visible = True

226

end

227

      item

228

        Expanded = False

229

        FieldName = 'Phe'

230

        Visible = True

231

end

232

      item

233

        Expanded = False

234

        FieldName = 'Tyr'

235

        Visible = True

236

end

237

      item

238

        Expanded = False

239

        FieldName = 'PheTyr'

240

        Visible = True

241

end

242

      item

243

        Expanded = False

244

        FieldName = 'His'

245

        Visible = True

246

end

247

      item

248

        Expanded = False

249

        FieldName = 'Arg'

250

        Visible = True

251

end

252

      item

253

        Expanded = False

254

        FieldName = 'Ala'

255

        Visible = True

256

end

257

      item

258

        Expanded = False

259

        FieldName = 'Asp'

260

        Visible = True

261

end

262

      item

263

        Expanded = False

264

        FieldName = 'Glu'

265

        Visible = True

266

end

267

      item

268

        Expanded = False

269

        FieldName = 'Gly'

270

        Visible = True

271

end

272

      item

273

        Expanded = False

274

        FieldName = 'Ser'

275

        Visible = True

276

end

277

      item

278

        Expanded = False

279

        FieldName = 'Pro'

280

        Visible = True

281

end

282

      item

283

        Expanded = False

284

        FieldName = 'dLys'

285

        Visible = True

286

end

287

      item

288

        Expanded = False

289

        FieldName = 'dThr'

290

        Visible = True

291

end

292

      item

293

        Expanded = False

294

        FieldName = 'dMet'

295

        Visible = True

296

end

297

      item

298

        Expanded = False

299

        FieldName = 'dCys'

300

        Visible = True

301

end

302

      item

303

        Expanded = False

304

        FieldName = 'dMetCys'

305

        Visible = True

306

end

307

      item

308

        Expanded = False

309

        FieldName = 'dTrp'

310

        Visible = True

311

end

312

      item

313

        Expanded = False

314

        FieldName = 'dIle'

315

        Visible = True

316

end

317

      item

318

        Expanded = False

319

        FieldName = 'dVal'

320

        Visible = True

321

end

322

      item

323

        Expanded = False

324

        FieldName = 'dLeu'

325

        Visible = True

326

end

327

      item

328

        Expanded = False

329

        FieldName = 'dPhe'

330

        Visible = True

331

end

332

      item

333

        Expanded = False

334

        FieldName = 'dTyr'

335

        Visible = True

336

end

337

      item

338

        Expanded = False

339

        FieldName = 'dPheTyr'

340

        Visible = True

341

end

342

      item

343

        Expanded = False

344

        FieldName = 'dHis'

345

        Visible = True

346

end

347

      item

348

        Expanded = False

349

        FieldName = 'dArg'

350

        Visible = True

351

end

352

      item

353

        Expanded = False

354

        FieldName = 'dAla'

355

        Visible = True

356

end

357

      item

358

        Expanded = False

359

        FieldName = 'dAsp'

360

        Visible = True

361

end

362

      item

363

        Expanded = False

364

        FieldName = 'dGlu'

365

        Visible = True

366

end

367

      item

368

        Expanded = False

369

        FieldName = 'dGly'

370

        Visible = True

371

end

372

      item

373

        Expanded = False

374

        FieldName = 'dSer'

375

        Visible = True

376

end

377

      item

378

        Expanded = False

379

        FieldName = 'dPro'

380

        Visible = True

381

end

382

      item

383

        Expanded = False

384

        FieldName = 'Ca'

385

        Visible = True

386

end

387

      item

388

        Expanded = False

389

        FieldName = 'P'

390

        Visible = True

391

end

392

      item

393

        Expanded = False

394

        FieldName = 'dP'

395

        Visible = True

396

end

397

      item

398

        Expanded = False

399

        FieldName = 'dPphy'

400

        Visible = True

401

      end>

402

end

403

  object PanelBoutons: TPanel

404

    Left = 0

405

    Top = 526

406

    Width = 792

407

    Height = 40

408

    Align = alBottom

409

    BevelOuter = bvNone

410

    TabOrder = 1

411

    object SpeedButtonExit: TSpeedButton

412

      Left = 184

413

      Top = 8

414

      Width = 80

415

      Height = 25

416

      Caption = 'Exit'

417

      ParentShowHint = False

418

      ShowHint = True

419

      OnClick = SpeedButtonExitClick

420

end

421

    object SpeedButtonSave: TSpeedButton

422

      Left = 96

423

      Top = 8

424

      Width = 80

425

      Height = 25

426

      Caption = 'Save'

427

      ParentShowHint = False

428

      ShowHint = True

429

      OnClick = SpeedButtonSaveClick

430

end

431

    object SpeedButtonLoad: TSpeedButton

432

      Left = 8

433

      Top = 8

434

      Width = 80

435

      Height = 25

436

      Caption = 'Load'

437

      ParentShowHint = False

438

      ShowHint = True

439

      OnClick = SpeedButtonLoadClick

440

end

441

end

442

  object ListBoxClasses: TListBox

443

    Left = 8

444

    Top = 48

445

    Width = 200

446

    Height = 238

447

    ItemHeight = 13

448

    Items.Strings = (

449

      'Cereals'

450

      'Wheat by-products'

451

      'Maize by-products'

452

      'Other cereal by-products'

453

      'Rice by-products'

454

      'Legume and oil seeds'

455

      'Oil seed meals'

456

      'Starch, roots and tubers'

457

      'Fruits and vegetables by-products'

458

      'Molasses and vinasses'

459

      'Other plant products'

460

      'Dehydrated forages'

461

      'Dairy products'

462

      'Fish meals and solubles'

463

      'Other animal by-products'

464

      'Fats and oils'

465

      'Amino acids'

466

      'Mineral sources')

467

    TabOrder = 2

468

    Visible = False

469

end

470

  object DataSourceInraAfz: TDataSource

471

    DataSet = ClientDataSetInraAfz

472

    Left = 400

473

    Top = 456

474

end

475

  object XPManifestStyle: TXPManifest

476

    Left = 40

477

    Top = 456

478

end

479

  object ClientDataSetClasses: TClientDataSet

480

    Aggregates = <>

481

    MasterFields = 'Id'

482

    Params = <>

483

    Left = 160

484

    Top = 456

485

    object ClientDataSetClassesId: TIntegerField

486

      FieldName = 'Id'

487

end

488

    object ClientDataSetClassesName: TWideStringField

489

      FieldName = 'Name'

490

      Size = 40

491

end

492

end

493

  object ClientDataSetInraAfz: TClientDataSet

494

    Aggregates = <>

495

    AutoCalcFields = False

496

    FieldDefs = <>

497

    IndexDefs = <

498

      item

499

        Name = 'ClientDataSetInraAfzIndexId'

500

        Fields = 'Id'

501

        Options = [ixPrimary]

502

      end>

503

    Params = <>

504

    StoreDefs = True

505

    Left = 280

506

    Top = 456

507

    object ClientDataSetInraAfzId: TAutoIncField

508

      AutoGenerateValue = arAutoInc

509

      FieldName = 'Id'

510

end

511

    object ClientDataSetInraAfzName: TStringField

512

      FieldName = 'Name'

513

      Size = 80

514

end

515

    object ClientDataSetInraAfzComment: TStringField

516

      FieldName = 'Comment'

517

      Size = 320

518

end

519

    object ClientDataSetInraAfzSource: TStringField

520

      FieldName = 'Source'

521

      Size = 80

522

end

523

    object ClientDataSetInraAfzClass: TIntegerField

524

      DisplayLabel = 'ClassId'

525

      FieldName = 'Class'

526

      Required = True

527

end

528

    object ClientDataSetInraAfzClassName: TStringField

529

      FieldKind = fkLookup

530

      FieldName = 'ClassName'

531

      LookupDataSet = ClientDataSetClasses

532

      LookupKeyFields = 'Id'

533

      LookupResultField = 'Name'

534

      KeyFields = 'Class'

535

      Size = 40

536

      Lookup = True

537

end

538

    object ClientDataSetInraAfzMS: TFloatField

539

      FieldName = 'MS'

540

end

541

    object ClientDataSetInraAfzMM: TFloatField

542

      FieldName = 'MM'

543

end

544

    object ClientDataSetInraAfzMAT: TFloatField

545

      FieldName = 'MAT'

546

end

547

    object ClientDataSetInraAfzMG: TFloatField

548

      FieldName = 'MG'

549

end

550

    object ClientDataSetInraAfzCB: TFloatField

551

      FieldName = 'CB'

552

end

553

    object ClientDataSetInraAfzCoefCB: TFloatField

554

      FieldName = 'CoefCB'

555

end

556

    object ClientDataSetInraAfzNDF: TFloatField

557

      FieldName = 'NDF'

558

end

559

    object ClientDataSetInraAfzCoefNDF: TFloatField

560

      FieldName = 'CoefNDF'

561

end

562

    object ClientDataSetInraAfzADF: TFloatField

563

      FieldName = 'ADF'

564

end

565

    object ClientDataSetInraAfzCoefADF: TFloatField

566

      FieldName = 'CoefADF'

567

end

568

    object ClientDataSetInraAfzADL: TFloatField

569

      FieldName = 'ADL'

570

end

571

    object ClientDataSetInraAfzAmidon: TFloatField

572

      FieldName = 'Amidon'

573

end

574

    object ClientDataSetInraAfzSucres: TFloatField

575

      FieldName = 'Sucres'

576

end

577

    object ClientDataSetInraAfzEB: TFloatField

578

      FieldName = 'EB'

579

end

580

    object ClientDataSetInraAfzdEc: TFloatField

581

      FieldName = 'dEc'

582

end

583

    object ClientDataSetInraAfzEMc_EDc: TFloatField

584

      FieldName = 'EMc/EDc'

585

end

586

    object ClientDataSetInraAfzENc_EMc: TFloatField

587

      FieldName = 'ENc/EMc'

588

end

589

    object ClientDataSetInraAfzEMt_EDt: TFloatField

590

      FieldName = 'EMt/EDt'

591

end

592

    object ClientDataSetInraAfzENt_EMt: TFloatField

593

      FieldName = 'ENt/EMt'

594

end

595

    object ClientDataSetInraAfzEDt_EDc: TFloatField

596

      FieldName = 'EDt/EDc'

597

end

598

    object ClientDataSetInraAfza: TFloatField

599

      FieldName = 'a'

600

end

601

    object ClientDataSetInraAfzb: TFloatField

602

      FieldName = 'b'

603

end

604

    object ClientDataSetInraAfzdNc: TFloatField

605

      FieldName = 'dNc'

606

end

607

    object ClientDataSetInraAfzdNt: TFloatField

608

      FieldName = 'dNt'

609

end

610

    object ClientDataSetInraAfzLys: TFloatField

611

      FieldName = 'Lys'

612

end

613

    object ClientDataSetInraAfzThr: TFloatField

614

      FieldName = 'Thr'

615

end

616

    object ClientDataSetInraAfzMet: TFloatField

617

      FieldName = 'Met'

618

end

619

    object ClientDataSetInraAfzCys: TFloatField

620

      FieldName = 'Cys'

621

end

622

    object ClientDataSetInraAfzMetCys: TFloatField

623

      FieldName = 'MetCys'

624

end

625

    object ClientDataSetInraAfzTrp: TFloatField

626

      FieldName = 'Trp'

627

end

628

    object ClientDataSetInraAfzIle: TFloatField

629

      FieldName = 'Ile'

630

end

631

    object ClientDataSetInraAfzVal: TFloatField

632

      FieldName = 'Val'

633

end

634

    object ClientDataSetInraAfzLeu: TFloatField

635

      FieldName = 'Leu'

636

end

637

    object ClientDataSetInraAfzPhe: TFloatField

638

      FieldName = 'Phe'

639

end

640

    object ClientDataSetInraAfzTyr: TFloatField

641

      FieldName = 'Tyr'

642

end

643

    object ClientDataSetInraAfzPheTyr: TFloatField

644

      FieldName = 'PheTyr'

645

end

646

    object ClientDataSetInraAfzHis: TFloatField

647

      FieldName = 'His'

648

end

649

    object ClientDataSetInraAfzArg: TFloatField

650

      FieldName = 'Arg'

651

end

652

    object ClientDataSetInraAfzAla: TFloatField

653

      FieldName = 'Ala'

654

end

655

    object ClientDataSetInraAfzAsp: TFloatField

656

      FieldName = 'Asp'

657

end

658

    object ClientDataSetInraAfzGlu: TFloatField

659

      FieldName = 'Glu'

660

end

661

    object ClientDataSetInraAfzGly: TFloatField

662

      FieldName = 'Gly'

663

end

664

    object ClientDataSetInraAfzSer: TFloatField

665

      FieldName = 'Ser'

666

end

667

    object ClientDataSetInraAfzPro: TFloatField

668

      FieldName = 'Pro'

669

end

670

    object ClientDataSetInraAfzdLys: TFloatField

671

      FieldName = 'dLys'

672

end

673

    object ClientDataSetInraAfzdThr: TFloatField

674

      FieldName = 'dThr'

675

end

676

    object ClientDataSetInraAfzdMet: TFloatField

677

      FieldName = 'dMet'

678

end

679

    object ClientDataSetInraAfzdCys: TFloatField

680

      FieldName = 'dCys'

681

end

682

    object ClientDataSetInraAfzdMetCys: TFloatField

683

      FieldName = 'dMetCys'

684

end

685

    object ClientDataSetInraAfzdTrp: TFloatField

686

      FieldName = 'dTrp'

687

end

688

    object ClientDataSetInraAfzdIle: TFloatField

689

      FieldName = 'dIle'

690

end

691

    object ClientDataSetInraAfzdVal: TFloatField

692

      FieldName = 'dVal'

693

end

694

    object ClientDataSetInraAfzdLeu: TFloatField

695

      FieldName = 'dLeu'

696

end

697

    object ClientDataSetInraAfzdPhe: TFloatField

698

      FieldName = 'dPhe'

699

end

700

    object ClientDataSetInraAfzdTyr: TFloatField

701

      FieldName = 'dTyr'

702

end

703

    object ClientDataSetInraAfzdPheTyr: TFloatField

704

      FieldName = 'dPheTyr'

705

end

706

    object ClientDataSetInraAfzdHis: TFloatField

707

      FieldName = 'dHis'

708

end

709

    object ClientDataSetInraAfzdArg: TFloatField

710

      FieldName = 'dArg'

711

end

712

    object ClientDataSetInraAfzdAla: TFloatField

713

      FieldName = 'dAla'

714

end

715

    object ClientDataSetInraAfzdAsp: TFloatField

716

      FieldName = 'dAsp'

717

end

718

    object ClientDataSetInraAfzdGlu: TFloatField

719

      FieldName = 'dGlu'

720

end

721

    object ClientDataSetInraAfzdGly: TFloatField

722

      FieldName = 'dGly'

723

end

724

    object ClientDataSetInraAfzdSer: TFloatField

725

      FieldName = 'dSer'

726

end

727

    object ClientDataSetInraAfzdPro: TFloatField

728

      FieldName = 'dPro'

729

end

730

    object ClientDataSetInraAfzCa: TFloatField

731

      FieldName = 'Ca'

732

end

733

    object ClientDataSetInraAfzP: TFloatField

734

      FieldName = 'P'

735

end

736

    object ClientDataSetInraAfzdP: TFloatField

737

      FieldName = 'dP'

738

end

739

    object ClientDataSetInraAfzdPphy: TFloatField

740

      FieldName = 'dPphy'

741

end

742

end

743

  object OpenDialogCSV: TOpenDialog

744

    DefaultExt = 'csv'

745

    Filter = 'CSV (s'#233'parateur: point-virgule) (*.csv)|*.csv'

746

    Left = 640

747

    Top = 456

748

end

749

  object JvCsvDataSetInput: TJvCsvDataSet

750

    ReadOnly = True

751

    CsvFieldDef =

752

      'Id:%;Name:$80;Comment:$320;Source:$80;ClassId:%;ClassName:$40;MS' +

753

      ':&;MM:&;MAT:&;MG:&;CB:&;CoefCB:&;NDF:&;CoefNDF:&;ADF:&;CoefADF:&' +

754

      ';ADL:&;Amidon:&;Sucres:&;EB_kCal:&;EB_MJ:&;dEc:&;EMc_EDc:&;ENc_E' +

755

      'Mc:&;EMt_EDt:&;ENt_EMt:&;EDt_EDc:&;a:&;b:&;dNc:&;dNt:&;Lys:&;Thr' +

756

      ':&;Met:&;Cys:&;MetCys:&;Trp:&;Ile:&;Val:&;Leu:&;Phe:&;Tyr:&;PheT' +

757

      'yr:&;His:&;Arg:&;Ala:&;Asp:&;Glu:&;Gly:&;Ser:&;Pro:&;dLys:&;dThr' +

758

      ':&;dMet:&;dCys:&;dMetCys:&;dTrp:&;dIle:&;dVal:&;dLeu:&;dPhe:&;dT' +

759

      'yr:&;dPheTyr:&;dHis:&;dArg:&;dAla:&;dAsp:&;dGlu:&;dGly:&;dSer:&;' +

760

      'dPro:&;Ca:&;P:&;dP:&;dPphy:&'

761

    ValidateHeaderRow = False

762

    Separator = ';'

763

    AutoBackupCount = 0

764

    Left = 520

765

    Top = 456

766

end

767

end

EvaPig

root / InraAfz / UnitMain.dfm @ 1