Topic: MVDB is slow in processing when the columns in colors are composed.
Hello, MVDB is slow in processing when all the columns in colors are composed?
Is this script below correct? Thanks.
procedure Form1_TableGrid1_OnChange (Sender: string);
var
i,c: integer;
begin
c := Form1.TableGrid1.RowCount - 1;
for i := 0 to c do
begin
if Form1.TableGrid1.Cells[6,i] = 'WIP/REPAIR' then Form1.TableGrid1.Cell[6,i].Color := clRed;
if Form1.TableGrid1.Cells[6,i] = 'NOK/OTHER' then Form1.TableGrid1.Cell[6,i].Color := clMaroon;
if Form1.TableGrid1.Cells[6,i] = '-TEST/OK' then Form1.TableGrid1.Cell[6,i].Color := clLime;
if Form1.TableGrid1.Cells[6,i] = 'TEST/OK' then Form1.TableGrid1.Cell[6,i].Color := clLime;
if Form1.TableGrid1.Cells[6,i] = 'WIP/TRACE' then Form1.TableGrid1.Cell[6,i].Color := clOlive;
if Form1.TableGrid1.Cells[6,i] = 'OK/INCOMPLED' then Form1.TableGrid1.Cell[6,i].Color := clAqua;
if Form1.TableGrid1.Cells[6,i] = 'OK/AUDIT' then Form1.TableGrid1.Cell[6,i].Color := clTeal;
if Form1.TableGrid1.Cells[6,i] = 'OK/WITNESS' then Form1.TableGrid1.Cell[6,i].Color := clGreen;
if Form1.TableGrid1.Cells[6,i] = 'COMP/KVT' then Form1.TableGrid1.Cell[6,i].Color := clYellow;
// Form1.TableGrid1.Cell[0,i].Color:= clBlack;
//Form1.TableGrid1.Cell[0,i].TextColor:= clAqua;
//Form1.TableGrid1.Cell[1,i].Color:= clBlack;
//Form1.TableGrid1.Cell[1,i].TextColor:= clLime;
// Form1.TableGrid1.Cell[2,i].Color:= clBlack;
// Form1.TableGrid1.Cell[2,i].TextColor:= clLime;
// Form1.TableGrid1.Cell[3,i].Color:= clBlack;
// Form1.TableGrid1.Cell[3,i].TextColor:= clLime;
// Form1.TableGrid1.Cell[4,i].Color:= clBlack;
// Form1.TableGrid1.Cell[4,i].TextColor:= clAqua;
// Form1.TableGrid1.Cell[5,i].Color:= clBlack;
// Form1.TableGrid1.Cell[5,i].TextColor:= clAqua;
// Form1.TableGrid1.Cell[7,i].Color:= clBlack;
// Form1.TableGrid1.Cell[7,i].TextColor:= clAqua;
// Form1.TableGrid1.Cell[8,i].Color:= clBlack;
// Form1.TableGrid1.Cell[8,i].TextColor:= clAqua;
// Form1.TableGrid1.Cell[9,i].Color:= clBlack;
// Form1.TableGrid1.Cell[9,i].TextColor:= clAqua;
// Form1.TableGrid1.Cell[10,i].Color:= clBlack;
// Form1.TableGrid1.Cell[10,i].TextColor:= clAqua;
end;
end;
// TestCertificate MB FS & VSD Series
//var
// isNewMBCompressor: boolean;