On Monday 21 December 2015 17:30:49 Fred van Stappen wrote:
> > Please use sender.getassistivehint() instead. The interface
> > iassistiveclient ("sender") should provide all you need.
>
> => if (Sender is ttoolbar) then
> Result := 'tool bar, ' + Sender.getassistivehint()
>
> => error => sak_mse.pas(535,39) Error: identifier idents no member
> "getassistivehint" _____________________________________________
>
That works in assistivemonitor:
"
procedure tmainfo.showvalues(const sender: iassistiveclient);
var
dataintf: iifidatalink;
valueprop: ppropinfo;
flags: assistiveflagsty;
rea1: real;
begin
flags:= sender.getassistiveflags();
assistivename.value:= sender.getassistivename();
assistivecaption.value:= sender.getassistivecaption();
assistivetext.value:= sender.getassistivetext();
assistivehint.value:= sender.getassistivehint();
assistivecaretindex.value:= sender.getassistivecaretindex();
...
procedure tassistivemonitor.doitementer(const sender: iassistiveclient;
const items: shapeinfoarty; const aindex: integer);
begin
mainfo.showvalues(sender);
track('<doitementer shape>',sender,inttostrmse(aindex));
end;
"
Please show more code.
Martin
------------------------------------------------------------------------------
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
