ribbon tab item properties

BIZ TMS Scripter
1
I typed following codes to define ribbon, under delphi, however I couldn't get the properties from scripter, such as visible, caption etc with "KelebekRibbon.Tabs.Items[0]. "

procedure TKelebekF.GetRibbonVisible(AMachine: TatVirtualMachine);
begin
with AMachine do
returnOutputArg(TRibbon(CurrentObject).Tabs.items[GetArrayIndex(0)].visible);
end;

procedure TKelebekF.SetRibbonVisible(AMachine: TatVirtualMachine);
begin
with AMachine do
TRibbon(CurrentObject).Tabs.Items[GetArrayIndex(0)].Visible := GetInputArgAsBoolean(0);
end;


With IDEScripter1.DefineClass(TRibbon) do
begin
DefineProp('Visible',tkInteger,GetRibbonVisible,SetRibbonVisible,TRibbonTabItem,true,2);
end;
2

You defined it wrong. The parameters you are passing in DefineProp are not correct. First you said the property returns an integer (tkInteger) but later you inform that the class returned by the property is TRibbonTabItem. Also, the "true, 2" parameters indicate that the property should be a class property (which is not correct) and is indexed with two index parameters.

You must define an indexed property named "Tabs" which return a TRibbonTabItem, and them define a Visible property in the TRibbonTabItem class (if it's not already a published property).
3

ok understood.


i can see now the properties of items but i can't change variables ( (published property) caption, visible etc.)
I am getting an error like:
'RUNTIME ERROR
File library Unit1: Access violation at address 5092464E in module 'vclribbon190.bpl'. Read of address 00000035 when evaluating instruction CallProc ($FFFFFFFF,$FF,$432234,$480E1A0,'Visible').
Stack content is: [Integer:17337712].
Source position: 8,38'.
Process KelebekV3.exe (7668)

-------------------------------

My codes :
procedure TKelebekF.GetRibbonVisible(AMachine: TatVirtualMachine);
begin
with AMachine do
returnOutputArg(integer(TRibbonTabs(CurrentObject).Items[GetArrayIndex(0)].Visible));

end;

procedure TKelebekF.SetRibbonVisible(AMachine: TatVirtualMachine);
begin
with AMachine do
  TRibbonTabs(CurrentObject).Items[GetArrayIndex(0)].Visible := GetInputArgAsBoolean(0);
end;


  With IDEScripter1.DefineClass(TRibbonTabs) do
 begin
DefineProp('Items',tkClass,GetRibbonVisible,SetRibbonVisible,TRibbonTabItem,true,1);
 end;

I think this is a mistake in the procedure of GetRibbonVisible and SetRibbonVisible.

how can i fix this.

Thanks.
4

Although the name doesn't matter, you should rename GetRibbonVisible to GetRibbonItems and just remove SetRibbonVisible.

You are declaring an indexed property named "Items" that return a TRibbonTabItem, it has nothing to do with Visible property. Correct code should be this:

procedure TKelebekF.GetRibbonItems(AMachine: TatVirtualMachine);
begin
with AMachine do
returnOutputArg(ObjectToVar(TRibbonTabs(CurrentObject).Items[GetArrayIndex(0)]));

end;
5

Thank you very much it's work :)