"

 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

!

!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"

!

columnAdaptor

    ^ columnAdaptor

!

description

    "returns the column description

    "

    ^ description

!

label

    "get the label assigned to the column

    "

    ^ label

!

rendererType

    "returns my renderer type

    "

    ^ rendererType

! !

!DataSetColumn methodsFor:'accessing colors'!

backgroundColor

    "returns the background color or nil

    "

    ^ backgroundColor == dataSet backgroundColor ifTrue:[nil]

                                                ifFalse:[backgroundColor]

!

backgroundColorAt:aRowNr

    "returns the background color for a row at list index a rowNr

    "

    bgSelector notNil ifTrue:[

        ^ self backgroundColorFor:(dataSet at:aRowNr) at:aRowNr

    ].

    ^ backgroundColor

!

backgroundColorFor:aRow at:aRowNr

    "returns the background color for a row at list index a rowNr

    "

    |bg|

    bgSelector notNil ifTrue:[

        numArgsToBgSelector == 0 ifTrue:[

            bg := aRow perform:bgSelector

        ] ifFalse:[

            bg := aRow perform:bgSelector with:aRowNr

        ].

        bg notNil ifTrue:[^ bg]

    ].

    ^ backgroundColor

!

foregroundColor

    "returns the foreground color or nil

    "

    ^ foregroundColor == dataSet foregroundColor ifTrue:[nil]

                                                ifFalse:[foregroundColor]

!

foregroundColorFor:aRow at:aRowNr

    "returns the foreground color for a row at list index a rowNr

    "

    |fg|

    fgSelector notNil ifTrue:[

        numArgsToFgSelector == 0 ifTrue:[

            fg := aRow perform:fgSelector

        ] ifFalse:[

            fg := aRow perform:fgSelector with:aRowNr

        ].

        fg notNil ifTrue:[^ fg]

    ].

    ^ foregroundColor

! !

!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 prevClip mustUndoClip|

    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].

"/ cg: old code (did not right-align if string is larger than width

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

        "/ new code: always right-align.

        x := xLeft + x.

        "/ must clip left, if string is too large

        x < xLeft ifTrue:[

            "/ must clip ...

            prevClip := dataSet clippingRectangleOrNil.

            mustUndoClip := true.

            dataSet clippingRectangle:(Rectangle 

                                left:xLeft top:yTop 

                                width:width height:(aLabel heightOn:dataSet)).

        ].

    ].

    aLabel isImageOrForm ifTrue:[

        aLabel displayOn:dataSet x:x y:yTop.

    ] ifFalse:[

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

    ].

    mustUndoClip == true ifTrue:[

        dataSet clippingRectangle:prevClip    

    ].

!

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 := self backgroundColorFor:row at:anIndex.

                bg ~~ backgroundColor ifTrue:[

                    bg := dataSet colorOnDevice:bg

                ].

                dataSet paint:bg.

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

            ] ifFalse:[

                bg := backgroundColor

            ].

            fg := self foregroundColorFor:row at:anIndex.

            fg ~~ foregroundColor ifTrue:[

                fg := dataSet colorOnDevice:fg

            ].

        ].

     "/ 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:[

            "/ care for a dark-colored label,

            "/ with a dark selection-bg color

                "/ take away the labels own color info

                label := label emphasisAllRemove:#color.

            ].

            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.