XbpCheckBoxColumn()

[Werner_Bayern]

Eine dumme Frage:

Kann ich das mit XbpBrowse() einsetzen? Die Nutzung hat sich mir nicht erschlossen. Möchte damit gerne ein logisches Feld aus der dbf bedienen, das dann direkt geändert werden kann. Aber wo baue ich die Logik ein?

Code: Alles auswählen

oXbpColumn := XbpCheckBoxColumn():new()
oXbpColumn:dataLink := {||formular->markierung} 
oXbpColumn:create(,,,,{{XBP_PP_COL_HA_CAPTION, ""}})
oBrowse:addColumn(oXbpColumn)

Das visualisiert ja nur. Satzsperre, Änderung?

[AUGE_OHR]

Aber wo baue ich die Logik ein?

Code: Alles auswählen

oXbpColumn := XbpCheckBoxColumn():new()
oXbpColumn:dataLink := {||formular->markierung} 
oXbpColumn:create(,,,,{{XBP_PP_COL_HA_CAPTION, ""}})
oBrowse:addColumn(oXbpColumn)

Das visualisiert ja nur. Satzsperre, Änderung?

Die Frage ist was macht deine Class XbpCheckBoxColumn() ?
wenn du eine Columne Class erstellst wird die Class die Logik enthalten was z.b. bei einem "Click" auf eine Cell der Columne passieren soll.

eine Class findest man im Alaska Newsforum :

J.A. Diego Kerejeta
15. Dezember 2005
public.xbase++.gui
Re: XbpCheckbox() in XbpBrowse()
siehe Attachment CheckCol.zip

[Tom]

Die Frage ist was macht deine Class XbpCheckBoxColumn() ?

Das ist nicht Werners Klasse, sondern eine aus dem XbPack3.

[Werner_Bayern]

Ja, xbppack3. Nutzt das keiner?

Hab einiges probiert, aber alle Callbacks (lbClick, enter, inputfocus) werden nicht angesprochen, egal ob Zeilen oder Zellencursor. Was mache ich falsch?

Code: Alles auswählen

oXbpColumn := XbpCheckBoxColumn():new()
oXbpColumn:dataLink := {||formular->markierung}
oXbpColumn:lbClick := {|aPos, uNIL, self|hinweis(var2char(self) + var2char(self:editbuffer()))}
oXbpColumn:create(,,,,{{XBP_PP_COL_HA_CAPTION, ""}})
oBrowse:addColumn(oXbpColumn)

[Werner_Bayern]

Code: Alles auswählen

oXbpColumn:dataArea:lbClick

reagiert drauf...

Das self liefert mir dann aber die XbpCellGroup(). Wie komme ich dann im lbClick-Codedblock auf den editbuffer des XbpCheckBoxColumn()?

[AUGE_OHR]

Ja, xbppack3. Nutzt das keiner?

die Class wurde ja erst 2011 von Alaska veröffentlicht während die Class von Diego schon seit 15/12/2005 existiert welche ich benutze.
ausser OWNERDRAW sehe ich keinen Grund warum man die "komplizierte" Alaska Version benutzen sollte.

Code: Alles auswählen

oXbpColumn:dataLink := {||formular->markierung}

hm ... bist du dir sicher das "die" Class einen o:Datalink hat ...

[AUGE_OHR]

hi,

versuche mal XbpRowPickColumn statt XbpCheckBoxColumn

[Werner_Bayern]

hm ... bist du dir sicher das "die" Class einen o:Datalink hat ...

Ja, weil der Datalink aus XbpColumn ist. Davon ist sie abgeleitet.

[Werner_Bayern]

hi,
versuche mal XbpRowPickColumn statt XbpCheckBoxColumn

Ist das die von Diego?

[Werner_Bayern]

Trotzdem, hab mich jetzt schon mehr damit beschäftigt, nutzt diese Klasse keiner?

Die Frage ist ja nur:

Das self liefert mir dann aber die XbpCellGroup(). Wie komme ich dann im lbClick-Codedblock auf den editbuffer des XbpCheckBoxColumn()?

[AUGE_OHR]

hm ... bist du dir sicher das "die" Class einen o:Datalink hat ...

Ja, weil der Datalink aus XbpColumn ist. Davon ist sie abgeleitet.

es ist richtig das XbpCheckBoxColumn FROM XbpColumn ist und damit einen o:datalink hat ...
die Frage war vielmehr ob es "der" o:Datalink von "der" benötigten Class ist

Ist das die von Diego?

Nope ... müsste im selben Verzeichnis sein.
wenn du dir nun XbpRowPickColumn FROM XbpCheckBoxColumn ansiehst findest du PDR 6371 was sich auf eine iVar Datalink bezieht ...

Trotzdem, hab mich jetzt schon mehr damit beschäftigt, nutzt diese Klasse keiner?

in README.TXT findest du : 3.5. XbpRowPickBrowse Documentation

Example:
// Create an instance of the
// XbpRowPickBrowse class and
// set it up to use three
// columns
(...)
oBrowse := XbpRowPickBrowse():New( ... )
oBrowse:ColCount := 3
oBrowse:Create()

See the TEST.EXE sample for a complete example.

der Code von XbpRowPickBrowse

Code: Alles auswählen

METHOD XbpRowPickBrowse:Create( oParent, oOwner, aPos, aSize, aPP, lVisible )
...
   ::XbpBrowse:Create( oParent, oOwner, aPos, aSize, aPP, .F. )

   oCol := XbpRowPickColumn():New( ,,,, {{ XBP_PP_COL_HA_CAPTION, "" }} )