paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 18:08:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Implement CharUpperBuff function. Issue #24493, patch from Stephano

Browse Source 
git-svn-id: trunk@42580 -
This commit is contained in:
juha 2013-09-03 23:49:23 +00:00
parent e11eb00f52
commit ca7b733531
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/include/winapi.inc
View File

@ -1106,6 +1106,24 @@ begin
Result := UpperCaseChars[c];
end;
{------------------------------------------------------------------------------
Function: CharUpperBuff
Params: pStr:
Len:
Returns:
------------------------------------------------------------------------------}
function CharUpperBuff(pStr: PChar; Len: Integer): Integer;
begin
Result := len;
while len > 0 do
begin
pStr^ := UpperCaseChars[pStr^];
inc(pStr);
dec(len);
end;
end;
{------------------------------------------------------------------------------
Function: CopyRect pbd
Params:

1
lcl/include/winapih.inc
View File

@ -298,6 +298,7 @@ function AdjustWindowRectEx(Var Rect: TRect; Style1: Word; MenuExist : Boolean;
function CharLower(c: char): char; inline;
function CharLowerBuff(pStr : PChar; Len : Integer): Integer;
function CharUpper(c: char): char; inline;
function CharUpperBuff(pStr : PChar; Len : Integer): Integer;
function CopyRect(var DestRect: TRect; const SrcRect: TRect): Boolean;
function CreateEllipticRgnIndirect(const ARect: TRect): HRGN;
function CreateFont(Height, Width, Escapement, Orientation, Weight: Integer;