u_marker.pas

   1 unit u_Marker;
   2
   3 {
   4   Feeding Origin 2 is software that supports calculation of nutrient requirement of livestock
   5   and feed design based on Japanese feeding standard.
   6   Copyright (C) 2017,  Syuichiro Fukagawa.
   7
   8   This program is free software; you can redistribute it and/or modify it under the terms of
   9   the GNU General Public License as published by the Free Software Foundation; either version 3
  10   of the License, or (at your option) any later version.
  11   This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
  12   without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13   See the GNU General Public License for more details.
  14   You should have received a copy of the GNU General Public License along with this program.
  15   If not, see <http://www.gnu.org/licenses/>.
  16
  17
  18   Feeding Origin 2は、日本飼養標準に基づいた家畜の養分要求量の計算および飼料設計を支援するソフ
  19   トウェアです.
  20   Copyright (C) 2017,　深川修一郎.
  21
  22   　このプログラムはフリーソフトウェアです。あなたはこれを、フリーソフトウェア財団によって
  23   発行されたGNU一般公衆利用許諾書(バージョン3か、それ以降のバージョンのうちどれか)が定める
  24   条件の下で再頒布または改変することができます。
  25   このプログラムは有用であることを願って頒布されますが、*全くの無保証* です。商業可能性の保証
  26   や特定目的への適合性は、言外に示されたものも含め、全く存在しません。詳しくはGNU一般公衆利用
  27   許諾書をご覧ください。
  28   　あなたはこのプログラムと共に、GNU一般公衆利用許諾書のコピーを一部 受け取っているはずです。
  29   もし受け取っていなければ、<http://www.gnu.org/licenses/> をご覧ください。
  30
  31   *本日本語訳は、FSFより2007年6月29日に発行されたGNU GPL v3の原文から、八田真行氏が翻訳した
  32    ものを基にしています。 ＜ https://mag.osdn.jp/07/09/02/130237 ＞
  33 }
  34
  35 {$mode objfpc}{$H+}
  36
  37 interface
  38
  39 uses
  40   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  41   ExtCtrls;
  42
  43 type
  44
  45   { TfMarker }
  46   iMarkerSize = Array[1..3] of Integer ;
  47
  48   TfMarker = class(TForm)
  49     ComboBox1: TComboBox;
  50     ComboBox2: TComboBox;
  51     ComboBox3: TComboBox;
  52     GroupBox1: TGroupBox;
  53     GroupBox2: TGroupBox;
  54     GroupBox3: TGroupBox;
  55     Label1: TLabel;
  56     Label2: TLabel;
  57     Label3: TLabel;
  58     procedure ComboBox1Change(Sender: TObject);
  59     procedure ComboBox2Change(Sender: TObject);
  60     procedure ComboBox3Change(Sender: TObject);
  61     procedure FormCreate(Sender: TObject);
  62   private
  63     { private declarations }
  64   public
  65     { public declarations }
  66     gMrkSze : iMarkerSize;
  67
  68   end;
  69
  70 var
  71   fMarker: TfMarker;
  72
  73 implementation
  74
  75 {$R *.lfm}
  76
  77 { TfMarker }
  78
  79 procedure TfMarker.FormCreate(Sender: TObject);
  80 begin
  81   gMrkSze[1] := 4;
  82   gMrkSze[2] := 2;
  83   gMrkSze[3] := 2;
  84 end;
  85
  86 procedure TfMarker.ComboBox1Change(Sender: TObject);
  87 begin
  88   gMrkSze[1] := StrToInt(ComboBox1.Text);
  89 end;
  90
  91 procedure TfMarker.ComboBox2Change(Sender: TObject);
  92 begin
  93   gMrkSze[2] := StrToInt(ComboBox2.Text);
  94 end;
  95
  96 procedure TfMarker.ComboBox3Change(Sender: TObject);
  97 begin
  98   gMrkSze[3] := StrToInt(ComboBox3.Text);
  99 end;
 100
 101 end.
 102