fpc_CreatePageControlDescription
fonction fpc_CreatePageControl
Creating a pagecontrol
awin_Parent : Parent component
as_Name : name of pagecontrol
apan_PanelOrigin : Changing The non pagecontrol panel and adding it to the tabsheet getting 2 tabsheet
|
|
TWinControl |
awin_Parent |
String |
as_Name |
TWinControl |
apan_PanelOrigin |
|
TPageControl
|
private |
fscb_CreateTabSheetDescription
function fscb_CreateTabSheet
Create a tabsheet and so a pagecontrol
apc_PageControl : Page control to eventually create
awin_ParentPageControl : Parent of pagecontrol
awin_PanelOrigin : Panel not in a pagecontrol
as_Name : Pagecontrol name
as_Caption : old caption
ai_Counter : COlumn counter
|
|
TPageControl |
apc_PageControl |
TWinControl |
awin_ParentPageControl |
TWinControl |
awin_PanelOrigin |
String |
as_Name |
String |
as_Caption |
|
TScrollBox
|
private |
p_CloseLoginActionDescription
procedure p_CloseLoginAction
Login close event
|
|
TObject |
AObject |
TCloseAction |
ACLoseAction |
|
|
private |
p_LoginCancelClickDescription
procedure p_LoginCancelClick
Cancel Click event
|
|
|
|
private |
p_LoginOKClickDescription
procedure p_LoginOKClick
Login OK Button event
AObject : Needed for event
|
|
|
|
private |
p_setFunctionDescription
procedure p_setFunction
Creating the components of the form from TLeonFunction into array
a_Value : Menu function
|
|
|
|
private |
p_ScruteComposantsFiche |
|
|
protected |
p_setChoiceComponentDescription
procedure p_setChoiceComponent
After having read child node from choice node setting the height of choice node
argr_Control : Choice component
|
|
TDBRadioGroup |
argr_Control |
|
|
protected |
p_setControl |
String |
as_BeginName |
TWinControl |
awin_Control |
TWinControl |
awin_Parent |
TALXMLNode |
anod_Field |
Longint |
ai_FieldCounter |
Longint |
ai_counter |
|
|
protected |
fdbc_CreateLookupComboDescription
function TF_XMLForm.fdbc_CreateLookupCombo
Create the lookup combo box from xml relation
/////////////////////////////////////////////////////////////////////////////////////////
|
|
TWinControl |
awin_Parent |
TDSSource |
ads_Connection |
String |
as_Table |
String |
as_FieldsID |
String |
as_FieldsDisplay |
String |
as_Name |
TList |
alis_IdRelation |
TList |
alis_DisplayRelation |
Integer |
ai_FieldCounter |
Integer |
ai_Counter |
Boolean |
OneFieldToFill |
|
TXMLFillCombo
|
protected |
fdbg_GroupViewComponentsDescription
function fdbg_GroupViewComponents
Creates a full N-N or N-1 relationships management
awin_Parent : the parent component of the created components
anod_NodeRelation : The relationships node
const alis_ListCrossLink : The other side relationships
ai_FieldCounter : Table counter
ai_Counter : Column Counter
returns the main list
|
|
TFWXMLSource |
afws_source |
TWinControl |
awin_Parent |
Integer |
ai_Connection |
TDSSource |
ads_Connection |
String |
as_NameRelation |
String |
as_ConnectionBind |
String |
as_ClassRelation |
String |
as_ClassBind |
String |
as_OtherClass |
String |
as_fieldsId |
String |
as_fieldsDisplay |
TRelationBind |
aa_FieldsBind |
TList |
alis_IdRelation |
TList |
alis_DisplayRelation |
of String |
aa_FieldsDisplayNames |
Integer |
ai_FieldCounter |
Integer |
ai_Counter |
|
TDBGroupView
|
protected |
ffwc_getRelationComponentDescription
function ffwc_getRelationComponent
Creates some relationships components, included the full Groupview relationships
awin_Parent : Parent of all created components
anod_Field : relationships node
ab_IsLocal : is relationships not linked to data ?
ai_FieldCounter : table counter
ai_Counter : column counter
|
|
TFWXMLSource |
afws_source |
TWinControl |
awin_Parent |
TALXMLNode |
anod_Field |
Integer |
ai_FieldCounter |
Integer |
ai_Counter |
|
TWinControl
|
protected |
p_setComponentLeft |
TControl |
awin_Control |
Boolean |
ab_Column |
|
|
protected |
p_setFieldComponentTopDescription
procedure p_setFieldComponent
after having fully read the field nodes last setting of field component
awin_Control : Component to set
afw_Source : Form Column
afw_columnField : Field Column
ab_IsLocal : Not linked to data
ab_Column : Second editing column
|
|
TWinControl |
awin_Control |
Boolean |
ab_Column |
|
|
protected |
p_setFieldComponentData |
TWinControl |
awin_Control |
TFWXMLSource |
afw_Source |
TFWFieldColumn |
afw_columnField |
Boolean |
ab_IsLocal |
|
|
protected |
p_setLabelComponentDescription
procedure p_setLabelComponent
after having fully read the field nodes last setting of label component
awin_Control : Field Component
alab_Label : Label to set
ab_Column : Second editing column
|
|
TWinControl |
awin_Control |
TFWLabel |
alab_Label |
Boolean |
ab_Column |
|
|
protected |
fb_setChoicePropertiesDescription
function fb_setChoiceProperties
After having read child nodes from component node setting the values of choice node
anod_FieldProperty : Component Node
argr_Control : Choice component
|
|
TALXMLNode |
anod_FieldProperty |
TDBRadioGroup |
argr_Control |
|
Boolean
|
protected |
CreateSourcesDescription
function CreateSources overrided
Create The TFWXMLColumns into the inherited TF_XMLForm
returns original and inherited TFWXMLColumns
|
|
|
TFWSources
|
protected |
fwin_CreateFieldComponentDescription
No comment node to create the Control
|
|
TFWXMLSource |
afws_Source |
TWinControl |
awin_Parent |
TALXMLNode |
anod_Field |
Boolean |
ab_isLarge |
Boolean |
ab_IsLocal |
Longint |
ai_FieldCounter |
Longint |
ai_counter |
|
TWinControl
|
protected |
fwin_CreateFieldComponentAndPropertiesDescription
procedure p_CreateFieldComponentAndProperties
Creating the column components
as_Table : Table Name
anod_Field: Node field
ai_FieldCounter : Field counter
ai_Counter : Column counter
awin_Parent : Parent component
ab_Column : Second editing column
afws_Source : XML form Column
afd_FieldsDefs : Field Definitions
|
|
String |
as_Table |
TALXMLNode |
anod_Field |
Longint |
ai_FieldCounter |
Longint |
ai_Counter |
TWinControl |
awin_Parent |
TWinControl |
awin_Last |
Boolean |
ab_Column |
TFWXMLSource |
afws_Source |
|
TWinControl
|
protected |
fpan_GridNavigationComponentsDescription
function fpan_GridNavigationComponents
Create a complete Grid navigation with Navigators returning the child created ScrollBox for the editing form
awin_Parent : The grid navigation and editing parent
const as_Name : name for caption
const ai_Counter : Column counter
|
|
TWinControl |
awin_Parent |
String |
as_Name |
Integer |
ai_Counter |
|
TScrollBox
|
protected |
flab_setFieldComponentPropertiesDescription
Function flab_setFieldComponentProperties
creating the label component and setting the field component from child nodes
anod_Field : component node
awin_Control : created field component
awin_Parent : Parent component
afd_FieldDef : Field definitions
ai_Counter : Field Counter
afws_Source : XML Form Column
ab_Column : Segund editing column
afcf_ColumnField : Field Form column definitions
|
|
TALXMLNode |
anod_Field |
TWinControl |
awin_Control |
TWinControl |
awin_Parent |
Integer |
ai_Counter |
Boolean |
ab_Column |
TFWFieldColumn |
afcf_ColumnField |
|
TFWLabel
|
protected |
p_SetFieldButtonsPropertiesDescription
procedure p_SetFieldButtonsProperties
Setting the editing buttons
anod_Action : Action node for buttons
ai_Counter : column counter
awin_Parent : Parent component
|
|
TALXMLNode |
anod_Action |
Integer |
ai_Counter |
|
|
protected |
p_setControlNameDescription
procedure p_setControlName
Setting control name from node
|
|
String |
as_FunctionName |
TALXMLNode |
anod_FieldProperty |
TControl |
awin_Control |
Longint |
ai_Counter |
|
|
protected |
fb_ChargementNomColDescription
Function fb_ChargementNomCol
Inherited function, just make it true
|
|
TFWSource |
AFWColumn |
Integer |
ai_NumSource |
|
Boolean
|
protected |
p_AfterColumnFrameShowDescription
overrided procedure p_AfterColumnFrameShow
aFWColumn : Column showing
|
|
|
|
protected |
DoCloseDescription
overrided procedure DoClose
Free the XML Form
Setting CloseAction to cafree
|
|
|
|
protected |
fb_ChargeDonnees |
|
Boolean
|
protected |
KeyUpDescription
procedure TF_XMLForm.KeyUp
Auto OK Login key event
AObject : Needed for event
|
|
Word |
Key |
TShiftState |
Shift |
|
|
protected |
fb_InsereCompteur |
TDataset |
adat_Dataset |
TStringlist |
aslt_Cle |
String |
as_ChampCompteur |
String |
as_Table |
String |
as_PremierLettrage |
Char |
ach_DebutLettrage |
Char |
ach_FinLettrage |
Int64 |
ali_Debut |
Int64 |
ali_LimiteRecherche |
|
Boolean
|
public |
DoShow |
|
|
public |
p_setLoginDescription
Déclarations publiques
procedure p_setLogin
Special Login model
axml_Login : XML Document of login form
|
|
TALXMLDocument |
axml_Login |
TJvXPButton |
axb_ident |
TMenuItem |
amen_MenuIdent |
TImageList |
aiml_Images |
TBitmap |
abmp_DefaultImage |
Longint |
ai_CountImages |
|
|
public |
BeforeCreateFrameWorkDescription
overrided procedure BeforeCreateFrameWork
Creating invisible component and setting it
Sender : needed
|
|
|
|
public |
DestroyComponentsDescription
procedure DestroyComponents
Destroy all the visible components for the form to be re-used
Initiate the XML Form
Parameter : acom_Parent : If not nil destroy only the controls child of acom_Parent
|
|
|
|
public |
p_CreateFormComponentsDescription
procedure p_CreateFormComponents
Create a form from XML File
as_XMLFile : XML File
as_Name : Name of form
awin_Parent : Parent component
ai_Counter : The column counter for other XML File
|
|
String |
as_XMLClass |
String |
as_Name |
TWinControl |
awin_Parent |
|
|
public |
CreateDescription
Recherche du nom de l'executable pour aller
chercher la bonne fonction d'initialisation
//////////////////////////////////////////////////////////////////////////////
|
|
|
|
public |