TEditBtn : la méthode DoButtonClick de Lazarus 1.2.4 n'existe plus en 1.6
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:
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:
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
