Quantcast
Channel: Delphi Programming – The curse of Dennis D. Spreen
Viewing all articles
Browse latest Browse all 19

Right To Left Forms support

$
0
0

How to enable Right To Left Forms (including icons and form captions) with Delphi:

Override the CreateParams method and insert

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_LEFT or WS_EX_RTLREADING or
    WS_EX_LEFTSCROLLBAR or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT;
end;

Now take a look at your BiDiMode settings – it may have the contrary effect if set to “bdRightToLeft”…


Viewing all articles
Browse latest Browse all 19

Trending Articles