96 lines
2.1 KiB
ObjectPascal
96 lines
2.1 KiB
ObjectPascal
|
unit U_JTView;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, Buttons, ExtCtrls;
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrmJTView = class(TForm)
|
||
|
|
Panel1: TPanel;
|
||
|
|
SpeedButton21: TSpeedButton;
|
||
|
|
SpeedButton1: TSpeedButton;
|
||
|
|
SpeedButton2: TSpeedButton;
|
||
|
|
SpeedButton3: TSpeedButton;
|
||
|
|
SpeedButton4: TSpeedButton;
|
||
|
|
Panel2: TPanel;
|
||
|
|
SpeedButton5: TSpeedButton;
|
||
|
|
SpeedButton6: TSpeedButton;
|
||
|
|
SpeedButton7: TSpeedButton;
|
||
|
|
SpeedButton8: TSpeedButton;
|
||
|
|
SpeedButton9: TSpeedButton;
|
||
|
|
SpeedButton10: TSpeedButton;
|
||
|
|
SpeedButton11: TSpeedButton;
|
||
|
|
SpeedButton12: TSpeedButton;
|
||
|
|
SpeedButton13: TSpeedButton;
|
||
|
|
SpeedButton14: TSpeedButton;
|
||
|
|
SpeedButton15: TSpeedButton;
|
||
|
|
SpeedButton16: TSpeedButton;
|
||
|
|
SpeedButton17: TSpeedButton;
|
||
|
|
SpeedButton18: TSpeedButton;
|
||
|
|
SpeedButton19: TSpeedButton;
|
||
|
|
SpeedButton20: TSpeedButton;
|
||
|
|
SpeedButton22: TSpeedButton;
|
||
|
|
SpeedButton23: TSpeedButton;
|
||
|
|
SpeedButton24: TSpeedButton;
|
||
|
|
SpeedButton25: TSpeedButton;
|
||
|
|
SpeedButton26: TSpeedButton;
|
||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
|
|
procedure SpeedButton21Click(Sender: TObject);
|
||
|
|
procedure SpeedButton5Click(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
JTInfo:string;
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
frmJTView: TfrmJTView;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
procedure TfrmJTView.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
|
|
begin
|
||
|
|
Action:=caFree;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrmJTView.SpeedButton21Click(Sender: TObject);
|
||
|
|
var
|
||
|
|
i,j:Integer;
|
||
|
|
JTStr:string;
|
||
|
|
begin
|
||
|
|
j:=StrToInt(TSpeedButton(Sender).Hint);
|
||
|
|
with Panel2 do
|
||
|
|
begin
|
||
|
|
for i:=0 to 19 do
|
||
|
|
begin
|
||
|
|
JTStr:=IntToStr(j*20+i+1);
|
||
|
|
if Length(JTStr)=1 then
|
||
|
|
begin
|
||
|
|
JTStr:='00'+JTStr;
|
||
|
|
end else
|
||
|
|
if Length(JTStr)=2 then
|
||
|
|
begin
|
||
|
|
JTStr:='0'+JTStr;
|
||
|
|
end;
|
||
|
|
if Controls[i] is TSpeedButton then
|
||
|
|
begin
|
||
|
|
TSpeedButton(Controls[i]).Caption:=JTStr;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrmJTView.SpeedButton5Click(Sender: TObject);
|
||
|
|
begin
|
||
|
|
JTInfo:=TSpeedButton(Sender).Caption;
|
||
|
|
ModalResult:=1;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|