unit DevcapsConst;
interface
uses
Windows;
type
TDevcap = record
iIndex: integer;
szLabel: PAnsiChar;
szDesc: PAnsiChar;
end;
const
NUMLINES = 20;
var
devcaps: array[0..NUMLINES-1] of TDevcap = (
(iIndex: HORZSIZE; szLabel: 'HORZSIZE'; szDesc: 'Width in millimeters:'),
(iIndex: VERTSIZE; szLabel: 'VERTSIZE'; szDesc: 'Height in millimeters:'),
(iIndex: HORZRES; szLabel: 'HORZRES'; szDesc: 'Width in pixels:'),
(iIndex: VERTRES; szLabel: 'VERTRES'; szDesc: 'Height in raster lines:'),
(iIndex: BITSPIXEL; szLabel: 'BITSPIXEL'; szDesc: 'Color bits per pixel:'),
(iIndex: PLANES; szLabel: 'PLANES'; szDesc: 'Number of color planes:'),
(iIndex: NUMBRUSHES; szLabel: 'NUMBRUSHES'; szDesc: 'Number of device brushes:'),
(iIndex: NUMPENS; szLabel: 'NUMPENS'; szDesc: 'Number of device pens:'),
(iIndex: NUMMARKERS; szLabel: 'NUMMARKERS'; szDesc: 'Number of device markers:'),
(iIndex: NUMFONTS; szLabel: 'NUMFONTS'; szDesc: 'Number of device fonts:'),
(iIndex: NUMCOLORS; szLabel: 'NUMCOLORS'; szDesc: 'Number of device colors:'),
(iIndex: PDEVICESIZE; szLabel: 'PDEVICESIZE'; szDesc: 'Size of device structure:'),
(iIndex: ASPECTX; szLabel: 'ASPECTX'; szDesc: 'Relative width of pixel:'),
(iIndex: ASPECTY; szLabel: 'ASPECTY'; szDesc: 'Relative height of pixel:'),
(iIndex: ASPECTXY; szLabel: 'ASPECTXY'; szDesc: 'Relative diagonal of pixel:'),
(iIndex: LOGPIXELSX; szLabel: 'LOGPIXELSX'; szDesc: 'Horizontal dots per inch:'),
(iIndex: LOGPIXELSY; szLabel: 'LOGPIXELSY'; szDesc: 'Vertical dots per inch:'),
(iIndex: SIZEPALETTE; szLabel: 'SIZEPALETTE'; szDesc: 'Number of Palette entries:'),
(iIndex: NUMRESERVED; szLabel: 'NUMRESERVED'; szDesc: 'Reserved palette entries:'),
(iIndex: COLORRES; szLabel: 'COLORRES'; szDesc: 'Actual color resolution:')
);
implementation
end.
