paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

rx: fixed compilaion under fpc 2.1.x

Browse Source 
git-svn-id: trunk@10040 -
This commit is contained in:
mattias 2006-10-05 08:43:35 +00:00
parent a4bd9f7713
commit df36cf4952
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/rx/apputils.pp
View File

@ -360,18 +360,8 @@ type
{$ENDIF}
THackComponent = class(TComponent)
public
class procedure SetOtherDesigning(AComponent: TComponent; Value: Boolean);
end;
{ THackComponent }
class procedure THackComponent.SetOtherDesigning(AComponent: TComponent;
Value: Boolean);
begin
AComponent.SetDesigning(Value);
end;
procedure ReadFormPlacement(Form: TForm; IniFile: TCustomIniFile;
const Section: string; LoadState, LoadPosition: Boolean);
@ -404,11 +394,11 @@ begin
if (Position in [poScreenCenter , poDesktopCenter ]) and
not (csDesigning in ComponentState) then
begin
THackComponent.SetOtherDesigning(Form,True);
THackComponent(Form).SetDesigning(True);
try
Position := poDesigned;
finally
THackComponent.SetOtherDesigning(Form,False);
THackComponent(Form).SetDesigning(False);
end;
end;
end;