Package: u_xmlform Diagram Back to overview

TF_XMLForm
class

Description
Form created from XML

Inherits from: TF_CustomFrameWork
Attributes
Name Type Visibility
gpan_ControlLast

Description
XML Creating

TPanel   private
gpan_Left
TPanel   private
gpan_Right
TPanel   private
gwin_Resize
TWinControl   private
gwin_Parent
TWinControl   private
gi_group
Integer   private
gi_groupsMiddle
Integer   private
gs_group
String   private
gi_LastFormFieldsHeight
Longint   private
gi_LastFormColumnHeight
Longint   private
gat_Template
TActionTemplate   private
gat_SomeTemplate
TActionTemplate   private
gfin_FormIni
TOnFormInfoIni   private
FPageControl
TCustomTabControl   private
FPanelMain
TPanel   private
FActionPanel
TPanel   private
gs_Function
String   private
gi_Function
Integer   private
gi_SomeFunction
Integer   private
gfwe_Password
TFWEdit   private
gfwe_Login
TFWEdit   private
gcx_FormCreating
TDoCreateFromXML   private
gbtn_PrintButton
TFWPrintSources   private
gxml_SourceFile
TALXMLDocument   protected
gxml_classTemplate
TALXMLDocument   protected
gnod_classTemplate
TALXMLNode   protected
Fonction
  public
FonctionClep
  public
ActionPanel
  public
PanelMain
  public
PageControl
  public
Operations
Name Parameters Returns Visibility
fb_CreateField

Description
procedure p_CreateArrayStructComponents Creating groupbox of struct with controls

TALXMLNode anod_Fields
TALXMLNode anod_Field
TFWSource afws_Source
TWinControl awin_parent
TControl acon_Control
TPanel acon_controlResult
String as_name
String as_group
String as_tab
TALXMLNode anod_FieldImport
TALXMLNode anod_OriginalNode
TALXMLNode anod_TemplateNode
TALXMLDocument adoc_ClassImport
TFWFieldColumn afd_Field1
TFWFieldColumn afd_Field2
Longint ai_FieldCounter
TDoCreateFromXML acx_FormCreate
Boolean ab_SeparateIfTooMuch
 
Boolean   private
fpc_CreatePageControl

Description
function TF_XMLForm.fpc_CreatePageControl creates Pagecontrol

TWinControl awin_Parent
String as_Name
TWinControl apan_PanelOrigin
 
TPageControl   private
p_CloseLoginAction

Description
procedure p_CloseLoginAction Login close event

TObject AObject
TCloseaction ACLoseAction
 
  private
p_CreateArrayStructComponentsControls

Description
procedure p_CreateArrayStructComponentsControls Creating groupbox with controls

TFWTables ADBSources
TFWTable ADBSource
TFWFieldColumn affd_ColumnFieldDef
TALXMLNode anod_Field
TControl acon_control
TDoCreateFromXML acx_FieldColumn
Longint ai_Fieldcounter
 
  private
p_CreateField

Description
procedure p_CreateField 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

TALXMLNode anod_Fields
TALXMLNode anod_Field
TFWSource afws_Source
TALXMLNode anod_FieldImport
TALXMLDocument adoc_ClassImport
TDoCreateFromXML acx_FormCreate
Longint ai_FieldCounter
Boolean ab_SeparateIfTooMuch
 
  private
p_LoginCancelClick

Description
procedure p_LoginCancelClick Cancel Click event

TObject AObject
 
  private
p_LoginOKClick

Description
procedure p_LoginOKClick Login OK Button event AObject : Needed for event

TObject AObject
 
  private
p_setFunction

Description
procedure p_setFunction Creating the components of the form from TLeonFunction into array a_Value : Menu function

Integer a_Value
 
  private
p_setFunctionClep

Description
procedure TF_XMLForm.p_setFunctionClep creates form from function clep

String a_Value
 
  private
fb_setStructControl
TFWTable afws_Source
TFWTable afws_source2
TALXMLNode anod_Field
TFWFieldColumn afd_Field1
TControl acon_Control
TDoCreateFromXML lcx_columnField
Integer ai_FieldCounter
 
Boolean   private
FinalizeFunction     protected
ResizeScrollBox

Description
resizing scrollings (TSuperForm)

TControl acon_control
 
  protected
ResizeScrollBox

Description
resize Client Width to make scrollings

Integer ai_width
 
  protected
fwin_CreateMainPanelsDoubleColumn

Description
function TF_XMLForm.fwin_CreateMainPanelsDoubleColumn creates double column

TWinControl awin_Panel
 
TWinControl   protected
fb_CreateComponentAndProperties

