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