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

lcl: fixed typo

Browse Source 
git-svn-id: trunk@36382 -
This commit is contained in:
mattias 2012-03-27 11:55:53 +00:00
parent b54ecafd13
commit 92be47b60a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/graphtype.pp
View File

@ -147,7 +147,7 @@ type
PaletteBitOrder: TRawImageBitOrder; PaletteBitOrder: TRawImageBitOrder;
PaletteByteOrder: TRawImageByteOrder; PaletteByteOrder: TRawImageByteOrder;
// don't use a contructor here, it will break compatibility with a record // don't use a constructor here, it will break compatibility with a record
procedure Init; procedure Init;
// 1-bit mono format // 1-bit mono format
@ -207,7 +207,7 @@ type
Palette: PByte; Palette: PByte;
PaletteSize: PtrUInt; PaletteSize: PtrUInt;
// don't use a contructor here, it will break compatebility with a record // don't use a constructor here, it will break compatibility with a record
procedure Init; procedure Init;
procedure CreateData(AZeroMem: Boolean); procedure CreateData(AZeroMem: Boolean);
@ -241,7 +241,7 @@ type
public public
Positions: array of TRawImagePosition; Positions: array of TRawImagePosition;
// don't use a contructor here, it will break compatibility with a record // don't use a constructor here, it will break compatibility with a record
procedure Init(AWidth, AHeight: cardinal; ABitsPerPixel: Byte; ALineEnd: TRawImageLineEnd; ALineOrder: TRawImageLineOrder); procedure Init(AWidth, AHeight: cardinal; ABitsPerPixel: Byte; ALineEnd: TRawImageLineEnd; ALineOrder: TRawImageLineOrder);
function GetPosition(x, y: cardinal): TRawImagePosition; function GetPosition(x, y: cardinal): TRawImagePosition;
end; end;