Fórum Sobre FillRect... #278806

preencher, pintar o trect

certo mais por diversas vezes, reparei sua execução antes de alterar os atributos do TRect...

veja um pedaço de um programa onde utilizo trect para imprimir
Rect.Left := ColunaNome * IndiceH;
Rect.Top := LinhaNome * IndiceV;
Rect.Right := 950 * IndiceH;
Rect.Bottom := (Rect.Top + TextHeight(Nome) + 1) * IndiceV;
DrawText(Handle,Pchar(Nome),Length(Nome),
Rect,DT_WORDBREAK);
End;
If ImprimirResponsavel = True then
Begin
Font.Size := FonteResponsavel;
If NegritoResponsavel = True then
Font.Style := [fsBold]
Else
Font.Style := Font.Style - [fsBold];
Rect.Left := ColunaResponsavel * IndiceH;
Rect.Top := LinhaResponsavel * IndiceV;
Rect.Right := 950 * IndiceH;
Rect.Bottom := (Rect.Top + TextHeight(Responsavel) + 1) * IndiceV;
DrawText(Handle,Pchar(Responsavel),Length(Responsavel),
Rect,DT_WORDBREAK);
End;
If ImprimirEndereco = True then
Begin
Font.Size := FonteEndereco;
If NegritoEndereco = True then
Font.Style := [fsBold]
Else
Font.Style := Font.Style - [fsBold];
Rect.Left := ColunaEndereco * IndiceH;
Rect.Top := LinhaEndereco * IndiceV;
Rect.Right := 950 * IndiceH;
Rect.Bottom := (Rect.Top + TextHeight(Endereco) + 1) * IndiceV;
DrawText(Handle,Pchar(Endereco),Length(Endereco),
Rect,DT_WORDBREAK);

Geralmente se executa um FillRect antes de iniciar o desenho de um componente para ´limpar´ o fundo do desenho.

Geralmente se executa um FillRect antes de iniciar o desenho de um componente para ´limpar´ o fundo do desenho.[/quote:76dd08bff0]acho que o exemplo que vi utiliza exatamente essa idéia, pois é o primeiro método a ser executado...