Fórum pintar edit com canvas #312494

procedure TForm1.Pinta_Edit(p1 : integer;p2 : integer ; p3: integer; p4: integer);
var fCanvas: TControlCanvas;
    iLin, iCol: integer;
    tot1,tot,a1,a2,a3,a4,b1,b2,b3,b4 : integer;
begin
 tot1:=p1+p2+p3+p4;
 tot:=edit1.Width;

 if p1 > 0 then b1:=strtoint(Format(´¬6.0f´,[(p1*100)/tot1])) else b1:=0;
 if p2 > 0 then b2:=strtoint(Format(´¬6.0f´,[(p2*100)/tot1])) else b2:=0;
 if p3 > 0 then b3:=strtoint(Format(´¬6.0f´,[(p3*100)/tot1])) else b3:=0;
 if p4 > 0 then b4:=strtoint(Format(´¬6.0f´,[(p4*100)/tot1])) else b4:=0;

 if b1 > 0 then a1:=strtoint(Format(´¬6.0f´,[(b1*tot)/100])) else a1:=0;
 if b2 > 0 then a2:=strtoint(Format(´¬6.0f´,[(b2*tot)/100])) else a2:=0;
 if b3 > 0 then a3:=strtoint(Format(´¬6.0f´,[(b3*tot)/100])) else a3:=0;
 if b4 > 0 then a4:=strtoint(Format(´¬6.0f´,[(b4*tot)/100])) else a4:=0;


 fCanvas:= TControlCanvas.Create;
 try
   fCanvas.Control:= edit1;
//   fCanvas.Brush.Color:= clRed;
//   fCanvas.Pen.Color:= clgreen;
   for iLin:=0 to edit1.Height do begin
       if a1 > 0 then
          for iCol:=0 to a1 do
              if fCanvas.Pixels[iCol,iLin] = clWhite then
              fCanvas.Pixels[iCol,iLin]:= clred;
       if a2 > 0 then
          for iCol:=a1 to a1 + a2 do
              if fCanvas.Pixels[iCol,iLin] = clWhite then
                 fCanvas.Pixels[iCol,iLin]:= clblue;

       if a3 > 0 then
          for iCol:=a2 to a1 + a2 + a3 do
              if fCanvas.Pixels[iCol,iLin] = clWhite then
                 fCanvas.Pixels[iCol,iLin]:= clblack;

       if a4 > 0 then
          for iCol:=a3 to a1 + a2 + a3 +a4 do
               if fCanvas.Pixels[iCol,iLin] = clWhite then
                  fCanvas.Pixels[iCol,iLin]:= clgreen;

   end;
 finally
 Canvas.Free;
 end;
end;