mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 21:49:15 +02:00
* Layout and copyright updates.
This commit is contained in:
daniel
parent
5c2a5a30ce
commit
4674146d94
@ -2,181 +2,199 @@
|
|||||||
|
|
||||||
$Id$
|
$Id$
|
||||||
|
|
||||||
Copyright (c) 1993,94,99 by FK, RB
|
Copyright (c) 1993,94 by Florian Klaempfl
|
||||||
|
Copyright (c) 1999 by Ramon Bosque
|
||||||
|
|
||||||
|
The Free Pascal runtime library is distributed under the Library GNU Public
|
||||||
|
License v2. So is this unit. The Library GNU Public License requires you to
|
||||||
|
distribute the source code of this unit with any product that uses it.
|
||||||
|
Because the EMX library isn't under the LGPL, we grant you an exception to
|
||||||
|
this, and that is, when you compile a program with the Free Pascal compiler,
|
||||||
|
you do not need to ship source code with that program, AS LONG AS YOU ARE
|
||||||
|
USING UNMODIFIED CODE! If you modify this code, you MUST change the next
|
||||||
|
line:
|
||||||
|
|
||||||
|
<This an official, unmodified FPK Pascal source code file.>
|
||||||
|
|
||||||
|
Send us your modified files, we can work together if you want!
|
||||||
|
|
||||||
|
FPK-Pascal is distributed in the hope that it will be useful,
|
||||||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
Library GNU General Public License for more details.
|
||||||
|
|
||||||
|
You should have received a copy of the Library GNU General Public License
|
||||||
|
along with Free Pascal; see the file COPYING.LIB. If not, write to
|
||||||
|
the Free Software Foundation, 59 Temple Place - Suite 330,
|
||||||
|
Boston, MA 02111-1307, USA.
|
||||||
|
|
||||||
****************************************************************************}
|
****************************************************************************}
|
||||||
unit pmbitmap;
|
unit pmbitmap;
|
||||||
|
|
||||||
interface
|
{Warning: This code is alfa. Future versions of this unit will propably
|
||||||
|
not be compatible.}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
{$PACKRECORDS 1}
|
{$PACKRECORDS 1}
|
||||||
|
|
||||||
type
|
type Tbitmapinfoheader=record
|
||||||
BITMAPINFOHEADER = record
|
cbFix:cardinal;
|
||||||
cbFix : cardinal;
|
cx:word;
|
||||||
cx : word;
|
cy:word;
|
||||||
cy : word;
|
cPlanes:word;
|
||||||
cPlanes : word;
|
cBitCount:word;
|
||||||
cBitCount : word;
|
end;
|
||||||
end;
|
Pbitmapinfoheader = ^Tbitmapinfoheader;
|
||||||
|
|
||||||
PBITMAPINFOHEADER = ^BITMAPINFOHEADER;
|
Trgb=record
|
||||||
|
bBlue,
|
||||||
|
bGreen,
|
||||||
|
bRed:BYTE;
|
||||||
|
end;
|
||||||
|
|
||||||
RGB = record
|
Tbitmapinfo=record
|
||||||
bBlue : BYTE;
|
cbFix:cardinal;
|
||||||
bGreen : BYTE;
|
cx:word;
|
||||||
bRed : BYTE;
|
cy:word;
|
||||||
end;
|
cPlanes:word;
|
||||||
|
cBitCount:word;
|
||||||
|
argbColor:array[0..1-1] of Trgb;
|
||||||
|
end;
|
||||||
|
Pbitmapinfo=^Tbitmapinfo;
|
||||||
|
|
||||||
BITMAPINFO = record
|
Tbitmapinfoheader2=record
|
||||||
cbFix : cardinal;
|
cbFix:cardinal;
|
||||||
cx : word;
|
cx:cardinal;
|
||||||
cy : word;
|
cy:cardinal;
|
||||||
cPlanes : word;
|
cPlanes:word;
|
||||||
cBitCount : word;
|
cBitCount:word;
|
||||||
argbColor : array[0..1-1] of RGB;
|
ulCompression:cardinal;
|
||||||
end;
|
cbImage:cardinal;
|
||||||
|
cxResolution:cardinal;
|
||||||
|
cyResolution:cardinal;
|
||||||
|
cclrUsed:cardinal;
|
||||||
|
cclrImportant:cardinal;
|
||||||
|
usUnits:word;
|
||||||
|
usReserved:word;
|
||||||
|
usRecording:word;
|
||||||
|
usRendering:word;
|
||||||
|
cSize1:cardinal;
|
||||||
|
cSize2:cardinal;
|
||||||
|
ulColorEncoding:cardinal;
|
||||||
|
ulIdentifier:cardinal;
|
||||||
|
end;
|
||||||
|
Pbitmapinfoheader2=^Tbitmapinfoheader2;
|
||||||
|
|
||||||
PBITMAPINFO = ^BITMAPINFO;
|
Trgb2=record
|
||||||
|
bBlue,
|
||||||
|
bGreen,
|
||||||
|
bRed,
|
||||||
|
fcOptions:byte;
|
||||||
|
end;
|
||||||
|
Prgb2=^Trgb2;
|
||||||
|
|
||||||
BITMAPINFOHEADER2 = record
|
Tbitmapinfo2=record
|
||||||
cbFix : cardinal;
|
cbFix:cardinal;
|
||||||
cx : cardinal;
|
cx:cardinal;
|
||||||
cy : cardinal;
|
cy:cardinal;
|
||||||
cPlanes : word;
|
cPlanes:word;
|
||||||
cBitCount : word;
|
cBitCount:word;
|
||||||
ulCompression : cardinal;
|
ulCompression:cardinal;
|
||||||
cbImage : cardinal;
|
cbImage:cardinal;
|
||||||
cxResolution : cardinal;
|
cxResolution:cardinal;
|
||||||
cyResolution : cardinal;
|
cyResolution:cardinal;
|
||||||
cclrUsed : cardinal;
|
cclrUsed:cardinal;
|
||||||
cclrImportant : cardinal;
|
cclrImportant:cardinal;
|
||||||
usUnits : word;
|
usUnits:word;
|
||||||
usReserved : word;
|
usReserved:word;
|
||||||
usRecording : word;
|
usRecording:word;
|
||||||
usRendering : word;
|
usRendering:word;
|
||||||
cSize1 : cardinal;
|
cSize1:cardinal;
|
||||||
cSize2 : cardinal;
|
cSize2:cardinal;
|
||||||
ulColorEncoding : cardinal;
|
ulColorEncoding:cardinal;
|
||||||
ulIdentifier : cardinal;
|
ulIdentifier:cardinal;
|
||||||
end;
|
argbColor:array[0..1-1] of Trgb2;
|
||||||
|
end;
|
||||||
|
Pbitmapinfo2=^Tbitmapinfo2;
|
||||||
|
|
||||||
PBITMAPINFOHEADER2 = ^BITMAPINFOHEADER2;
|
Tbitmapfileheader=record
|
||||||
|
usType:word;
|
||||||
|
cbSize:cardinal;
|
||||||
|
xHotspot:integer;
|
||||||
|
yHotspot:integer;
|
||||||
|
offBits:cardinal;
|
||||||
|
bmp:Tbitmapinfoheader;
|
||||||
|
end;
|
||||||
|
|
||||||
RGB2 = record
|
Pbitmapfileheader=^Tbitmapfileheader;
|
||||||
bBlue : BYTE;
|
|
||||||
bGreen : BYTE;
|
|
||||||
bRed : BYTE;
|
|
||||||
fcOptions : BYTE;
|
|
||||||
end;
|
|
||||||
|
|
||||||
PRGB2 = ^RGB2;
|
Tbitmaparrayfileheader=record
|
||||||
|
usType:word;
|
||||||
|
cbSize:cardinal;
|
||||||
|
offNext:cardinal;
|
||||||
|
cxDisplay:word;
|
||||||
|
cyDisplay:word;
|
||||||
|
bfh:Tbitmapfileheader;
|
||||||
|
end;
|
||||||
|
Pbitmaparrayfileheader=^Tbitmaparrayfileheader;
|
||||||
|
|
||||||
BITMAPINFO2 = record
|
Tbitmapfileheader2=record
|
||||||
cbFix : cardinal;
|
usType:word;
|
||||||
cx : cardinal;
|
cbSize:cardinal;
|
||||||
cy : cardinal;
|
xHotspot:integer;
|
||||||
cPlanes : word;
|
yHotspot:integer;
|
||||||
cBitCount : word;
|
offBits:cardinal;
|
||||||
ulCompression : cardinal;
|
bmp2:Tbitmapinfoheader2;
|
||||||
cbImage : cardinal;
|
end;
|
||||||
cxResolution : cardinal;
|
Pbitmapfileheader2=^Tbitmapfileheader2;
|
||||||
cyResolution : cardinal;
|
|
||||||
cclrUsed : cardinal;
|
|
||||||
cclrImportant : cardinal;
|
|
||||||
usUnits : word;
|
|
||||||
usReserved : word;
|
|
||||||
usRecording : word;
|
|
||||||
usRendering : word;
|
|
||||||
cSize1 : cardinal;
|
|
||||||
cSize2 : cardinal;
|
|
||||||
ulColorEncoding : cardinal;
|
|
||||||
ulIdentifier : cardinal;
|
|
||||||
argbColor : array[0..1-1] of RGB2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
PBITMAPINFO2 = ^BITMAPINFO2;
|
Tbitmaparrayfileheader2=record
|
||||||
|
usType:word;
|
||||||
|
cbSize:cardinal;
|
||||||
|
offNext:cardinal;
|
||||||
|
cxDisplay:word;
|
||||||
|
cyDisplay:word;
|
||||||
|
bfh2:Tbitmapfileheader2;
|
||||||
|
end;
|
||||||
|
|
||||||
BITMAPFILEHEADER = record
|
Pbitmaparrayfileheader2=^Tbitmaparrayfileheader2;
|
||||||
usType : word;
|
|
||||||
cbSize : cardinal;
|
|
||||||
xHotspot : integer;
|
|
||||||
yHotspot : integer;
|
|
||||||
offBits : cardinal;
|
|
||||||
bmp : BITMAPINFOHEADER;
|
|
||||||
end;
|
|
||||||
|
|
||||||
PBITMAPFILEHEADER = ^BITMAPFILEHEADER;
|
const CBD_COMPRESSION = 1;
|
||||||
|
CBD_DECOMPRESSION = 2;
|
||||||
|
CBD_BITS = 0;
|
||||||
|
CBD_COLOR_CONVERSION =$0000001;
|
||||||
|
BCA_UNCOMP = 0;
|
||||||
|
BCA_HUFFMAN1D = 3;
|
||||||
|
BCA_RLE4 = 2;
|
||||||
|
BCA_RLE8 = 1;
|
||||||
|
BCA_RLE24 = 4;
|
||||||
|
BRU_METRIC = 0;
|
||||||
|
BRA_BOTTOMUP = 0;
|
||||||
|
BRH_NOTHALFTONED = 0;
|
||||||
|
BRH_ERRORDIFFUSION = 1;
|
||||||
|
BRH_PANDA = 2;
|
||||||
|
BRH_SUPERCIRCLE = 3;
|
||||||
|
BCE_PALETTE = (-1);
|
||||||
|
BCE_RGB = 0;
|
||||||
|
|
||||||
BITMAPARRAYFILEHEADER = record
|
BFT_ICON = $4349;
|
||||||
usType : word;
|
BFT_BMAP = $4d42;
|
||||||
cbSize : cardinal;
|
BFT_POINTER = $5450;
|
||||||
offNext : cardinal;
|
BFT_COLORICON = $4943;
|
||||||
cxDisplay : word;
|
BFT_COLORPOINTER = $5043;
|
||||||
cyDisplay : word;
|
BFT_BITMAPARRAY = $4142;
|
||||||
bfh : BITMAPFILEHEADER;
|
|
||||||
end;
|
|
||||||
|
|
||||||
PBITMAPARRAYFILEHEADER = ^BITMAPARRAYFILEHEADER;
|
|
||||||
|
|
||||||
BITMAPFILEHEADER2 = record
|
|
||||||
usType : word;
|
|
||||||
cbSize : cardinal;
|
|
||||||
xHotspot : integer;
|
|
||||||
yHotspot : integer;
|
|
||||||
offBits : cardinal;
|
|
||||||
bmp2 : BITMAPINFOHEADER2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
PBITMAPFILEHEADER2 = ^BITMAPFILEHEADER2;
|
|
||||||
|
|
||||||
BITMAPARRAYFILEHEADER2 = record
|
|
||||||
usType : word;
|
|
||||||
cbSize : cardinal;
|
|
||||||
offNext : cardinal;
|
|
||||||
cxDisplay : word;
|
|
||||||
cyDisplay : word;
|
|
||||||
bfh2 : BITMAPFILEHEADER2;
|
|
||||||
end;
|
|
||||||
|
|
||||||
PBITMAPARRAYFILEHEADER2 = ^BITMAPARRAYFILEHEADER2;
|
|
||||||
|
|
||||||
{$PACKRECORDS NORMAL}
|
|
||||||
|
|
||||||
|
|
||||||
const
|
implementation
|
||||||
CBD_COMPRESSION = 1;
|
|
||||||
CBD_DECOMPRESSION = 2;
|
|
||||||
CBD_BITS = 0;
|
|
||||||
CBD_COLOR_CONVERSION = $00000001;
|
|
||||||
BCA_UNCOMP = 0;
|
|
||||||
BCA_HUFFMAN1D = 3;
|
|
||||||
BCA_RLE4 = 2;
|
|
||||||
BCA_RLE8 = 1;
|
|
||||||
BCA_RLE24 = 4;
|
|
||||||
BRU_METRIC = 0;
|
|
||||||
BRA_BOTTOMUP = 0;
|
|
||||||
BRH_NOTHALFTONED = 0;
|
|
||||||
BRH_ERRORDIFFUSION = 1;
|
|
||||||
BRH_PANDA = 2;
|
|
||||||
BRH_SUPERCIRCLE = 3;
|
|
||||||
BCE_PALETTE = (-1);
|
|
||||||
BCE_RGB = 0;
|
|
||||||
|
|
||||||
BFT_ICON = $4349;
|
|
||||||
BFT_BMAP = $4d42;
|
|
||||||
BFT_POINTER = $5450;
|
|
||||||
BFT_COLORICON = $4943;
|
|
||||||
BFT_COLORPOINTER = $5043;
|
|
||||||
BFT_BITMAPARRAY = $4142;
|
|
||||||
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.3 1999-06-02 16:01:31 hajny
|
Revision 1.4 1999-06-11 13:16:21 daniel
|
||||||
|
* Layout and copyright updates.
|
||||||
|
|
||||||
|
Revision 1.3 1999/06/02 16:01:31 hajny
|
||||||
* changes by Ramon Bosque
|
* changes by Ramon Bosque
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
2314
rtl/os2/pmgpi.pas
2314
rtl/os2/pmgpi.pas
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user