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

fixed compiling errors for synregexpr.pas

Browse Source 
git-svn-id: trunk@3659 -
This commit is contained in:
mattias 2002-11-23 09:34:12 +00:00
parent fb08c8bc2f
commit 1f332a6853
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/lcllinux.pp
View File

@ -57,6 +57,8 @@ function MakeWord(A,B : Byte) : Word;
function PredefinedClipboardFormat(
AFormat: TPredefinedClipboardFormat): TClipboardFormat;
function CharLower(c: char): char;
function CharUpper(c: char): char;
implementation
@ -66,6 +68,9 @@ uses
var
FPredefinedClipboardFormats:
array[TPredefinedClipboardFormat] of TClipboardFormat;
LowerCaseChars: array[char] of char;
UpperCaseChars: array[char] of char;
function MakeLong(A,B : Word) : LongInt;
begin
@ -86,16 +91,30 @@ begin
Result:=FPredefinedClipboardFormats[AFormat];
end;
function CharLower(c: char): char;
begin
Result:=LowerCaseChars[c];
end;
function CharUpper(c: char): char;
begin
Result:=UpperCaseChars[c];
end;
{$I winapi.inc}
procedure InternalInit;
var
AClipboardFormat: TPredefinedClipboardFormat;
c: char;
begin
for AClipboardFormat:=Low(TPredefinedClipboardFormat) to
High(TPredefinedClipboardFormat) do
FPredefinedClipboardFormats[AClipboardFormat]:=0;
for c:=Low(char) to High(char) do begin
LowerCaseChars[c]:=lowercase(c)[1];
UpperCaseChars[c]:=upcase(c);
end;
end;
initialization
@ -105,6 +124,9 @@ end.
{
$Log$
Revision 1.23 2002/11/23 09:34:12 mattias
fixed compiling errors for synregexpr.pas
Revision 1.22 2002/10/26 15:15:46 lazarus
MG: broke LCL<->interface circles