bild in draw- oder stringgrid laden

[alzaimar]

Zitat:

Zitat von Erlkönig

danke für die antwort. Ich habs auf nen andern weg gelöst bekommen

Und wie?

[Erlkönig]

Also der Quelltext is zum großen Teil net slebt von mir sondern hab ich gegoogelt. deshalb kann ich auch leider net allzuviel dazu erläutern wenn fragen auftreten sollten. aber ich versuch mein bestes :wink:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var bmp : TBitmap;
begin
  if FileExists(StringGrid1.Cells[ACol, ARow]) then
    begin
    bmp := TBitmap.Create;
    try
    bmp.LoadFromFile(StringGrid1.Cells[ACol, ARow]);
    StringGrid1.Canvas.CopyRect(Rect,bmp.Canvas,Classes.Rect(0,0,bmp.Width,bmp.Height));
    finally
      bmp.Free;
      end;
    end;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var i:integer;
begin
for I := 0 to StringGrid1.RowCount - 1 do
    StringGrid1.Rows[I].Clear();
openpicturedialog1.FileName:='{Dateipfad des Bildes}';
stringgrid1.Cells[ACol,ARow] := openpicturedialog1.FileName;
end;

Bei StringGrid1.SelectCell wird dann das bild angezeigt, wenn du auf einer der Zellen in der Stringgrid drückst. Dieser Teil ist auch selbst von mir.