<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>%subj - they are not public so I must use now dirty code:</p>
<ol>
<li style="white-space: nowrap; padding: 0 5px; background-color:
#fff; line-height: 16px; border-left: 1px solid #999;">
<div style="font: normal normal 1em/1.2em monospace; margin:0;
padding:0; background:none; vertical-align:top;"><span
style="color: #000000; font-weight: bold;">procedure</span>
DoControlLock<span style="color: #009900;">(</span>Ctl<span
style="color: #000066;">:</span> TWinControl<span
style="color: #009900;">)</span><span style="color:
#000066;">;</span></div>
</li>
<li style="white-space: nowrap; padding: 0 5px; background-color:
#fff; line-height: 16px; border-left: 1px solid #999;">
<div style="font: normal normal 1em/1.2em monospace; margin:0;
padding:0; background:none; vertical-align:top;"><span
style="color: #000000; font-weight: bold;">begin</span></div>
</li>
<li style="white-space: nowrap; padding: 0 5px; background-color:
#fff; line-height: 16px; border-left: 1px solid #999;">
<div style="font: normal normal 1em/1.2em monospace; margin:0;
padding:0; background:none; vertical-align:top;"> <span
style="color: #008000; font-style: italic;">{$ifdef fpc}</span></div>
</li>
<li style="white-space: nowrap; padding: 0 5px; background-color:
#fff; line-height: 16px; border-left: 1px solid #999;">
<div style="font: normal normal 1em/1.2em monospace; margin:0;
padding:0; background:none; vertical-align:top;"> <span
style="color: #000000; font-weight: bold;">if</span>
Application<span style="color: #000066;">.</span><span
style="color: #006600;">MainForm</span><><span
style="color: #000000; font-weight: bold;">nil</span> <span
style="color: #000000; font-weight: bold;">then</span></div>
</li>
<li style="white-space: nowrap; padding: 0 5px; background-color:
#fff; line-height: 16px; border-left: 1px solid #999;">
<div style="font: normal normal 1em/1.2em monospace; margin:0;
padding:0; background:none; vertical-align:top;"> TFormHack<span
style="color: #009900;">(</span>Application<span
style="color: #000066;">.</span><span style="color:
#006600;">MainForm</span><span style="color: #009900;">)</span><span
style="color: #000066;">.</span><span style="color:
#006600;">BeginFormUpdate</span><span style="color:
#000066;">;</span></div>
</li>
<li style="white-space: nowrap; padding: 0 5px; background-color:
#fff; line-height: 16px; border-left: 1px solid #999;">
<div style="font: normal normal 1em/1.2em monospace; margin:0;
padding:0; background:none; vertical-align:top;"> <span
style="color: #008000; font-style: italic;">{$else}</span></div>
</li>
<li style="white-space: nowrap; padding: 0 5px; background-color:
#fff; line-height: 16px; border-left: 1px solid #999;">
<div style="font: normal normal 1em/1.2em monospace; margin:0;
padding:0; background:none; vertical-align:top;"> Ctl<span
style="color: #000066;">.</span><span style="color:
#006600;">Perform</span><span style="color: #009900;">(</span>WM_SetRedraw<span
style="color: #000066;">,</span> <span style="color:
#cc66cc;">0</span><span style="color: #000066;">,</span> <span
style="color: #cc66cc;">0</span><span style="color:
#009900;">)</span><span style="color: #000066;">;</span></div>
</li>
<li style="white-space: nowrap; padding: 0 5px; background-color:
#fff; line-height: 16px; border-left: 1px solid #999;">
<div style="font: normal normal 1em/1.2em monospace; margin:0;
padding:0; background:none; vertical-align:top;"> <span
style="color: #008000; font-style: italic;">{$endif}</span></div>
</li>
<li style="white-space: nowrap; padding: 0 5px; background-color:
#fff; line-height: 16px; border-left: 1px solid #999;">
<div style="font: normal normal 1em/1.2em monospace; margin:0;
padding:0; background:none; vertical-align:top;"><span
style="color: #000000; font-weight: bold;">end</span><span
style="color: #000066;">;</span></div>
</li>
</ol>
<pre class="moz-signature" cols="72">--
Regards,
Alexey</pre>
</body>
</html>