procedure TVendasVendedor.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
IF (Arow > 0) and (ACOL = 6) THEN
BEGIN
if strtofloat(StringGrid1.cells[Acol,ARow]) = 0 then
Stringgrid1.Canvas.Font.Color := clred
else
Stri
procedure TVendasVendedor.StringGrid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
IF ACOL = 3 THEN
BEGIN
Stringgrid1.canvas.Brush.color := $00FFF1D5;// $00C08000;
Stringgrid1.Canvas.Font.Color := clBLACK;
Stringgrid1.Canvas.
Como alterar a cor de uma célula em um StringGrid clicando com o botão
direito ( Usando um popup ), ou seja, quando clicar com o botao
direito e no menu aparecer 3 cores (AZUL, AMARELO, VERMELHO)...como
colocar uma cor para cada celula escolhida..
3 matches
Mail list logo