2011-09-20 15:27:54 +00:00
|
|
|
unit main;
|
|
|
|
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
uses
|
|
|
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
|
|
Buttons, JIntegerEdit, JLabeledIntegerEdit, JCurrencyEdit,
|
2011-09-27 10:14:38 +00:00
|
|
|
JLabeledCurrencyEdit, JDateEdit, JLabeledDateEdit, JFloatEdit,
|
|
|
|
JLabeledFloatEdit;
|
2011-09-20 15:27:54 +00:00
|
|
|
|
|
|
|
type
|
|
|
|
|
|
|
|
{ TForm1 }
|
|
|
|
|
|
|
|
TForm1 = class(TForm)
|
|
|
|
BitBtn1: TBitBtn;
|
|
|
|
GroupBox1: TGroupBox;
|
|
|
|
GroupBox2: TGroupBox;
|
|
|
|
JCurrencyEdit1: TJCurrencyEdit;
|
|
|
|
JDateEdit1: TJDateEdit;
|
2011-09-27 10:14:38 +00:00
|
|
|
JFloatEdit1: TJFloatEdit;
|
2011-09-20 15:27:54 +00:00
|
|
|
JIntegerEdit1: TJIntegerEdit;
|
|
|
|
JLabeledCurrencyEdit1: TJLabeledCurrencyEdit;
|
|
|
|
JLabeledDateEdit1: TJLabeledDateEdit;
|
2011-09-27 10:14:38 +00:00
|
|
|
JLabeledFloatEdit1: TJLabeledFloatEdit;
|
2011-09-20 15:27:54 +00:00
|
|
|
JLabeledIntegerEdit1: TJLabeledIntegerEdit;
|
|
|
|
JLabeledIntegerEdit2: TJLabeledIntegerEdit;
|
|
|
|
Label1: TLabel;
|
|
|
|
private
|
|
|
|
{ private declarations }
|
|
|
|
public
|
|
|
|
{ public declarations }
|
|
|
|
end;
|
|
|
|
|
|
|
|
var
|
|
|
|
Form1: TForm1;
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
{$R *.lfm}
|
|
|
|
|
|
|
|
end.
|
|
|
|
|