Eu queria que quando fosse um rascunho urgente a determinada linha do grid, ficasse piscando...esses são os dados.
o campo que eu trago a infomarcao se é urgente é o Field 3.
procedure TFrmIzaFin.DbgRascunhoDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If Not odd(DtsRascunho.DataSet.RecNo) Then
If Not (gdSelected in State) Then
begin
DbgRascunho.Canvas.Brush.Color:=clSkyBlue;
DbgRascunho.Canvas.FillRect(Rect);
DbgRascunho.DefaultDrawDataCell(rect,Column.Field,State);
end;
if (TAuxDBGrid(DbgRascunho).DataLink.ActiveRecord + 1 = TAuxDBGrid(DbgRascunho).Row) or (gdSelected in State) then
begin
DbgRascunho.Canvas.Font.Style := DbgRascunho.Canvas.Font.Style + [fsBold];
DbgRascunho.Canvas.Font.Style := DbgRascunho.Canvas.Font.Style + [fsItalic];
DbgRascunho.Canvas.Font.Style := DbgRascunho.Canvas.Font.Style + [fsUnderline];
DbgRascunho.Canvas.Font.Color := clblack;
end;
if DbgRascunho.Fields[2].AsString = 'N' then
begin
DbgRascunho.Canvas.Font.Color := clblack;
end
else
if DbgRascunho.Fields[2].AsString = 'S' then
begin
DbgRascunho.Canvas.Font.Color := clgray;
end;
if DbgRascunho.Fields[3].AsString = 'N' then
begin
DbgRascunho.Canvas.Font.Color := clblack;
end
else
if DbgRascunho.Fields[3].AsString = 'S' then
begin
DbgRascunho.Canvas.Font.Color := clRed;
DbgRascunho.Canvas.Font.Style := DbgRascunho.Canvas.Font.Style + [fsBold];
DbgRascunho.Canvas.Font.Style := DbgRascunho.Canvas.Font.Style + [fsItalic];
DbgRascunho.Canvas.Font.Style := DbgRascunho.Canvas.Font.Style + [fsUnderline];
end;
DbgRascunho.Canvas.FillRect(Rect);
DbgRascunho.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
DbgRascunho.DefaultDrawDataCell(Rect, Column.Field, State);
end;
Pergunta
robinhocne
Eu queria que quando fosse um rascunho urgente a determinada linha do grid, ficasse piscando...esses são os dados.
o campo que eu trago a infomarcao se é urgente é o Field 3.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.