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.