Hallo,
die Text ausgabe mache ich mit ListView:
erstellen:
Delphi-Quellcode:
for j := 1 to LineNbr do begin
NewItem := Items.Add;
NewItem.Caption := 'Text';
for i := 1 to ColumnNbr do begin
NewItem.SubItems.Add('Text');
end;
end; // for
verändern:
Delphi-Quellcode:
for j := 1 to LineNbr do begin
for i := 1 to ColumnNbr do begin
if Upd then begin
Items.BeginUpdate ;
if i=1 then Items.Item[j-1].Caption := UpdateTxt
else Items.Item[j-1].subitems[i-1] := UpdateTxt;
Items.EndUpdate;
end;
end;
end;
vielleicht gibt es hierfür auch eine Lösung, ich werde es aber auch mal mit DrawText versuchen.