<br />
<b>Warning</b>:  A non-numeric value encountered in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>101</b><br />
<br />
<b>Warning</b>:  filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in <b>/home2/icentarb/public_html/icentar/classes/class.filesystem.php</b> on line <b>142</b><br />
 
procedure TForm1.StringGrid1DrawCell(Sender: 
      TObject; ACol, ARow: Integer; 
      Rect: TRect; State: TGridDrawState); 
Const         //ovde defini?ete boju. Naravno mo?ete ostaviti
                 //i default boje. 
      clPaleGreen = TColor($CCFFCC); 
      clPaleRed =   TColor($CCCCFF); 
begin 
//Ukoliko ?elija ima fokus oboji?ete je u drugu boju 
if (gdFocused in State) then begin     
      StringGrid1.Canvas.Brush.Color := clBlack; 
      StringGrid1.Canvas.Font.Color := clWhite; 
end 
else      //Ukoliko ?elija nema fokus mo?ete koristiti 
           //sopstvene boje 
      If ACol = 2      //druga kolona ?e biti obojena u
                            //zeleno
               then StringGrid1.Canvas.Brush.color := clPaleGreen 
               else StringGrid1.canvas.brush.Color := clPaleRed; 
//Sada bojimo ?elije, ali samo, u