TECEditBtn.Button.OnClick bug ?

[chrv]

Hi all,

I have a problem with this handler:
- Put a TECEditBtn named ECEditBtn1 on a form.
- Create a handler named button.OnClick (by double clicking on Button.OnClick)
- A handler named ECEditBtnButtonClick is created (not ECEditBtnButten1Click)
- Put a second TECEditBtn (ECEditBtn2).
- Try to generated a handler for Button.OnClick: the same handler ECEditBtnButtonClick is selected (not created)

Is it a bug?

[jamie]

What version of Lazarus and OS please ?

[dsiders]

Hi all,

I have a problem with this handler:
- Put a TECEditBtn named ECEditBtn1 on a form.
- Create a handler named button.OnClick (by double clicking on Button.OnClick)
- A handler named ECEditBtnButtonClick is created (not ECEditBtnButten1Click)
- Put a second TECEditBtn (ECEditBtn2).
- Try to generated a handler for Button.OnClick: the same handler ECEditBtnButtonClick is selected (not created)

Is it a bug?

Problem does not exist using eccontrols 0.9.58 on Lazarus 2.2.4 and 2.3.0. Try updating from OPM.

[chrv]

Win32
Lazarus 2.0.12
FPC 3.2.0
econtrol_package.lpk 2.1.0.0 from OPM

I just droped 2 TECEditBtn on a form and double clicked on each Button.OnClick.
Here is what I get

Code: Pascal  [Select][+][-]

1. unit Unit1;
2. {$mode objfpc}{$H+}
3. interface
4. uses
5.   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ECEditBtns;
6. type
7.   { TForm1 }
8.   TForm1 = class(TForm)
9.     ECEditBtn1: TECEditBtn;
10.     ECEditBtn2: TECEditBtn;
11.     procedure ECEditBtnButtonClick(Sender: TObject);
12.   private
13.   public
14.   end;
15. var
16.   Form1: TForm1;
17.  
18. implementation
19.  
20. {$R *.lfm}
21.  
22. { TForm1 }
23.  
24. procedure TForm1.ECEditBtnButtonClick(Sender: TObject);
25. begin
26.  
27. end;
28.  
29. end.            

See attached if you want.

[dsiders]

...
econtrol_package.lpk 2.1.0.0 from OPM

When I look at at OPM... it says the revision level is 0.9.58. And behaves as mentioned.

[jamie]

I guess this would be great if you just were making a trial version of the controls, one instance of each control!   :'(

  But really, where does the IDE generate the incremental value?

[Bart]

  But really, where does the IDE generate the incremental value?

Search for GetUniqueName in Lazarus sources?

Bart

[chrv]

Look at my code.
If event handler is set by code, everything is OK

Code: Pascal  [Select][+][-]

1. unit Unit1;
2. {$mode objfpc}{$H+}
3. interface
4. uses
5.   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ECEditBtns;
6. type
7.   { TForm1 }
8.   TForm1 = class(TForm)
9.     ECEditBtn1: TECEditBtn;
10.     ECEditBtn2: TECEditBtn;
11.     procedure ECEditBtnButtonClick(Sender: TObject);
12.     procedure ECEditBtnButton1Click(Sender: TObject);
13.     procedure ECEditBtnButton2Click(Sender: TObject);
14.     procedure FormCreate(Sender: TObject);
15.   private
16.   public
17.   end;
18.  
19. var
20.   Form1: TForm1;
21. implementation
22. {$R *.lfm}
23. { TForm1 }
24. procedure TForm1.ECEditBtnButtonClick(Sender: TObject);
25. begin
26.  
27. end;
28.  
29. procedure TForm1.ECEditBtnButton1Click(Sender: TObject);
30. begin
31.   ShowMessage('1');
32. end;
33. procedure TForm1.ECEditBtnButton2Click(Sender: TObject);
34. begin
35.   ShowMessage('2');
36. end;
37. procedure TForm1.FormCreate(Sender: TObject);
38. begin
39.   ECEditBtn1.Button.OnClick:=@ECEditBtnButton1Click;
40.   ECEditBtn2.Button.OnClick:=@ECEditBtnButton2Click;
41. end;
42. end.    

[jamie]

This is great news for me!

I see there is a GetNamePath in the TComponent and its virtual which means I can override this and alter the name on return depending on who is asking for it! 

 Nice feature for trial software.  Thanks for pointing this out.

 in any case, I am sure this is an unseen bug.