Re: [lazarus] Rx components not compiling

[Aleksey Lagunov]

Nataraj S Narayan ?????:

Hi

When I try to compile Rx or RxNew compos on Lazarus latest svn and fpc 2.1.1 svn , I get this:-

/root/lazarus/components/rx/apputils.pp(372,14) Error: identifier idents no member "SetDesigning"

Should I go for fpc 2.0.4 ?

i'm create path for fix


--- apputils.pp (revision 10021)
+++ apputils.pp (working copy)
@@ -360,18 +360,8 @@
   {$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 @@
           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;