Package: U_ExtComboInsert Diagram Back to overview

TExtDBComboInsert
class

Description
TExtDBComboInsert

Inherits from: TDBLookupComboBox
Implements: IFWComponent, IFWComponentEdit
Attributes
Name Type Visibility
FModify

Description
On est en train d'écrire dans la combo

Boolean   private
FSearchSource
TDataSource   private
FDisplayValue

Description
Valeur affichée

String   private
Flocated

Description
Focus sur le composant

Boolean   private
FSet
Boolean   private
FHideSelection
Boolean   private
FOnLocate
TNotifyEvent   private
FOnSet
TNotifyEvent   private
FUpdate

Description
En train de mettre à jour ou pas

Boolean   private
FBeepOnError

Description
Beep sur erreur

Boolean   private
FBeforeEnter

Description
look

TNotifyEvent   private
FBeforeExit
TNotifyEvent   private
FLabel
TFWLabel   private
FOldColor
TColor   private
FColorReadOnly
TColor   private
FColorFocus
TColor   private
FColorEdit
TColor   private
FColorLabel
TColor   private
FAlwaysSame
Boolean   private
FNotifyOrder
TNotifyEvent   private
FBeforePopup
TPopUpMenuEvent   private
FOnPopup
TNotifyEvent   private
OldText
String   protected
OldSelStart
Integer   protected
Modify
  public
DisplayValue
  public
FWBeforeEnter
  public
FWBeforeExit
  public
ColorLabel
  public
ColorFocus
  public
ColorEdit
  public
ColorReadOnly
  public
Color
  public
MyLabel
  public
AlwaysSame
  public
OnOrder
  public
BeforePopup
  public
OnPopup
  public
OnMouseEnter
  public
OnMouseLeave
  public
PopupMenu
  public
OnLocate
  public
OnSet
  public
BeepOnError
  public
SearchSource
  public
HideSelection
  public
ReadOnly
  public
Operations
Name Parameters Returns Visibility
GetSearchSource

Description
Aucune marge prédéfinie sinon

  TDataSource   private
ResetMaxLength

Description
procédure : ResetMaxLength description : Vérifications avant affectation de la taille du texte à rien //////////////////////////////////////////////////////////////////////////////

    private
SetSearchSource

Description
procedure TExtDBComboInsert.Change; begin // On avertit le lien de données Inherited; if assigned ( DataSource ) and not ( DataSource.Dataset.State in [dsInsert,dsEdit]) Then // Les données viennent peut-être d'être validées FModify := False ; // vérfications pour affectation if ( SelText = '' ) and assigned ( {$IFDEF FPC}ListSource{$ELSE}LookupSource{$ENDIF} ) and assigned ( {$IFDEF FPC}ListSource{$ELSE}LookupSource{$ENDIF}.DataSet ) and assigned ( {$IFDEF FPC}ListSource{$ELSE}LookupSource{$ENDIF}.DataSet.FindField ( {$IFDEF FPC}KeyField{$ELSE}LookupField{$ENDIF} )) and assigned ( Field ) Then try // affectation FDataLink.Dataset.edit ; FDataLink.Field.Value := {$IFDEF FPC}ListSource{$ELSE}LookupSource{$ENDIF}.DataSet.FindField ( {$IFDEF FPC}KeyField{$ELSE}LookupField{$ENDIF} ).Value ; finally End ; inherited Change; end;

TDataSource Value
 
  private
WMPaint

Description
Evènement message : WMPaint description : Peinture de la combo paramètre : Msg : données du message //////////////////////////////////////////////////////////////////////////////

TWMPaint Msg
 
  private
p_setLabel

Description
look

TFWLabel alab_Label
 
  private
MouseDown
TMouseButton Button
TShiftState Shift
Integer X
Integer Y
 
  protected
Notification
TComponent AComponent
TOperation Operation
 
  protected
GetTextMargins

Description
fonction : GetTextMargins description : Récupère les marges sur le texte paramètre : résultat : les marges du haut et du bas //////////////////////////////////////////////////////////////////////////////

  TPoint   protected
ValidateSearch

Description
affectation

    protected
DataLinkUpdateData

Description
auto-insertion spécifique de ce composant

    protected
CreateParams
TCreateParams Params
 
  protected
DataChange

Description
Evènement : DataChange description : Changement dans les données paramètre : Sender : pour l'évènement //////////////////////////////////////////////////////////////////////////////

TObject Sender
 
  protected
InsertLookup

Description
procédure : InsertLookup description : Insertion automatique paramètre : Update : validation du champ si pas en train de valider //////////////////////////////////////////////////////////////////////////////

Boolean AUpdate
 
  protected
KeyDown

Description
new order, because result of inherited KeyDown(...) could be = 0 so, first set DataSet in Edit-Mode certaines touches initient l'édition des données

Word Key
TShiftState Shift
 
  protected
KeyUp
Word Key
TShiftState Shift
 
  protected
KeyPress

Description
procédure : KeyPress description : évènement appuie sur touche paramètre : Key : La touche appuyée //////////////////////////////////////////////////////////////////////////////

Char Key
 
  protected
Create

Description
Constructeur : Create description : Initialisation du composant //////////////////////////////////////////////////////////////////////////////

TComponent AOwner
 
  public
DoEnter

Description
procédure : DoEnter description : Attribue le focus au composant //////////////////////////////////////////////////////////////////////////////

    public
DoExit

Description
Auto-insertion

    public
Loaded     public
SetOrder     public
GetDisplayValue

Description
fonction : GetDisplayValue description : Récupère la valeur affichée paramètre : résultat : la valeur affichée //////////////////////////////////////////////////////////////////////////////

  String   public