VARPG und Container

[Squall]

Hallo,

ich hätte einige Fragen zu dem Container in VARPG.

Ist es möglich bei der Tree-View die Begrenzung von 10 Zeichen des anzuzeigenden Textes zu umgehen? (Mein anzuzeigender Text hat bis zu 25 Stellen)

Kann ich herausfinden von welchem Record(RecID) das "+" gedrückt wurde um die Childs anzuzeigen?

Gruß Martin

[Fuerchau]

Soweit ich weiß gibts eigentlich keine Begrenzung, die musst du da selber irgendwo haben (Variablengröße, Property-Dialog). Ggf. hast du auch einen Typ (AS/400-Objekt) angegeben, so dass eben nur 10 Stellen angezeigt werden.

Beim Öffnen und Schließen von Knoten gibt es überwachbare Ereignisse:
Expand = Knoten geöffnet
Collapse = Knoten geschlossen
Als Argument wird der Knoten übergeben.

Dann gibts da noch die Eigenschaft "SelectedItem", die den ausgewählten Knoten enthält.

Jetzt musst du nur noch nach ähnlichen Begriffen in der Doku nachsehen.

[Squall]

Soweit ich weiß gibts eigentlich keine Begrenzung, die musst du da selber irgendwo haben (Variablengröße, Property-Dialog). Ggf. hast du auch einen Typ (AS/400-Objekt) angegeben, so dass eben nur 10 Stellen angezeigt werden.

Beim Öffnen und Schließen von Knoten gibt es überwachbare Ereignisse:
Expand = Knoten geöffnet
Collapse = Knoten geschlossen
Als Argument wird der Knoten übergeben.

Dann gibts da noch die Eigenschaft "SelectedItem", die den ausgewählten Knoten enthält.

Jetzt musst du nur noch nach ähnlichen Begriffen in der Doku nachsehen.

Ich habe den Wert den ich in den Record adde als 25 definiert, die letzten 15 stellen werden einfach bei der Anzeige abgeschnitten. Bei einer anderen Darstellungsform, zb. Detail ist die Länge unbegrenzt, das stimmt. Jedoch sehe ich da keine Childs.

Bei Expanded habe ich nur diese Ereignisattribute: %PART %WINDOW %EVENTNAME. Die mir nicht weiterhelfen.

Aber sie haben recht es gibt da ein Selected. Ich muss jedoch über all meine Records schleifen und schauen welcher selectiert ist. Aber so komme ich beim Expanded wenigstens weiter, danke!

Was mich jedoch immer noch stört ist diese Zeichenbeschränkung.

Gruß Martin

[mk]

Hallo Martin,

eine Zeichenbechränkung gibt es eigentlich nicht.

Hier ein kleines Beispiel
* Record ID für den Containersatz
c Eval CTn_Record = Ctn_Id_A +
c ' ' + IconText +
c ' ' + IconFile +
c ' ' + %char(Parent)

* Satz in Container anlegen
c eval %setatr('w1':'CNT':'AddRcd')=
c Ctn_Record

Die IBM hat auch in den Beispielprogrammen
ein gutes Muster

Vielleicht hilfts

Gruss
Michael

[Squall]

Hallo,

warum wird dann aber mein 25A Wert nur mit 10 angezeigt?

Gruß Martin

[Squall]

Das Problem mit der Anzeige ist behoben. Eine Frage die ich noch hätte wäre bezgl der Größen im Recordsatz. Wie lang darf ein Recordsatz sein? Bzw wielange Icontext/file?

Und darf der Icontext auch leerzeichen in sich enthalten? Zb: "Das ist Menü 1". Weil seit er jetzt meinen ganzen String nimmt, stimmen alle Untermenüs nicht mehr obwohl die Parent id korrekt ist.

Gruß Martin

EDIT: Fehler behoben.

[mk]

Hallo Martin,

der Icontext kann natürlich auch leerzeichen enthalten.

Schau Dir das Beispiel der IBM an. Container.ivg

Wenn Du die Variable Icontext verlängerst und
die Objektspalte auf eine größere Länge einstellst,
dann wird der komplette Text angezeigt.
Du kannst auch die verschiedenen Darstellungen
ausprobieren.

Gruss
Michael

[Squall]

Hallo Michael,

also ich nur den Icontext verlängerte hatte ich das Problem das einige Werte Parent=0/'' bekamen. Seitdem ich ein xlate mit ' ':'_' mache funktioniert es reibungslos. Es scheint also das es nicht mit Leerzeichen geht da diese ja als Trenner benutzt werden.

Gruß Martin

[mk]

Hi Martin,

so ist es nicht.


Beispiel :
C ' ':'_' XLate IconText IconText

dann

C Eval NextRcd = NextId + ' ' +
C IconText + ' ' +
C IconFile + ' ' +
C Parent


Damit wird im Container der Text (Feld Icontext ) angezeigt.

Bei dem IBM Beispiel habe ich die Felder modifiziert
und der Icontext wird mit Leerstellen angezeigt.

Gruss
Michael