GetSearchSourceDescription
Aucune marge prédéfinie sinon
|
|
|
TDataSource
|
private |
ResetMaxLengthDescription
procédure : ResetMaxLength
description : Vérifications avant affectation de la taille du texte à rien
//////////////////////////////////////////////////////////////////////////////
|
|
|
|
private |
SetSearchSourceDescription
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;
|
|
|
|
private |
WMPaintDescription
Evènement message : WMPaint
description : Peinture de la combo
paramètre : Msg : données du message
//////////////////////////////////////////////////////////////////////////////
|
|
|
|
private |
p_setLabel
|
|
|
private |
MouseDown |
TMouseButton |
Button |
TShiftState |
Shift |
Integer |
X |
Integer |
Y |
|
|
protected |
Notification |
TComponent |
AComponent |
TOperation |
Operation |
|
|
protected |
GetTextMarginsDescription
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
|
|
|
protected |
DataLinkUpdateDataDescription
auto-insertion spécifique de ce composant
|
|
|
|
protected |
CreateParams |
|
|
protected |
DataChangeDescription
Evènement : DataChange
description : Changement dans les données
paramètre : Sender : pour l'évènement
//////////////////////////////////////////////////////////////////////////////
|
|
|
|
protected |
InsertLookupDescription
procédure : InsertLookup
description : Insertion automatique
paramètre : Update : validation du champ si pas en train de valider
//////////////////////////////////////////////////////////////////////////////
|
|
|
|
protected |
KeyDownDescription
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 |
KeyPressDescription
procédure : KeyPress
description : évènement appuie sur touche
paramètre : Key : La touche appuyée
//////////////////////////////////////////////////////////////////////////////
|
|
|
|
protected |
CreateDescription
Constructeur : Create
description : Initialisation du composant
//////////////////////////////////////////////////////////////////////////////
|
|
|
|
public |
DoEnterDescription
procédure : DoEnter
description : Attribue le focus au composant
//////////////////////////////////////////////////////////////////////////////
|
|
|
|
public |
DoExitDescription
Auto-insertion
|
|
|
|
public |
Loaded |
|
|
public |
SetOrder |
|
|
public |
GetDisplayValueDescription
fonction : GetDisplayValue
description : Récupère la valeur affichée
paramètre : résultat : la valeur affichée
//////////////////////////////////////////////////////////////////////////////
|
|
|
String
|
public |