Discussion :

[ChPr]

Bonjour à toutes et à tous,

Dans un programme que j'ai réalisé avec la version de Lazarus 1.2.4,, j'utilise un composant que j'ai écrit et dont le code est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  TDateur = class(TEditButton)
  private
    { Private declarations }
    FDateSel: string;
    Visu: Boolean;
    procedure TestDate(Sender: TObject);
    procedure SetDateSel(Value: string);
    procedure DateModifiee(Sender: TObject; Dt: string);
  public
    { public declarations }
    constructor Create(AOwner: TComponent); override;
    procedure DoButtonClick(Sender: TObject); override;
  published
    { Published declarations }
    property DateSel: string read FDateSel write SetDateSel;
  end;

J'y utilise la procédure DoButtonClick que je surcharge de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TDateur.DoButtonClick(Sender: TObject);
var
  P: TPoint;
begin
  if not Visu then
  begin
    with TableDates do
      OnChangeEvent:= @DateModifiee;    {Enregistre l'adresse d'info en retour}
    TableDates.DateCour:= FDateSel;
    TableDates.ShowModal;
  end
  else
    TableDates.Close;
  Visu:= not Visu;
end;

.

Problème : Je viens d'installer sous Ubuntu, la version Lazarus 1.6 et, compilant mon programme, j'ai une erreur sur cette procédure : elle n’existe plus dans la version 1.6 !!!

Je fais quoi ?

Merci de votre aide.

Pierre

[FChrisF]

Je pense qu'elle est probablement "passée à la trappe" dans la version 1.4.0:
http://wiki.lazarus.freepascal.org/L..._was_rewritten

A priori, c'est la procédure ButtonClick qui est sensée la remplacer:
http://lists.lazarus.freepascal.org/...il/086630.html

[ChPr]

Merci FChrisF pour cette information.

Pour autant, j'ai cherché dans tous les fichiers de lazarus 1.6 : pas de trace de TButtonEdit.

Sur le net, mis à part des liens russes auxquels je ne comprends rien, rien non plus.

Où trouve-t-on ce composant ?

Merci de votre aide.

Pierre

[ChPr]

Mais que je suis bête. La procédure ButtonClick appartient à TEditButton. Je n'ai donc pas besoin du nouveau composant TButtonEdit.

Ça fonctionne bien, merci.

Cordialement.

Pierre

[FChrisF]

Désolé si j'ai été ambigu ...

Je n'ai pas vraiment suivi le débat, mais pour ce que j'ai compris, il avait été envisagé un moment d'utiliser un autre nom de composant (TButtonEdit) pour la nouvelle version de ce composant. Mais, ceci a été abandonné.

Le "nouveau" composant" (c'est-à-dire le composant réécrit) a donc repris "l'ancien" nom du composant (TEditButton); et il n'y a donc pas de composant TButtonEdit (dans la LCL tout au moins).

Mais bon, vous avez tout de même réussi à résoudre votre problème malgré cela, ce qui était bien entendu l'essentiel.

[ChPr]

Pas de problème.

Merci encore.

Cordialement.

Pierre