... vielleicht ist ja was anderes falsch...
Delphi-Quellcode:
procedure TPostHauptformular.FuelleEintragsliste;
var
NeueSpalte: TListColumn;
NeuerEintrag: TListItem;
i, x: integer;
s: string;
breiten: array of integer;
begin
with liEintraege do // normale TListView, style Report
begin
{Alle (alten) Spalten und ListenItems bereinigen.}
columns.clear;
Items.clear;
{Memo vorhanden?}
NeueSpalte := Columns.add;
NeueSpalte.Caption := ' ';
NeueSpalte.Width := ColumnTextWidth;
{Versanddatum}
NeueSpalte := Columns.add;
NeueSpalte.Caption := 'Datum';
NeueSpalte.Width := ColumnTextWidth;
// und noch 4 stück...
// breiten speichern und auf 0 setzen...
SetLength (breiten, Columns.Count);
for i := 0 to columns.count -1 do
begin
breiten[i] := columns[i].Width;
columns[i].width := 0
end;
Items.BeginUpdate;
for i := 0 to se.letzter do
begin
with se[i] do
begin
NeuerEintrag := Items.Add;
neuerEintrag.Caption := s;
NeuerEintrag.SubItems.Add(empfaenger);
NeuerEintrag.SubItems.Add(inhalt);
// und noch'n paar...
end
end;
Items.EndUpdate;
for i := 0 to columns.count -1 do
columns[i].Width := breiten[i];
end
end; {FuelleEintragsliste}
ja,
, ich weiß, ich hätte alles auf Englisch machen sollen... schlechte Angewohnheit...
Hab ich hier irgendwo einen Grundfehler drin...
Viele Grüße
Marfco