Unit ColGrid

Classes

Functions

Register - See if we can find the window for C++Builder or Delphi.

Types

TjmCellFetchEvent
TjmGridAppendEvent
TjmGridCell
TjmGridColumnLocation
TjmGridColumnMovedEvent
TjmGridColumnType
TjmGridDataLayoutMode
TjmGridDataLinkState
TjmGridDrawCellBackgroundEvent
TjmGridDrawCellEvent
TjmGridEditorType
TjmGridFrameStyle
TjmGridLeaveCellEvent
TjmGridLeftOffsetChangedEvent
TjmGridLineStyle
TjmGridLocation
TjmGridMode
TjmGridOverrideSettings
TjmGridPosition
TjmGridScrollBars
TjmGridSelectMode
TjmGridValidateCellEvent
TjmGridVerticalAlignment
TjmGridZoneState

Constants

jmDefaultBackgroundColor
jmDefaultBorderStyle
jmDefaultColumnType
jmDefaultColumnWidth
jmDefaultFooterColor
jmDefaultFooterSelectColor
jmDefaultFooterSeparatorColor
jmDefaultFooterSeparatorStyle
jmDefaultGridMode
jmDefaultHeaderColor
jmDefaultHeaderSelectColor
jmDefaultHeaderSeparatorColor
jmDefaultHeaderSeparatorStyle
jmDefaultHorizontalLineColor
jmDefaultHorizontalLineStyle
jmDefaultHorizontalScrollBarSeparatorColor
jmDefaultHorizontalScrollBarSeparatorStyle
jmDefaultInactiveColor
jmDefaultLayoutMode
jmDefaultRowHeight
jmDefaultRowLineColor
jmDefaultRowLineStyle
jmDefaultSelectColor
jmDefaultSelectMode
jmDefaultUnusedColor
jmDefaultVerticalLineColor
jmDefaultVerticalLineStyle
jmDefaultVerticalScrollBarSeparatorColor
jmDefaultVerticalScrollBarSeparatorStyle
jmDefaultZoneSeparatorColor
jmDefaultZoneSeparatorStyle

Variables


Functions


Procedure Register ;

See if we can find the window for C++Builder or Delphi.

Types


TjmCellFetchEvent =  Procedure (Sender : TObject ;
                                 Zone : Integer ;
                                 Column : Integer ;
                                 RecordNumber : LongInt ;
                                 Var Value : String) Of Object 

TjmGridAppendEvent = Procedure (Sender : TObject) Of Object 

TjmGridCell = record
Zone : Cardinal ;
Column : Cardinal ;
RecordNumber : LongInt ;
end;

TjmGridColumnLocation = (gclNone,
                           gclBody,
                           gclSeparator) ;
Unused Grid Area
TjmGridColumnMovedEvent = Procedure (Sender : TObject ;
                                       Zone : Cardinal ;
                                       NewColumn : Cardinal ;
                                       OldColumn : Cardinal) Of Object 

TjmGridColumnType = (gctUnbound, gctBound) ;

TjmGridDataLayoutMode = (lmAuto, lmManual) ;

