Prvni verze

frmPredvyrobaDetail.pas

@@ -0,0 +1,68 @@
+unit frmPredvyrobaDetail;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
+  ddPlugin_TLB, Vcl.ExtCtrls, Data.DB, Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls;
+
+type
+  TformPredvyrobaDetail = class(TForm)
+    GridPanel1: TGridPanel;
+    grdPredvyrobaDetail: TDBGrid;
+    GridPanel2: TGridPanel;
+    Label1: TLabel;
+    GridPanel3: TGridPanel;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    Panel3: TPanel;
+    Panel4: TPanel;
+    Panel5: TPanel;
+    Panel6: TPanel;
+    procedure FormShow(Sender: TObject);
+    procedure grdPredvyrobaDetailDrawColumnCell(Sender: TObject;
+      const Rect: TRect; DataCol: Integer; Column: TColumn;
+      State: TGridDrawState);
+   private
+   public
+    Helios: IHelios;
+    idKmen: integer;
+  end;
+
+var
+  formPredvyrobaDetail: TformPredvyrobaDetail;
+
+implementation
+uses System.StrUtils, System.DateUtils,
+     datMod, helUtils, helTabsBIDs;
+
+{$R *.dfm}
+
+ procedure TformPredvyrobaDetail.FormShow (Sender: TObject);
+  begin
+   dm.NactiPredvyrobuDetail (self, idKmen);
+  end;
+
+
+
+ procedure TformPredvyrobaDetail.grdPredvyrobaDetailDrawColumnCell (Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
+  var fld: TField;
+  begin
+   fld:= Column.Field;
+   if (Assigned(fld) and SameText(fld.FieldName, 'colStav')) then
+    begin
+     case (VarToStr(fld.Value).ToInteger) of
+      0: grdPredvyrobaDetail.Canvas.Brush.Color:= Panel2.Color;
+      1: grdPredvyrobaDetail.Canvas.Brush.Color:= Panel3.Color;
+      2: grdPredvyrobaDetail.Canvas.Brush.Color:= Panel4.Color;
+      3: grdPredvyrobaDetail.Canvas.Brush.Color:= Panel6.Color;
+      4: grdPredvyrobaDetail.Canvas.Brush.Color:= Panel5.Color;
+      5: grdPredvyrobaDetail.Canvas.Brush.Color:= Panel1.Color;
+     end;
+    end;
+   grdPredvyrobaDetail.DefaultDrawColumnCell (Rect, DataCol, Column, State);
+  end;
+
+
+ end.