Skip to content

Commit

Permalink
unify casing of LongInt (makes searches / grep easier)
Browse files Browse the repository at this point in the history
[ci skip]
  • Loading branch information
striezel committed Feb 1, 2024
1 parent b0b5e6e commit 448b50a
Show file tree
Hide file tree
Showing 3 changed files with 7 additions and 7 deletions.
8 changes: 4 additions & 4 deletions engine/BitmapReader.pas
Original file line number Diff line number Diff line change
Expand Up @@ -65,14 +65,14 @@ interface
{ part of file header used in Bitmap files}
TBitmapInfoHeader = packed record
biSize: LongWord;
biWidth: Longint;
biHeight: Longint;
biWidth: LongInt;
biHeight: LongInt;
biPlanes: Word;
biBitCount: Word;
biCompression: LongWord;
biSizeImage: LongWord;
biXPixelsPerMeter: Longint;
biYPixelsPerMeter: Longint;
biXPixelsPerMeter: LongInt;
biYPixelsPerMeter: LongInt;
biClrUsed: LongWord;
biClrImportant: LongWord;
end;//rec
Expand Down
4 changes: 2 additions & 2 deletions engine/Gui.pas
Original file line number Diff line number Diff line change
Expand Up @@ -829,14 +829,14 @@ TGui = class
end;//class TGui

{ returns the vertical mouse position translated to OpenGL coordinates }
function MouseYToGLCoord(const my: Longint): Single;
function MouseYToGLCoord(const my: LongInt): Single;

implementation

uses
DebugWriter;

function MouseYToGLCoord(const my: Longint): Single;
function MouseYToGLCoord(const my: LongInt): Single;
begin

// vertical mouse position translated to OpenGL coordinates
Expand Down
2 changes: 1 addition & 1 deletion engine/vespucci.dpr
Original file line number Diff line number Diff line change
Expand Up @@ -40,7 +40,7 @@ begin
TheGUI.KeyFunc(Key, {x,y,} False);
end;

procedure SpecialWrapper(Key: Longint; x, y: LongInt); cdecl;
procedure SpecialWrapper(Key: LongInt; x, y: LongInt); cdecl;
begin
if ShowKey then WriteLn('Special key: ', Key);
TheGUI.KeyFunc(Key, {x, y,} True);
Expand Down

0 comments on commit 448b50a

Please sign in to comment.