Grid mit Grafiken

[Oessel]

Hi !

Ich möchte gerne einen Email-Client schreiben. Dabei sollen - wie in MS Outlook - auch Grafiken neben der Betreffzeile der Email im Grid erscheinen - aber wie mach ich das ?

Greez, Stephan

[The_Flo]

Hi

Was für ein Grid verwendest du denn?

StringGrid oder DrawGrid? Mein Tipp: Verwende doch eine TListView. Wenn du ViewStyle vsReport setzt kannst du ImageLists z.B. zu StateImages und SmallImages zuweisen und den Einträgen dann Bilder aus diesen ImageLists. (Item.ImageIndex := Nummer;)

Ciao, FLorian

[Oessel]

Es handelt sich bei dem Grid um ein DBGrid...

[Thomas Stutz]

Du musst in diesem Fall das Zeichnen selber übernehmen, indem du
zuerst DefaultDrawing auf  False setzt.
In eine TImageListe kannst du dann Bilder reinladen und dann im Eregnis
OnDrawColumnCell des TDBGrids kannst du so was schreiben:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  r: TRect;
begin
  if Column.Field.FieldName = 'Dein_Feld_Name' then
  begin
    r := Rect;
    DBGrid1.Canvas.FillRect®;
    ImageList1.Draw(DBGrid1.Canvas, r.Left, r.Top, 0);  // 1.Bild der Imagelist anzeigen
    r.Left := r.Left + ImageList1.Width + 2;
    DrawText(DBGrid1.Canvas.Handle, PChar(Column.Field.AsString),
      Length(Column.Field.AsString), r, dt_SingleLine);
  end
  else
  begin
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;


(ungetestet)

[Oessel]

Hm, danke ! Werde ich mal ausprobieren !

Greez, Stephan