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;
}
...
}