Unit rStringGridEd

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

rStringGridEd is enhanced StringGrid component which provides similar function as DBGrid - introduce Columns property for setting and storing of properties for each column.

List of new functions: - introduce Columns property for setting and storing of properties for each column (Columns items are created automatically according ColCount value) - provides new types of editors = DropDown, DropDownList, DropDownColor, DropDownCheckList, Checkbox, DatePicker, Ellipsis, Button - can show any column as boolean checkbox with defineable TRUE FALSE values - support multiline title, cell text and editors - each column has definable Datatype, NumFormat, MinMax values - shows complete text as hint for truncated text in cell and for memo field - introduces event for getting properties for each cell individually (datatype, editorstyle, canedit, numformat) - supports automatic addition of new rows - supports auto height for rows and width for columns - supports range selection in Edit mode with row/column selection by fixed cell click - supports drag and drop - supports Copy/Paste function in MSExcel format - supports data sorting - introduces event for click on fixed cells - introduces event for getting of PickList items - introduces event for setting Font and Color of any cell - introduces event for custom hint on any cell - provides mousewheel functionality and introduce new events - provide 3D effect and gradient fill for fixed cells

Hot keys for editors: F2 - show / hide editor; F4 - show/hide dropdownlist or click to ellipsis button Alt+Down - show dropdownlist or click to ellipsis button; Space - change checkbox; Enter - select item from Listbox

Updated version compatible with Delphi2010+ and 64bit platform. Splash screen in demo version.

Overview

Classes, Interfaces, Objects and Records

Name Description
record TDataImageDef data image record used by rDBGrid
Class TrStringGridEdColumn collection item containing all column properties
Class TrStringGridEd enhanced StringGrid component which introduce Columns property for setting and storing of properties for each column

Types

TrStringGridEdEditStyle = (...);
TrStringGridEdDataType = (...);
TrStringGridEdDataState = (...);
TrStringGridEdInvalidDataAction = (...);
TOptionEx = (...);
TOptionsEx = set of TOptionEx;
TrStringGridEdCellEvent = procedure(Sender: TObject; Col, Row: longint) of object;
TrStringGridEdEditorEvent = procedure(Sender: TObject; Col, Row: longint; ActionID: string) of object;
TrStringGridEdDropdownEvent = procedure(Sender: TObject; Col, Row: longint; var PickList: TStringList) of object;
TGetCellParamsEvent = procedure(Sender: TObject; Col, Row: longint; AFont: TFont; var Background: TColor; var Highlight: boolean) of object;
TGetCellParamsEventEx = procedure(Sender: TObject; Col, Row: longint; AFont: TFont; var Background: TColor; var Highlight: boolean; var DataImageDef: TDataImageDef) of object;
TGetHintText = procedure(Sender: TStringGrid; X, Y: integer; var Hint: string) of object;
TGetDataTypeEvent = procedure(Sender: TObject; Col, Row: longint; var DataType: TrStringGridEdDataType) of object;
TGetEditStyleEvent = procedure(Sender: TObject; Col, Row: longint; var EditStyle: TrStringGridEdEditStyle) of object;
TCanEditEvent = procedure(Sender: TObject; Col, Row: longint; var CanEdit: boolean) of object;
TGetNumFormat = procedure(Sender: TObject; Col, Row: longint; var NumFormat: string) of object;
TGetEllipsisButtonFormat = procedure(Sender: TObject; Col, Row: longint; var ButtonWidth: integer; var Glyph: TBitmap) of object;
TOnColumnRestoreDefault = procedure(Column: TrStringGridEdColumn) of object;
TOnProgress = procedure(Sender: TObject; ActionType: string; Percent: double; var Aborted: boolean) of object;

Description

Types

TrStringGridEdEditStyle = (...);

list of editor types

Values
  • sgbNone:  
  • sgbEllipsis:  
  • sgbEllipsisOnly:  
  • sgbDropDown:  
  • sgbDropDownList:  
  • sgbDropDownColor:  
  • sgbCheckbox:  
  • sgbDateTimePicker:  
  • sgbDropDownCheckList:  
  • sgbDropDownCheckListOnly:  
  • sgbDropDownDataImage:  
  • sgbButton:  
TrStringGridEdDataType = (...);

list of data types

Values
  • sgdText:  
  • sgdNumber:  
  • sgdInteger:  
  • sgdDate:  
  • sgdTime:  
TrStringGridEdDataState = (...);

list of data statuses

Values
  • sdsOk:  
  • sdsEmpty:  
  • sdsInvalid:  
  • sdsOutOfLimit:  
TrStringGridEdInvalidDataAction = (...);

list of invalid data actions

Values
  • sgaNone:  
  • sgaHighlight:  
  • sgaBeep:  
TOptionEx = (...);

list of enhanced Option properties

Values
  • dgDragCell:  
  • dgSelectRange:  
  • dgAlwaysShowSelection:  
  • dgEditArrowKeyMoveCell:  
  • dgShowTitleBold:  
  • dgColorChangedCells:  
  • dgSortAfterTitleClick:  
  • dgSortFixedCol:  
  • dgSortShowProgress:  
  • dgResizeLastColumn:  
  • dgNextRowAfterReturn:  
TOptionsEx = set of TOptionEx;

set of enhanced Option properties

TrStringGridEdCellEvent = procedure(Sender: TObject; Col, Row: longint) of object;

event type for TrStringGridEd cell

TrStringGridEdEditorEvent = procedure(Sender: TObject; Col, Row: longint; ActionID: string) of object;

event type for TrStringGridEd Editor event

TrStringGridEdDropdownEvent = procedure(Sender: TObject; Col, Row: longint; var PickList: TStringList) of object;

event type for TrStringGridEd dropdown list

TGetCellParamsEvent = procedure(Sender: TObject; Col, Row: longint; AFont: TFont; var Background: TColor; var Highlight: boolean) of object;

event type for TrStringGridEd cell parameters

TGetCellParamsEventEx = procedure(Sender: TObject; Col, Row: longint; AFont: TFont; var Background: TColor; var Highlight: boolean; var DataImageDef: TDataImageDef) of object;

event type for TrStringGridEd cell extended parameters

TGetHintText = procedure(Sender: TStringGrid; X, Y: integer; var Hint: string) of object;

event type for TrStringGridEd hint

TGetDataTypeEvent = procedure(Sender: TObject; Col, Row: longint; var DataType: TrStringGridEdDataType) of object;

event type for TrStringGridEd data type

TGetEditStyleEvent = procedure(Sender: TObject; Col, Row: longint; var EditStyle: TrStringGridEdEditStyle) of object;

event type for TrStringGridEd style type

TCanEditEvent = procedure(Sender: TObject; Col, Row: longint; var CanEdit: boolean) of object;

event type for TrStringGridEd edit

TGetNumFormat = procedure(Sender: TObject; Col, Row: longint; var NumFormat: string) of object;

event type for TrStringGridEd cell numeric format

TGetEllipsisButtonFormat = procedure(Sender: TObject; Col, Row: longint; var ButtonWidth: integer; var Glyph: TBitmap) of object;

event type for TrStringGridEd ellipsis format

TOnColumnRestoreDefault = procedure(Column: TrStringGridEdColumn) of object;

event type for TrStringGridEd column restore

TOnProgress = procedure(Sender: TObject; ActionType: string; Percent: double; var Aborted: boolean) of object;

event type for TrStringGridEd progress event

Author

Created

Apr 2009

Last Modified

May 2018


Generated by PasDoc 0.13.0 on 2018-07-13 22:00:06