paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:20:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Implement TApplication.IsRightToLeft (Reason: Delphi compatibility).

Browse Source 
git-svn-id: trunk@40155 -
This commit is contained in:
bart 2013-02-03 12:03:49 +00:00
parent 453863e7a7
commit f85cc1c351
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -1457,6 +1457,7 @@ type
procedure IntfSettingsChange; procedure IntfSettingsChange;
procedure IntfThemeOptionChange(AThemeServices: TThemeServices; AOption: TThemeOption); procedure IntfThemeOptionChange(AThemeServices: TThemeServices; AOption: TThemeOption);
function IsRightToLeft: Boolean;
function IsRTLLang(ALang: String): Boolean; function IsRTLLang(ALang: String): Boolean;
function Direction(ALang: String): TBiDiMode; function Direction(ALang: String): TBiDiMode;
public public

9
lcl/include/application.inc
View File

@ -254,7 +254,7 @@ end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
TApplication GetExename TApplication GetExename
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TApplication.GetExeName: String; function TApplication.GetExename: String;
Begin Begin
Result := ParamStrUTF8(0); Result := ParamStrUTF8(0);
end; end;
@ -387,7 +387,7 @@ end;
Invoked when the application enters the idle state Invoked when the application enters the idle state
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TApplication.Idle(Wait: boolean); procedure TApplication.Idle(Wait: Boolean);
var var
Done: Boolean; Done: Boolean;
begin begin
@ -2014,6 +2014,11 @@ begin
end; end;
end; end;
function TApplication.IsRightToLeft: Boolean;
begin
Result := (BiDiMode <> bdLeftToRight);
end;
procedure TApplication.DoArrowKey(AControl: TWinControl; var Key: Word; procedure TApplication.DoArrowKey(AControl: TWinControl; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
begin begin