Hallo liebe Profaner,
ich muß mal wieder um Rat und Mithilfe bitten.
Mein Problem ist die Anzeige der letzten Zeile in einem XProfan-Grid, welches
mit Create("GridBox",...) erstellt wurde.
Ist das Grid mit Zeilen gefüllt, sind neu hinzugefügte Zeilen nicht sichtbar.
Man müßte jedesmal nach unten scrollen, um sie sichtbar zu machen. Das ist
aber ziemlich umständlich, weil die Zeile neu eingegebene Daten enthält, die ich
per Sichtkontrolle auf Richtigkeit überprüfen möchte.
Ich arbeite mit XProfan 4.
Gibt es dafür eine Lösung oder hat jemand eine Idee?
Im Prinzip funktioniert alles bis auf das o.a. Problem zufriedenstellend!
Kurze Infos:
Es handelt sich um einen Finanz- oder Kontenmanager, den ich für
meine Einnahmen und Ausgaben programmieren will bzw. dran bin.
Das ist das Fenster kind& auf %hWnd:
kind& = Create("ChildWindow",%hWnd,"Buchungsfenster",0,0,Width(%hWnd,0),Height(%hWnd,0))
SetStyle kind&,$94CF0000 ' sonst erhält das ChildWindow keinen Fokus
' nun folgt die Buchungszeile
t1% = Create("Button",kind&,"Datum:", 170,630, 74,17)
t2% = Create("Button",kind&,"Empfänger:",255,630,105,17)
t3% = Create("Button",kind&,"Verwendungszweck:",405,630,105,17)
t4% = Create("Button",kind&,"Kategorie:",585,630,105,17)
t5% = Create("Button",kind&,"Soll:", 725,630, 54,17)
t6% = Create("Button",kind&,"Haben:",800,630, 54,17)
Ndat& = Create("DateEdit",kind&,d$, 170,650, 75,18)
Nverwend& = Create("Edit",kind&,"", 405,650,170,17)
Nsol& = Create("Edit",kind&,"0,00", 725,650, 55,17)
Nhab& = Create("Edit",kind&,"0,00", 800,650, 55,17)
' Buttons unten rechts in der Buchungszeile
rech& = Create("Button",kind&,"Rechner", 870,627,65,47)
sp& = Create("DefButton",kind&,"speichern",945,627,75,47)
ab& = Create("Button",kind&,"Abbruch", 1025,627,65,47)
' Buttons an linker Seite des Hauptfensters
kobut& = Create("Button",kind&,"Bank/Kontoauswahl",8, 20,150,25)
kabut& = Create("Button",kind&,"Kategorieauswahl", 8, 60,150,25)
embut& = Create("Button",kind&,"Empfängerauswahl", 8,100,150,25)
umbut& = Create("Button",kind&,"Umbuchung",8,160,150,25)
' Umrandung
box1% = Create("GroupBox",kind&,"",3,10,162,500)
box2% = Create("GroupBox",kind&,"",2,11,163,501)
If first%
abb& = Create("DefButton",kind&,"zum Hauptmenü >>>", 8,480,150,25)
Else
abb& = Create("Button",kind&,"Auswahl abbrechen >>>",8,480,150,25)
Endif
...
Das ist die Gridbox liste& auf kind&:
' die Spalten-Überschriften als 1. Zeile für die GridBox definieren
a$ = "KZ;0;30;Datum;2;80;Soll;1;80;Haben;1;80;Stand;2;90;Empfänger;0;180;Kategorie;0;180;Zweck;0;180"
liste& = Create("GRIDBOX",kind&,a$,0,170,20,920,605)
...
Unterhalb der GridBox befindet sich eine Eingabezeile, die nach Klick auf speichern, der GridBox angehängt wird. Ist die GridBox bereits mit
Zeilen der vorherigen Eingaben (kommen aus einer dBase-Tabelle) gefüllt, ist die neue Zeile nicht sichtbar.
Nur zur Information, ich versuche den Finanzmanager von Lexware weitestgehend nachzubilden. Wobei ich mich nur mit Offline beschäftige
und nicht mit automatischen Ausfüllen von Buchungen des Managers über das Girokonto per Online.
Ich danke jetzt schon für die freundliche Unterstützung.
Grüße von oberstleutnant