Right To Left Forms support
How to enable Right To Left Forms (including icons and form captions) with Delphi:
Override the CreateParams method and insert
1 2 3 4 5 6 7 8 |
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”…
4 Comments to Right To Left Forms support
Thank you for posting this. I thought I was the only one bothered by this. However, in Delphi 6, at first this appears to work fine, but things have a way of disappearing. For example, as soon as a TStringGrid gets focus, it becomes invisible. I’ve tried Repaint and Refresh on both the component and the Form with no luck.
March 5, 2011
Just to let you know and to thank you, I found that your method works if you first put a client aligned TPanel on the Form and make it the parent of all components. The Form becomes much slower and does a lot of visible redraws, but it works. If you put edit components directly on the TForm, they become unstable. I hope this information may help others in writing RightToLeft apps. Thank you again for sharing.
March 5, 2011
Thanks for that info. You may override the panel’s background redrawing and turn doublebuffing on to avoid flickering.
December 1, 2011
This seems to work for both Delphi6 and Lazarus. I hope it can be useful to others:
unit Unit1;
interface
uses
Windows, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, Grids;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
StringGrid1: TStringGrid;
Memo1: TMemo;
Edit1: TEdit;
private
{ Private declarations }
procedure CreateParams(var Params : TCreateParams); override;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
const
LangHeb = $40D;
var
Cover: TCustomControl;
procedure TForm1.CreateParams(var Params : TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle:= WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT;
Cover:= TCustomControl.Create(Self);
while Form1.ControlCount>0 do begin
Form1.Controls[0].Parent:= Cover;
end;
with Cover do begin
Parent:= Form1;
Align:= alClient;
BiDiMode:= bdRightToLeft;
end;
end;
initialization
with Application do begin
NonBiDiKeyboard:= IntToHex(GetUserDefaultLangId,8);
BiDiKeyboard:= IntToHex(LangHeb,8);
SysLocale.MiddleEast:= True;
end;
end.
Leave a comment
About Dennis D. Spreen
Search
Recent Posts
- How to compile Lua 5.4.0 for Android as a dynamic library using Android Studio 4
- Please make inline vars usable for production – fix RSP-28892
- How to compile Lua 5.4.0 as a Mac OS X dynamic library
- How to compile Lua 5.4.0 for Linux as a shared library
- How to compile Lua 5.4.0 for Windows
- Daily Wage – a Spigot/Bukkit plugin that pays out a daily wage
- How to compile Lua 5.3.5 for Windows
- Better Collada exporter for Blender with custom properties
- MOS6502-delphi – a MOS 6502 CPU emulator for Delphi
- Pass a multidimensional array as a parameter (with a hidden caveat)
Categories
Tags
Archives
- May 2020
- March 2020
- June 2019
- March 2017
- August 2016
- July 2016
- June 2016
- January 2016
- September 2015
- February 2015
- January 2015
- October 2014
- September 2014
- August 2014
- May 2014
- March 2014
- February 2014
- November 2011
- June 2011
- February 2011
- March 2010
- September 2009
- August 2009
- July 2009
- May 2009
- March 2009
- February 2009
- January 2009
- November 2008
- October 2008
- February 2008
- June 2007
Delphi Feeds
- How it Works With Holger goes LIVE! Looking at FireDAC and SQLite first! January 25, 2023
- TONIGHT! I will give an online, live presentation for the Orange County Delphi user group Jan. 25 2023 at 7pm (PST) / 04:00 (Brussels) January 25, 2023
- Official Docker Containers Updated for 11.2 January 24, 2023
- Extend TMS WEB Core with JS Libraries with Andrew:<br />Shoelace Web Components January 24, 2023
- TMS MQTT 2.0 beta available, bringing MQTT protocol v5.0 support to Delphi developers January 24, 2023
- Online DelphiCon 2023 and Delphi Conference in London January 23, 2023
- SamplingProfiler 23.1.23 (belated) release is available January 23, 2023
- Big improvements and optimizations for Tiled maps handling in TCastleScene January 22, 2023
- Almost-automatic batching for TDrawableImage, Tiled rendering incredibly faster (like 30x), ability to load Tiled into TCastleScene, new isometric game demos and the plan for 2D games based on maps January 21, 2023
- Externí prohlížeč PDF ve Firemonkey pro Windows a Android January 20, 2023
February 14, 2011