TDialogService.InputQuery zeigt die Beschriftung nicht alle an

[Peter-Pascal]

Hallo,

TDialogService.InputQuery ignoriert die zweiten Felder. Hier die Ersteingabe.

Delphi-Quellcode:

procedure TFrameBuchhaltungPrivat.SpeedButtonNeuClick(Sender: TObject);
var
  Kategorie: TKategorie;
  Konto: TKonto;
begin
  TDialogService.InputQuery('Kategorie',['Name','Beschreibung'],['',''],
    procedure(const AResult: TModalResult; const AValues: array of string)
    var
      LValue: string;
    begin
      if AResult = mrOk then
      begin
        Konto:= TKonto(ListViewPrivat.Selected.TagObject);
        Kategorie:= TKategorie.Create;
        Kategorie.KategorieID:= -1;
        Kategorie.KontoPlanID:= Konto.KontoPlanID;
        if Konto.Nebenbuch <> TNebenbuch.Kategorie then
        begin
          Konto.Nebenbuch:= TNebenbuch.Kategorie;
          FViewModelKontoPlan.callUpdateKonto(Konto);
        end;
        Kategorie.Name:= AValues[0];
        Kategorie.Beschreibung:= AValues[1];
        FViewModelKontoPlan.callCreateKategorieDataSet(Kategorie);
        FreeAndNil(Kategorie);
        showKategorieListe
      end;
    end);
end;

Die zweite Eingabe unter Beschreibung wird gespeichert, aber dann nicht mehr angezeigt.

Hier die Korrektur:

Delphi-Quellcode:

procedure TFrameBuchhaltungPrivat.ListViewPrivatKategorieItemClickEx(const Sender: TObject; ItemIndex: Integer; const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
var
  Kategorie: TKategorie;
begin
  if ItemObject is TListItemAccessory then
  begin
    Kategorie:= TKategorie(ListViewPrivatKategorie.Selected.TagObject);

    TDialogService.InputQuery('Kategorie',['Name','Beschreibung'],[Kategorie.Name,Kategorie.Beschreibung],
    procedure(const AResult: TModalResult; const AValues: array of string)
    var
      LValue: string;
    begin
      if AResult = mrOK then
      begin
        Kategorie.Name:= AValues[0];
        Kategorie.Beschreibung:= AValues[1];
        FViewModelKontoPlan.callUpdateKategorieDataSet(Kategorie);
        TListViewItem(ListViewPrivatKategorie.Selected).Text:= Kategorie.Name;
        TListViewItem(ListViewPrivatKategorie.Selected).Detail:= Kategorie.Beschreibung;
      end;
    end);
  end;
end;

Der Screenshot zeigt, dass die Beschriftung beim zweiten Feld fehlt und der Inhalt des zweiten Feldes. Wie gesagt, speichern tut es.

Danke schon mal für die Hilfe.

Ps.: Vielleicht ist es von Bedeutung, ich habe die Version Athene.

Gruß Peter

[Peter-Pascal]

Hallo,

hat außer mir niemand das Problem?
Oder habe ich mein Problem nicht gut genug beschrieben. Die zweite Beschriftung und das zweite Feld wird nicht ausgefüllt. Und ich weiß nicht, was ich falsch mache. Es ist noch kurioser: Wenn ich das Zweite Editfeld antippe, erscheint plötzlich der Text. Offensichtlich ist er da, aber nicht sichtbar.

Hat jemand eine Idee, was ich falsch mache? Ich vermute immer mehr, da ich irgendetwas saublödes gemacht.

Gruß Peter

[jaenicke]

Unter Delphi 11.3 funktioniert es, mit Delphi 12 nicht mehr. Der Bug wurde bereits gemeldet, wie eine kurze Suche zeigt
https://quality.embarcadero.com/browse/RSP-43370
Dort ist auch ein Workaround zu finden.

[Peter-Pascal]

Danke Herr Jaenicke,

mit einem Bug habe ich nicht gerechnet. Bislang lag der Fehler immer bei mir.

Gruß Peter