Procedure

TfrmTemplateDialog.UMScreenReaderInit

Directives

Message

Module

fTemplateDialog

Last Modified

7/15/2014 3:26:44 PM

Visibility

Private

Owner

TfrmTemplateDialog

Declaration

procedure UMScreenReaderInit(var Message: TMessage); message UM_MISC;


Source

845   procedure TfrmTemplateDialog.UMScreenReaderInit(var Message: TMessage);
846   var
847     ctrl: TWinControl;
848     item: TVA508AccessibilityItem;
849   begin
850     ctrl := TWinControl(Message.WParam);
851     // Refresh the accessibility manager entry -
852     // fixes bug where first focusable check boxes weren't working correctly  
853     if ctrl is TCPRSDialogParentCheckBox then
854     begin
855       item := amgrMain.AccessData.FindItem(ctrl, FALSE);
856       if assigned(item) then
857         item.free;
858       amgrMain.AccessData.EnsureItemExists(ctrl);
859     end;
860   end;