Prvni verze

2025-05-21 21:06:33 +02:00
parent a976e7392e
commit fedc940ac4
189 changed files with 72374 additions and 17 deletions
--- a/frmSeznamPalet.pas
+++ b/frmSeznamPalet.pas
@ -0,0 +1,184 @@
+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.
+