[Lazarus] BeginFormUpdate/EndFormUpdate should be public?

[AlexeyT via lazarus]

%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


-- 
_______________________________________________
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus