DBGrid + TImagelist

Ideen har jeg fra dette grid:

  http://kszyszka.republika.pl/

og hvorfor så ikke bare bruge det ?  mest fordi det indeholder 1.000.000 andre ting som jeg aldrig får brug for

Hej Morten

Det er vist dette du har brug for

http://www.undu.com/Articles/980806a.html

Stoney

Synes ikke dit link virker ?

Jo det gør.

Prøv igen

:-)

Stoney

jeg kan ikke engang få http;//www.undu.com op skal der logges ind et ellerandet sted først ?

Ekstra service *G*

http://www.tradestone.dk/eksperten/morten.htm

Stoney

ca 10 linier kode skal der til :)))

procedure TForm1.VolgaDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TVolgaColumn;
  State: TGridDrawState);
begin
  with Sender as TVolgaDBGrid do
  begin
    if Columns[DataCol].FieldName = 'Image' then
    begin
      Canvas.FillRect(Rect);
      ImageList1.Draw(Canvas,Rect.Left+4,Rect.Top, Columns[DataCol].Field.Value ,True);
    end else
      DefaultDrawColumnCell(Rect,DataCol,Column,State);
    end;
end;