unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, uniGUITypes, uniGUIAbstractClasses, uniGUIClasses, uniGUIRegClasses, uniGUIForm, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.SQLite, FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, uniMultiItem, uniListBox, uniDBListBox, uniGUIBaseClasses, uniPanel, uniBasicGrid, uniDBGrid, uniSplitter, uniMemo, uniDBMemo, uniChart, FireDAC.Phys.SQLiteWrapper.Stat, FireDAC.ConsoleUI.Wait, FireDAC.Comp.UI; type TMainForm = class(TUniForm) UniSimplePanel1: TUniSimplePanel; FDConnection1: TFDConnection; FDTable1: TFDTable; DataSource1: TDataSource; DataSource2: TDataSource; FDQuery1: TFDQuery; UniDBMemo1: TUniDBMemo; UniSplitter1: TUniSplitter; UniSimplePanel2: TUniSimplePanel; UniDBGrid1: TUniDBGrid; FDQuery2: TFDQuery; DataSource3: TDataSource; UniChart1: TUniChart; UniHorizBarSeries1: TUniHorizBarSeries; FDGUIxWaitCursor1: TFDGUIxWaitCursor; procedure UniFormShow(Sender: TObject); procedure UniDBGrid1DrawColumnCell(Sender: TObject; ACol, ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs); private { Private declarations } public { Public declarations } end; function MainForm: TMainForm; implementation {$R *.dfm} uses uniGUIVars, MainModule, uniGUIApplication; function MainForm: TMainForm; begin Result := TMainForm(UniMainModule.GetFormInstance(TMainForm)); end; procedure TMainForm.UniDBGrid1DrawColumnCell(Sender: TObject; ACol, ARow: Integer; Column: TUniDBGridColumn; Attribs: TUniCellAttribs); begin if Column.FieldName='ERRTYPE' then begin if Column.Field.AsString='0' then begin Attribs.Font.Color:=clGreen; end else begin Attribs.Font.Color:=clRed; end; end ; end; procedure TMainForm.UniFormShow(Sender: TObject); var i:Integer; begin FDConnection1.Open(); FDTable1.Open(); FDQuery1.Open(); FDQuery2.Open(); for i:=0 to UniDBGrid1.Columns.Count-1 do begin UniDBGrid1.Columns.Items[i].Flex:=1; UniDBGrid1.Columns.Items[i].MinWidth:=60; end; UniChart1.Font.Size:=7; end; initialization RegisterAppFormClass(TMainForm); end.