keXa/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

removed game cursor & alt+1/2/3/9 -> ctrl+1/2/3/9

Browse Source 
git-svn-id: svn://kolibrios.org@1007 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
bw 2009-01-29 04:32:44 +00:00
parent ba74256d24
commit a03f69b310
2 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
programs/games/lrl/src/LRLEditor.pp
View File

@ -83,7 +83,7 @@ begin
ImagePut(LRLScreen^, LRLFontBuffer^, 25 - ImageSizex(LRLFontBuffer^) div 2, 0, 0, 0, 319, 199);
end;
ImagePutTransparent(LRLScreen^, LRLMousePointer^, MouseX, MouseY, 0, 0, 319, 199);
{ImagePutTransparent(LRLScreen^, LRLMousePointer^, MouseX, MouseY, 0, 0, 319, 199);}
end;

28
programs/games/lrl/src/LRLRoutines.pp
View File

@ -1,8 +1,9 @@
unit LRLRoutines;
{$codepage utf8}
{$mode objfpc}
{$asmmode intel}
unit LRLRoutines;
interface
@ -86,6 +87,7 @@ const
KEY_LBRACKET = $1A00;
KEY_RBRACKET = $1B00;
KEY_ENTER = $1C00;
KEY_CTRL = $1D00;
KEY_A = $1E00;
KEY_S = $1F00;
@ -200,7 +202,7 @@ var
LastKeyEvent: Word = $FFFF;
LastKeyUp : Boolean = True;
LastKeyDown: Boolean = False;
AltDown : Boolean = False;
CtrlDown : Boolean = False;
ShiftDown : Boolean = False;
LShiftDown : Boolean = False;
RShiftDown : Boolean = False;
@ -272,7 +274,7 @@ var
begin
if (ScreenWidth = BUFFER_WIDTH) and (ScreenHeight = BUFFER_HEIGHT) then
begin
{¯¥à¥­®á ®¤¨­ ¢ ®¤¨­}
{перенос один в один}
B := @ScreenPalBuffer;
C := ScreenRGBBuffer;
for I := 0 to BUFFER_HEIGHT - 1 do
@ -284,7 +286,7 @@ begin
end;
end else
begin
{¬ áèâ ¡¨à®¢ ­¨¥}
{масштабирование}
XStep := (BUFFER_WIDTH shl 16) div ScreenWidth;
YStep := (BUFFER_HEIGHT shl 16) div ScreenHeight;
Horizontal;
@ -330,7 +332,7 @@ var
begin
Width := PWord(@ImageBuffer)[0];
Height := PWord(@ImageBuffer)[1];
PI := @ImageBuffer + 4;
for I := Y to Y + Height - 1 do
@ -390,7 +392,7 @@ begin
Height := PWord(@FontData + 2)^;
Table := PWord(@FontData + 4);
{ à áç¥â ¤«¨­ë áâப¨ }
{ расчет длины строки }
Width := 0;
for I := 1 to Length(Source) do
begin
@ -401,7 +403,7 @@ begin
PWord(@Buffer)^ := Width;
PWord(@Buffer + 2)^ := Height;
{ ¢ë¢®¤ áâப¨ }
{ вывод строки }
X := 0;
for I := 1 to Length(Source) do
begin
@ -534,10 +536,10 @@ begin
LastKeyUp := not LastKeyDown;
if LastKeyUp then Dec(Result, KEY_UP_BASE);
if Result = KEY_ALT then
if Result = KEY_CTRL then
begin
AltDown := LastKeyDown;
Result := $FFFF;
CtrlDown := LastKeyDown;
Result := $FFFF;
end else
if Result = KEY_LSHIFT then
@ -554,7 +556,7 @@ begin
Result := $FFFF;
end else
if AltDown then
if CtrlDown then
case Result of
KEY_1: begin Result := $FFFF; if LastKeyDown then ScreenMode(1); end;
KEY_2: begin Result := $FFFF; if LastKeyDown then ScreenMode(2); end;
@ -634,7 +636,7 @@ begin
if NowPressed and not WasPressed then Inc(MouseButtonsPressed[I]) else
if not NowPressed and WasPressed then Inc(MouseButtonsReleased[I]);
end;
MouseButtonsState := Buttons;
end;