Prvni verze

frmVyberCinnostiStroje.pas

@@ -0,0 +1,91 @@
+unit frmVyberCinnostiStroje;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
+  ddPlugin_TLB, Vcl.StdCtrls, Vcl.ExtCtrls;
+
+type
+  TformVyberCinnostiStroje = class(TForm)
+    rgCinnost: TRadioGroup;
+    btnOK: TButton;
+    btnStorno: TButton;
+    rBtn1: TRadioButton;
+    rBtn2: TRadioButton;
+    rBtn3: TRadioButton;
+    rBtn4: TRadioButton;
+    rBtn5: TRadioButton;
+    rBtnK: TRadioButton;
+    procedure btnStornoClick(Sender: TObject);
+    procedure btnOKClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+   private
+   public
+    Helios: IHelios;
+    mrVal: integer;
+    stroj, cinnost: string;
+  end;
+
+var
+  formVyberCinnostiStroje: TformVyberCinnostiStroje;
+
+implementation
+uses System.StrUtils, System.DateUtils,
+     datMod, helTabsBIDs;
+
+{$R *.dfm}
+
+ procedure TformVyberCinnostiStroje.btnOKClick (Sender: TObject);
+  begin
+   mrVal:= 10;
+   Close;
+  end;
+
+
+
+
+ procedure TformVyberCinnostiStroje.btnStornoClick (Sender: TObject);
+  begin
+   mrVal:= 0;
+   Close;
+  end;
+
+
+
+ procedure TformVyberCinnostiStroje.FormClose (Sender: TObject; var Action: TCloseAction);
+  begin
+   cinnost:= '';
+   if (mrVal=10) then
+    begin
+     if (rBtn1.Checked) then
+       cinnost:= rBtn1.Caption
+      else
+       if (rBtn2.Checked) then
+         cinnost:= rBtn2.Caption
+        else
+         if (rBtn3.Checked) then
+           cinnost:= rBtn3.Caption
+          else
+           if (rBtn4.Checked) then
+             cinnost:= rBtn4.Caption
+            else
+             if (rBtn5.Checked) then
+               cinnost:= rBtn5.Caption
+              else
+               if (rBtnK.Checked) then
+                 cinnost:= '';
+    end;
+   Action:= TCloseAction.caFree;
+  end;
+
+
+
+ procedure TformVyberCinnostiStroje.FormShow (Sender: TObject);
+  begin
+   self.Caption:= 'Výběr činnosti pro ' + stroj;
+  end;
+
+end.