Menu Item (set_menu_item_property)

**Marcel Chabot** · 11/03/2008, 21h03

Bonjour,

Voici une procédure dans une Forms en 6i

procedure enable_disable_query_items is
begin
enable_item('Query','Last_Criteria');
enable_item('Query','Cancel');
disable_item('Action','Save');
disable_item('Action','Exit');
disable_item('Block','Previous');
disable_item('Block','Next');
disable_item('Record','Previous');
disable_item('Record','Next');
disable_item('Record','Scroll_up');
disable_item('Record','Scroll_down');
disable_item('Record','Insert');
disable_item('Record','Duplicate');
disable_item('Record','Lock');
end;

Malheureusement en 10G enable_item et disable_item écrit comme ça n'est pas reconnu.

Comment puis-je modifier ce code pour obtenir la même chose?

J'ai fait des recherches sans de bons résultats

J'ai essayé set_menu_item_property avec des paramêtres et pas grand chose fonctionnent.

Merci beaucoup!!!

**plaineR** · 12/03/2008, 11h16

Ces built-in doivent être remplacés par set_menu_item_property.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
-- enable_item('Query','Last_Criteria');
set_menu_item_property('Query.Last_Criteria', enabled, property_true);
-- disable_item('Action','Save');
set_menu_item_property('Action.Save', enabled, property_false);