Grml, gleiche Baustelle, anderes Problem.
OnCreate (Form) wird die folgende Prozedur aufgerufen, mit dem eigentlichen Ziel, Symbole zum sortieren einzelner Spalten auf die Titelzeile zu legen:
Delphi-Quellcode:
procedure TfrmDeviceManagementSelect.SetSortSymbols(Sender: TObject);
begin
with (grdDevice.Columns.Items[0] as TIWGridCell) do
begin
Control := TIWImageFile.Create(Self);
with TIWImageFile(Control) do
begin
ImageFile.Filename := './sort_no.gif';
OnClick := SortAddress;
end;
end;
end;
Leider macht die Prozedur etwas anderes. Es wird zum einen anstatt in die jeweilige Titelzelle, in die darunterliegende erste Datenzelle geschrieben und zum anderen wird keine Eigenschaft "Title" angeboten, mit welcher dann in die Titelzeile geschrieben werden kann.
Es handelt sich immer noch um IntraWeb Komponenten.