mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-05-31 13:41:30 +00:00
170 lines
5.3 KiB
OpenEdge ABL
170 lines
5.3 KiB
OpenEdge ABL
|
|
{
|
|
Created: Saturday, July 27, 1991 at 10:24 PM
|
|
Palettes.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1987-1991
|
|
All rights reserved
|
|
This file is used in these builds: BigBang
|
|
|
|
Change History (most recent first):
|
|
|
|
<11> 8/8/91 JL Fixed GetGray call. Wrong selector; someone translated 12
|
|
decimal to 12 hex.
|
|
<10> 7/31/91 JL Updated Copyright.
|
|
<9> 1/30/91 JL checked in database generated file from dsg.
|
|
<8> 1/18/91 KON Change SaveFore, SaveBack, RestoreFore, RestoreBack to coincide
|
|
with IM interfaces. [CEL]
|
|
<7> 1/9/91 dvb Change return type of HasDepth to INTEGER.
|
|
<6> 12/13/90 dvb Make .h and .p and .a files consistent.
|
|
<5> 11/5/90 JL Returned pmInhibit equates.
|
|
<4> 9/15/90 DC added GetGray and CheckColors
|
|
<3> 6/19/90 DVB Add in the latest PMgr dispatchs
|
|
|
|
To Do:
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT Palettes;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingPalettes}
|
|
{$SETC UsingPalettes := 1}
|
|
|
|
{$I+}
|
|
{$SETC PalettesIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingQuickdraw}
|
|
{$I $$Shell(PInterfaces)Quickdraw.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingWindows}
|
|
{$I $$Shell(PInterfaces)Windows.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := PalettesIncludes}
|
|
|
|
CONST
|
|
pmCourteous = 0; {Record use of color on each device touched.}
|
|
pmTolerant = $0002; {render ciRGB if ciTolerance is exceeded by best match.}
|
|
pmAnimated = $0004; {reserve an index on each device touched and render ciRGB.}
|
|
pmExplicit = $0008; {no reserve, no render, no record; stuff index into port.}
|
|
|
|
pmWhite = $0010;
|
|
pmBlack = $0020;
|
|
|
|
pmInhibitG2 = $0100;
|
|
pmInhibitC2 = $0200;
|
|
pmInhibitG4 = $0400;
|
|
pmInhibitC4 = $0800;
|
|
pmInhibitG8 = $1000;
|
|
pmInhibitC8 = $2000;
|
|
|
|
|
|
{ NSetPalette Update Constants }
|
|
pmNoUpdates = $8000; {no updates}
|
|
pmBkUpdates = $A000; {background updates only}
|
|
pmFgUpdates = $C000; {foreground updates only}
|
|
pmAllUpdates = $E000; {all updates}
|
|
|
|
TYPE
|
|
ColorInfo = RECORD
|
|
ciRGB: RGBColor; {true RGB values}
|
|
ciUsage: INTEGER; {color usage}
|
|
ciTolerance: INTEGER; {tolerance value}
|
|
ciDataFields: ARRAY [0..2] OF INTEGER; {private fields}
|
|
END;
|
|
|
|
PalettePtr = ^Palette;
|
|
PaletteHandle = ^PalettePtr;
|
|
Palette = RECORD
|
|
pmEntries: INTEGER; {entries in pmTable}
|
|
pmDataFields: ARRAY [0..6] OF INTEGER; {private fields}
|
|
pmInfo: ARRAY [0..0] OF ColorInfo;
|
|
END;
|
|
|
|
|
|
PROCEDURE InitPalettes;
|
|
INLINE $AA90;
|
|
FUNCTION NewPalette(entries: INTEGER;srcColors: CTabHandle;srcUsage: INTEGER;
|
|
srcTolerance: INTEGER): PaletteHandle;
|
|
INLINE $AA91;
|
|
FUNCTION GetNewPalette(PaletteID: INTEGER): PaletteHandle;
|
|
INLINE $AA92;
|
|
PROCEDURE DisposePalette(srcPalette: PaletteHandle);
|
|
INLINE $AA93;
|
|
PROCEDURE ActivatePalette(srcWindow: WindowPtr);
|
|
INLINE $AA94;
|
|
PROCEDURE SetPalette(dstWindow: WindowPtr;srcPalette: PaletteHandle;cUpdates: BOOLEAN);
|
|
INLINE $AA95;
|
|
PROCEDURE NSetPalette(dstWindow: WindowPtr;srcPalette: PaletteHandle;nCUpdates: INTEGER);
|
|
INLINE $AA95;
|
|
FUNCTION GetPalette(srcWindow: WindowPtr): PaletteHandle;
|
|
INLINE $AA96;
|
|
PROCEDURE CopyPalette(srcPalette: PaletteHandle;dstPalette: PaletteHandle;
|
|
srcEntry: INTEGER;dstEntry: INTEGER;dstLength: INTEGER);
|
|
INLINE $AAA1;
|
|
PROCEDURE PmForeColor(dstEntry: INTEGER);
|
|
INLINE $AA97;
|
|
PROCEDURE PmBackColor(dstEntry: INTEGER);
|
|
INLINE $AA98;
|
|
PROCEDURE AnimateEntry(dstWindow: WindowPtr;dstEntry: INTEGER;srcRGB: RGBColor);
|
|
INLINE $AA99;
|
|
PROCEDURE AnimatePalette(dstWindow: WindowPtr;srcCTab: CTabHandle;srcIndex: INTEGER;
|
|
dstEntry: INTEGER;dstLength: INTEGER);
|
|
INLINE $AA9A;
|
|
PROCEDURE GetEntryColor(srcPalette: PaletteHandle;srcEntry: INTEGER;VAR dstRGB: RGBColor);
|
|
INLINE $AA9B;
|
|
PROCEDURE SetEntryColor(dstPalette: PaletteHandle;dstEntry: INTEGER;srcRGB: RGBColor);
|
|
INLINE $AA9C;
|
|
PROCEDURE GetEntryUsage(srcPalette: PaletteHandle;srcEntry: INTEGER;VAR dstUsage: INTEGER;
|
|
VAR dstTolerance: INTEGER);
|
|
INLINE $AA9D;
|
|
PROCEDURE SetEntryUsage(dstPalette: PaletteHandle;dstEntry: INTEGER;srcUsage: INTEGER;
|
|
srcTolerance: INTEGER);
|
|
INLINE $AA9E;
|
|
PROCEDURE CTab2Palette(srcCTab: CTabHandle;dstPalette: PaletteHandle;srcUsage: INTEGER;
|
|
srcTolerance: INTEGER);
|
|
INLINE $AA9F;
|
|
PROCEDURE Palette2CTab(srcPalette: PaletteHandle;dstCTab: CTabHandle);
|
|
INLINE $AAA0;
|
|
FUNCTION Entry2Index(entry: INTEGER): LONGINT;
|
|
INLINE $7000,$AAA2;
|
|
PROCEDURE RestoreDeviceClut(gd: GDHandle);
|
|
INLINE $7002,$AAA2;
|
|
PROCEDURE ResizePalette(p: PaletteHandle;size: INTEGER);
|
|
INLINE $7003,$AAA2;
|
|
PROCEDURE SaveFore(VAR c: ColorSpec);
|
|
INLINE $303C,$040D,$AAA2;
|
|
PROCEDURE SaveBack(VAR c: ColorSpec);
|
|
INLINE $303C,$040E,$AAA2;
|
|
PROCEDURE RestoreFore(c: ColorSpec);
|
|
INLINE $303C,$040F,$AAA2;
|
|
PROCEDURE RestoreBack(c: ColorSpec);
|
|
INLINE $303C,$0410,$AAA2;
|
|
FUNCTION SetDepth(gd: GDHandle;depth: INTEGER;whichFlags: INTEGER;flags: INTEGER): OSErr;
|
|
INLINE $303C,$0A13,$AAA2;
|
|
FUNCTION HasDepth(gd: GDHandle;depth: INTEGER;whichFlags: INTEGER;flags: INTEGER): INTEGER;
|
|
INLINE $303C,$0A14,$AAA2;
|
|
FUNCTION PMgrVersion: INTEGER;
|
|
INLINE $7015,$AAA2;
|
|
PROCEDURE SetPaletteUpdates(p: PaletteHandle;updates: INTEGER);
|
|
INLINE $303C,$0616,$AAA2;
|
|
FUNCTION GetPaletteUpdates(p: PaletteHandle): INTEGER;
|
|
INLINE $303C,$0417,$AAA2;
|
|
FUNCTION GetGray(device: GDHandle;backGround: RGBColor;VAR foreGround: RGBColor): BOOLEAN;
|
|
INLINE $303C,$0C19,$AAA2;
|
|
|
|
|
|
{$ENDC} { UsingPalettes }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|