paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 14:49:28 +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 IntfThemeOptionChange(AThemeServices: TThemeServices; AOption: TThemeOption);
function IsRightToLeft: Boolean;
function IsRTLLang(ALang: String): Boolean;
function Direction(ALang: String): TBiDiMode;
public

9
lcl/include/application.inc
View File

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