paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 01:50:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ amunits, morphunits: added PUBLICSCREEN_F define, which was missing (verified against NDK3.9 and MorphOS SDK)

Browse Source 
git-svn-id: trunk@28544 -
This commit is contained in:
Károly Balogh 2014-08-30 21:40:22 +00:00
parent d407d8ec7e
commit 581e4ac28d
2 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/amunits/src/coreunits/intuition.pas
View File

@ -1923,21 +1923,22 @@ Const
{ The SCREENTYPE bits are reserved for describing various Screen types
* available under Intuition.
}
SCREENTYPE_f = $000F; { all the screens types available }
SCREENTYPE_F = $000F; { all the screens types available }
{ --- the definitions for the Screen Type ------------------------------- }
WBENCHSCREEN_f = $0001; { Ta Da! The Workbench }
CUSTOMSCREEN_f = $000F; { for that special look }
WBENCHSCREEN_F = $0001; { Ta Da! The Workbench }
PUBLICSCREEN_F = $0002; { Public shared (custom) screen }
CUSTOMSCREEN_F = $000F; { for that special look }
SHOWTITLE_f = $0010; { this gets set by a call to ShowTitle() }
SHOWTITLE_F = $0010; { this gets set by a call to ShowTitle() }
BEEPING_f = $0020; { set when Screen is beeping }
BEEPING_F = $0020; { set when Screen is beeping }
CUSTOMBITMAP_f = $0040; { if you are supplying your own BitMap }
CUSTOMBITMAP_F = $0040; { if you are supplying your own BitMap }
SCREENBEHIND_f = $0080; { if you want your screen to open behind
SCREENBEHIND_F = $0080; { if you want your screen to open behind
* already open screens
}
SCREENQUIET_f = $0100; { if you do not want Intuition to render
SCREENQUIET_F = $0100; { if you do not want Intuition to render
* into your screen (gadgets, title) }
SCREENHIRES = $0200; { do no use lowres gadgets (private) }

17
packages/morphunits/src/intuition.pas
View File

@ -1893,21 +1893,22 @@ Const
{ The SCREENTYPE bits are reserved for describing various Screen types
* available under Intuition.
}
SCREENTYPE_f = $000F; { all the screens types available }
SCREENTYPE_F = $000F; { all the screens types available }
{ --- the definitions for the Screen Type ------------------------------- }
WBENCHSCREEN_f = $0001; { Ta Da! The Workbench }
CUSTOMSCREEN_f = $000F; { for that special look }
WBENCHSCREEN_F = $0001; { Ta Da! The Workbench }
PUBLICSCREEN_F = $0002; { Public shared (custom) screen }
CUSTOMSCREEN_F = $000F; { for that special look }
SHOWTITLE_f = $0010; { this gets set by a call to ShowTitle() }
SHOWTITLE_F = $0010; { this gets set by a call to ShowTitle() }
BEEPING_f = $0020; { set when Screen is beeping }
BEEPING_F = $0020; { set when Screen is beeping }
CUSTOMBITMAP_f = $0040; { if you are supplying your own BitMap }
CUSTOMBITMAP_F = $0040; { if you are supplying your own BitMap }
SCREENBEHIND_f = $0080; { if you want your screen to open behind
SCREENBEHIND_F = $0080; { if you want your screen to open behind
* already open screens
}
SCREENQUIET_f = $0100; { if you do not want Intuition to render
SCREENQUIET_F = $0100; { if you do not want Intuition to render
* into your screen (gadgets, title) }
SCREENHIRES = $0200; { do no use lowres gadgets (private) }