[Lazarus] BeginFormUpdate/EndFormUpdate should be public?

[AlexeyT]

%subj - they are not public so I must use now dirty code:

 1.
    procedure DoControlLock(Ctl: TWinControl);
 2.
    begin
 3.
    {$ifdef fpc}
 4.
    if Application.MainForm<>nil then
 5.
         TFormHack(Application.MainForm).BeginFormUpdate;
 6.
    {$else}
 7.
       Ctl.Perform(WM_SetRedraw, 0, 0);
 8.
    {$endif}
 9.
    end;

-- 
Regards,
Alexey

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20181223/954410e8/attachment.html>