[Lazarus] LCL Controls.pp needs 'inline'

[AlexeyT]

Hi; these are one liners.

procedure AdjustBorderSpace(var RemainingClientRect, CurBorderSpace: TRect;
   const Space: TRect);
begin
AdjustBorderSpace(RemainingClientRect,CurBorderSpace,Space.Left,Space.Top,
                     Space.Right,Space.Bottom);
end;

procedure ChangeBiDiModeAlignment(var Alignment: TAlignment);
begin
   case Alignment of
     taLeftJustify: Alignment := taRightJustify;
     taRightJustify: Alignment := taLeftJustify;
   end;
end;

function GetModalResultStr(ModalResult: TModalResult): ShortString;
begin
   Result := UITypes.ModalResultStr[ModalResult];
end;

function SendAppMessage(Msg: Cardinal; WParam: WParam; LParam: LParam): 
Longint;
begin
   Result:=LCLProc.SendApplicationMessage(Msg,WParam,LParam);
end;

procedure MoveWindowOrg(dc: hdc; X, Y: Integer);
begin
   MoveWindowOrgEx(DC,X,Y);
end;

function FindDragTarget(const Position: TPoint; AllowDisabled: Boolean): 
TControl;
begin
   Result := FindControlAtPosition(Position, AllowDisabled);
end;

function CursorToIdent(Cursor: Longint; var Ident: string): Boolean;
begin
   Result := IntToIdent(Cursor, Ident, CursorIdents);
end;

function IdentToCursor(const Ident: string; var Cursor: Longint): Boolean;
begin
   Result := IdentToInt(Ident, Cursor, CursorIdents);
end;

-- 
Regards,
Alexey