Rootvin-pluginHDCRTN/frmSeznamPalet.pas

unit frmSeznamPalet;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.ExtCtrls, Data.DB, Vcl.Grids, Vcl.DBGrids,
  ddPlugin_TLB, JvExDBGrids, JvDBGrid, ColorButton, Vcl.Buttons;

{$I iConsts.inc}


type
  TformSeznamPalet = class(TForm)
    GridPanel1: TGridPanel;
    grdSeznamPalet: TJvDBGrid;
    edtVyrobniDen: TLabeledEdit;
    GridPanel2: TGridPanel;
    btnTiskNahledSeznamuPalet: TButton;
    GridPanel3: TGridPanel;
    btnTisk: TButton;
    edtPaletList: TLabeledEdit;
    pnlTiskKA: TPanel;
    pnlTiskPa: TPanel;
    pnlTiskPL: TPanel;
    procedure FormShow (Sender: TObject);
    procedure grdSeznamPaletDrawColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure btnOKClick (Sender: TObject);
    procedure pnlTiskKAMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pnlTiskKAMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pnlTiskPLMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pnlTiskPLMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pnlTiskPaMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure pnlTiskPaMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure grdSeznamPaletMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure grdSeznamPaletCellClick(Column: TColumn);
   private
   public
    Helios: IHelios;
    idKmen, idStroj: integer;
    den: TDateTime;
    typ: byte;
  end;

var
  formSeznamPalet: TformSeznamPalet;
  typTisku: byte;
  aktRow, aktCol: integer;

implementation
uses System.StrUtils, System.DateUtils,
     datMod, helUtils;

{$R *.dfm}

 procedure TformSeznamPalet.btnOKClick (Sender: TObject);
  begin
   Close;
  end;




 procedure TformSeznamPalet.FormShow (Sender: TObject);
  begin

   SetWindowLong (btnTisk.Handle, GWL_STYLE, GetWindowLong((btnTisk as TWinControl).Handle, GWL_STYLE) or BS_MULTILINE);

   edtVyrobniDen.Text:= FormatDateTime ('dd.mm.yyyy', den.GetDate);
   dm.NactiSeznamPalet (self, typ, idKmen, idStroj, den);

   if (idKmen>0) then
    begin
     grdSeznamPalet.Columns.Items[5].Title.Caption:= helUtils.getHeliosStrVal(Helios, '', 'SELECT MJEvidence FROM ' + tblKZ + ' WHERE ID=' + idKmen.ToString);
     grdSeznamPalet.Columns.Items[6].Title.Caption:= ' ';
    end;

   typTisku:= 0;


  end;




 procedure TformSeznamPalet.grdSeznamPaletCellClick (Column: TColumn);
  begin
   edtPaletList.Text:= grdSeznamPalet.DataSource.DataSet.FieldByName('colPaletovyList').AsString;
  end;



 procedure TformSeznamPalet.grdSeznamPaletDrawColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
  begin
   if (not(gdSelected in State)) then
    begin
     if (Odd(grdSeznamPalet.DataSource.DataSet.RecNo)) then
       TDBGrid(Sender).Canvas.Brush.Color:= clWindow
      else
       TDBGrid(Sender).Canvas.Brush.Color:= $00E0E0E0;
    end;
   TDBGrid(Sender).DefaultDrawColumnCell (Rect, DataCol, Column, State);
  end;



 procedure TformSeznamPalet.grdSeznamPaletMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
   aktRow:= TJvDBGrid(Sender).MouseCoord(X, Y).Y;
   aktCol:= TJvDBGrid(Sender).MouseCoord(X, Y).X;
  end;




 procedure TformSeznamPalet.pnlTiskKAMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
   pnlTiskKA.BevelOuter:= bvLowered;
   if (pnlTiskKA.Color=clBtnFace) then
     begin
      typTisku:= 1;
      pnlTiskKA.Color:= $007BD97D; // zelena
      pnlTiskPa.Color:= clBtnFace;
      pnlTiskPL.Color:= clBtnFace;
     end
    else
     pnlTiskKA.Color:= clBtnFace;
  end;



 procedure TformSeznamPalet.pnlTiskKAMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
   pnlTiskKA.BevelOuter:= bvRaised;
  end;



 procedure TformSeznamPalet.pnlTiskPaMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
   pnlTiskPa.BevelOuter:= bvLowered;
  if (pnlTiskPa.Color=clBtnFace) then
    begin
     typTisku:= 2;
     pnlTiskPa.Color:= $007BD97D; // zelena
     pnlTiskKA.Color:= clBtnFace;
     pnlTiskPL.Color:= clBtnFace;
    end
   else
    pnlTiskPa.Color:= clBtnFace;
  end;



 procedure TformSeznamPalet.pnlTiskPaMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
   pnlTiskPa.BevelOuter:= bvRaised;
  end;



 procedure TformSeznamPalet.pnlTiskPLMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
   pnlTiskPL.BevelOuter:= bvLowered;
   if (pnlTiskPL.Color=clBtnFace) then
     begin
      typTisku:= 3;
      pnlTiskPL.Color:= $007BD97D; // zelena
      pnlTiskKA.Color:= clBtnFace;
      pnlTiskPa.Color:= clBtnFace;
     end
    else
     pnlTiskPL.Color:= clBtnFace;
  end;



 procedure TformSeznamPalet.pnlTiskPLMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
   pnlTiskPL.BevelOuter:= bvRaised;
  end;

end.