Right To Left Run time Problem

[molla2005b]

procedure TUniMainModule.UniGUIMainModuleNewComponent(AComponent: TComponent);
begin

  if AComponent is TUniForm then
    (AComponent as TUniForm).RTL := UniMainModule.RTL;

end;

the above code not work?
UniMainModule.RTL:=true;

MainForm.RTL:=True;
I have more than 200 form in the project.

thanks in advance

[molla2005b]

?

[M.Ammar]

Hi 

I use inherited frames and forms for all may project in the parent frame/form I use

procedure TFrameName.UniFrameCreate(Sender: TObject);
Begin   // Adjust RTL   
RTL := UniMainModule.RTL;
End;

Edit 

if I understood you correctly you need to change the RTL at Run time 

 

[molla2005b]

Thanks for replay
I have a big project from 4 year ago
i wish to upgrade to 1.90