| HTML-Tag nach VFP adaptiert |
 |
| Development |
| Tuesday, 19 September 2006 16:08 |
|
Ja, es gibt auch Situationen in denen man nicht nur immer von Desktop auf Web trimmt, sondern auch mal den umgekehrten Weg einschlägt. Der folgende Beitrag nimmt den HTML-Tag fieldset als Grundlage und wir erstellen eine Shape-Klasse mit vergleichbarer Funktionalität. Das HTML-Element fieldset stellt einen Rahmen mit optionaler Überschrift dar. Mit den Controls Shape und Label (optional noch Container) können wir das ebenfalls in VFP realisieren. Hier zunächst mal der HTML-Code für ein fieldset: <fieldset id="Restore"> <legend>Datenbank wiederherstellen</legend> <p>...</p> </fieldset> Das Element legend ist für die Beschriftung verantwortlich und repräsentiert unsere Labelklasse. Shape - die spartanische Variante *==================================================================== * Fieldset-Shape * Erzeugt bei der Initialisierung ein Label zur Beschriftung des Shapes * und positioniert es. *==================================================================== Define Class FieldSet As Shape cCaption = "" cPrefixLabel = "lbl" nOffsetTop = -7 nOffsetLeft = 5 lUseLabel = .T. && Readonly @ Runtime ;-) MemberClass = "" MemberClassLibrary = "" Protected oLegend oLegend = .Null. *------------------------------------------------------------------ * Initialisierung und (optionale) Erstellung der Beschriftung. *------------------------------------------------------------------ Function Init() As Boolean DoDefault() If This.lUseLabel This.createLabel() EndIf EndFunc *------------------------------------------------------------------ * Label instanziieren und positionieren. *------------------------------------------------------------------ Protected Function createLabel() As VOID With This If Vartype(.cCaption) == "C" .oLegend = NewObject(Evl(.MemberClass, "Label"), .MemberClassLibrary) If Vartype(.oLegend) == "O" With .oLegend As Label .Name = This.cPrefixLabel + This.Name .BackColor = Thisform.BackColor .BackStyle = 1 .Anchor = 0 .Left = This.Left + This.nOffsetLeft .Top = This.Top + This.nOffsetTop .Anchor = Bitclear(Bitclear(This.Anchor, 2), 3) .ZOrder(0) EndWith This.cCaption = This.cCaption EndIf EndIf EndWith EndFunc *------------------------------------------------------------------ Der gezeigte VFP-Quellcode dürfte weitestgehend selbsterklärend sein. Wenn in der Designzeit dem Shape die Caption gestattet wird, so wird zur Laufzeit ein Labelobjekt aus der angegebenen Klasse erzeugt und als Referenz gespeichert. Das Label erhält den gleichen Namen wie das Shape jedoch mit frei wählbarem Prefix, da wir eindeutige Objektnamen benötigen. Sofern bei der Initialisierung noch keine Beschriftung angegeben sein sollte, wird das Label noch nicht angezeigt. Die Caption kann zu jedem beliebigen späteren Zeitpunkt gesetzt (und damit eingeblendet) und wieder ausgeblendet werden. Zur Vermeidung von hängenden Referenzen und daraus resultierenden C0005-Fehlern (samt Komplettabsturz) tragen wir dafür Sorge, dass das Label ebenfalls sauber bei der Zerstörung des Shapes entfernt wird. Wichtig ist hierbei ebenfalls, dass wir die Eigenschaft lUseLabel zur Laufzeit mit einem Schreibschutz versehen. Schliesslich soll der Entwickler sich bereits in der Entwicklungsumgebung entscheiden, ob eine Beschriftung erforderlich sein könnte oder nicht.
PS: Die fehlenden Assign-Methoden für weitere Eigenschaften sind Hausaufgabe... :icon_biggrin: |
