Malo je komplesno za objasniti kao i sam program
Program treba da prikaze niz brojeva npr od 1 do xxxx u FastReportu poredani vertikalno i podjeljen format na 6 kolona i 6 redova
npr.
Napomena : svaki broj treba da ima odgovarajucu boju i pored sebe kvadar sa istom bojom kako sto je broj do njega :
recimo da imamo neki niz brojeva od 458101 do 458106 to je ukupno 6 brojeva:
ja sam u kodu sve uradio kako treba ali ima problem da mi zadnji 6 brojeva u nizu vertikalno ne upisuje tacnu boju uz broj - numeracija je OK
npr. s
od 45801 do 458106 - niz brojeva i razdvojeni vertikalno na 6 kolona i 6 redova
---------------------------------------------------------------------------------------------------
4 ovdje ide shape memo 4 4 ovdje ide shape memo 4 4 ovdje ide shape memo 4 4 ovdje ide shape memo 4 4 ovdje ide shape 4 4 ovdje ide shape 4
5 ovdje ide shape memo 5 5 ovdje ide shape memo 5 4 ovdje ide shape memo 4 4 ovdje ide shape memo 4 4 ovdje ide shape 4 4 ovdje ide shape 4
8 ovdje ide shape memo 8 8 ovdje ide shape memo 8 4 ovdje ide shape memo 4 4 ovdje ide shape memo 4 4 ovdje ide shape 4 4 ovdje ide shape 4
1 ovdje ide shape memo 1 1 ovdje ide shape memo 1 4 ovdje ide shape memo 4 4 ovdje ide shape memo 4 4 ovdje ide shape 4 4 ovdje ide shape 4
0 ovdje ide shape memo 0 0 ovdje ide shape memo 0 4 ovdje ide shape memo 4 4 ovdje ide shape memo 4 4 ovdje ide shape 4 4 ovdje ide shape 4
1 ovdje ide shape memo 1 2 ovdje ide shape memo 2 3 ovdje ide shape memo 3 4 ovdje ide shape memo 4 5 ovdje ide shape 5 6 ovdje ide shape 6
----------------------------------------------------------------------------------------------------------------------------------------------------
* ovdje ide shape memo = oblik kvadrat sa odgovarajucom bojom kao sto je i broj
evo koda:
Code:
var
i : integer;
eOd_txt,eDo_txt : integer;
begin
eOd_txt := strtoint(eOd.Text);
eDo_txt := strtoint(eDo.Text);
// Provjera da li postoji vrijednost za numerisanje
if Length(eOd.Text) = 0 then
begin
ShowMessage('Unesite vrijednost !!!');
exit;
end;
if Length(eDo.Text) = 0 then
begin
ShowMessage('Unesite vrijednost !!!');
exit;
end;
// Unos stavki u tabelu sa seperacijom brojeva
with DM,tblNumerisanje do
begin
try
for i := eOd_txt to eDo_txt do
begin
tblNumerisanje.DisableControls;
tblNumerisanje.Append;
tblNumerisanje.FieldByName('BROJ').AsString := inttostr(i);
tblNumerisanje.Edit;
tblNumerisanje.FieldByName('NUM_1').AsString := Copy(DM.tblNumerisanje.FieldByName('BROJ').AsString,1,1);
tblNumerisanje.FieldByName('NUM_2').AsString := Copy(DM.tblNumerisanje.FieldByName('BROJ').AsString,2,2);
tblNumerisanje.FieldByName('NUM_3').AsString := Copy(DM.tblNumerisanje.FieldByName('BROJ').AsString,3,3);
tblNumerisanje.FieldByName('NUM_4').AsString := Copy(DM.tblNumerisanje.FieldByName('BROJ').AsString,4,4);
tblNumerisanje.FieldByName('NUM_5').AsString := Copy(DM.tblNumerisanje.FieldByName('BROJ').AsString,5,5);
tblNumerisanje.FieldByName('NUM_6').AsString := Copy(DM.tblNumerisanje.FieldByName('BROJ').AsString,6,6);
tblNumerisanje.Post;
eUkupno.Text := inttostr(tblNumerisanje.RecordCount);
tblNumerisanje.EnableControls;
// bSeperate.Click;
end;
except
ShowMessage('Desila se greška');
exit;
end;
bBoja.Click;
end;
*********************************
Print u FastReportu
var
// Num_1
memo1: TfrxMemoView;
memo2: TfrxMemoView;
shape_3: TfrxMemoView;
// Num_2
memo4 : TfrxMemoView;
memo6 : TfrxMemoView;
shape_5: TfrxMemoView;
// Num_3
memo7 : TfrxMemoView;
memo9 : TfrxMemoView;
shape_8: TfrxMemoView;
// Num_4
memo10 : TfrxMemoView;
memo12 : TfrxMemoView;
shape_11: TfrxMemoView;
// Num_5
memo13 : TfrxMemoView;
memo15 : TfrxMemoView;
shape_14: TfrxMemoView;
// Num_6
memo16 : TfrxMemoView;
memo18 : TfrxMemoView;
shape_17: TfrxMemoView;
// Num_6
shape_19: TfrxMemoView;
shape_20: TfrxMemoView;
memo21 : TfrxMemoView;
memo22 : TfrxMemoView;
begin
with DM do
begin
if tblNumerisanje.RecordCount = 0 then
begin
ShowMessage('Nema potakata za prikaz !!!');
exit;
end;
tblNumerisanje.First;
while not tblNumerisanje.Eof do
begin//----- pocetak-----
//**************************************************************************
memo1 := izvjNumerisanje.FindComponent('Memo1') as TfrxMemoView;
memo2 := izvjNumerisanje.FindComponent('Memo2') as TfrxMemoView;
shape_3 := izvjNumerisanje.FindComponent('Memo3') as TfrxMemoView;
memo1.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_1B').AsString);
memo2.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_1B').AsString);
shape_3.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_1B').AsString);
//**************************************************************************
memo4 := izvjNumerisanje.FindComponent('Memo4') as TfrxMemoView;
memo6 := izvjNumerisanje.FindComponent('Memo6') as TfrxMemoView;
shape_5 := izvjNumerisanje.FindComponent('Memo5') as TfrxMemoView;
memo4.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_2B').AsString);
memo6.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_2B').AsString);
shape_5.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_2B').AsString);
//**************************************************************************
memo7 := izvjNumerisanje.FindComponent('memo7') as TfrxMemoView;
memo9 := izvjNumerisanje.FindComponent('memo9') as TfrxMemoView;
shape_8 := izvjNumerisanje.FindComponent('Memo8') as TfrxMemoView;
memo7.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_3B').AsString);
memo9.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_3B').AsString);
shape_8.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_3B').AsString);
//**************************************************************************
memo10 := izvjNumerisanje.FindComponent('memo10') as TfrxMemoView;
memo12 := izvjNumerisanje.FindComponent('memo12') as TfrxMemoView;
shape_11 := izvjNumerisanje.FindComponent('Memo11') as TfrxMemoView;
memo10.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_4B').AsString);
memo12.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_4B').AsString);
shape_11.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_4B').AsString);
//**************************************************************************
memo13 := izvjNumerisanje.FindComponent('memo13') as TfrxMemoView;
memo15 := izvjNumerisanje.FindComponent('memo15') as TfrxMemoView;
shape_14 := izvjNumerisanje.FindComponent('Memo14') as TfrxMemoView;
memo13.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_5B').AsString);
memo15.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_5B').AsString);
shape_14.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_5B').AsString);
//**************************************************************************
memo16 := izvjNumerisanje.FindComponent('memo16') as TfrxMemoView;
memo18 := izvjNumerisanje.FindComponent('memo18') as TfrxMemoView;
shape_17 := izvjNumerisanje.FindComponent('memo17') as TfrxMemoView;
memo16.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_6B').AsString);
memo18.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_6B').AsString);
shape_17.Color := $000000;
//**************************************************************************
memo16 := izvjNumerisanje.FindComponent('memo16') as TfrxMemoView;
memo18 := izvjNumerisanje.FindComponent('memo18') as TfrxMemoView;
shape_17 := izvjNumerisanje.FindComponent('memo17') as TfrxMemoView;
memo16.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_6B').AsString);
memo18.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_6B').AsString);
shape_17.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_6B').AsString);
//**************************************************************************
tblNumerisanje.Next;
end;
izvjNumerisanje.ShowReport();
end;
end;
***************************************
case tblNumerisanje.FieldByName('NUM_1').AsInteger of
0 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($0024FF);
end;
1 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($4F1D26);
end;
2 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($0024FF);
end;
3 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($AB6905);
end;
4 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($00A859);
end;
5 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($087CCD);
end;
6 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($EA937D);
end;
7 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($EC268F);
end;
8 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($AAA387);
end;
9 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($813B0F);
end;
end;
//****************************************************************************************
case tblNumerisanje.FieldByName('NUM_2').AsInteger of
0 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($0024FF);
end;
1 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($4F1D26);
end;
2 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($0024FF);
end;
3 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($AB6905);
end;
4 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($00A859);
end;
5 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($087CCD);
end;
6 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($EA937D);
end;
7 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($EC268F);
end;
8 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($AAA387);
end;
9 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($813B0F);
end;
end;
//****************************************************************************************
case tblNumerisanje.FieldByName('NUM_3').AsInteger of
0 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($0024FF);
end;
1 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($4F1D26);
end;
2 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($0024FF);
end;
3 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($AB6905);
end;
4 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($00A859);
end;
5 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($087CCD);
end;
6 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($EA937D);
end;
7 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($EC268F);
end;
8 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($AAA387);
end;
9 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($813B0F);
end;
end;
//*********************************************************************************************
case tblNumerisanje.FieldByName('NUM_4').AsInteger of
0 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($0024FF);
end;
1 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($4F1D26);
end;
2 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($0024FF);
end;
3 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($AB6905);
end;
4 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($00A859);
end;
5 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($087CCD);
end;
6 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($EA937D);
end;
7 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($EC268F);
end;
8 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($AAA387);
end;
9 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($813B0F);
end;
end;
//******************************************************************************************
case tblNumerisanje.FieldByName('NUM_5').AsInteger of
0 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($0024FF);
end;
1 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($4F1D26);
end;
2 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($0024FF);
end;
3 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($AB6905);
end;
4 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($00A859);
end;
5 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($087CCD);
end;
6 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($EA937D);
end;
7 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($EC268F);
end;
8 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($AAA387);
end;
9 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($813B0F);
end;
end;
//*************************************************************************************
Dodjeljivanje COLOR boju u string tako da FastReport uzima string i konvertuje u boju
---------------------------------
case tblNumerisanje.FieldByName('NUM_6').AsInteger of
0 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($0024FF);
end;
1 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($4F1D26);
end;
2 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($0024FF);
end;
3 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($AB6905);
end;
4 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($00A859);
end;
5 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($087CCD);
end;
6 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($EA937D);
end;
7 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($EC268F);
end;
8 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($AAA387);
end;
9 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($813B0F);
end;
end;
//******************************************************************************************
tblNumerisanje.Post;
tblNumerisanje.Next;
var
i : integer;
eOd_txt,eDo_txt : integer;
begin
eOd_txt := strtoint(eOd.Text);
eDo_txt := strtoint(eDo.Text);
// Provjera da li postoji vrijednost za numerisanje
if Length(eOd.Text) = 0 then
begin
ShowMessage('Unesite vrijednost !!!');
exit;
end;
if Length(eDo.Text) = 0 then
begin
ShowMessage('Unesite vrijednost !!!');
exit;
end;
// Unos stavki u tabelu sa seperacijom brojeva
with DM,tblNumerisanje do
begin
try
for i := eOd_txt to eDo_txt do
begin
tblNumerisanje.DisableControls;
tblNumerisanje.Append;
tblNumerisanje.FieldByName('BROJ').AsString := inttostr(i);
tblNumerisanje.Edit;
tblNumerisanje.FieldByName('NUM_1').AsString := Copy(DM.tblNumerisanje.FieldByName('BROJ').AsString,1,1);
tblNumerisanje.FieldByName('NUM_2').AsString := Copy(DM.tblNumerisanje.FieldByName('BROJ').AsString,2,2);
tblNumerisanje.FieldByName('NUM_3').AsString := Copy(DM.tblNumerisanje.FieldByName('BROJ').AsString,3,3);
tblNumerisanje.FieldByName('NUM_4').AsString := Copy(DM.tblNumerisanje.FieldByName('BROJ').AsString,4,4);
tblNumerisanje.FieldByName('NUM_5').AsString := Copy(DM.tblNumerisanje.FieldByName('BROJ').AsString,5,5);
tblNumerisanje.FieldByName('NUM_6').AsString := Copy(DM.tblNumerisanje.FieldByName('BROJ').AsString,6,6);
tblNumerisanje.Post;
eUkupno.Text := inttostr(tblNumerisanje.RecordCount);
tblNumerisanje.EnableControls;
// bSeperate.Click;
end;
except
ShowMessage('Desila se greška');
exit;
end;
bBoja.Click;
end;
*********************************
Print u FastReportu
var
// Num_1
memo1: TfrxMemoView;
memo2: TfrxMemoView;
shape_3: TfrxMemoView;
// Num_2
memo4 : TfrxMemoView;
memo6 : TfrxMemoView;
shape_5: TfrxMemoView;
// Num_3
memo7 : TfrxMemoView;
memo9 : TfrxMemoView;
shape_8: TfrxMemoView;
// Num_4
memo10 : TfrxMemoView;
memo12 : TfrxMemoView;
shape_11: TfrxMemoView;
// Num_5
memo13 : TfrxMemoView;
memo15 : TfrxMemoView;
shape_14: TfrxMemoView;
// Num_6
memo16 : TfrxMemoView;
memo18 : TfrxMemoView;
shape_17: TfrxMemoView;
// Num_6
shape_19: TfrxMemoView;
shape_20: TfrxMemoView;
memo21 : TfrxMemoView;
memo22 : TfrxMemoView;
begin
with DM do
begin
if tblNumerisanje.RecordCount = 0 then
begin
ShowMessage('Nema potakata za prikaz !!!');
exit;
end;
tblNumerisanje.First;
while not tblNumerisanje.Eof do
begin//----- pocetak-----
//**************************************************************************
memo1 := izvjNumerisanje.FindComponent('Memo1') as TfrxMemoView;
memo2 := izvjNumerisanje.FindComponent('Memo2') as TfrxMemoView;
shape_3 := izvjNumerisanje.FindComponent('Memo3') as TfrxMemoView;
memo1.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_1B').AsString);
memo2.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_1B').AsString);
shape_3.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_1B').AsString);
//**************************************************************************
memo4 := izvjNumerisanje.FindComponent('Memo4') as TfrxMemoView;
memo6 := izvjNumerisanje.FindComponent('Memo6') as TfrxMemoView;
shape_5 := izvjNumerisanje.FindComponent('Memo5') as TfrxMemoView;
memo4.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_2B').AsString);
memo6.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_2B').AsString);
shape_5.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_2B').AsString);
//**************************************************************************
memo7 := izvjNumerisanje.FindComponent('memo7') as TfrxMemoView;
memo9 := izvjNumerisanje.FindComponent('memo9') as TfrxMemoView;
shape_8 := izvjNumerisanje.FindComponent('Memo8') as TfrxMemoView;
memo7.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_3B').AsString);
memo9.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_3B').AsString);
shape_8.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_3B').AsString);
//**************************************************************************
memo10 := izvjNumerisanje.FindComponent('memo10') as TfrxMemoView;
memo12 := izvjNumerisanje.FindComponent('memo12') as TfrxMemoView;
shape_11 := izvjNumerisanje.FindComponent('Memo11') as TfrxMemoView;
memo10.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_4B').AsString);
memo12.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_4B').AsString);
shape_11.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_4B').AsString);
//**************************************************************************
memo13 := izvjNumerisanje.FindComponent('memo13') as TfrxMemoView;
memo15 := izvjNumerisanje.FindComponent('memo15') as TfrxMemoView;
shape_14 := izvjNumerisanje.FindComponent('Memo14') as TfrxMemoView;
memo13.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_5B').AsString);
memo15.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_5B').AsString);
shape_14.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_5B').AsString);
//**************************************************************************
memo16 := izvjNumerisanje.FindComponent('memo16') as TfrxMemoView;
memo18 := izvjNumerisanje.FindComponent('memo18') as TfrxMemoView;
shape_17 := izvjNumerisanje.FindComponent('memo17') as TfrxMemoView;
memo16.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_6B').AsString);
memo18.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_6B').AsString);
shape_17.Color := $000000;
//**************************************************************************
memo16 := izvjNumerisanje.FindComponent('memo16') as TfrxMemoView;
memo18 := izvjNumerisanje.FindComponent('memo18') as TfrxMemoView;
shape_17 := izvjNumerisanje.FindComponent('memo17') as TfrxMemoView;
memo16.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_6B').AsString);
memo18.Font.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_6B').AsString);
shape_17.Color := stringtoColor(tblNumerisanje.FieldByName('NUM_6B').AsString);
//**************************************************************************
tblNumerisanje.Next;
end;
izvjNumerisanje.ShowReport();
end;
end;
***************************************
case tblNumerisanje.FieldByName('NUM_1').AsInteger of
0 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($0024FF);
end;
1 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($4F1D26);
end;
2 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($0024FF);
end;
3 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($AB6905);
end;
4 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($00A859);
end;
5 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($087CCD);
end;
6 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($EA937D);
end;
7 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($EC268F);
end;
8 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($AAA387);
end;
9 : begin
tblNumerisanje.FieldByName('NUM_1B').AsString := ColorToString($813B0F);
end;
end;
//****************************************************************************************
case tblNumerisanje.FieldByName('NUM_2').AsInteger of
0 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($0024FF);
end;
1 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($4F1D26);
end;
2 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($0024FF);
end;
3 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($AB6905);
end;
4 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($00A859);
end;
5 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($087CCD);
end;
6 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($EA937D);
end;
7 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($EC268F);
end;
8 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($AAA387);
end;
9 : begin
tblNumerisanje.FieldByName('NUM_2B').AsString := ColorToString($813B0F);
end;
end;
//****************************************************************************************
case tblNumerisanje.FieldByName('NUM_3').AsInteger of
0 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($0024FF);
end;
1 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($4F1D26);
end;
2 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($0024FF);
end;
3 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($AB6905);
end;
4 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($00A859);
end;
5 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($087CCD);
end;
6 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($EA937D);
end;
7 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($EC268F);
end;
8 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($AAA387);
end;
9 : begin
tblNumerisanje.FieldByName('NUM_3B').AsString := ColorToString($813B0F);
end;
end;
//*********************************************************************************************
case tblNumerisanje.FieldByName('NUM_4').AsInteger of
0 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($0024FF);
end;
1 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($4F1D26);
end;
2 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($0024FF);
end;
3 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($AB6905);
end;
4 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($00A859);
end;
5 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($087CCD);
end;
6 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($EA937D);
end;
7 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($EC268F);
end;
8 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($AAA387);
end;
9 : begin
tblNumerisanje.FieldByName('NUM_4B').AsString := ColorToString($813B0F);
end;
end;
//******************************************************************************************
case tblNumerisanje.FieldByName('NUM_5').AsInteger of
0 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($0024FF);
end;
1 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($4F1D26);
end;
2 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($0024FF);
end;
3 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($AB6905);
end;
4 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($00A859);
end;
5 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($087CCD);
end;
6 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($EA937D);
end;
7 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($EC268F);
end;
8 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($AAA387);
end;
9 : begin
tblNumerisanje.FieldByName('NUM_5B').AsString := ColorToString($813B0F);
end;
end;
//*************************************************************************************
Dodjeljivanje COLOR boju u string tako da FastReport uzima string i konvertuje u boju
---------------------------------
case tblNumerisanje.FieldByName('NUM_6').AsInteger of
0 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($0024FF);
end;
1 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($4F1D26);
end;
2 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($0024FF);
end;
3 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($AB6905);
end;
4 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($00A859);
end;
5 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($087CCD);
end;
6 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($EA937D);
end;
7 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($EC268F);
end;
8 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($AAA387);
end;
9 : begin
tblNumerisanje.FieldByName('NUM_6B').AsString := ColorToString($813B0F);
end;
end;
//******************************************************************************************
tblNumerisanje.Post;
tblNumerisanje.Next;
[Ovu poruku je menjao savkic dana 16.10.2014. u 22:18 GMT+1]