Einige Fragen zu Valuelisteditor

[marabu]

Hallo,

kommst du damit zurecht?

Delphi-Quellcode:

procedure TDemoForm.ClearButtonClick(Sender: TObject);
begin
  VLE.Strings.Clear;
end;

procedure TDemoForm.AppendButtonClick(Sender: TObject);
var
  i: Integer;
begin
  with VLE do
  begin
    // neue Zeile als letzte Zeile anfügen und Index zurückliefern
    i := InsertRow('key' + IntToStr(Strings.Count), 'value', true);
    // wenn Index außerhalb des sichtbaren Bereichs ...
    if i >= VisibleRowCount then
      // Sichtfenster so verschieben, dass Index sichtbar wird
      TopRow := Succ(i - VisibleRowCount);
  end;
end;

procedure TDemoForm.InsertButtonClick(Sender: TObject);
begin
  with VLE do
  begin
    Row := 1;
    // neue Zeile vor Zeile 1 einfügen
    TopRow := InsertRow('key' + IntToStr(Strings.Count), 'value', false);
  end;
end;

Grüße vom marabu