AdvDbgrid Button und Links anzeigen.

[Drumbo]

So hab jetzt beide Probleme gelöst.

Die Datei-Links müssen erst ein wenig unformatiert werden.
Dazu packt man seinen Pfad in folgende Funktion

Delphi-Quellcode:

function FilePathToURL(const FilePath: string): string;
var
  Buffer: string;
  BufferSize: DWORD;
begin
  Result := '';
  BufferSize := Length('file:///' + FilePath + #0);
  SetLength(Buffer, BufferSize);

  if UrlCreateFromPath(PChar(FilePath), PChar(Buffer), @BufferSize, 0) = S_OK then
    Result := Buffer;
end;

Der Aufruf folgt beispielsweise so:
edit1.text:=FilePathToURL(path) Dann noch im DBAdvGrid die Eigenschaft "URLShow" auf "True" setzen. Dann öffnet sich beim klicken auf den Link das im PC als Standardprogramm dieses Dateitypes verwendete Programm.

Was das Anzeigen der Knöpfe angeht hab ich mittlerweile schonmal erreicht, dass mir die Knöpfe angezeigt werden. Dies funktioniert mit

Delphi-Quellcode:

i:=1;
while i<DBAdvGrid1.RowCount do
  begin
  DBAdvGrid1.AddButton(4,i,50,15,'Bestellen',haCenter,vaCenter);
  i:=i+1;
  end;

Hierbei wird einfach der Spalte nach die Tabelle durchgegangen und dann der Knopf erstellt. Wie man die Buttons nun Adressiert weiss ich leider noch nicht. Allerdings bin ich hierbei schon kräftig am recherchieren