DBgrid Canvas em Vendas Cancelada

Delphi

08/05/2008

Olá,

Pessoal, estou fazendo um view para Vendas (Mestre + detalhe), se a venda estiver cancelada, gostaria de mostrar no dbgrid detalhe uma imagem ([CANCELADA]), como se fosse um carimbo ou marca dágua. Se alguém puder ajudar ficarei muito grato.

Estou usando o seguinte código nos eventos Onkeyup e DrawDataCell do DBgrid (detalhe), mas acredito que pode ser melhorado:

var
bmp : TBitmap;
begin
with DBGridDetalhe.Canvas do
begin
Try
bmp := TBitmap.Create;
bmp.Assign(Image1.Picture);
Draw(0,0,bmp);
finally
bmp.free;
end;
end;
end;

//Usei um Timage para guardar a imagem pois assim ela vai junto com o executavel.


Adriherbal

Adriherbal

Curtidas 0
POSTAR