Pintar parte de um Edit

Question

Alguem sabe se � poss�vel eu pintar parte do fundo de um component TEdit de uma cor e o restante de outra cor? Quando uso TEdit.color ele
pinta para todo o componente, mas gostaria de fazer isso somente em parte do edit...

Agrade�o por sugest�es

Edilcimar · Answer

que eu saiba s� aceita 1 cor, mas voc� pode tentar utilizando Canvas e TRect para pintar pixel por pixel...

Andcarpi · Answer

Bom amigo ..tentei verificar pra vc se conseguia fazer tal procedimento, mas o componente Edit n�o possui a propriedade Canvas, portanto fica meio dificil (acho q impossivel, mais nao vou afirmar)... caso vc consiga um componente edit alternativo, que contenha a propriedade canvas, ai sim fica bem mais facil.......

Mcd · Answer

Consegui... Se alguem precisar segue o c�digo abaixo

var
fCanvas: TControlCanvas;
iLin, iCol: integer;
begin
fCanvas:= TControlCanvas.Create;
try
fCanvas.Control:= Edit1;
fCanvas.Brush.Color:= clRed;
fCanvas.Pen.Color:= clgreen;
for iLin:=0 to Edit1.Height do
for iCol:=0 to trunc((Edit1.Width / 2)) do
if fCanvas.Pixels[iCol,iLin] = clWhite then
fCanvas.Pixels[iCol,iLin]:= clGray;
finally
fCanvas.Free;
end;

F�rum Pintar parte de um Edit #281608