Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
E o seguinte estou com uma duvida acredito que alguem pode me ajudar vou explicar oque quero fazer para você entender . Eu tou usando o componente DbGrid e + o Zeus + imagem tou usando esse comando aki
Na propriedades do Dbgrid : DBGridDrawColumnCell
procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Bitmap:
TBitmap;
begin
if Column.Index = 0 then
begin
if sql.FieldByName('Nome da sala').AsString = 'Suporte Online' then
Bitmap := Image1.Picture.Bitmap
else
Bitmap := Image2.Picture.Bitmap;
with TDBGrid(Sender) do
begin
Canvas.Draw(Rect.left, Rect.Top , Bitmap);
end;
end;
end;
Ai eu insiro 2 imagem ! so que o erro que ta dando e que a imagem ta ficando em sima do texto entao eu deveria colocar um 3 espaço + ou - depois da imagem olha a foto explicando como eu queria e oque ta acontecendo
/applications/core/interface/imageproxy/imageproxy.php?img=http://www.jtweb.com.br/erro.jpg&key=a59f8e0906f4778dfdbc14ff7537312de33cc7a8c3f5707ba34411fc7af689d8" alt="Imagem Postada" />
Carregando comentários...