{**************plugin***********************************}
            
               ColorIndexToRGB(0,r,g,b);
               PenFore (r,g,b);

               col := value * 65535;

               rect(x,y,x+5,y-5);
               objectHand :=  LNewObj;
               SetFillBack(objectHand,col,col,col);


               (*
               {change of color}
               ColorIndexToRGB(18,r,g,b);
               colr := value * r * 1.1;
               colg := value * g * 1.1;
               colb := value * b * 1.1;
               rect(x,y,x+5,y-5);
               objectHand :=  LNewObj;
               SetFillBack(objectHand,colr,colg,colb);
               *)

{**************plugin***********************************}

-- NDSMonikaAnnen - 21 Dec 2005