paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-24 19:15:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved CharLower/Upper functions to winapi inc files

Browse Source 
git-svn-id: trunk@23478 -
This commit is contained in:
marc 2010-01-17 18:33:50 +00:00
parent 6ed617ebe2
commit b6e66de015
3 changed files with 25 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/include/winapi.inc
View File

@ -982,6 +982,17 @@ begin
then Rect.Top := Rect.Top + 25;
end;
{------------------------------------------------------------------------------
Function: CharLower
Params:
Returns:
------------------------------------------------------------------------------}
function CharLower(c: char): char; inline;
begin
Result := LowerCaseChars[c];
end;
{------------------------------------------------------------------------------
Function: CharLowerBuff
Params: pStr:
@ -997,6 +1008,16 @@ begin
Result := -1;
end;
{------------------------------------------------------------------------------
Function: CharUpper
Params:
Returns:
------------------------------------------------------------------------------}
function CharUpper(c: char): char; inline;
begin
Result := UpperCaseChars[c];
end;
{------------------------------------------------------------------------------
Function: CopyRect pbd

4
lcl/include/winapih.inc
View File

@ -46,7 +46,9 @@ function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSr
function CallNextHookEx(hhk : HHOOK; ncode : Integer; WParam: WParam; LParam: LParam) : Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CallWindowProc(lpPrevWndFunc : TFarProc; Handle : HWND; Msg : UINT; WParam: WParam; LParam: LParam): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
//function CharLower --> independent
//function CharLowerBuff --> independent
//function CharUpper --> independent
function ClientToScreen(Handle : HWND; var P : TPoint) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CombineRgn(Dest, Src1, Src2 : HRGN; fnCombineMode : Longint) : Longint; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function CreateBitmap(Width, Height: Integer; Planes, BitCount: Longint; BitmapBits: Pointer): HBITMAP; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@ -276,7 +278,9 @@ function WindowFromPoint(Point : TPoint) : HWND; {$IFDEF IF_BASE_MEMBER}virtual;
function AdjustWindowRectEx(Var Rect: TRect; Style1: Word; MenuExist : Boolean;
Style2 : Word) : Boolean;
function CharLower(c: char): char; inline;
function CharLowerBuff(pStr : PChar; Len : Integer): Integer;
function CharUpper(c: char): char; inline;
function CopyRect(var DestRect: TRect; const SrcRect: TRect): Boolean;
function CreateEllipticRgnIndirect(const ARect: TRect): HRGN;
function CreateFont(Height, Width, Escapement, Orientation, Weight: Integer;

12
lcl/lclintf.pas
View File

@ -77,8 +77,6 @@ function IndexToOverlayMask(iOverlay: UINT): UINT; inline;
function PredefinedClipboardFormat(
AFormat: TPredefinedClipboardFormat): TClipboardFormat;
function CharLower(c: char): char; inline;
function CharUpper(c: char): char; inline;
function MsgKeyDataToShiftState(KeyData: Longint): TShiftState;
@ -219,16 +217,6 @@ begin
Result:=FPredefinedClipboardFormats[AFormat];
end;
function CharLower(c: char): char; inline;
begin
Result:=LowerCaseChars[c];
end;
function CharUpper(c: char): char; inline;
begin
Result:=UpperCaseChars[c];
end;
function MsgKeyDataToShiftState(KeyData: Longint): TShiftState;
begin
Result := [];