226 lines
4.8 KiB
ObjectPascal
226 lines
4.8 KiB
ObjectPascal
(****************************************************************
|
|
*
|
|
* Interface for HyperStudio
|
|
*
|
|
* Other USES Files Needed: - None -
|
|
*
|
|
* February 1993
|
|
* Mike Westerfield
|
|
*
|
|
* Thanks to Ken Kashmarek, who supplied the original files from
|
|
* wich I shamelessly swiped the names used here. (Of course,
|
|
* that made it easier for him to convert his software!)
|
|
*
|
|
* Copyright 1993
|
|
* Byte Works, Inc.
|
|
*
|
|
****************************************************************)
|
|
|
|
{$keep 'HyperStudio'}
|
|
|
|
unit HyperStudio;
|
|
|
|
interface
|
|
|
|
uses Common;
|
|
|
|
const
|
|
{Callback numbers}
|
|
cMoveToFirst = 1;
|
|
cMoveToLast = 2;
|
|
cMovePrev = 3;
|
|
cMoveNext = 4;
|
|
cMoveToID = 5;
|
|
cRedrawCard = 6;
|
|
cGetStackName = 7;
|
|
cFindText = 8;
|
|
cPokeyFlag = 9;
|
|
cDoMenu = 10;
|
|
cGetHSMode = 11;
|
|
cGetHSVersion = 12;
|
|
cGetStackPathName = 13;
|
|
cGetNumCards = 14;
|
|
cGetNumButtons = 15;
|
|
cGetNumFields = 16;
|
|
cGetNumGraphics = 17;
|
|
cPoint2StackHead = 18;
|
|
cPoint2FirstCard = 19;
|
|
cPoint2CurrCard = 20;
|
|
cPoint2NextCard = 21;
|
|
cPoint2CardItems = 22;
|
|
cPoint2NextCdItem = 23;
|
|
cPoint2StackItem = 24;
|
|
cGetCallerAddr = 25;
|
|
cHideStackItem = 26;
|
|
cShowStackItem = 27;
|
|
cLockItem = 28;
|
|
cUnLockItem = 29;
|
|
cDeleteStackItem = 30;
|
|
cGetItemRect = 31;
|
|
cSetItemRect = 32;
|
|
cGetButtonIcon = 33;
|
|
cSetButtonIcon = 34;
|
|
cGetItemStats = 35;
|
|
cLaunchApplication = 36;
|
|
cGetItemLoc = 37;
|
|
cRedrawItem = 38;
|
|
cMouseClick = 39;
|
|
cGetHSCursorAdr = 40;
|
|
cPassText = 41;
|
|
cGetClickLoc = 42;
|
|
cExecuteButton = 43;
|
|
cScrollField = 44;
|
|
cSetHSFont = 45;
|
|
cSetBrushNum = 46;
|
|
cSetLineWidth = 47;
|
|
cGetOffScreen = 48;
|
|
cGetCurrentScore = 49;
|
|
cSetNextTransition = 50;
|
|
cIsMenuThere = 51;
|
|
cGetUndoBuffer = 52;
|
|
cGetCardPalette = 53;
|
|
cPlayDiskSound = 54;
|
|
cPlayResSound = 55;
|
|
cGetSelectedInfo = 56;
|
|
cGetPatterns = 57;
|
|
cGetFieldText = 58;
|
|
cSetFieldText = 59;
|
|
cGetHSFont = 60;
|
|
cLoadPaintFile = 61;
|
|
cSwapCardPos = 62;
|
|
cSortCards = 63;
|
|
cSetDirtyFlag = 64;
|
|
cAddScript2Button = 65;
|
|
cCreatePaletteWindow = 66;
|
|
cCallNBA = 67;
|
|
cCallHS_XCMD = 68;
|
|
cGetResRefNums = 69;
|
|
cSetBkgdDirty = 70;
|
|
cPlaySound = 71;
|
|
cGetAdvancedUser = 72;
|
|
cVideoOn = 73;
|
|
cVideoOff = 74;
|
|
cMakeTransMask = 75;
|
|
cInitTrans = 76;
|
|
cIncTrans = 77;
|
|
cHorizStrip = 78;
|
|
cVertStrip = 79;
|
|
cBrushDialog = 80;
|
|
cLineDialog = 81;
|
|
cPatternDialog = 82;
|
|
cColorDialog = 83;
|
|
cStartDrawing = 84;
|
|
cDrawToScreen = 85;
|
|
cDrawToOffScreen = 86;
|
|
cEndDrawing = 87;
|
|
cSetDrawColor = 88;
|
|
cGetNewBtnName = 89;
|
|
cGetSndStatus = 90;
|
|
cSetMarkedCard = 91;
|
|
cGetNewExtrasMenu = 92;
|
|
cGetOtherCursors = 93;
|
|
cDoButtonAnimation = 94;
|
|
cPlayAnimation = 95;
|
|
cFlush2Undo = 96;
|
|
cLoadStackField = 97;
|
|
cSaveStackField = 98;
|
|
cPrintStackField = 99;
|
|
cLoadText = 100;
|
|
cSaveText = 101;
|
|
cPrintText = 102;
|
|
cGetPaintVars = 103;
|
|
cGetItemHandle = 104;
|
|
cBeginXSound = 105;
|
|
cEndXSound = 106;
|
|
cGetColorCtlDefProc = 107;
|
|
|
|
mAboutHyperStudio = 0;
|
|
mPreferences = 1;
|
|
mNewStack = 2;
|
|
mOpenStack = 3;
|
|
mSaveStack = 4;
|
|
mSaveStackAs = 5;
|
|
mLoadBackground = 6;
|
|
mSaveBackground = 7;
|
|
mAddClipArt = 8;
|
|
mPageSetup = 9;
|
|
mPrint = 10;
|
|
mQuit = 11;
|
|
mUndo = 12;
|
|
mCut = 13;
|
|
mCopy = 14;
|
|
mPaste = 15;
|
|
mClear = 16;
|
|
mNewCard = 17;
|
|
mDeleteCard = 18;
|
|
mCutCard = 19;
|
|
mCopyCard = 20;
|
|
mFlipHorizontal = 21;
|
|
mFlipVertical = 22;
|
|
mEraseBackground = 23;
|
|
mBack = 24;
|
|
mHome = 25;
|
|
mFirstCard = 26;
|
|
mPreviousCard = 27;
|
|
mNextCard = 28;
|
|
mLastCard = 29;
|
|
mMoveToCard = 30;
|
|
mFindText = 31;
|
|
mSetCurrentTool = 32;
|
|
mItemInfo = 33;
|
|
mCardInfo = 34;
|
|
mBackgroundInfo = 35;
|
|
mStackInfo = 36;
|
|
mBringCloser = 37;
|
|
mSendFarther = 38;
|
|
mAddButton = 39;
|
|
mAddGraphic = 40;
|
|
mAddField = 41;
|
|
mAddVideo = 42;
|
|
mSetCurrentColor = 43;
|
|
mLineSizedialog = 44;
|
|
mBrushShapedialog = 45;
|
|
mToggleDrawFilled = 46;
|
|
mToggleDrawMultiple = 47;
|
|
mToggleDrawCentered = 48;
|
|
mTextStyledialog = 49;
|
|
mTextColordialog = 50;
|
|
mBackgroundColordialog = 51;
|
|
mReplaceColorsdialog = 52;
|
|
mEditPattern = 53;
|
|
mStandardPaletteRestore = 54;
|
|
mHideItems = 55;
|
|
mToggleMenubarVisibility = 56;
|
|
|
|
type
|
|
wString = record {word string}
|
|
length: integer;
|
|
str: packed array[1..256] of char;
|
|
end;
|
|
wStringPtr = ^wString;
|
|
|
|
HSParams = record {HyperStudio Parameters}
|
|
ButtonID: integer;
|
|
CardID: integer;
|
|
ScriptHand: handle;
|
|
ScriptLength: longint;
|
|
TextPassedPtr: wStringPtr;
|
|
CallBack: ptr;
|
|
Version: integer;
|
|
MemoryID: integer;
|
|
Command: integer;
|
|
SubCommand: integer;
|
|
CP1: longint;
|
|
CP2: longint;
|
|
CP3: longint;
|
|
CP4: longint;
|
|
CP5: longint;
|
|
end;
|
|
HSParamPtr = ^HSParams;
|
|
|
|
procedure __NBACallBack (call: integer; parm: HSParamPtr); extern;
|
|
|
|
implementation
|
|
|
|
end.
|