Prvni verze
This commit is contained in:
375
frmKontrolaCCP1.pas
Normal file
375
frmKontrolaCCP1.pas
Normal file
@ -0,0 +1,375 @@
|
||||
unit frmKontrolaCCP1;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
||||
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.ExtCtrls, Vcl.Grids, Vcl.DBGrids,
|
||||
ddPlugin_TLB, Vcl.StdCtrls, Vcl.Mask, RxToolEdit, Vcl.ComCtrls, Vcl.NumberBox,
|
||||
Vcl.Buttons;
|
||||
|
||||
type
|
||||
TMyGrid = class(TDBGrid);
|
||||
|
||||
TformKontrolaCCP1 = class(TForm)
|
||||
GridPanel1: TGridPanel;
|
||||
grdCCP1: TStringGrid;
|
||||
GridPanel2: TGridPanel;
|
||||
Label1: TLabel;
|
||||
pnlLabel1: TPanel;
|
||||
Label2: TLabel;
|
||||
pnlLabel2: TPanel;
|
||||
Label3: TLabel;
|
||||
pnlLabel3: TPanel;
|
||||
Label4: TLabel;
|
||||
pnlLabel4: TPanel;
|
||||
Label5: TLabel;
|
||||
pnlLabel5: TPanel;
|
||||
Label6: TLabel;
|
||||
pnlLabel6: TPanel;
|
||||
Label7: TLabel;
|
||||
pnlLabel7: TPanel;
|
||||
Label8: TLabel;
|
||||
pnlLabel8: TPanel;
|
||||
Label9: TLabel;
|
||||
pnlLabel9: TPanel;
|
||||
Label10: TLabel;
|
||||
pnlLabel10: TPanel;
|
||||
Label11: TLabel;
|
||||
pnlLabel11: TPanel;
|
||||
Label12: TLabel;
|
||||
pnlLabel12: TPanel;
|
||||
GridPanel3: TGridPanel;
|
||||
GridPanel4: TGridPanel;
|
||||
GridPanel5: TGridPanel;
|
||||
Label13: TLabel;
|
||||
edtVyrDenDis: TEdit;
|
||||
Label14: TLabel;
|
||||
GridPanel6: TGridPanel;
|
||||
dtDatum: TDateTimePicker;
|
||||
dtTime: TDateTimePicker;
|
||||
numBoxEditor: TNumberBox;
|
||||
checkBoxEditor: TCheckBox;
|
||||
btnAddNew: TButton;
|
||||
btnQuit: TSpeedButton;
|
||||
GridPanel7: TGridPanel;
|
||||
pnlInfo: TPanel;
|
||||
GridPanel8: TGridPanel;
|
||||
Label15: TLabel;
|
||||
Label16: TLabel;
|
||||
GridPanel9: TGridPanel;
|
||||
Label17: TLabel;
|
||||
Label18: TLabel;
|
||||
Label19: TLabel;
|
||||
Label20: TLabel;
|
||||
lblTeplotaCCP1: TLabel;
|
||||
lblRozmer: TLabel;
|
||||
lblHmotnost: TLabel;
|
||||
lblDelka: TLabel;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormResize(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure grdCCP1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
|
||||
procedure numBoxEditorChange(Sender: TObject);
|
||||
procedure grdCCP1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
|
||||
procedure checkBoxEditorClick(Sender: TObject);
|
||||
procedure btnAddNewClick(Sender: TObject);
|
||||
procedure btnQuitClick(Sender: TObject);
|
||||
procedure numBoxEditorKeyDown(Sender: TObject; var Key: Word;
|
||||
Shift: TShiftState);
|
||||
procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||
private
|
||||
function VisibleColsCount: integer;
|
||||
public
|
||||
apiMod: boolean;
|
||||
Helios: IHelios;
|
||||
vyrobniDen: TDateTime;
|
||||
end;
|
||||
|
||||
var
|
||||
formKontrolaCCP1: TformKontrolaCCP1;
|
||||
colWidths: TArray<Extended>;
|
||||
oldGridWidth: integer;
|
||||
zapisNum: boolean;
|
||||
aktCol, aktRow: integer;
|
||||
|
||||
implementation
|
||||
uses System.StrUtils,
|
||||
datMod, frmKontrolaCCP1edt, funkceTB, helTabsBIDs;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TformKontrolaCCP1.FormResize(Sender: TObject);
|
||||
var i1,i2: integer;
|
||||
begin
|
||||
i2:= 0;
|
||||
for i1:=0 to grdCCP1.ColCount-1 do
|
||||
begin
|
||||
if (grdCCP1.ColWidths[i1]>1) then
|
||||
begin
|
||||
grdCCP1.ColWidths[i1]:= Trunc(grdCCP1.Width * colWidths[i1]);
|
||||
// GridPanel2.ColumnCollection[i2].Value:= grdCCP1.Columns[i1].Width;
|
||||
// Inc(i2);
|
||||
end
|
||||
else
|
||||
grdCCP1.ColWidths[i1]:= 1;
|
||||
end;
|
||||
|
||||
GridPanel2.Invalidate;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure TformKontrolaCCP1.FormShow (Sender: TObject);
|
||||
var i: integer;
|
||||
p: Integer;
|
||||
begin
|
||||
|
||||
grdCCP1.Options:= grdCCP1.Options - [goEditing] - [goAlwaysShowEditor];
|
||||
dm.NactiCCP1 (self);
|
||||
|
||||
edtVyrDenDis.Text:= FormatDateTime('dd.mm.yyyy', vyrobniDen);
|
||||
dtDatum.Date:= vyrobniDen;
|
||||
dtTime.Time:= Now;
|
||||
|
||||
pnlInfo.Visible:= false;
|
||||
|
||||
grdCCP1.Invalidate;
|
||||
self.Invalidate;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure TformKontrolaCCP1.grdCCP1DrawCell (Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
|
||||
var cellRect: TRect;
|
||||
t: string;
|
||||
a: TAlignment;
|
||||
sAlg: word;
|
||||
begin
|
||||
a:= grdCCP1.ColAlignments[ACol];
|
||||
|
||||
|
||||
if not(gdFixed in State) then
|
||||
if (ARow=aktRow) then
|
||||
begin
|
||||
grdCCP1.Canvas.Brush.Color:= $00FFC891;
|
||||
// grdCCP1.Canvas.Font.Color:= clWindow;
|
||||
end
|
||||
else
|
||||
begin
|
||||
grdCCP1.Canvas.Brush.Color:= clWindow;
|
||||
// grdCCP1.Canvas.Font.Color:= clBlack;
|
||||
end;
|
||||
|
||||
|
||||
if (ACol=13) then // bunka je Checkbox ?
|
||||
begin
|
||||
grdCCP1.Canvas.FillRect (cellRect); // Nakreslíme buňku jako prázdnou
|
||||
cellRect:= Rect;
|
||||
InflateRect(cellRect, -2, -2); // Zmenšíme velikost checkboxu, aby byl uvnitř buňky
|
||||
checkBoxEditor.Left:= cellRect.Left;
|
||||
checkBoxEditor.Top:= cellRect.Top;
|
||||
checkBoxEditor.Width:= cellRect.Width;
|
||||
checkBoxEditor.Height:= cellRect.Height;
|
||||
checkBoxEditor.Visible:= true;
|
||||
checkBoxEditor.Checked:= (grdCCP1.Cells[ACol, ARow]='1'); // Např. '1' značí zaškrtnutý checkbox
|
||||
end
|
||||
else
|
||||
begin
|
||||
// Pro ostatní sloupce nakreslíme text normálně
|
||||
if (a=taCenter) then
|
||||
begin
|
||||
t:= grdCCP1.Cells[ACol, ARow];
|
||||
sAlg:= SetTextAlign (grdCCP1.Canvas.Handle, TA_CENTER);
|
||||
grdCCP1.Canvas.TextRect (Rect, Rect.Left + (Rect.Right-Rect.Left) div 2, Rect.Top + 2, t);
|
||||
SetTextAlign (grdCCP1.Canvas.Handle, sAlg);
|
||||
{
|
||||
grdCCP1.Canvas.FillRect (cellRect); // Nakreslíme buňku jako prázdnou
|
||||
cellRect:= Rect;
|
||||
cellRect.Top:= cellRect.Top + 3; // adjust top to center vertical
|
||||
DrawText(grdCCP1.Canvas.Handle, PChar(t), Length(t), cellRect, DT_CENTER); // draw text
|
||||
}
|
||||
end
|
||||
else
|
||||
grdCCP1.Canvas.TextRect (Rect, Rect.Left + 2, Rect.Top + 2, grdCCP1.Cells[ACol, ARow]);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure TformKontrolaCCP1.grdCCP1SelectCell (Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
|
||||
var R: TRect;
|
||||
t: string;
|
||||
begin
|
||||
CanSelect:= false;
|
||||
|
||||
aktCol:= ACol;
|
||||
aktRow:= ARow;
|
||||
|
||||
if (ACol=1) then
|
||||
CanSelect:= true;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure TformKontrolaCCP1.numBoxEditorChange (Sender: TObject);
|
||||
begin
|
||||
// grdCCP1.Cells[grdCCP1.Col, grdCCP1.Row]:= numBoxEditor.Text;
|
||||
// numBoxEditor.Visible:= False;
|
||||
// grdCCP1.SetFocus;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure TformKontrolaCCP1.numBoxEditorKeyDown (Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||
var c: Boolean;
|
||||
begin
|
||||
if (Key=VK_RETURN) or (Key=VK_TAB) then
|
||||
begin
|
||||
|
||||
grdCCP1.Cells[aktCol, grdCCP1.Row]:= numBoxEditor.Text;
|
||||
numBoxEditor.Visible:= False;
|
||||
numBoxEditor.Text:= '';
|
||||
grdCCP1.SetFocus;
|
||||
|
||||
case aktCol of
|
||||
4, 5, 6, 7: grdCCP1SelectCell(Sender, aktCol+1, grdCCP1.Row, c);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
function TformKontrolaCCP1.VisibleColsCount: Integer;
|
||||
var i: integer;
|
||||
begin
|
||||
result:= 0;
|
||||
for i:=0 to grdCCP1.ColCount-1 do
|
||||
if (grdCCP1.ColWidths[i]>1) then
|
||||
result:= result + 1;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure TformKontrolaCCP1.btnAddNewClick (Sender: TObject);
|
||||
var f: TformKontrolaCCP1edt;
|
||||
begin
|
||||
f:= TformKontrolaCCP1edt.Create(nil);
|
||||
try
|
||||
f.Helios:= Helios;
|
||||
f.vyrobniDen:= vyrobniDen;
|
||||
f.apiMod:= apiMod;
|
||||
|
||||
f.Position:= poDesigned;
|
||||
f.Left:= self.Left + 60;
|
||||
f.Top:= self.Top + 60;
|
||||
|
||||
f.Caption:= 'CCP1 - NOVÉ ZÁZNAMY';
|
||||
f.grdCCP1.RowCount:= dm.PocetStrojuSVyrobou + 1;
|
||||
|
||||
f.ShowModal;
|
||||
finally
|
||||
f.Free;
|
||||
end;
|
||||
|
||||
dm.NactiCCP1 (self);
|
||||
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure TformKontrolaCCP1.btnQuitClick(Sender: TObject);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure TformKontrolaCCP1.checkBoxEditorClick(Sender: TObject);
|
||||
begin
|
||||
// Aktualizujeme hodnotu v buňce podle stavu checkboxu
|
||||
if (grdCCP1.Col=13) and (grdCCP1.Row>=0) then
|
||||
begin
|
||||
if checkBoxEditor.Checked then
|
||||
grdCCP1.Cells[grdCCP1.Col, grdCCP1.Row] := '1'
|
||||
else
|
||||
grdCCP1.Cells[grdCCP1.Col, grdCCP1.Row] := '0';
|
||||
end;
|
||||
checkBoxEditor.Visible:= false; // Skryjeme checkbox po kliknutí
|
||||
end;
|
||||
|
||||
|
||||
|
||||
|
||||
procedure TformKontrolaCCP1.FormCreate(Sender: TObject);
|
||||
const HideScrollStyles = WS_HSCROLL;
|
||||
var i1, i2: integer;
|
||||
grdStyle: Integer;
|
||||
begin
|
||||
|
||||
{ // pro TDBGrid
|
||||
TMyGrid(grdCCP1).DefaultRowHeight:= 40;
|
||||
TMyGrid(grdCCP1).RowHeights[0]:= 0;
|
||||
TMyGrid(grdCCP1).ScrollBars:= TScrollStyle.ssVertical;
|
||||
|
||||
grdStyle:= GetWindowLong(grdCCP1.Handle, GWL_STYLE);
|
||||
if (grdStyle and HideScrollStyles) <> 0 then
|
||||
SetWindowLong(grdCCP1.Handle, GWL_STYLE, grdStyle and not HideScrollStyles);
|
||||
}
|
||||
|
||||
{
|
||||
grdCCP1.ColWidths[0]:= 0; // colID
|
||||
grdCCP1.ColWidths[1]:= Trunc(GridPanel2.ColumnCollection[0].Value + GridPanel2.ColumnCollection[1].Value) - 6;
|
||||
grdCCP1.ColWidths[2]:= Trunc(GridPanel2.ColumnCollection[2].Value);
|
||||
grdCCP1.ColWidths[3]:= Trunc(GridPanel2.ColumnCollection[3].Value);
|
||||
grdCCP1.ColWidths[4]:= Trunc(GridPanel2.ColumnCollection[4].Value);
|
||||
grdCCP1.ColWidths[5]:= Trunc(GridPanel2.ColumnCollection[5].Value);
|
||||
grdCCP1.ColWidths[6]:= Trunc(GridPanel2.ColumnCollection[6].Value);
|
||||
grdCCP1.ColWidths[7]:= Trunc(GridPanel2.ColumnCollection[7].Value);
|
||||
grdCCP1.ColWidths[8]:= Trunc(GridPanel2.ColumnCollection[8].Value);
|
||||
grdCCP1.ColWidths[9]:= Trunc(GridPanel2.ColumnCollection[9].Value);
|
||||
grdCCP1.ColWidths[10]:= Trunc(GridPanel2.ColumnCollection[10].Value);
|
||||
grdCCP1.ColWidths[11]:= Trunc(GridPanel2.ColumnCollection[11].Value);
|
||||
grdCCP1.ColWidths[12]:= Trunc(GridPanel2.ColumnCollection[12].Value);
|
||||
}
|
||||
grdCCP1.ColWidths[13]:= 0; // colIDNorma
|
||||
|
||||
grdCCP1.ColAlignments[3]:= taCenter; // smena
|
||||
|
||||
grdCCP1.DefaultDrawing:= false;
|
||||
|
||||
i2:= 0;
|
||||
SetLength(colWidths, grdCCP1.ColCount);
|
||||
for i1:=0 to grdCCP1.ColCount-1 do
|
||||
begin
|
||||
if (grdCCP1.ColWidths[i1]>0) then
|
||||
begin
|
||||
colWidths[i1]:= grdCCP1.ColWidths[i1] / grdCCP1.Width;
|
||||
// GridPanel2.ColumnCollection[i2].SizeStyle:= ssAbsolute;
|
||||
// GridPanel2.ColumnCollection[i2].Value:= grdCCP1.Columns[i1].Width;
|
||||
// Inc(i2);
|
||||
end
|
||||
else
|
||||
colWidths[i1]:= 0;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TformKontrolaCCP1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||
begin
|
||||
if (Key=VK_ESCAPE) then
|
||||
Close;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user