TjmGridDataLinkState = (dlNormal, dlAppend, dlEdit) ;
Copyright 1997, Colosseum Builders, Inc. This software may be freely reistributed as long as this copyright notice is included and as long as modifications are documented at the top of the file. This software may be used under licence from Colosseum Builders, Inc. No transfer of ownership is made. This software may only be used on an "as-is" basis. There is no warranty of any kind. This software may only be included in other software if the author assumes all liability. Colosseum Builders, Inc. cannot ensure that its software will work correctly in any system. This software may be used without a fee in software that is distributed with complete source code to all users. If this software is incorporated in a system that is not distributed with complete source code then a licencing fee of $75 per developer workstation must be paid to Colosseum Builders, Inc. NJ customers must include sales tax (As of 1-Jan-1997 $4.50 for a total of $79.50). Checks should be made out to Colosseum Builders, Inc and mailed to Colosseum Builders, Inc E101 103 Park Ave Summit NJ 07901 {$INCLUDE JMCOMMON
TjmGridDrawCellBackgroundEvent = Procedure (Sender : TObject ;
                                              Zone : Cardinal ;
                                              Column : Cardinal ;
                                              RecordNumber : LongInt ;
                                              Rect : TRect ;
                                              Canvas : TCanvas ;
                                              var Draw : Boolean) Of Object 

TjmGridDrawCellEvent = Procedure (Sender : TObject ;
                                    Zone : Cardinal ;
                                    Column : Cardinal ;
                                    RecordNumber : LongInt ;
                                    Text : String ;
                                    Rect : TRect ;
                                    Canvas : TCanvas ;
                                    var Draw : Boolean) Of Object 

TjmGridEditorType = (etDefault, etEdit, etMemo, etMaskEdit, etComboBox) ;

TjmGridFrameStyle = (NoFrame, SolidFrame, DashFrame, DotFrame, RaisedFrame, InsetFrame) ;

TjmGridLeaveCellEvent = Procedure (Sender : TObject ;
                                     NewZone : Cardinal ;
                                     NewColumn : Cardinal ;
                                     NewRecordNumber : LongInt ;
                                     var Cancel : Boolean) Of Object 

TjmGridLeftOffsetChangedEvent = Procedure (Sender : TObject ;
                                             Zone : Cardinal) Of Object 

TjmGridLineStyle = (lsNone, lsSingle, lsDouble, ls3D) ;
Grid Definitions
TjmGridLocation = (glOutside,    { Outside the object in question }
                     glUnused,     { Unused Grid Area }
                     glZone,
                     glZoneSeparator,
                     glRecordSeparator,
                     glHeaderSeparator,
                     glCell,
                     glHeader,
                     glFooter,
                     glFooterSeparator,
                     glVerticalScrollbar,
                     glHorizontalScrollBar) ;

TjmGridMode = (gmUnbound, gmDatabase) ;

TjmGridOverrideSettings = Set Of (osVerticalLineColor,
                                    osVerticalLineStyle,
                                    osBackgroundColor,
                                    osFooterColor,
                                    osHeaderColor,
                                    osUnusedColor,
                                    osInactiveColor,
                                    osSelectColor,
                                    osHorizontalLineColor,
                                    osRowHeight,
                                    osRowLineColor,
                                    osRowLineStyle,
                                    osRowCount,
                                    osCellFrameColor,
                                    osCellFrameStyle,
                                    osHeaderFrameColor,
                                    osHeaderFrameStyle,
                                    osFooterFrameColor,
                                    osFooterFrameStyle,
                                    osActiveFrameColor,
                                    osActiveFrameStyle) 

TjmGridPosition = record
GridLocation : TjmGridLocation ;
ColumnLocation : TjmGridColumnLocation ;
Zone : Cardinal ;
Column : Cardinal ;
RecordNumber : LongInt ;
end;

TjmGridScrollBars = (sbNever, sbAlways, sbWhenNeeded) ;

TjmGridSelectMode = (smCell, smRecord, smCellAndRecord, smNone) ;

TjmGridValidateCellEvent = Procedure (Sender : TObject ;
                                    Text : String ;
                                    var Cancel : Boolean) Of Object 

TjmGridVerticalAlignment = (vaTop, vaMiddle, vaBottom) ;

TjmGridZoneState = (gsNormal, gsColumnSizing, gsColumnMoving) ;

Constants

jmDefaultBackgroundColor = clInfoBk

jmDefaultBorderStyle = bsSingle

jmDefaultColumnType = gctUnbound

jmDefaultColumnWidth = 40

These constants define default property values. We have them up here rather than in the constructor.

jmDefaultFooterColor = clBtnFace

jmDefaultFooterSelectColor = clHighlight

jmDefaultFooterSeparatorColor = clBlack

jmDefaultFooterSeparatorStyle = lsSingle

jmDefaultGridMode = gmUnbound

jmDefaultHeaderColor = clActiveCaption

jmDefaultHeaderSelectColor = clHighlight

jmDefaultHeaderSeparatorColor = clBlack

jmDefaultHeaderSeparatorStyle = lsSingle

jmDefaultHorizontalLineColor = clBlack

jmDefaultHorizontalLineStyle = lsDouble

jmDefaultHorizontalScrollBarSeparatorColor = clBlack

jmDefaultHorizontalScrollBarSeparatorStyle = lsSingle

jmDefaultInactiveColor = clInactiveCaption

jmDefaultLayoutMode = lmAuto

jmDefaultRowHeight = 20

jmDefaultRowLineColor = clRed

jmDefaultRowLineStyle = lsSingle

jmDefaultSelectColor = clHighlight

jmDefaultSelectMode = smCell

jmDefaultUnusedColor = cl3DLight

jmDefaultVerticalLineColor = clBlack

jmDefaultVerticalLineStyle = ls3D

jmDefaultVerticalScrollBarSeparatorColor = clBlack

jmDefaultVerticalScrollBarSeparatorStyle = lsSingle

jmDefaultZoneSeparatorColor = clBlack

jmDefaultZoneSeparatorStyle = lsDouble


Variables