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 for DBTool global configuration
record TPropSaveCfg record for PropSave global configuration
record TrGroupBoxCfg record for rGroupBox global configuration
record TrDBComponentsCfg record for rDBcomponents global configuration
record TrDBGridCfg record for rDBGrid global configuration
record TrDBFieldsCfg record for rDBFields global configuration
record TrDBFilterCfg record for rDBFilter global configuration
record TrDBFindCfg record for rDBFind global configuration
record TrDBGridPropsCfg record for rDBGridProps global configuration
record TrDBExportCfg record for rDBExport global configuration
record TrDBPrintCfg record for rDBPrint global configuration
record TrDBPrintDirectCfg record for rDBPrintDirect global configuration
record TrDBSortCfg record for rDBSort global configuration
record TRTFRepDlgCfg record for RTFReportDlg global configuration
record TrDBFieldDefaultsCfg record for db fields global configuration
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:';
rRunFile = 'file:';
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;

event type called to set all default setting of dataset

Constants

cStrEOL = #13#10;

global constant

rDefBoolValue = '1;0';
 
rRunHTTP = 'http://';
 
rRunMailTo = 'mailto:';
 
rRunFile = 'file:';
 
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 2018-03-18 20:50:39