On 12/05/2016 10:23 PM, Fred van Stappen wrote:
> 
> Hello.
> 
> 
> This a continuation of:
> 
> 
> On Monday 05 December 2016 15:29:08 Fred van Stappen wrote:
>>
>> But there are some that make trouble.
>>
>> It is those in projectoptionsfo with boolean cells.
>> There is a Access violation error when selecting a "boolean" cell (cell
>> with X).
>>
>> I do not find how to fix this.
> 
> When selecting a "normal" cell, all is ok, the cell is said (see attachment 
> twidgetgrid_ok.jpg).
> 
> But selecting a "boolean" cell, there is a access violation error (see 
> attachment twidgetgrid_crash.jpg).
> 
"
function TSak.WhatName(iaSender: iassistiveclient): msestring;
[...]
  if (Sender is tbooleaneditradio) then
  begin
    if (trim(Tbooleaneditradio(Sender).frame.Caption) <> '') then

           <<<<<<<<<<---- frame is nil by default for grid widgets

      Result := 'radio button, ' + Tbooleaneditradio(Sender).frame.Caption
    else
     if (Tbooleaneditradio(Sender).hint <> '') then
      Result := 'radio button, ' + Tbooleaneditradio(Sender).hint
      else
      Result := 'radio button, ' + Tbooleaneditradio(Sender).Name;
  end
"
Maybe use "iaSender.getassistivecaption()" instead?

Please remember the iassistiveclient interface:
"
 iassistiveclient = interface(inullinterface)[miid_iassistiveclient]
  function getinstance: tobject;
  function getassistivename(): msestring;
  function getassistivecaption(): msestring;
  function getassistivetext(): msestring;
  function getassistivecaretindex(): int32; //-1 -> none
  function getassistivehint(): msestring;
  function getassistiveflags(): assistiveflagsty;
 {$ifdef mse_with_ifi}
  function getifidatalinkintf(): iifidatalink; //can be nil
 {$endif}
 end;
"

Martin

------------------------------------------------------------------------------
Developer Access Program for Intel Xeon Phi Processors
Access to Intel Xeon Phi processor-based developer platforms.
With one year of Intel Parallel Studio XE.
Training and support from Colfax.
Order your platform today.http://sdm.link/xeonphi
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk

Reply via email to