Adicione as tabelas de dados de cor às Delphi

Autor：Eve Cole Data da Última Atualização：2025-02-19 12:48:01

O controle da grade (DBGrid) é frequentemente usado no Delphi. Nos itens da tabela unitária na grade, etc. Vamos usar um exemplo simples para dizer como fazê -lo.

Por exemplo, se houver um reembolso de livro na primavera, ele é representado por vermelho e, se houver um reembolso de livro no outono, é representado por amarelo (Figura 1)

Figura 1

Tais requisitos podem ser facilmente alcançados usando a função de auto-desenho de DBGrid. Os usuários podem lidar com o evento OnDrawColumnCell da DBGrid, onde alcançam efeitos especiais. Para determinar se o registro atende aos requisitos, você pode usar a propriedade Datalink do DBGRID para obter dados, mas a propriedade Datalink do DBGRID é um membro protegido e deve ser chamado na subclasse do tcustomdbGrid.

Tipo tmycustomdbgrid = classe (tcustomdbgrid); : = Datalink.fields [5] .ASSTRING; : = clred else se sqjts <> '' 'então // o número de livros de outono retornado> 0 é exibido em tela amarela.brush.color: = clyellow else canvas.brush.color: = clwhite; = clblack;

Esse método pode estender vários métodos de modificação de outros controles, como cores diferentes, podem ser usadas de acordo com o valor do item de dados, e cores diferentes podem ser exibidas de acordo com o número de registro. Em suma, aplicações de flexibilidade, como tela, Rect e Bitmap, podem decorar várias grades de maneira colorida.