Unit rDBComponents

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

rDBComponents contains enhanced DB components which can replace standard DB components without loosing of set properties.

List of components in unit: TrDBRecordSelection, rDBMoveButton, TrDBToolButton, rDBEdit, rDBMemo, TrDBMemoEx, TrDBMemoCB, rDBCheckBox, rDBListBox, rDBComboBox, rDBLookupListBox, rDBLookupComboBox, rDBDateTimePicker, rDBImage, rDBLabel, rDBBlob, TrDBCheckListBox, TrDBCheckListBoxEx

rDBComponents provide folowing functionality:
- can show Label in any possition, caption is DisplayLabel of field
- change background color and disable dropdown action (for listbox and combobox) if dataset is not in editing mode components
- rDBMoveButton provide function for moving in dataset records
- rDBDateTimePicker support of null value (show additional checkbox)
- rDBImage support JPG format, LoadFromFile and SaveToFile procedures, Copy/Paste to/from clipboard, introduce Zoom functions with scrollbars and buttons, introduce ImageEdit window for showing of image in independent window with function for editation of brightness and contrast
- mousewheel is working (for listbox and combobox)
- some bugs of standard components is fixed

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

Overview

Classes, Interfaces, Objects and Records

Name Description
Class TrDBMoveButton provides mooving and editing actions for dataset, btEnaIf...
Class TrDBToolButton provides mooving and editing actions for dataset, btEnaIf...
Class TDBBoundLabel Label subcomponent used by other rDBComponents
Class TBoundLabel TLabel subcomponent, show user defined text in some db component
Class TBoundButtons subcomponent used by rDBImage for showing of supplementary buttons
Class TBoundSpeedButton subcomponent used by some components for showing of supplementary buttons
Class TBoundListBox ListBox subcomponent used by other rDBMemoCB
Class TBoundButtonedEdit TButtonedEdit subcomponent used by rDBCheckListBox
Class TrDBEdit enhanced DBEdit with bound label
Class TrDBMemo enhanced DBMemo with bound label
Class TrDBListBox enhanced DBListBox with bound label
Class TrDBComboBox enhanced DBComboBox with bound label
Class TrDBLookupListBox enhanced DBLookupListBox with bound label
Class TrPopupDataList PopupDataList for rDBLookupComboBox to access Paint method
Class TrDBLookupComboBoxHelper helper for DBLookupComboBox to access PopupDataList
Class TrDBLookupComboBox enhanced DBLookupComboBox with bound label
Class TrDBCheckBox enhanced DBCheckBox providing readonly color and caption loaded from selected field
Class TCheckBoxOnly checkbox subcomponent used by rDBTimePicker
Class TrDBDateTimePicker DB version of TimePicker with bound label and null value checkbox
Class TrDBImage DB version of TrImageZoom, provides zoom function with scrollbars and drag and move function
Class TrDBLabel DBVersion of TLabel, show db text from selected field as caption
Class TrDBMemoEx enhanced rDBMemo component which provides highlighting of words in text according list of words or highlighting of text between start and stop tag, contain Format and Edit buttons with menu and user defined text in header
Class TrDBMemoCB enhanced rDBMemo with combobox function
Class TCheckItem class to store one item in TrDBCheckListBox
Class TCheckItemList class to store list of TCheckItem in TrDBCheckListBox
Class TrDBCheckListBox DB version of CheckListBox for n:m relationship
Class TrDBCheckListBoxEx enhanced TrDBCheckListBox component for n:m relationship which provides links to ListDataSource and ValueDataSource for automatic work with checklistbox
Class TChildLabel Label subcomponent used by rDBBlob
Class TChildBtn Button subcomponent used by rDBBlob
Class TrDBBlob DB component for working with Blob fields, contains function for loading, saving and opening of any content in blob
Class TrDBRecordSelection DB Combobox for showing and selecting of active record, show active record and drop down show list of all records with possibility to select active record

Functions and Procedures

procedure CreateDBControls(DataSource: TDataSource; ScrollBox: TScrollBox; OnlyOneCol, DelExistComps: boolean; GetListValuesCallBack: GetListValuesCB);

Types

