unit p_selbar;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RzButton, ExtCtrls, RzPanel, cxVGrid, cxDBVGrid, cxControls,
  cxInplaceContainer, StdCtrls, Db;

type
  Tf_selbar = class(TForm)
    RzPanel1: TRzPanel;
    cxDBVerticalGrid2: TcxDBVerticalGrid;
    cxDBVerticalGrid2DBEditorRow1: TcxDBEditorRow;
    cxDBVerticalGrid2DBEditorRow2: TcxDBEditorRow;
    cxDBVerticalGrid2DBEditorRow3: TcxDBEditorRow;
    cxDBVerticalGrid2DBEditorRow4: TcxDBEditorRow;
    cxDBVerticalGrid5: TcxDBVerticalGrid;
    cxDBVerticalGrid5DBEditorRow1: TcxDBEditorRow;
    cxDBVerticalGrid5DBEditorRow2: TcxDBEditorRow;
    cxDBVerticalGrid5DBEditorRow3: TcxDBEditorRow;
    cxDBVerticalGrid5DBEditorRow4: TcxDBEditorRow;
    cxDBVerticalGrid3: TcxDBVerticalGrid;
    cxDBEditorRow1: TcxDBEditorRow;
    cxDBEditorRow2: TcxDBEditorRow;
    cxDBEditorRow3: TcxDBEditorRow;
    cxDBEditorRow4: TcxDBEditorRow;
    cxDBVerticalGrid2DBEditorRow5: TcxDBEditorRow;
    cxDBVerticalGrid3DBEditorRow1: TcxDBEditorRow;
    DataSource1: TDataSource;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_selbar: Tf_selbar; mysel:integer;

implementation

uses p_touchcash2;

{$R *.DFM}

procedure Tf_selbar.RzBitBtn2Click(Sender: TObject);
begin
mysel:=strtoint((sender as Trzbitbtn).caption)-1;
modalresult:=mrok;
end;

end.
