Make your own free website on Tripod.com

RTL Windows

RTL means "Right To Left", and it is used to make the windows compatible with the Arabic settings. To make a Form RTL use the following options when createing the Form:

How to use it?

Good question. In the private section, you should override the CreateParams function as follow:
procedure CreateParams(var Params: TCreateParams); override;
Then write the following code:
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);       { call the inherited first }
  with Params do
       ExStyle := ExStyle or WS_EX_RTLREADING 
                or WS_EX_LEFTSCROLLBAR or WS_EX_RIGHT ;
end;

 
BACK