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 :
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
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;
.
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
Partager