Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 05-11-2004
frudolph frudolph is offline
Miembro
 
Registrado: oct 2004
Posts: 40
Poder: 0
frudolph Va por buen camino
En el evento "OnDrawColumnCell" de la grilla (DBGrid) escribe más o menos lo que sigue:


Código:
procedure TForm1.DBGrid1DrawColumnCell(
	Sender: TObject; const Rect: TRect; DataCol: Integer;
	Column: TColumn; State: TGridDrawState);
var
  P: TPicture;
begin
  P := TPicture.Create;
  try
	with TDBGrid(Sender) do
	  // En la linea que sigue reemplaza "GRAPHIC" por tu nombre de campo
	  if not (gdFixed in State) and (UpperCase(Column.FieldName) = 'GRAPHIC') then
		begin
		  Canvas.FillRect(Rect);
		  P.Assign(Column.Field);
		  if P.Graphic <> nil then Canvas.StretchDraw(Rect, P.Graphic)
		end;
  finally
	P.Free;
  end;
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 18:13:34.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi