|Anonymous | Login | Signup for a new account||2019-04-26 10:53 CEST|
|Main | My View | View Issues | Change Log | Roadmap | Docs|
|Viewing Issue Simple Details|
|ID||Category||Severity||Reproducibility||Date Submitted||Last Update|
|0002558||[JEDI VCL] 00 JVCL Components||major||always||2005-01-26 11:54||2005-02-14 12:38|
|Status||resolved||Product Version||3.00 BETA 2|
|Summary||0002558: JvNavPaneToolPanel-Buttons being clicked do not trigger Action.OnExecute-Event|
I drop a JvNavPaneToolPanel,
create a Button in the JvNavPaneToolPanel,
create a normal TButton in my form,
drop an ActionList,
Create an Action,
connect the action to both buttons,
create an Action.OnExecute-Handler with does that:
Now run the Program. Clicking the TButton produces the Message. Clicking the Button in JvNavPaneToolPanel does nothing.
Very strange is, that nevertheless the Hint-Text is shown. Therefore it has nothing to do with the "Assign"-problem which were discussed a few weeks ago.
|Additional Information||I'm using D5Ent, Update Pack 1|
|Tags||No tags attached.|
|Attached Files||NavPane-Test.zip [^] (707 bytes) 2005-02-11 05:43|
|Please provide an example project (Zip file) and indicate which version of the JVCL and JCL you are using.|
I just uploaded an example-Project. I'm using the daily-Zip-Version of JVCL of the 28.01.2005 and JCL1.93.
Still I didn't figure out, what's not working.
edited on: 2005-02-12 09:50
[UPDATE 05-02-12] Please ignore this Posting - that's not working.
Finally I found the problem:
While loading the buttons the method "TJvCustomNavPaneToolPanel.ButtonsChanged" checks whether an action for the button is set and sets the InternalButtonClick-Method for the OnClick-Event. It must be checked if the ComponentState is csLoading.
Correctly working does it like that:
if HeaderVisible then
for I := 0 to Buttons.Count - 1 do
B := Buttons[I].Button;
B.Visible := False;
B.SetBounds(0, 0, ButtonWidth - 3, ButtonHeight - 2);
B.Images := Images;
if not (csLoading in Self.ComponentState) then
if B.Action = nil then
B.OnClick := InternalButtonClick;
B.Tag := I;
B.Parent := Self;
I would ask you to change this in further versions.
Thank you very much!
What I posted yesterday isn't working. I'm sorry.
Now I helped myself modifying the SetAction-Method like that:
procedure TJvNavPaneToolButton.SetAction(const Value: TBasicAction);
FRealButton.Action := Value;
That looks quite clean to me, because TJvNavPaneToolButton doesn't have a onClick-Event and like that it's working fine to me.
|Updated in CVS. Thanks|
|2005-01-26 11:54||Dominik||New Issue|
|2005-02-03 00:31||obones||Note Added: 0006344|
|2005-02-03 00:31||obones||Status||new => feedback|
|2005-02-11 05:43||anonymous||File Added: NavPane-Test.zip|
|2005-02-11 05:50||anonymous||Note Added: 0006457|
|2005-02-11 08:23||Dominik||Note Added: 0006458|
|2005-02-12 09:50||Dominik||Note Added: 0006473|
|2005-02-12 09:50||Dominik||Note Edited: 0006458|
|2005-02-14 12:38||user72||Status||feedback => resolved|
|2005-02-14 12:38||user72||Resolution||open => fixed|
|2005-02-14 12:38||user72||Assigned To||=> user72|
|2005-02-14 12:38||user72||Note Added: 0006494|
|Mantis 1.1.6[^] Copyright © 2000 - 2008 Mantis Group|