"

 COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

Object subclass:#DataSetColumn

	instanceVariableNames:'columnNumber dataSet width description buttonExtent shownValue

		rendererType backgroundColor rowSeparatorSelector

		showColSeparator showRowSeparator foregroundColor fgSelector

		bgSelector columnAlignment label readSelector containsText

		numArgsToReadSelector columnAdaptor descWidth descMinWidth'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-DataSet'

!

!DataSetColumn class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    represent one single column description of a DataSetView

    [Instance variables:]

        columnNumber    <Integer>               sequence number (into list of columns)

        dataSet         <DSVColumnView>         the view it belongs to

        width           <Integer>               width of column

        description     <DataSetColumnSpec>     the column description

        buttonExtent    <Point>                 extent of drawable form

        rendererType    <Type>                  renderer type (cached value from

                                                the column specification).

        backgroundColor <Color or nil>          background color of all cells or nil

                                                (nil: use default background color).

        foregroundColor <Color or nil>          foreground color of all cells or nil

                                                (nil: use default foreground color).

        fgSelector      <Selector or nil>       access specific foreground color for

                                                a cell

        bgSelector      <Selector or nil>       access specific background color for

                                                a cell

        columnAlignment <Symbol>                align text/icon #left #right or #center

                                                in row (on default: #left).

        label           <label/icon or nil>     label resolved by the builder shown

                                                in the column description field.

        readSelector    <Symbol>                cached readSelector (from the spec)

        numArgsToReadSelector <Integer>         number of arguments to the readSelector

        columnAdaptor   <nil or any>            if non-nil, that one is asked (via

                                                read-writeSelectors to extract a column

                                                from a row object.

                                                If nil, the row object is used itself.

        showColSeparator <Boolean>              true: vertical separators are enabled;

                                                separator between columns

        showRowSeparator <Boolean>              true: horizontal separators are enabled;

                                                separator between rows

        rowSeparatorSelector <Selector or nil>  access specific showRowSeparator state

                                                for a cell

    [author:]

        Claus Atzkern

    [see also:]

        DataSetColumnSpec

        DSVColumnView

        DataSetView

"

! !

!DataSetColumn methodsFor:'accessing'!

at:aRowNr

    "get the value of the raw at an index, aRowNr

    "

    ^ self extractColFromRow:(dataSet at:aRowNr).

!

at:aRowNr put:something

    "set the value of the raw at an index, aRowNr

    "

    |row newRow|

    row := dataSet at:aRowNr.

    newRow := self storeCol:something inRow:row.

    newRow ~~ row ifTrue:[

        dataSet listAt:aRowNr put:newRow.

    ]

    "Modified: / 7.8.1998 / 22:17:27 / cg"

!

backgroundColor

    "returns the background color or nil

    "

    ^ backgroundColor == dataSet backgroundColor ifTrue:[nil]

                                                ifFalse:[backgroundColor]

!

backgroundColorFor:aRowNr

    |bg|

    bgSelector notNil ifTrue:[

        (bg := (dataSet at:aRowNr) perform:bgSelector) notNil ifTrue:[

            ^ bg

        ]

    ].

    ^ backgroundColor

!

description

    "returns the column description

    "

    ^ description

!

foregroundColor

    "returns the foreground color or nil

    "

    ^ foregroundColor == dataSet foregroundColor ifTrue:[nil]

                                                ifFalse:[foregroundColor]

!

label

    "get the label assigned to the column

    "

    ^ label

!

rendererType

    "returns my renderer type

    "

    ^ rendererType

! !

!DataSetColumn methodsFor:'accessing dimension'!

minWidth

    "get the minimum width required by the column

    "

    descMinWidth notNil ifTrue:[

        ^ descMinWidth

    ].

    width := nil.

  ^ self width

!

minimumRequiredWidth

    "returns the minimum required width

    "

    |minWidth|

    minWidth := dataSet separatorSize 

             + (2 * dataSet horizontalSpacing)

             + label preferredWidth.

    ^ minWidth

!

setDescWidth:aWidth

    "set a fixed width

    "

    |minWidth|

    minWidth     := self minimumRequiredWidth.

    descWidth    := aWidth max:minWidth.

    descMinWidth := width := descWidth.

!

width

    "returns the width in pixels

    "

    |max  "{ Class:SmallInteger }"

     lsz  "{ Class:SmallInteger }"|

    width notNil ifTrue:[^ width].              "/ already computed

    descMinWidth notNil ifTrue:[

        width := descMinWidth.

      ^ width

    ].

    (descWidth ~~ 0 and:[descWidth isReal not]) ifTrue:[

        width := descMinWidth := descWidth.

      ^ width

    ].

    width := description minWidth max:(label preferredWidth).

    descWidth isReal ifTrue:[

        width := width max:(descWidth * dataSet width) rounded.

      ^ width

    ].

    containsText ifTrue:[

        "/ take maximum 5 entries to calculate the width;

        "/ can be resized later if neccessary

        lsz := dataSet size.

        max := 5 min:dataSet size.

        max ~~ 0 ifTrue:[

            1 to:max do:[:i|

                width := width max:(self widthOfLabel:(shownValue value:(dataSet at:i)))

            ].

            width := width max:(self widthOfLabel:(shownValue value:(dataSet at:lsz)))

        ].

        description editorType ~~ #None ifTrue:[

            width := width + (dataSet font widthOn:dataSet device)

        ].

    ] ifFalse:[

        max := 1

    ].

    width := width + buttonExtent x + dataSet separatorSize + (2 * dataSet horizontalSpacing).

    max ~~ 0 ifTrue:[

        descMinWidth := width.

        description usePreferredWidth ifTrue:[

            descWidth := width

        ]

    ].

  ^ width

! !

!DataSetColumn methodsFor:'drawing'!

drawLabel:aLabel atX:xLeft y:yTop

    "redraw label

    "

    |x space|

    space := dataSet horizontalSpacing.

    columnAlignment == #left ifTrue:[

        x  := xLeft + space.

    ] ifFalse:[

        x := width - (aLabel widthOn:dataSet).

        columnAlignment == #right ifTrue:[x := x - space]

                                 ifFalse:[x := x // 2].

        x := xLeft + (x max:0).

    ].

    aLabel isImageOrForm ifTrue:[

        aLabel displayOn:dataSet x:x y:yTop.

      ^ self

    ].

    aLabel displayOn:dataSet x:x y:(yTop + dataSet rowFontAscent)

!

drawLabelsAtX:xLeft y:yTop h:h from:start to:stop

    "redraw labels from start to stop

    "

    |fg bg label row isSel

     y       "{ Class:SmallInteger }"

     yT      "{ Class:SmallInteger }"

     x       "{ Class:SmallInteger }"

     hspace  "{ Class:SmallInteger }"

     ascent  "{ Class:SmallInteger }"

     lblHg   "{ Class:SmallInteger }"

    |

    yT := yTop.

    ascent := dataSet rowFontAscent.

    hspace := dataSet horizontalSpacing.

    start to:stop do:[:anIndex|

        row := dataSet at:anIndex.

        y := yT.

        x := xLeft.

     "/ GET BACKGROUND AND FOREGROUND-COLOR

     "/ ===================================

        isSel := dataSet isSelected:anIndex inColumn:columnNumber.

        isSel ifTrue:[

            (      description editorType ~~ #None

              and:[dataSet selectedColIndex == columnNumber]

            ) ifTrue:[

                isSel := false

            ]

        ].

        (isSel and:[description showSelectionHighLighted]) ifTrue:[

            "/ SHOW SELECTED( MUST REDRAW BACKGROUND )

            "/ =======================================

            fg := dataSet hgLgFgColor.

            bg := dataSet hgLgBgColor.

            dataSet paint:bg.

            dataSet fillRectangleX:x y:y width:width height:h.

        ] ifFalse:[

            bgSelector notNil ifTrue:[

                "/ MUST REDRAW BACKGROUND

                "/ ======================

                (bg := row perform:bgSelector) notNil ifTrue:[

                    bg := dataSet colorOnDevice:bg

                ] ifFalse:[

                    bg := backgroundColor

                ].

                dataSet paint:bg.

                dataSet fillRectangleX:x y:y width:width height:h.

            ] ifFalse:[

                bg := backgroundColor

            ].

            (fgSelector notNil and:[(fg := row perform:fgSelector) notNil]) ifTrue:[

                fg := dataSet colorOnDevice:fg

            ] ifFalse:[

                fg := foregroundColor

            ]

        ].

     "/ GET AND DRAW LABEL

     "/ ==================

        rendererType == #rowSelector ifTrue:[

            isSel ifTrue:[

                label := dataSet rowSelectorForm.

                x  := x + hspace.

            ] ifFalse:[

                label := nil

            ]

        ] ifFalse:[

            (isSel and:[dataSet hasOpenEditor]) ifTrue:[

                label := nil

            ]  ifFalse:[

                label := shownValue value:row

            ]

        ].

        label notNil ifTrue:[

            lblHg := self heightOfLabel:label.

            lblHg ~~ 0 ifTrue:[

                y := y + (h - lblHg // 2).

                dataSet paint:fg on:bg.

                (label isSequenceable and:[label isString not]) ifFalse:[

                    self drawLabel:label atX:x y:y

                ] ifTrue:[

                    label do:[:el|

                        el notNil ifTrue:[

                            self drawLabel:el atX:x y:y.

                            y := y + (el heightOn:dataSet).

                        ]

                    ]

                ].

            ]

        ].

        yT := yT + h

    ]

!

drawSeparatorsAtX:xLeft y:yTop h:h from:start to:stop

    "redraw separators for cells between start and stop

    "

    |is3D

     xL    "{ Class:SmallInteger }"

     xR    "{ Class:SmallInteger }"

     yB    "{ Class:SmallInteger }"

     yT    "{ Class:SmallInteger }"

     times "{ Class:SmallInteger }"

    |

    (showColSeparator or:[showRowSeparator]) ifFalse:[

        ^ self

    ].

    is3D := dataSet has3Dseparators.

    is3D ifTrue:[dataSet paint:(dataSet separatorDarkColor)]

        ifFalse:[dataSet paint:(dataSet foregroundColor)].

    times := stop - start + 1.

    xL    := xLeft.

    xR    := xL - 1 + width.

    showRowSeparator ifTrue:[

     "/ DRAW SEPARATORS AT BOTTOM( DARK COLOR )

     "/ =======================================

        yB := yTop - 1 + h.

        rowSeparatorSelector isNil ifTrue:[

            times timesRepeat:[

                dataSet displayLineFromX:xL y:yB toX:xR y:yB.

                yB := yB + h.

            ]

        ] ifFalse:[

            start to:stop do:[:idx|

                ((dataSet at:idx) perform:rowSeparatorSelector) ~~ false ifTrue:[

                    dataSet displayLineFromX:xL y:yB toX:xR y:yB

                ].

                yB := yB + h.

            ]

        ]

    ].

    showColSeparator ifTrue:[

     "/ DRAW SEPARATORS AT RIGHT( DARK COLOR )

     "/ ======================================

        yT := yTop.

        times timesRepeat:[

            dataSet displayLineFromX:xR y:yT toX:xR y:(yT - 1 + h).

            yT := yT + h.

        ]

    ].

    is3D ifFalse:[

        ^ self

    ].

    dataSet paint:(dataSet separatorLightColor).

    (     columnNumber == 1

      or:[(dataSet columnAt:(columnNumber - 1)) showColSeparator]

    ) ifTrue:[

     "/ DRAW SEPARATORS AT LEFT( LIGHT COLOR )

     "/ ======================================

        yT := yTop.

        times timesRepeat:[

            dataSet displayLineFromX:xL y:yT toX:xL y:(yT - 1 + h).

            yT := yT + h.

        ].

    ] ifFalse:[

        xL := xL - 1

    ].

    showRowSeparator ifTrue:[

     "/ DRAW SEPARATORS AT TOP( LIGHT COLOR )

     "/ =====================================