TrDBButtonType = (...);
TLabelPos = (...);
TBtnPos = (...);
TGetLookupListItemHeight = procedure(Sender: TObject; Canvas: TCanvas; KeyField: TField; ListFields: string; var Height: integer) of object;
TGetLookupListItemProps = procedure(Sender: TObject; Canvas: TCanvas; RowIndex, ColIndex: integer; Selected: boolean; KeyField, ListField: TField; var Width: integer; Height: integer; var Text: string; ShowBmp: TBitmap; var DrawSeparatorTop: boolean; var DrawSeparatorBottom: boolean) of object;
TFormatType = (...);
TCheckItemsStyle = (...);
TFindItemsStyle = (...);
TLoadSaveItemList = procedure(Sender: TObject; Items: TCheckItemList) of object;
TBlobFileEvent = procedure(Sender: TObject; const FileName: string; FileSize: Int64) of object;
TLoadListEvent = (...);
TEditingState = (...);
GetListValuesCB = procedure(Field: TField; List: TStrings) of object;

Description

Functions and Procedures

procedure CreateDBControls(DataSource: TDataSource; ScrollBox: TScrollBox; OnlyOneCol, DelExistComps: boolean; GetListValuesCallBack: GetListValuesCB);

procedure create DBcontrols in ScrollBox panel in runtime according list of fields in DataSet and their TAG values: set Tag=2 for showing components, Tag=4 for showing in new line

Types

TrDBButtonType = (...);

types of rDBMoveButton

Values
  • btFirst:  
  • btPrior:  
  • btNext:  
  • btLast:  
  • btAdd:  
  • btInsert:  
  • btDuplic:  
  • btEdit:  
  • btDelete:  
  • btPost:  
  • btCancel:  
  • btEnaIfEdit:  
  • btEnaIfNew:  
  • btEnaIfBrowse:  
  • btEnaIfNotEmpty:  
  • btEnaIfCanModify:  
  • btEnaIfBrowseCanEdit:  
TLabelPos = (...);

define position of label

Values
  • lpTopLeft:  
  • lpTopCenter:  
  • lpTopRight:  
  • lpLeftTop:  
  • lpLeftCenter:  
  • lpLeftBottom:  
TBtnPos = (...);

define position of bound buttons for rDBImage

Values
  • bpTopLeft:  
  • bpTopRight:  
  • bpBottomLeft:  
  • bpBottomRight:  
  • bpLeftTop:  
  • bpLeftBottom:  
  • bpRightTop:  
  • bpRightBottom:  
TGetLookupListItemHeight = procedure(Sender: TObject; Canvas: TCanvas; KeyField: TField; ListFields: string; var Height: integer) of object;

event for user definition of lookup dropdown list width

TGetLookupListItemProps = procedure(Sender: TObject; Canvas: TCanvas; RowIndex, ColIndex: integer; Selected: boolean; KeyField, ListField: TField; var Width: integer; Height: integer; var Text: string; ShowBmp: TBitmap; var DrawSeparatorTop: boolean; var DrawSeparatorBottom: boolean) of object;

event for user definition of lookup dropdown list items

TFormatType = (...);
 
Values
  • ftRTF:  
  • ftHTML:  
TCheckItemsStyle = (...);
 
Values
  • chsAllItems:  
  • chsCheckedFirst:  
  • chsCheckedOnly:  
TFindItemsStyle = (...);
 
Values
  • fisNone:  
  • fisFilter:  
  • fisSelect:  
TLoadSaveItemList = procedure(Sender: TObject; Items: TCheckItemList) of object;
 
TBlobFileEvent = procedure(Sender: TObject; const FileName: string; FileSize: Int64) of object;
 
TLoadListEvent = (...);
 
Values
  • leAfterOpen:  
  • leAfterDropDownFirst:  
  • leAfterDropDownAlways:  
  • leNever:  
TEditingState = (...);
 
Values
  • esDisable:  
  • esReadOnly:  
  • esAskBeforeMove:  
  • esPostBeforeMove:  
GetListValuesCB = procedure(Field: TField; List: TStrings) of object;

Callback procedure used by CreateDBControls

Author

Created

Oct 2006

Last Modified

Feb 2016


Generated by PasDoc 0.13.0 on 2016-02-19 08:14:10