Vst Editieren

[youuu]

Hi,

ich möchte mein Vst vom Benutzer Editieren lassen.
Nun habe ich das Problem, das der Text nicht angenommen wird.

Ok nach etwas Googlen fand ich das OnNewText Ereignis.

Nur klappt es nicht mit dem Bespiel welches ich gefunden habe.

Delphi-Quellcode:

procedure Tfrm_History.VstHistoryNewText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; NewText: string);
var
  History: THistory;
begin
    History:= THistory(VstHistory.GetNodeData(node)^ );  <--- editiert
    History.txt[Column-1]:= NewText;          <--- der linken Seite kann nichts zugewiesen werden
end;

[mkinzler]

Implementiere einen Editor

[youuu]

Wie?

[DeddyH]

Wie ist denn THistory deklariert?

[youuu]

Delphi-Quellcode:

type
  THistory = class

  private
    Fid: string;
    Fkd: string;
    Ftxt: string;
    Fdate: string;
    Fbearbeiter: string;
  public
    property kd: string  read Fkd write Fkd;
    property txt: string  read Ftxt write Ftxt;
    property date: string  read Fdate;
    property id: string  read Fid write Fid;
    property bearbeiter: string  read Fbearbeiter write Fbearbeiter;

    function deleteHistory(id: string): Boolean;

    procedure UpdateHistory;
    procedure InsertHistory;
  end;

[DeddyH]

Du versuchst einen String in einen Char zu schreiben?

[youuu]

Ich möchte lediglich ein Editbares Vst haben.
Wo schreibe ich dort einen String in einen Char?

[DeddyH]

Zitat:

Delphi-Quellcode:

History.txt[Column-1]:= NewText;

txt ist eine String-Property, wenn ich das richtig gesehen habe.

[youuu]

ja richtig und "newText" doch auch?

[DeddyH]

Ja eben, ein einzelnes Element eines String ist nunmal ein Char, da geht kein String rein.

[youuu]

Dann die Frage, wie löse ich das am besten im OnNewText?

[DeddyH]

Dumme Frage: was willst Du eigentlich machen?

[youuu]

Der benutzer soll bei klick auf die Vst Spalte, den Eintrag ändern.
Das klappt auch, nur wird die Änderung noch nicht übernommen, ich habe raus bekommen, das man das im OnNewText Ereignis eintragen muss, nur wie?

[DeddyH]

Sehe ich das richtig, dass das 5 Spalten sind? Dann könntest Du z.B. in einer case-Abfrage die Spalte ermitteln und die zugehörige Property ändern. Ungetestet:

Delphi-Quellcode:

procedure Tfrm_History.VstHistoryNewText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; NewText: string);
var
  History: THistory;
begin
    History:= THistory(VstHistory.GetNodeData(node)^ ); <--- editiert
    case Column of
      0: History.kd := NewText;
      1: History.txt := NewText;
      2: History.date := NewText;
      3: History.id := NewText; 
      4: History.bearbeiter:= NewText;
   end;  
end;

[youuu]

Super, klappte