mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-04 04:31:04 +00:00
1 line
6.7 KiB
Plaintext
1 line
6.7 KiB
Plaintext
|
;------------------------------------------
;
; Equates from procedure P_ATTRData
;
;------------------------------------------
P_MenuColor equ 9
P_MenuStyle equ 8
P_MenuSize equ 7
P_MenuFont equ 6
P_MenuFormat equ 5
P_MenuArrange equ $A
P_MenuOptions equ 4
P_MenuEdit equ 3
P_MenuFile equ 2
P_MenuApple equ 1
P_FrontBit equ 1<<0
P_BackBit equ 1<<1
P_FlipHBit equ 1<<2
P_FlipVBit equ 1<<3
P_RotLBit equ 1<<4
P_RotRBit equ 1<<5
P_DefaultArrange equ %000000
P_AllArrange equ %111111
P_ObjArrange equ %111111
P_ViewPageBit equ 1<<0
P_HidePaletteBit equ 1<<1
P_HideRulerBit equ 1<<2
P_HideGuideBit equ 1<<3
P_SetGuideBit equ 1<<4
P_LockGuideBit equ 1<<5
P_MagGuideBit equ 1<<6
P_GoToPageBit equ 1<<7
P_SetNumBit equ 1<<8
P_UseTempBit equ 1<<9
P_DblPageBit equ 1<<10
P_AllOptions equ %0000011111111111
P_DefaultOpt equ %0000011111111111
P_ViewPageItem equ $401
P_HidePaletteItem equ $402
P_HideRulerItem equ $403
P_HideGuideItem equ $404
P_SetGuideItem equ $405
P_LockGuideItem equ $406
P_MagGuideItem equ $407
P_GotoPageItem equ $408
P_SetNumItem equ $409
P_UseTempItem equ $40A
P_DblPageItem equ $40B
P_AllText equ %11111111
P_DefaultText equ %11111111
P_LeftBit equ 1<<0
P_CenterBit equ 1<<1
P_RightBit equ 1<<2
P_FullBit equ 1<<3
P_SingleSpBit equ 1<<4
P_1_5SpBit equ 1<<5
P_DoubleSpBit equ 1<<6
P_SetSpBit equ 1<<7
P_LeftItem equ $501
P_CenterItem equ $502
P_RightItem equ $503
P_FullItem equ $504
P_SingleItem equ $505
P_DoubleItem equ $506
P_TripleItem equ $507
P_SetSItem equ $508
P_SelectAllBit equ 1<<(5)
P_DuplicateBit equ 1<<(5+1)
P_InsertBit equ 1<<(5+2)
P_DeleteBit equ 1<<(5+3)
P_DefaultEdit equ %0000000110101000
P_ObjEdit equ %0000000001010110
P_TextEdit equ %0000000000010110
P_EditAll equ %0000000111111111
;------------------------------------------
;
; Equates from procedure P_Data
;
;------------------------------------------
P_WinTop equ 27
P_WinLeft equ 4
P_WinHeight equ 171
P_WinWidth equ 632
P_ScrollHeight equ 12
P_ScrollWidth equ 26
P_HScrollL equ 5
P_VScrollT equ -1
P_MinHeight equ 80
P_MinWidth equ 280
CheckMark equ 18
LIGHTGRAY equ 3
DARKGRAY equ 12
LIGHTGREY equ 3
DARKGREY equ 12
P_VERSNUM equ $770A ; $77='w'=id, $0A = file version
P_ID equ $77
P_VNum equ $0A
P_DecimalTab equ -1 ; ick!! This is for sideways compatibility w/ WP
P_LeftTab equ 0
P_RightTab equ 1
P_IndentTab equ 2
P_MaxTabCount equ 10
P_MinTabDist equ 10
P_MaxPages equ 99
RulerGuide equ 0
ColGuide equ 1
MargGuide equ 2
P_NoUndo equ 0
P_MoveUndo equ 1
P_StretchUndo equ 2
P_CropUndo equ 3
P_FillUndo equ 4
P_PenSizeUndo equ 5
P_FontIDUndo equ 6
P_FontUndo equ 7
P_StyleUndo equ 8
P_SizeUndo equ 9
P_ColorUndo equ 10
P_ClearObjUndo equ 11
P_CutObjUndo equ 12
P_GuideUndo equ 13
P_ClearTextUndo equ 14
P_CutTextUndo equ 15
P_TypeUndo equ 16
; From P_RulerData ---------------------
P_MIN_VPIX equ 2
P_MIN_HPIX equ 4
P_HRulWdth equ 16
P_HRulLength equ 640
P_HRulTop equ 0
P_HRulLeft equ 79
P_HRulOffset equ 79
P_VRulWdth equ 39
P_VRulLength equ 200
P_VRulLeft equ 39
P_VRulTop equ P_HRulTop+P_HRulWdth
P_TabWTop equ P_HRulTop
P_TabWBottom equ P_VRulTop
P_TabWLeft equ P_VRulLeft
P_TabWRight equ P_HRulLeft
V_NUM EQU 42
H_NUM EQU 7
MIN_V_NPIX EQU 8
MIN_H_NPIX EQU 20
; From PICON.s ----------
P_MaxVisPages equ 5
P_ControlWidth equ 18
P_PageWidth equ 26
P_SpaceWidth equ 5
;------------------------------------------
;
; Equates from procedure P_ObjData
;
;------------------------------------------
P_ARROW EQU 0
P_ALPHA EQU 1
P_PAGETOOL EQU 2
P_DATETOOL EQU 3
P_STRLINE EQU 4
P_LINE EQU 5
P_RECTANGLE EQU 6
P_ROUNDRECT EQU 7
P_CIRCLE EQU 8
P_PICTURE EQU 9
P_MOVEMENT EQU 10 ; when you're dragging objects about...
P_Next equ 0 ; This must be the first field
P_Prev equ 4 ; Previous object
P_Type equ 8 ; The object type
P_Selected equ 10 ; Object is selected
P_Deleted equ 12 ; True if object has been deleted
P_UndoData equ 14 ; Used by undo
P_ObjRect equ 16 ; Object rectangle
P_RTop equ 16
P_RLeft equ 18
P_RBottom equ 20
P_RRight equ 22
P_T
|