Description
setting level from parameter

TControl acon_Control
TALXMLNode anod_Field
TFWFieldColumn affd_ColumnFieldDef
TFWSource afws_Source
TWinControl awin_parent
TXMLFillCombo axfc_ButtonCombo
String as_name
TComponentType act_ComponentType
Longint ai_FieldCounter
TDoCreateFromXML acx_FormCreate
 
Boolean   protected
p_ScruteComposantsFiche     protected
p_setChoiceComponent

Description
procedure p_setChoiceComponent After having read child node from choice node setting the height of choice node argr_Control : Choice component

TCustomRadioGroup argr_Control
 
  protected
fpan_CreateFieldComponentAndProperties

Description
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

TALXMLNode anod_Fields
TALXMLNode anod_Field
TFWSource afws_Source
TALXMLNode anod_FieldImport
TALXMLDocument adoc_ClassImport
TWinControl awin_parent
TControl awin_last
Longint ai_FieldCounter
TDoCreateFromXML acx_FormCreate
Boolean ab_SeparateIfTooMuch
 
TPanel   protected
fwin_tablesGoogleMap

Description
next ab_column

TWinControl awin_parent
TControl awin_last
Longint ai_FieldCounter
TDoCreateFromXML acx_FormCreate
TFWSource afws_Source
Boolean ab_SeparateIfTooMuch
 
TPanel   protected
ftree_CreateTree
TWinControl awin_parent
TControl awin_last
Longint ai_FieldCounter
TDoCreateFromXML acx_FormCreate
TFWSource afws_Source
Boolean ab_SeparateIfTooMuch
 
TCustomVirtualStringTree   protected
fpan_setFieldComponentProperties

Description
Function fpan_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

TFWLabel alab_Label
TControl acon_control
TALXMLNode anod_Field1
TALXMLNode anod_Field2
TPanel apan_ControlPanel
String as_name
TWinControl awin_Parent
TDoCreateFromXML acx_FormCreate
Integer ai_Counter
Boolean ab_Column
TFWFieldColumn afcf_ColumnField
 
TPanel   protected
p_SetFieldButtonsProperties

Description
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_SetTemplatesProperties

Description
procedure p_SetFieldActionsTemplatesProperties Setting the templates' actions anod_Action : Action node for buttons awin_Parent : Parent component

Integer ai_counter
TDoCreateFromXML afc_formcreate
 
  protected
fwin_SetActionPanels

Description
function TF_XMLForm.fwin_SetActionPanels adding Double columns with Splitter

  TWinControl   protected
p_SetControlHeight

Description
procedure TF_XMLForm.p_SetControlHeight setting control height

TALXMLNode anod_Action
TWinControl awin_control
 
  protected
p_setControlName

Description
procedure p_setControlName Setting control name from node

String as_FunctionName
TALXMLNode anod_FieldProperty
TControl awin_Control
Longint ai_Counter
 
  protected
fb_ChargementNomCol

Description
Function fb_ChargementNomCol Inherited function, just make it true

TFWSource AFWColumn
Integer ai_NumSource
 
Boolean   protected
p_AfterColumnFrameShow

Description
overrided procedure p_AfterColumnFrameShow aFWColumn : abstract Column showing

TFWSource aFWColumn
 
  protected
DoClose

Description
overrided procedure DoClose Free the XML Form Setting CloseAction to cafree

TCloseaction CloseAction
 
  protected
fb_ChargeDonnees

Description
function TF_XMLForm.fb_ChargeDonnees option data setting

  Boolean   protected
KeyUp

Description
procedure TF_XMLForm.KeyUp Auto OK Login key event AObject : Needed for event

Word Key
TShiftState Shift
 
  protected
fwin_GridNavigationComponents

Description
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
 
TWinControl   protected
p_AdaptControls

Description
in the create because we can do

    protected
fb_InsereCompteur

Description
function TF_XMLForm.fb_InsereCompteur counter setting by software very slow

TDataset adat_Dataset
TFWFieldColumns aff_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

Description
procedure TF_XMLForm.DoShow finalizing form because loaded not called (no lfm)

    public
p_setLogin

Description
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
BeforeCreateFrameWork

Description
overrided procedure BeforeCreateFrameWork Creating invisible component and setting it Sender : needed

TComponent Sender
 
  public
DestroyComponents

Description
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

TWinControl acom_Parent
 
  public
p_CreateFormComponents

Description
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
Create

Description
Recherche du nom de l'executable pour aller chercher la bonne fonction d'initialisation //////////////////////////////////////////////////////////////////////////////

TComponent AOwner
 
  public
Destroy

Description
Creating objects

    public