Unit RosiCompGlobalCfg

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

Global configuration - define global components, variables and settings for all RosiComponent package and shared forms.

Updated version compatible with Delphi2010+.

Overview

Classes, Interfaces, Objects and Records

Name Description
Class TAnchorInfo define class for storing information of one anchor, used by rHTMLLabel and rHTMLDrawText
Class TReportException Report exception class
Class TrCustomGlyphs non visual components witch define custom glyphs for Rosi components
record TrGlyphsRec global record which contain and return needed glyph from Global or Custom glyph component
record TrDBToolCfg  
record TPropSaveCfg  
record TrGroupBoxCfg  
record TrDBComponentsCfg  
record TrDBGridCfg  
record TrDBFieldsCfg  
record TrDBFilterCfg  
record TrDBFindCfg  
record TrDBGridPropsCfg  
record TrDBExportCfg  
record TrDBPrintCfg  
record TrDBPrintDirectCfg  
record TrDBSortCfg  
record TRTFRepDlgCfg  
record TrDBFieldDefaultsCfg  
record TRosiCompConfig define global configuration record
record TGridLookStyleDef define record for one GridLook style

Functions and Procedures

function GetRosiCompIniFile: string;
procedure LoadGridLookStyleList(L: TStrings);

Types

TRosiCompGeneralEvent = procedure(Sender: TObject; EventID: integer; Param1: TObject; Param2: TObject; var Value: Variant) of object;
TAnchorClickEvent = procedure(Sender: TObject; LinkName: string) of object;
TGetParameter = procedure(Sender: TObject; var ParamStr: string) of object;
TFrameType = (...);
TGradientType = (...);
TProcOnHelp = procedure(Form: TForm; HelpContext: integer) of object;
TLinkClickEvent = procedure(Sender: TObject; DataSet: TDataSet; Column: TColumn; Field: TField; Value: Variant) of object;
TActionAfter = (...);
TDateTimePickerAction = (...);
TDateTimePickerCreate = procedure(Sender: TObject; var DateTimePicker: TWinControl; OnChange: TNotifyEvent; OnClose: TNotifyEvent) of object;
TDateTimePickerEvent = procedure(Sender: TObject; DateTimePicker: TWinControl; Action: TDateTimePickerAction; var DateTime: TDateTime; var Done: boolean) of object;
TExitControlEvent = procedure(Sender: TObject; Field: TField; var CanExit: boolean) of object;
TGridLookStyles = (...);
TGlyphLookStyles = (...);
TLoadFieldsPropsProc = procedure(DS: TDataSet) of object;

Constants

cStrEOL = #13#10;
rDefBoolValue = '1;0';
rRunHTTP = 'http://';
rRunMailTo = 'mailto:';
rActualDateAbr = '$Date';
rHTMLHintImageTag = '<<HINTIMG>>';
RosiCompConfig_Auto = 0;
RosiCompConfig_On = 1;
RosiCompConfig_Off = -1;
rDBFilter_SetValueTextEventID = 1;
rDBFilter_SetFilterTextEventID = 2;
rGroupBoxDefFrame = ft3D;
rGroupBoxDefSeparator = ';';
rPageExSpace = 2;

Variables

RosiCompConfig: TRosiCompConfig;
GridLookStyleDefs: array [0 .. 13] of TGridLookStyleDef;
rGlyphs: TrGlyphsRec;

Description

Functions and Procedures

function GetRosiCompIniFile: string;

return filename used for storing of design time dialog settings

procedure LoadGridLookStyleList(L: TStrings);

loads list of possible GridLookStyles

Types

TRosiCompGeneralEvent = procedure(Sender: TObject; EventID: integer; Param1: TObject; Param2: TObject; var Value: Variant) of object;

define universal event called by rDBDialogs in different situations

TAnchorClickEvent = procedure(Sender: TObject; LinkName: string) of object;

define event type for click on anchor, used by rHTMLLabel and rHTMLDrawText

TGetParameter = procedure(Sender: TObject; var ParamStr: string) of object;

define event type for getting of parameter value, used by rHTMLLabel and rHTMLDrawText

TFrameType = (...);

define frame types, used by rGroupBox and rHTMLListView

Values
  • ft3D:  
  • ftSingleLine:  
  • ftDoubleLine:  
  • ftNone:  
TGradientType = (...);

define gradient types, used by rGroupBox

Values
  • gtNone:  
  • gtVertical:  
  • gtHorizontal:  
TProcOnHelp = procedure(Form: TForm; HelpContext: integer) of object;

define event type for help invoke, used by shared forms

TLinkClickEvent = procedure(Sender: TObject; DataSet: TDataSet; Column: TColumn; Field: TField; Value: Variant) of object;

define event type after click on link, used by shared rDBGrid and rDBRecView

TActionAfter = (...);

define action type after creating of report, used by RTFReport2, rXMLReport, TXTExport, SLKExport, rXLSExport

Values
  • aaNone:  
  • aaShow:  
  • aaPrint:  
TDateTimePickerAction = (...);

list of possible action for DateTimePicker events

Values
  • dpaSetDate:  
  • dpaGetDate:  
  • dpaShow:  
  • dpaHide:  
TDateTimePickerCreate = procedure(Sender: TObject; var DateTimePicker: TWinControl; OnChange: TNotifyEvent; OnClose: TNotifyEvent) of object;

event type for creating of DateTimePicker

TDateTimePickerEvent = procedure(Sender: TObject; DateTimePicker: TWinControl; Action: TDateTimePickerAction; var DateTime: TDateTime; var Done: boolean) of object;

event type for DateTimePicker action

TExitControlEvent = procedure(Sender: TObject; Field: TField; var CanExit: boolean) of object;

event type for DBControls used in DoExit event

TGridLookStyles = (...);

define list of defined grid styles for rDBGrid (can be expanded by developer)

Values
  • grs_Default:  
  • grsBlueOffice:  
  • grsBlueNavy:  
  • grsBlueVista:  
  • grsSilverLight:  
  • grsSilverDark:  
  • grsSilverMonochrome:  
  • grsBlackOffice:  
  • grsOlive:  
  • grsYellow:  
  • grsOrange:  
  • grsGreen:  
  • grsBrown:  
  • grsKhaki:  
TGlyphLookStyles = (...);

list of possible LookStyles for rDBGrid

Values
  • glsStandard:  
  • glsFlatBlack:  
  • glsFlatGray:  
TLoadFieldsPropsProc = procedure(DS: TDataSet) of object;
 

Constants

cStrEOL = #13#10;

global constant

rDefBoolValue = '1;0';
 
rRunHTTP = 'http://';
 
rRunMailTo = 'mailto:';
 
rActualDateAbr = '$Date';
 
rHTMLHintImageTag = '<<HINTIMG>>';
 
RosiCompConfig_Auto = 0;

configuration constant

RosiCompConfig_On = 1;
 
RosiCompConfig_Off = -1;
 
rDBFilter_SetValueTextEventID = 1;
 
rDBFilter_SetFilterTextEventID = 2;
 
rGroupBoxDefFrame = ft3D;

default values

rGroupBoxDefSeparator = ';';
 
rPageExSpace = 2;
 

Variables

RosiCompConfig: TRosiCompConfig;

global variable for global configuration, developer can set own values

GridLookStyleDefs: array [0 .. 13] of TGridLookStyleDef;

global array variable containing grid style values

rGlyphs: TrGlyphsRec;

global variable containing standard glyphs for all Rosi components

Author

Created

Jan 2013

Last Modified

Apr 2017


Generated by PasDoc 0.13.0 on 2017-06-17 14:57:07