Stringgrid oder dbgrid

[Perlsau]

Danke

Das hab ich jetzt verstanden

[Luckner]

Hallo Sir Rufo,
das ist genau die Erklärung, die ich versucht habe hier zu bringen. Irgenwie tendiere ich deshalb zum Stringgrid. Aber die Handhabe mit so einem Grid ist mir noch völlig schleierhaft. Habe schon einige Sachen probiert, manche Sachen funktionieren auch. Aber so richtig kann ich mit dem Stringgrid nichts anfangen. Zellen füllen schon. Beim Blob wird schon schwieriger. Jetzt habe ich ein TMS.Grid endeckt. Mal schauen.

Luckner.

[Sir Rufo]

Du kannst jedes beliebige Grid nehmen, aber warum nicht beim DBGrid bleiben? Da wird dir vieles schon abgenommen, was du anders erst wieder umständlich implementieren musst.

Es wäre auch sehr hilfreich, wenn man die Delphi-Version wüsste - ganz findige User tragen die Version einfach in ihr Profil ein, schon hat man das immer vor Augen.

[Perlsau]

Zitat von Luckner:

Beim Blob wird schon schwieriger.

Wenn ich in einem DBGrid z.B. eine Grafik darstellen will, muß ich die selber in die gewünschte Zelle zeichnen. Das gilt dann natürlich auch für's StringGrid. Mein Code für's DBGrid sieht folgendermaßen aus:

Delphi-Quellcode:

Procedure TFormDeckblatt.DBGrid_DeckblattDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var
  Bild : TImage;
begin
  If DatMod.Qset_Deckblatt.RecordCount > 0 Then
  Begin
    If Column.FieldName = 'BLATT' Then
    Begin
      Bild := TImage.Create(Self);
      Try
        Bild.Visible      := False;
        Bild.Width        := 300;
        Bild.Height       := 300;
        Bild.Center       := True;
        Bild.Proportional := True;
        Bild.Stretch      := True;
        If DatMod.BlobToImage(DatMod.Qset_Deckblatt.FieldByName('BLATT'),Bild) Then
        Begin
          DBGrid_Deckblatt.Canvas.FillRect(Rect);
          DBGrid_Deckblatt.Canvas.StretchDraw(Rect,Bild.Picture.Bitmap);
        End;
      Finally
        Bild.Free;
      End;
    End;
  End;
end;

Function TDatMod.BlobToImage(Feld: TField; Bild: TImage): Boolean;
Var
  S     : TStream;
  JBild : TJpegImage;
begin
  Result := False;
  IF Feld.IsNull THEN Exit;

  JBild := TJPegImage.Create;
  S     := Feld.DataSet.CreateBlobStream(Feld, bmRead);
  Try
    JBild.LoadFromStream(S);
    Bild.Picture.Bitmap.Assign(JBild);
    Result := True;
  Finally
    S.Free;
    JBild.Free;
   End;
end;

[Luckner]

Sir Rufo,
habe mein Prtofil jetzt ergänzt. Werde mir ende des Monats eine Delphi XE7 Pro-version kaufen, wobei mitten drin in der Programmierung umzusteigen wird nicht funktionieren. Aber ein neues Projekt möglicherweise.
Welchen Vorteil bring ein clientdataset? Ich benutze eigentlich imme ein IBDataset
Luckner.

[Sir Rufo]

Ein ClientDataSet sammelt z.B. alle Änderungen bis du diese wieder zurück zur Datenbank überträgst. Macht also genau das was du suchst.