Prvni verze

frmVyberPL.pas

@@ -0,0 +1,51 @@
+unit frmVyberPL;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ddPlugin_TLB, Vcl.ExtCtrls, Vcl.StdCtrls,
+  Data.DB, Vcl.Grids, Vcl.DBGrids;
+
+type
+  TformVyberPL = class(TForm)
+    GridPanel1: TGridPanel;
+    GridPanel2: TGridPanel;
+    btnOK: TButton;
+    btnZrusit: TButton;
+    grdPaletListy: TDBGrid;
+    procedure btnOKClick(Sender: TObject);
+    procedure btnZrusitClick(Sender: TObject);
+   private
+   public
+    typVyberu: integer;
+    Helios: IHelios;
+    paletList: string;
+    mrVal: integer;
+  end;
+
+var
+  formVyberPL: TformVyberPL;
+
+implementation
+uses datMod, helUtils;
+
+{$R *.dfm}
+
+
+
+ procedure TformVyberPL.btnOKClick(Sender: TObject);
+  begin
+   mrVal:= 10;
+   Close;
+  end;
+
+
+
+ procedure TformVyberPL.btnZrusitClick(Sender: TObject);
+  begin
+   mrVal:= 0;
+   Close;
+  end;
+
+end.