home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso / 00202 / s / disk4 / iconwrks.gb_ / iconwrks.bin
Text File  |  1993-04-28  |  12KB  |  357 lines
  1. '-----------------------------------------------------------------------
  2. '               Copyright (C) 1991 Microsoft Corporation
  3. '
  4. ' You have a royalty-free right to use, modify, reproduce and distribute
  5. ' the Sample Application Files (and/or any modified version) in any way
  6. ' you find useful, provided that you agree that Microsoft has no warranty,
  7. ' obligations or liability for any Sample Application Files.
  8. '
  9. ' -----------------------------------------------------------------------
  10. DefInt A-Z
  11. '
  12. ' Type use by the API routine InvertRect()
  13. '
  14. Type RECT
  15.     Left As Integer
  16.     Top As Integer
  17.     Right As Integer
  18.     bottom As Integer
  19. End Type
  20. '
  21. ' Type use by IconWorks to keep track of the 6 Icons that be edited at once.
  22. '
  23. Type ICONRECORD
  24.     FileName As String
  25.     FullPath As String
  26.     Changed As Integer
  27. End Type
  28. '
  29. ' Window API Function Declarations
  30. '
  31. Declare Function BitBlt Lib "Gdi" (ByVal destHdc, ByVal X, ByVal Y, ByVal w, ByVal h, ByVal srcHdc, ByVal srcX, ByVal srcY, ByVal Rop As Long)
  32. Declare Function CreateCompatibleBitmap Lib "Gdi" (ByVal hdc, ByVal w, ByVal h)
  33. Declare Function CreateCompatibleDC Lib "Gdi" (ByVal hdc)
  34. Declare Function DeleteDC Lib "Gdi" (ByVal hdc)
  35. Declare Function DeleteObject Lib "Gdi" (ByVal hObject)
  36. Declare Function ExtFloodFill Lib "Gdi" (ByVal hdc, ByVal X, ByVal Y, ByVal crColor As Long, ByVal wFillType)
  37. Declare Function GetBitmapBits Lib "Gdi" (ByVal hBitmap, ByVal dwCount As Long, ByVal lpBits As Long) As Long
  38. Declare Function GetDeviceCaps Lib "Gdi" (ByVal hdc, ByVal nIndex)
  39. Declare Function GetMenu Lib "User" (ByVal hwnd)
  40. Declare Function GetNearestColor Lib "Gdi" (ByVal hdc, ByVal RGBColor As Long) As Long
  41. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal DEFAULT As Integer, ByVal FileName As String)
  42. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal DEFAULT As String, ByVal ReturnedString As String, ByVal MaxSize, ByVal FileName As String)
  43. Declare Function GetSubMenu Lib "User" (ByVal hwnd, ByVal Position)
  44. Declare Function GetSystemMenu Lib "User" (ByVal hwnd, ByVal bRevert)
  45. Declare Function GlobalLock Lib "Kernel" (ByVal mMem) As Long
  46. Declare Function GlobalUnlock Lib "Kernel" (ByVal mMem)
  47. Declare Function InvertRect Lib "User" (ByVal hdc, lpRect As RECT)
  48. Declare Function RemoveMenu Lib "User" (ByVal hMenu, ByVal nPosition, ByVal wFlags)
  49. Declare Function SelectObject Lib "Gdi" (ByVal hdc, ByVal hObject)
  50. Declare Function SetBitmapBits Lib "Gdi" (ByVal hBitmap, ByVal dwCount As Long, ByVal lpBits As Long) As Long
  51. Declare Function StretchBlt Lib "Gdi" (ByVal destHdc, ByVal X, ByVal Y, ByVal w, ByVal h, ByVal srcHdc, ByVal srcX, ByVal srcY, ByVal srcW, ByVal srcH, ByVal Rop As Long)
  52. Declare Function TrackPopupMenu Lib "User" (ByVal hMenu, ByVal r1, ByVal X, ByVal Y, ByVal r2, ByVal hwnd, ByVal r3 As Long)
  53. Declare Function WinHelp Lib "User" (ByVal hwnd, ByVal HelpFile$, ByVal wCommand, ByVal dwData As Long)
  54. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal NewString As String, ByVal FileName As String)
  55. '
  56. ' Window API Constant Declarations
  57. '
  58. Global Const SRCCOPY = &HCC0020
  59. Global Const SRCAND = &H8800C6
  60. Global Const SRCINVERT = &H660046
  61. Global Const BLACKNESS = &H42&
  62. Global Const FLOODFILLSURFACE = 1
  63. Global Const MF_BYPOSITION = &H400
  64. Global Const BITSPIXEL = 12
  65. Global Const HELP_CONTEXT = &H1
  66. Global Const HELP_QUIT = &H2
  67. Global Const HELP_HELPONHELP = &H4
  68. '
  69. ' INI file KeyNames
  70. '
  71. Global Const APP_NAME = "IconWorks"
  72. Global Const KEY_COLOR = "Colors Row"
  73. Global Const KEY_GRID = "Grid"
  74. Global Const KEY_LINE_GRID = "Line Grid"
  75. Global Const KEY_DOTTED_GRID = "Dotted Grid"
  76. Global Const KEY_STATUS_BAR = "Status Bar"
  77. Global Const KEY_TOOL_PALETTE = "Tool Palette"
  78. Global Const KEY_COLOR_PALETTE = "Color Palette"
  79. Global Const KEY_ZOOM_SCROLLBAR = "Zoom Scrollbar"
  80. Global Const KEY_FOCUS = "Editor Focus"
  81. Global Const KEY_BORDER = "Icon Border"
  82. Global Const KEY_POPUP = "Popup Menu"
  83. Global Const KEY_SHOW_ICONS = "Show Icons"
  84. Global Const KEY_DEFAULT = "Default Colors"
  85. Global Const KEY_SOLID = "Solid Colors"
  86. Global Const KEY_INI = "INI File Colors"
  87. Global Const INI_FILENAME = "IconWrks.INI"
  88. '
  89. ' Default Color palette values
  90. '
  91. Global Const DEFAULT_COLORS_ROW1 = "16777215 14737632 12632319 12640511 14745599 12648384 16777152 16761024 16761087 00000192 00016576 00049344 00049152 12632064 12582912 12583104"
  92. Global Const DEFAULT_COLORS_ROW2 = "12632256 04210752 08421631 08438015 08454143 08454016 16777088 16744576 16744703 00000128 00016512 00032896 00032768 08421376 08388608 08388736"
  93. Global Const DEFAULT_COLORS_ROW3 = "08421504 00000000 00000255 00033023 00065535 00065280 16776960 16711680 16711935 00000064 04210816 00016448 00016384 04210688 04194304 04194368"
  94. '
  95. ' Default value for ICONRECORD Filename field
  96. '
  97. Global Const UNTITLED = "[Untitled]"
  98. '
  99. ' Editor's File Menu ID's
  100. '
  101. Global Const MID_NEW = 0
  102. Global Const MID_OPEN = 1
  103. Global Const MID_SAVE = 2
  104. Global Const MID_SAVE_AS = 3
  105. Global Const MID_EXIT = 5
  106. '
  107. ' Editor's Edit Menu ID's
  108. '
  109. Global Const MID_UNDO = 0
  110. Global Const MID_CUT = 2
  111. Global Const MID_COPY = 3
  112. Global Const MID_PASTE = 4
  113. Global Const MID_PASTE_OPAQUE = 5
  114. Global Const MID_DELETE = 6
  115. Global Const MID_SELECT_ALL = 7
  116. Global Const MID_FLIP_HORIZONTAL = 9
  117. Global Const MID_FLIP_VERTICAL = 10
  118. Global Const MID_ROTATE_RIGHT = 12
  119. Global Const MID_ROTATE_LEFT = 13
  120. Global Const MID_INVERT = 15
  121. '
  122. ' Editor's View Menu ID's
  123. '
  124. Global Const MID_STATUS_BAR = 0
  125. Global Const MID_TOOL_PALETTE = 1
  126. Global Const MID_COLOR_PALETTE = 2
  127. Global Const MID_ZOOM_SCROLLBAR = 3
  128. Global Const MID_SHOW_ALL = 4
  129. Global Const MID_GRID = 6
  130. Global Const MID_LINE_GRID = 7
  131. Global Const MID_DOTTED_GRID = 8
  132. Global Const MID_ZOOM_IN = 10
  133. Global Const MID_ZOOM_OUT = 11
  134. Global Const MID_FOCUS = 13
  135. Global Const MID_BORDER = 14
  136. Global Const MID_POPUP_MENU = 15
  137.  
  138. ' Editor's Color Menu ID's
  139. '
  140. Global Const MID_COLORS = 0
  141. Global Const MID_DEFAULT_COLORS = 1
  142. Global Const MID_SOLID_COLORS = 2
  143. Global Const MID_INI_COLORS = 3
  144. Global Const MID_SAVE_COLORS = 5
  145. Global Const MID_LEFT_RIGHT = 7
  146. Global Const MID_SCREEN_INVERSE = 8
  147. '
  148. ' Viewer's Options Menu ID's
  149. '
  150. Global Const MID_EDITOR = 0
  151. Global Const MID_SHOW_ALL_ICONS = 1
  152. Global Const MID_SHOW_ON_DIR_CHANGE = 3
  153. '
  154. ' Help Menu ID's
  155. '
  156. Global Const MID_INDEX = 1
  157. Global Const MID_KEYBOARD = 2
  158. Global Const MID_COMMANDS = 3
  159. Global Const MID_USING_HELP = 4
  160. Global Const MID_ABOUT = 6
  161. '
  162. ' Index values for Editor.Opt_ColorMouse()
  163. '
  164. Global Const MOUSE_COLORS = 0
  165. Global Const SCREEN_COLORS = 1
  166. '
  167. ' Adjustment Values for Editor's Sub Adjust_X_And_Y()
  168. '
  169. Global Const TO_CENTER = 0
  170. Global Const TO_EDGE = 1
  171. '
  172. ' Editor's ToolPalette ID's
  173. '
  174. Global Const TID_SELECT = 0
  175. Global Const TID_PAINT = 1
  176. Global Const TID_FILL = 2
  177. Global Const TID_LINE = 3
  178. Global Const TID_SQUARE = 4
  179. Global Const TID_FILLED_SQUARE = 5
  180. Global Const TID_CIRCLE = 6
  181. Global Const TID_FILLED_CIRCLE = 7
  182. '
  183. ' Viewer and SaveFileDlg File Control values
  184. '
  185. Global Const FILE_NOT_FOUND = 53
  186. Global Const FILENAME_CHANGED = 0
  187. Global Const FILE_CHANGED = 1
  188. Global Const DIR_CHANGED = 2
  189. '
  190. ' Viewer's viewing window Cell size - 32x32 pixels + 1
  191. '
  192. Global Const ICON_CELL = 34&
  193. '
  194. ' Index's into the ColorPalettes' Scrl_RGB()
  195. '
  196. Global Const RED_ELEMENT = 0
  197. Global Const GREEN_ELEMENT = 1
  198. Global Const BLUE_ELEMENT = 2
  199. '
  200. ' Miscellaneous
  201. '
  202. Global Const EGA_HEIGHT = 7000
  203. Global Const HIGHLIGHT = 10
  204. Global Const HID_DEFINING_COLORS = 1000
  205. Global Const ICONWORKS_EDITOR = 0
  206. Global Const ICONWORKS_VIEWER = 1
  207. '
  208. ' Editor's Information Array and Color palette array
  209. '
  210. Global IconInfo(5)  As ICONRECORD
  211. Global Colors(47)   As Long
  212. Global MouseColors(3) As Long
  213. '
  214. ' Editor Global Variables
  215. '
  216. Global ToolInProcess    As Integer
  217. Global MovingSelection  As Integer
  218. Global Selecting        As Integer
  219. Global Moveable         As Integer
  220. Global Opaque           As Integer
  221. Global CurrentTool      As Integer
  222. Global CurrentIcon      As Integer
  223. Global BrushSize        As Integer
  224. Global PixelSize        As Integer
  225. Global X1Region         As Integer
  226. Global Y1Region         As Integer
  227. Global X2Region         As Integer
  228. Global Y2Region         As Integer
  229. Global XMoveSelection   As Integer
  230. Global YMoveSelection   As Integer
  231. Global X1SelectFrom     As Integer
  232. Global Y1SelectFrom     As Integer
  233. Global X2SelectFrom     As Integer
  234. Global Y2SelectFrom     As Integer
  235. Global LastX1           As Integer
  236. Global LastY1           As Integer
  237. Global LastX2           As Integer
  238. Global LastY2           As Integer
  239. Global LastXpix         As Integer
  240. Global LastYpix         As Integer
  241. Global DoubleClicked    As Integer
  242. Global ColorIndex       As Integer
  243. Global MonoHdc          As Integer
  244. Global MonoHbm          As Integer
  245. Global ImageSize        As Integer
  246. Global XCenter          As Single
  247. Global YCenter          As Single
  248. Global Aspect           As Single
  249. Global Radius           As Single
  250. Global ColorString      As String
  251. '
  252. ' Viewer Global Variables
  253. '
  254. Global MaxIcons         As Integer
  255. Global IconRows         As Integer
  256. Global IconColumns      As Integer
  257. Global MinViewerWidth   As Integer
  258. Global MinViewerHeight  As Integer
  259. Global ShowingAllIcons  As Integer
  260. '
  261. ' Miscelaneous
  262. '
  263. Global MainForm           As Integer
  264. Global EditorLoaded       As Integer
  265. Global ViewerLoaded       As Integer
  266. Global ColorPaletteLoaded As Integer
  267. Global EditorInitialized  As Integer
  268. Global VLastChanged       As Integer
  269. Global SLastChanged       As Integer
  270. Global NumColorsIs256     As Integer
  271. Global Text               As String
  272. Global CRLF               As String * 2
  273. Global A_TAB              As String * 1
  274.  
  275.  
  276. ' CONSTANTS TAKEN FROM VB'S CONTANT.TXT FILE
  277. '
  278.  
  279. ' WindowState
  280. Global Const MINIMIZED = 1
  281.  
  282. ' Clipboard formats
  283. Global Const CF_BITMAP = 2
  284.  
  285. ' DragOver
  286. Global Const OVER = 2
  287.  
  288. ' Show parameters
  289. Global Const MODAL = 1
  290. Global Const MODELESS = 0
  291.  
  292. ' Colors
  293. Global Const BLACK = &H0&
  294. Global Const DARKBLUE = &H800000
  295. Global Const DARKGREEN = &H8000&
  296. Global Const DARKCYAN = &H808000
  297. Global Const DARKRED = &H80&
  298. Global Const DARKPURPLE = &H800080
  299. Global Const DARKYELLOW = &H8080&
  300. Global Const DARKGRAY = &H808080
  301. Global Const GRAY = &HC0C0C0
  302. Global Const BLUE = &HFF0000
  303. Global Const GREEN = &HFF00&
  304. Global Const CYAN = &HFFFF00
  305. Global Const RED = &HFF&
  306. Global Const PURPLE = &HFF00FF
  307. Global Const YELLOW = &HFFFF&
  308. Global Const WHITE = &HFFFFFF
  309.  
  310. ' System Colors
  311. Global Const WINDOW_BACKGROUND = &H80000005
  312. Global Const WINDOW_TEXT = &H80000008
  313.  
  314. ' MousePointer
  315. Global Const DEFAULT = 0
  316. Global Const CROSSHAIR = 2
  317. Global Const SIZE = 5
  318. Global Const UP_ARROW = 10
  319. Global Const HOURGLASS = 11
  320.  
  321. ' DrawMode Values
  322. Global Const INVERSE = 6
  323. Global Const COPY_PEN = 13
  324.  
  325. ' DrawStyle property Values
  326. Global Const SOLID = 0
  327. Global Const DOT = 2
  328.  
  329. ' FillStyle Values
  330. Global Const TRANSPARENT = 1
  331.  
  332. ' Key Codes
  333. Global Const KEY_BACK = &H8
  334. Global Const KEY_SHIFT = &H10
  335. Global Const KEY_CONTROL = &H11
  336. Global Const KEY_INSERT = &H2D
  337. Global Const KEY_DELETE = &H2E
  338. Global Const KEY_F1 = &H70
  339.  
  340. ' Shift parameter masks
  341. Global Const SHIFT_MASK = 1
  342. Global Const CTRL_MASK = 2
  343. Global Const ALT_MASK = 4
  344.  
  345. ' Button parameter masks
  346. Global Const LEFT_BUTTON = 1
  347. Global Const RIGHT_BUTTON = 2
  348.  
  349. ' ScaleModes
  350. Global Const TWIPS = 1
  351. Global Const PIXELS = 3
  352.  
  353. ' MsgBox return values
  354. Global Const MBYES = 6
  355. Global Const MBNO = 7
  356.  
  357.