1 Feb 2012
Editieren eines Feldes in einer RecList
Zeitweise ist es notwendig, innerhalb des Editiervorgangs einer RecList, gewisse Eigenschaften der zu editierenden Zelle zu verändern, um beispielsweise Eingabebeschränkungen zu realisieren.
In dem folgenden Artikel möchte ich auf diese Thematik näher eingehen.
Ereignis: EvtLstEditStart
Um ein Feld innerhalb einer RecList editieren zu können, muss zuerst eine Reihe von Ereignissen durchlaufen werden. Das Ereignis EvtLstEditStart wird ausgelöst, wenn ein Eintrag in einer Liste editiert werden soll. Durch den Befehl WinLstEdit() wird der Editiervorgang gestartet. Nun können Vorbereitungen zum editieren des Datensatzes getroffen werden. Hierfür wird vom Ereignis, je nach Datentyp des zu editierenden Datenbankfeldes, ein Eingabeobjekt (aEdit) erzeugt. Dieses Objekt besitzt nun die gleichen Eigenschaften wie jedes andere Edit-Objekt aus der Objektpalette. Sie haben nun die Möglichkeit diese Eigenschaften nach Ihren Wünschen anzupassen. Es ist ebenfalls denkbar dem erzeugten Objekt eine Ereignisfunktion zuzuweisen. Mit dem Befehl WinEvtProcNameSet() kann dies verwirklicht werden.
// Editiermodus wird durch Doppelklick ausgelöst ... case ((aButton = _WinMouseLeft | _WinMouseDouble) AND (aHitTest = _WinHitLstView)); { tWinEdit # aEvt:Obj->WinLstEdit(aItem, _WinLstEditClearChanged | _WinLstEditLst); } ... sub EvtLstEditStart ( aEvt : event; // Ereignis aColumn : handle; // Spalte aEdit : handle; // Eingabefeld aList : handle; // DataList ) : logic; { // Vorbereitung der Verarbeitung // RecList-Hintergrundfarbe auf Weiß setzen aEvt:Obj->wpColBkg # _WinColWhite; if (aEdit > 0) { // je nach übergebenen Eingabeobjekt wird die Eigenschaft geändert switch (aEdit->Wininfo(_Wintype)); { // Bei Floatwerten vier Dezimalstellen erlauben case _WinTypeFloatEdit : aEdit->wpDecimals # 4; // bei Alpha-Feld wird Schriftart geändert case _WinTypeEdit : aEdit->wpFont # FontMake('Algerian',100); ... } // aEdit Ereignis EvtChanged zuweisen aEdit->WinEvtProcNameSet(_WinEvtChanged,'RecList:EvtChanged'); } ... // Edit-Objekt verlassen aList->wpLstFlags # _WinLstEditClose; }
Ereignis: EvtLstEditCommit
Wird das Feld nach dem editieren verlassen, so wird automatisch ein neues Ereignis ausgeführt bzw. aufgerufen.
Im Ereignis EvtLstEditCommit kann nun entschieden werden, ob der eingetragene Wert in die Liste übernommen werden soll. Um das Feld auf Falscheingabe zu überprüfen, muss der Deskriptor des auslösenden Objektes in Verbindung mit WinInfo(_WinLstEditObject) als Referenz verwendet werden.
Der Rückgabewert der Funktion entscheidet darüber, ob der eingetragende Wert in die Liste übernommen wird (TRUE) oder nicht (FALSE).
Achtung
Hier ist zu beachten, dass ein Eintrag, der in die Liste übernommen wurde, nicht automatisch in der Datenbank gespeichert ist. Um dies zu garantieren muss die Speicherung in dem Ereignis EvtLstEditFinished erfolgen.
sub EvtLstEditCommit ( aEvt : event; // Ereignis aColumn : handle; // Spalte aKey : int; // Taste aFocusObject : handle; // Deskriptor des Fokus-Objektes ) : logic; local { tWinEdit : handle; } { tWinEdit # aEvt:Obj->WinInfo(_WinLstEditObject); // Validierung der Eingabe if (Validate(tWinEdit->wpCaption)) { // Verarbeitung bei korrekter Eingabe ... return(TRUE); } else { // Verarbeitung bei Falscheingabe ... return(FALSE); } }
Ereignis: EvtLstEditFinished
Das Ereignis EvtLstEditFinished wird nach jedem Verlassen eines Edit-Objektes innerhalb einer Liste aufgerufen. Hier kann nun entschieden werden, ob der geänderte Datensatz gespeichert werden soll. Das Edit-Objekt ist zu diesem Zeitpunkt bereits aus dem Speicher entfernt.
sub EvtLstEditFinished ( aEvt : event; // Ereignis aColumn : handle; // Spalte aKey : int; // Taste aRecID : int; // Datensatz-ID aChanged : logic; // true, wenn eine Änderung vorgenommen wurde ) : logic; { if (aChanged) { // Datensatz nicht speichern und entsperren RecReplace(aEvt:Obj->wpDbFileNo,_RecUnlock); // Liste aktualisieren aEvt:Obj->WinUpdate(_WinUpdOn, _WinLstFromSelected | _WinLstPosSelected | _WinlstRecDoSelect); // Bei erfolgreichem Speichervorgang Hintergrundfarbe auf Grau setzen aEvt:Obj->wpColBkg # _WinColLightGray; } ... }