paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 20:56:31 +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} {$ENDIF}
THackComponent = class(TComponent) THackComponent = class(TComponent)
public
class procedure SetOtherDesigning(AComponent: TComponent; Value: Boolean);
end; end;
{ THackComponent }
class procedure THackComponent.SetOtherDesigning(AComponent: TComponent;
Value: Boolean);
begin
AComponent.SetDesigning(Value);
end;
procedure ReadFormPlacement(Form: TForm; IniFile: TCustomIniFile; procedure ReadFormPlacement(Form: TForm; IniFile: TCustomIniFile;
const Section: string; LoadState, LoadPosition: Boolean); const Section: string; LoadState, LoadPosition: Boolean);
@ -404,11 +394,11 @@ begin
if (Position in [poScreenCenter , poDesktopCenter ]) and if (Position in [poScreenCenter , poDesktopCenter ]) and
not (csDesigning in ComponentState) then not (csDesigning in ComponentState) then
begin begin
THackComponent.SetOtherDesigning(Form,True); THackComponent(Form).SetDesigning(True);
try try
Position := poDesigned; Position := poDesigned;
finally finally
THackComponent.SetOtherDesigning(Form,False); THackComponent(Form).SetDesigning(False);
end; end;
end; end;
end; end;