home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 October / Chip_1997-10_cd.bin / zkuste / antek / disk2 / config.in_ / config.in
Text File  |  1997-08-05  |  21KB  |  604 lines
  1. ; AMOEBA initialization file
  2. ;
  3. ; predefined functions:
  4. ; CallSection
  5. ; DefineProcedure
  6.  
  7. [**init]
  8. CallSection("**application")
  9. CallSection("**menu")
  10. CallSection("**keyboard")
  11. CallSection("**mouse")
  12. CallSection("**command prompt")
  13. CallSection("**bars")
  14. CallSection("**picture")
  15.  
  16. ;---------------------------------------------------------------
  17. ; ADK APPLICATION configuration
  18. ;---------------------------------------------------------------
  19. [**application]
  20. ; define procedures needed for application loading
  21. DefineProcedure("ApplicationDirs", "S", "APPLOAD_apps_dirs", "")
  22. DefineProcedure("LoadApplication", "S", "APPLOAD_load_apps", "")
  23.  
  24. ;---------------------------------------------------------------
  25. ; MENU configuration
  26. ;---------------------------------------------------------------
  27. [**menu]
  28. ; define procedures needed for menu creation
  29. DefineProcedure("InitMenu", "", "MENU_MenuInit", "")
  30. DefineProcedure("CreateMenu", "S", "MENU_CreateMenu", "")
  31. DefineProcedure("CreatePopupMenu", "S", "MENU_CreatePopupMenu", "")
  32. DefineProcedure("AddMenuItem", "SS", "MENU_AddMenuItem", "")
  33. DefineProcedure("AddMenuItemEx", "SSI", "MENU_AddMenuItemEx", "")
  34. DefineProcedure("AddMenuBreak", "", "MENU_AddMenuBreak", "")
  35. DefineProcedure("AddMenuBreakEx", "I", "MENU_AddMenuBreakEx", "")
  36. DefineProcedure("AddMenu", "SS", "MENU_AddMenu", "")
  37. DefineProcedure("EndMenu", "", "MENU_EndMenu", "")
  38. DefineProcedure("MainMenu", "S", "MENU_MainMenu", "")
  39.  
  40. ; initialize menu data (free old menus)
  41. InitMenu()
  42.  
  43. ; create main (application) menu
  44. CallSection("*menu-main")
  45. CallSection("*menu-popup")
  46.  
  47. ; commands not listed in menu: HEAPMIN, HISTORY, INSERT, LAYER, POPUP, SELECT
  48.  
  49. [*menu-main]
  50. CallSection("*file")
  51. CallSection("*edit")
  52. CallSection("*filter")
  53. CallSection("*draw")
  54. CallSection("*view")
  55. CallSection("*tools")
  56. CallSection("*configuration")
  57. CallSection("*help")
  58.  
  59. CreateMenu("**menu")
  60. AddMenu("*file", "&Soubor")
  61. AddMenu("*edit", "&Editace")
  62. AddMenu("*filter", "&Filtry")
  63. AddMenu("*draw", "&Kreslenφ")
  64. AddMenu("*tools", "&Nßstroje")
  65. AddMenu("*configuration", "Nas&tavenφ")
  66. AddMenu("*view", "&Pohled")
  67. AddMenu("*help", "&Nßpov∞da")
  68. EndMenu()
  69. MainMenu("**menu")
  70.  
  71. [*menu-popup]
  72. ; create popup menu
  73. CreatePopupMenu("popup1")
  74. AddMenuItem("Koncov² bod", "'_endp\r")
  75. AddMenuItem("Prost°ednφ bod", "'_midp\r")
  76. AddMenuItem("St°ed", "'_cenp\r")
  77. AddMenuItem("Bod vlo₧enφ", "'_insp\r")
  78. AddMenuBreak()
  79. AddMenuItem("Pr∙seΦφk", "'_intp\r")
  80. AddMenuItem("Nejbli₧Üφ", "'_neap\r")
  81. AddMenuItem("Kolm²", "'_perp\r")
  82. AddMenuItem("TeΦna", "'_tanp\r")
  83. AddMenuBreak()
  84. AddMenuItem(".X", "'_.x\r")
  85. AddMenuItem(".Y", "'_.y\r")
  86. AddMenuItem("Prodlou₧enφ", "'_contin\r")
  87. AddMenuBreak()
  88. AddMenuItem("Zarovnej", "'_align\r")
  89. EndMenu()
  90.  
  91. [*file]
  92. CreatePopupMenu("*file-advanced")
  93. AddMenuItem("NaΦφst blok...", "\z_rblock\r")
  94. AddMenuItem("Ulo₧it blok...", "\z_wblock\r")
  95. AddMenuItem("Ulo₧it vÜechny bloky", "\z_wblocks\r")
  96. AddMenuItem("Ulo₧it jako bitmapu/metafile", "\z_foto\r")
  97. AddMenuBreak()
  98. AddMenuItem("VyΦistit databßzi", "\z_purge\r")
  99. EndMenu()
  100.  
  101. CreatePopupMenu("*file")
  102. AddMenuItemEx("Nov²", "\z_new\r", 1)
  103. AddMenuItemEx("Otev°φt...", "\z_open\r", 1)
  104. AddMenuItemEx("Ulo₧it", "\z_save\r", 1)
  105. AddMenuItemEx("Ulo₧it jako...", "\z_saveas\r", 1)
  106. AddMenuItemEx("Aktualizovat", "\z_update\r", 2)
  107. AddMenuItemEx("Ulo₧it kopii jako....", "\z_saveas\r", 2)
  108. AddMenuBreak()
  109. AddMenu("*file-advanced", "DalÜφ volby...")
  110. AddMenuBreak()
  111. AddMenuItem("Nastavenφ tisku...", "\z_printsetup\r")
  112. AddMenuItem("Tisk", "\z_print\r")
  113. AddMenuBreakEx(1)
  114. AddMenuItemEx("MRU", "", 1)    ; this is special menu entry for Most Recently Used Files
  115. AddMenuBreak()
  116. AddMenuItemEx("Konec", "\z_quit\r", 1)
  117. AddMenuItemEx("Konec && Nßvrat do dokumentu", "\z_quit\r", 2)
  118. EndMenu()
  119.  
  120. [*edit]
  121. CreatePopupMenu("*edit")
  122. AddMenuItem("Krok zp∞t", "\z_u\r")
  123. AddMenuItem("Zp∞t", "\z_undo\r")
  124. AddMenuItem("Opakovat krok", "\z_r\r")
  125. AddMenuBreak()
  126. AddMenuItem("Editovat", "\z_edit\r")
  127. AddMenuItem("Editovat text", "\z_tedit\r")
  128. AddMenuItem("Editovat atribut", "\z_attredit\r")
  129. AddMenuItem("Editovat vlastnosti", "\z_propsd\r")
  130. AddMenuItem("Editovat atributy insertu", "\z_insattrd\r")
  131. AddMenuBreak()
  132. AddMenuItem("Rozbalit","\z_explode\r")
  133. AddMenuBreak()
  134. AddMenuItem("Kopφruj", "\z_copy\r")
  135. AddMenuItem("Pole", "\z_array\r")
  136. AddMenuItem("Posun", "\z_move\r")
  137. AddMenuItem("OtoΦ", "\z_rotate\r")
  138. AddMenuItem("Zrcadli", "\z_mirror\r")
  139. AddMenuItem("M∞°φtko", "\z_scale\r")
  140. AddMenuItem("Protßhnout", "\z_stretch\r")
  141. AddMenuBreak()
  142. AddMenuItem("Vyjmout", "\z_ccut\r")
  143. AddMenuItem("Kopφrovat", "\z_ccopy\r")
  144. AddMenuItem("Vlozit", "\z_cpaste\r")
  145. AddMenuItem("Smazat", "\z_erase\r")
  146. AddMenuItem("Rozd∞l", "\z_break\r")
  147. AddMenuItem("O°e₧", "\z_trim\r")
  148. AddMenuItem("Zaobli", "\z_fillet\r")
  149. AddMenuItem("Zkos", "\z_chamfer\r")
  150. EndMenu()
  151.  
  152. [*filter]
  153. CreatePopupMenu("*filter")
  154. AddMenuItem("Koncov² bod", "'_endp\r")
  155. AddMenuItem("Prost°ednφ bod", "'_midp\r")
  156. AddMenuItem("St°ed", "'_cenp\r")
  157. AddMenuItem("Bod vlo₧enφ", "'_insp\r")
  158. AddMenuItem("VÜechny body", "'_allp\r")
  159. AddMenuBreak()
  160. AddMenuItem("Pr∙seΦφk", "'_intp\r")
  161. AddMenuItem("Nejbli₧Üφ", "'_neap\r")
  162. AddMenuItem("Kolm²", "'_perp\r")
  163. AddMenuItem("TeΦna", "'_tanp\r")
  164. AddMenuBreak()
  165. AddMenuItem(".X", "'_.x\r")
  166. AddMenuItem(".Y", "'_.y\r")
  167. AddMenuItem("Prodlou₧enφ", "'_contin\r")
  168. AddMenuBreak()
  169. AddMenuItem("Zarovnej", "'_align\r")
  170. EndMenu()
  171.  
  172. [*draw]
  173. CreatePopupMenu("*draw")
  174. AddMenuItem("Oblouk", "\z_arc\r")
  175. AddMenuItem("Atribut", "\z_attr\r")
  176. AddMenuItem("Kru₧nice", "\z_circle\r")
  177. AddMenuItem("┌seΦka", "\z_line\r")
  178. AddMenuItem("Polygon", "\z_solid\r")
  179. AddMenuItem("Text", "\z_text\r")
  180. AddMenuItem("èraf", "\z_hatch\r")
  181. AddMenuBreak()
  182. AddMenuItem("Lineßrnφ k≤ta", "\z_dimlin\r")
  183. AddMenuItem("K≤ta polom∞ru", "\z_dimrad\r")
  184. AddMenuItem("K≤ta pr∙m∞ru", "\z_dimdia\r")
  185. AddMenuItem("Obloukovß k≤ta", "\z_dimarc\r")
  186. AddMenuItem("┌hlovß k≤ta", "\z_dimang\r")
  187. AddMenuItem("K≤tovßnφ od", "\z_dimgroup\r")
  188. AddMenuItem("P∙vtext", "\z_dimhome\r")
  189. AddMenuBreak()
  190. AddMenuItem("Blok", "\z_block\r")
  191. AddMenuItem("Insert", "\z_insertd\r")
  192. AddMenuBreak()
  193. AddMenuItem("Odruky", "\z_sketch\r")
  194. EndMenu()
  195.  
  196. [*view]
  197. CreatePopupMenu("*view")
  198. AddMenuItem("Zoom", "'_zoom\r")
  199. AddMenuItem("Zv∞tÜit", "'_zoom\r2\r")
  200. AddMenuItem("ZmenÜit", "'_zoom\r0.5\r")
  201. AddMenuItem("Pan", "'_pan\r")
  202. AddMenuItem("Historie", "'_history\r")
  203. AddMenuBreak()
  204. AddMenuItem("Obnov", "'_regen\r")
  205. EndMenu()
  206.  
  207. [*tools]
  208. CreatePopupMenu("*tools-app")
  209. AddMenuItem("NaΦti", "\z_load\r")
  210. AddMenuItem("UkonΦi", "\z_unload\r")
  211. AddMenuItem("Aplikace", "\z_apps\r")
  212. EndMenu()
  213.  
  214. CreatePopupMenu("*tools")
  215. AddMenuItem("M°φ₧ka", "\z_grid\r")
  216. AddMenuItem("Orto", "\z_ortho\r")
  217. AddMenuItem("Barva", "\z_color\r")
  218. AddMenuItem("Typ Φßry", "\z_linetype\r")
  219. AddMenuItem("Styl textu", "\z_textstyle\r")
  220. AddMenuItem("Styl k≤t", "\z_dimstyle\r")
  221. AddMenuItem("Styl Ürafu", "\z_hatchstyle\r")
  222. AddMenuItem("&Hladina", "\z_layerd\r")
  223. AddMenuBreak()
  224. AddMenuItem("Exportovat atributy", "\z_attext\r")
  225. AddMenuBreak()
  226. AddMenuItem("Vypsat", "\z_list\r")
  227. AddMenuItem("Vzdßlenost", "\z_dist\r")
  228. AddMenuItem("Identifikovat bod", "\z_id\r")
  229. AddMenuBreak()
  230. AddMenu("*tools-app", "&Aplikace")
  231. EndMenu()
  232.  
  233. [*configuration]
  234. CreatePopupMenu("*configuration")
  235. AddMenuItem("Barva pozadφ", "\z_bkcolor\r")
  236. AddMenuItem("Vypisovßnφ p°φkaz∙", "\z_cmdecho\r")
  237. AddMenuItem("P°φkazy", "\z_commands\r")
  238. AddMenuItem("Jednotky", "\z_units\r")
  239. AddMenuItem("Kurzor", "\z_seldelta\r")
  240. AddMenuItem("Prom∞nnΘ", "\z_setvar\r")
  241. AddMenuItem("Toolbary", "\z_toolbars\r")
  242. EndMenu()
  243.  
  244. [*help]
  245. CreatePopupMenu("*help")
  246. AddMenuItem("&Obsah", "\z_help\r\r")
  247. AddMenuItem("&Vyhledat v nßpov∞d∞...", "\z_help\r_search for\r")
  248. AddMenuItem("&Pou₧itφ nßpov∞dy", "\z_help\r_on help\r")
  249. AddMenuBreak()
  250. AddMenuItem("O &aplikaci...", "\z_about\r")
  251. EndMenu()
  252.  
  253. ;---------------------------------------------------------------
  254. ; KEYBOARD configuration
  255. ;---------------------------------------------------------------
  256. [**keyboard]
  257. DefineProcedure("InitKeyboard", "", "KEYBOARD_KeyboardInit", "")
  258. DefineProcedure("AddVkHotKey", "SSS", "KEYBOARD_AddVkHotKey", "")
  259. DefineProcedure("AddHotKey", "SSS", "KEYBOARD_AddHotKey", "")
  260.  
  261. InitKeyboard()
  262.  
  263. ; virtual keys
  264. AddVkHotKey("CANCEL", "c", "\z")    ; must have control modifier!
  265. AddVkHotKey("ESCAPE", "", "\c")
  266. AddVkHotKey("F1", "", "\z_help\r")
  267. AddVkHotKey("F2", "", "'_history\r")
  268. AddVkHotKey("F7", "", "'_gridsh\r")
  269. AddVkHotKey("F8", "", "'_ortho\r")
  270. AddVkHotKey("F9", "", "'_grid\r\r")
  271. AddVkHotKey("DELETE", "s", "\z_ccut\r")
  272. AddVkHotKey("INSERT", "s", "\z_cpaste\r")
  273. AddVkHotKey("INSERT", "c", "\z_ccopy\r")
  274. AddVkHotKey("DELETE", "", "\z_erase\r")
  275.  
  276. ; "normal" keys
  277. AddHotKey("x", "a", "\z_quit\r")
  278. AddHotKey("c", "c", "\z_ccopy\r")
  279. AddHotKey("x", "c", "\z_ccut\r")
  280. AddHotKey("v", "c", "\z_cpaste\r")
  281.  
  282. ;---------------------------------------------------------------
  283. ; MOUSE configuration
  284. ;---------------------------------------------------------------
  285. [**mouse]
  286. DefineProcedure("InitMouse", "", "MOUSE_MouseInit", "")
  287. DefineProcedure("AddMouseEnterButton", "SS", "MOUSE_AddMouseEnterButton", "")
  288. DefineProcedure("AddMouseSelectButton", "SS", "MOUSE_AddMouseSelectButton", "")
  289. DefineProcedure("AddMouseTentativeButton", "SS", "MOUSE_AddMouseTentativeButton", "")
  290. DefineProcedure("AddMouseButton", "SSS", "MOUSE_AddMouseButton", "")
  291.  
  292. InitMouse()
  293.  
  294. AddMouseEnterButton("RBUTTON", "")
  295. AddMouseSelectButton("LBUTTON", "")
  296. ;AddMouseTentativeButton("MBUTTON", "")
  297. AddMouseButton("RBUTTON", "", "\r")
  298. AddMouseButton("LBUTTON", "a", "\z_help\r")
  299. AddMouseButton("RBUTTON", "s", "'_popup\rpopup1\r")
  300.  
  301. ;---------------------------------------------------------------
  302. ; Command prompt configuration
  303. ;---------------------------------------------------------------
  304. [**command prompt]
  305. ; define procedures needed for menu creation
  306. DefineProcedure("CommandWindowLines", "I", "TIO_CommandWindowLines", "")
  307. DefineProcedure("BufferSize", "I", "HISTORY2_SetBufferSize", "")
  308.  
  309. CommandWindowLines(4)
  310. BufferSize(5000)
  311.  
  312. ;---------------------------------------------------------------
  313. ; BARS configuration
  314. ;---------------------------------------------------------------
  315. [**bars]
  316. DefineProcedure("InitBars", "", "BARS_InitBars", "")
  317. DefineProcedure("CreateBar", "SSIIS", "BARS_CreateBar", "")
  318. DefineProcedure("EndBar", "", "BARS_EndBar", "")
  319. DefineProcedure("AddBarButton", "ISS", "BARS_AddBarButton", "")
  320. DefineProcedure("AddBarButtonEx", "ISSI", "BARS_AddBarButtonEx", "")
  321. DefineProcedure("AddBarSeparator", "", "BARS_AddBarSeparator", "")
  322. DefineProcedure("AddBarItem", "SSSS", "BARS_AddBarItem", "")
  323.  
  324. ; destroy ald button, set image size
  325. InitBars()
  326.  
  327. CallSection("*bars-16x15")
  328. ;CallSection("*bars-32x32")
  329.  
  330. ; **note**: Toolbars with AddBarItem requires at least one button, otherwise the height is wrong
  331. CreateBar("Status", "ICON16.BMP", 16, 15, "TB")
  332. AddBarButton(39, "\z_layerd\r", "hladina")
  333. AddBarItem("ENTITIES.DLL", "LAYERLST_Create", "Aktußlnφ hladina", "150")
  334. AddBarSeparator()
  335. AddBarButton(52, "'_linetype\r_dialog\r", "typ Φßry")
  336. AddBarItem("ENTITIES.DLL", "LTYPELST_Create", "Aktußlnφ typ Φßry", "150")
  337. AddBarSeparator()
  338. AddBarButton(53, "'_color\r_dialog\r", "barva")
  339. AddBarItem("ENTITIES.DLL", "COLORLST_Create", "Barva", "100")
  340. EndBar()
  341.  
  342. ;---------------------------------------------------------------
  343. ; BARS 16x15 pixels
  344. ;---------------------------------------------------------------
  345. [*bars-16x15]
  346. CreateBar("Soubor", "ICON16.BMP", 16, 15, "A")
  347. AddBarButton(0, "\z_new\r", "nov²")
  348. AddBarButton(1, "\z_open\r", "otev°φt")
  349. AddBarButton(2, "\z_save\r", "ulo₧it")
  350. AddBarButton(3, "\z_print\r", "tisk")
  351. AddBarSeparator()
  352. AddBarButton(73, "\z_ccut\r", "vyjmout")
  353. AddBarButton(74, "\z_ccopy\r", "kopφrovat")
  354. AddBarButton(75, "\z_cpaste\r", "vlo₧it")
  355. AddBarSeparator()
  356. AddBarButton(6, "\z_rblock\r", "naΦφst blok")
  357. AddBarButton(7, "\z_wblock\r", "ulo₧it blok")
  358. AddBarSeparator()
  359. AddBarButton(4, "\z_foto\r", "foto")
  360. AddBarSeparator()
  361. AddBarButton(5, "\z_purge\r", "Φisti")
  362. EndBar()
  363.  
  364. CreateBar("Kreslenφ", "ICON16.BMP", 16, 15, "A")
  365. AddBarButton(8, "\z_block\r", "blok")
  366. AddBarButton(9, "\z_insert\r", "insert")
  367. AddBarSeparator()
  368. AddBarButton(11, "\z_text\r", "text")
  369. AddBarSeparator()
  370. AddBarButton(12, "\z_attr\r", "atribut")
  371. AddBarSeparator()
  372. AddBarButton(13, "\z_line\r", "·seΦka")
  373. AddBarButton(14, "\z_arc\r", "oblouk")
  374. AddBarButton(15, "\z_circle\r", "kru₧nice")
  375. AddBarButton(16, "\z_solid\r", "polygon")
  376. AddBarButton(71, "\z_hatch\r", "Üraf")
  377. AddBarSeparator()
  378. AddBarButton(78, "\z_sketch\r", "od ruky")
  379. AddBarSeparator()
  380. AddBarButton(17, "\z_dimlin\r", "lineßrnφ k≤ta")
  381. AddBarButton(67, "\z_dimrad\r", "polom∞rovß k≤ta")
  382. AddBarButton(68, "\z_dimdia\r", "pr∙m∞rovß k≤ta")
  383. AddBarButton(69, "\z_dimarc\r", "obloukovß k≤ta")
  384. AddBarButton(70, "\z_dimang\r", "·hlovß k≤ta")
  385. AddBarButton(18, "\z_dimgroup\r", "pokraΦovßnφ k≤t")
  386. AddBarButton(79, "\z_dimhome\r", "p∙vodnφ pozice textu")
  387. EndBar()
  388.  
  389. CreateBar("Zobrazenφ", "ICON16.BMP", 16, 15, "A")
  390. AddBarButton(19, "'_zoom\r", "zoom")
  391. AddBarButton(20, "'_zoom\r2\r", "zv∞tÜit")
  392. AddBarButton(21, "'_zoom\r0.5\r", "zmenÜit")
  393. AddBarButton(22, "'_zoom\r_extents\r", "zobrazit vÜe")
  394. AddBarButton(65, "'_zoom\r_previous\r", "p°edchozφ velikost")
  395. AddBarSeparator()
  396. AddBarButton(23, "'_pan\r", "pan")
  397. AddBarButton(24, "'_regen\r", "obnov")
  398. EndBar()
  399.  
  400. CreateBar("Nßstroje", "ICON16.BMP", 16, 15, "A")
  401. AddBarButton(33, "\z_erase\r", "sma₧")
  402. AddBarSeparator()
  403. AddBarButton(25, "\z_u\r", "krok zp∞t")
  404. AddBarButton(26, "\z_r\r", "opakovat krok")
  405. AddBarSeparator()
  406. AddBarButton(50, "'_gridsh\r", "M°φ₧ka Ano/Ne")
  407. AddBarButton(66, "'_grid\r\r", "P°ichytit do m°φ₧ky Ano/Ne")
  408. AddBarButton(51, "'_ortho\r", "Orto Ano/Ne")
  409. EndBar()
  410.  
  411. CreateBar("Modifikace", "ICON16.BMP", 16, 15, "A")
  412. AddBarButton(27, "\z_copy\r", "kopφruj")
  413. AddBarButton(48, "\z_array\r", "pole")
  414. AddBarButton(28, "\z_move\r", "posun")
  415. AddBarButton(29, "\z_rotate\r", "otoΦ")
  416. AddBarButton(30, "\z_mirror\r", "zrcadli")
  417. AddBarButton(31, "\z_scale\r", "m∞°φtko")
  418. AddBarButton(81, "\z_stretch\r", "protßhni")
  419. AddBarSeparator()
  420. AddBarButton(49, "\z_break\r", "rozd∞lit")
  421. AddBarButton(34, "\z_trim\r", "zkrßtit")
  422. AddBarButton(80, "\z_extend\r", "prodlu₧")
  423. AddBarButton(35, "\z_fillet\r", "zaoblit")
  424. AddBarButton(36, "\z_chamfer\r", "zkosit")
  425. AddBarSeparator()
  426. AddBarButton(10, "\z_explode\r", "rozbalit")
  427. AddBarButton(32, "\z_propsd\r", "vlastnosti")
  428. EndBar()
  429.  
  430. CreateBar("Editace", "ICON16.BMP", 16, 15, "A")
  431. AddBarButton(37, "\z_textstyle\r", "styl textu")
  432. AddBarButton(38, "\z_dimstyle\r", "styl k≤t")
  433. AddBarButton(72, "\z_hatchstyle\r", "styl Ürafu")
  434. AddBarSeparator()
  435. AddBarButton(40, "\z_edit\r", "editovat")
  436. AddBarButton(41, "\z_tedit\r", "editovat text")
  437. AddBarButton(42, "\z_attredit\r", "editovat atribut")
  438. AddBarButton(43, "\z_insattrd\r", "editovat atributy insertu")
  439. EndBar()
  440.  
  441. CreateBar("Informace", "ICON16.BMP", 16, 15, "A")
  442. AddBarButton(44, "'_list\r", "v²pis")
  443. AddBarButton(45, "'_id\r", "identifikace bodu")
  444. AddBarButton(46, "'_dist\r", "vzdßlenost")
  445. AddBarSeparator()
  446. AddBarButton(47, "'_help\r", "nßpov∞da")
  447. EndBar()
  448.  
  449. CreateBar("Filtry", "ICON16.BMP", 16, 15, "A")
  450. AddBarButton(77, "'_sticky\r", "lep")
  451. AddBarSeparator()
  452. AddBarButton(54, "'_endp\r", "koncov² bod")
  453. AddBarButton(55, "'_midp\r", "prost°ednφ bod")
  454. AddBarButton(56, "'_intp\r", "pr∙seΦφk")
  455. AddBarButton(57, "'_cenp\r", "st°ed")
  456. AddBarButton(58, "'_perp\r", "kolm²")
  457. AddBarButton(59, "'_tanp\r", "teΦna")
  458. AddBarButton(60, "'_insp\r", "bod vlo₧enφ")
  459. AddBarButton(61, "'_neap\r", "nejbli₧Üφ bod")
  460. AddBarButton(64, "'_align\r", "zarovnej")
  461. AddBarSeparator()
  462. AddBarButton(62, "'.x\r", ".X")
  463. AddBarButton(63, "'.y\r", ".Y")
  464. AddBarButton(76, "'_contin\r", "prodlou₧enφ")
  465. EndBar()
  466.  
  467. ;---------------------------------------------------------------
  468. ; BARS 32x32 pixels
  469. ;---------------------------------------------------------------
  470. [*bars-32x32]
  471. CreateBar("Soubor", "ICON32.BMP", 32, 32, "A")
  472. AddBarButton(0, "\z_new\r", "nov²")
  473. AddBarButton(1, "\z_open\r", "otev°φt")
  474. AddBarButton(2, "\z_save\r", "ulo₧it")
  475. AddBarButton(3, "\z_print\r", "tisk")
  476. AddBarSeparator()
  477. AddBarButton(73, "\z_ccut\r", "vyjmout")
  478. AddBarButton(74, "\z_ccopy\r", "kopφrovat")
  479. AddBarButton(75, "\z_cpaste\r", "vlo₧it")
  480. AddBarSeparator()
  481. AddBarButton(6, "\z_rblock\r", "naΦφst blok")
  482. AddBarButton(7, "\z_wblock\r", "ulo₧it blok")
  483. AddBarSeparator()
  484. AddBarButton(4, "\z_foto\r", "foto")
  485. AddBarSeparator()
  486. AddBarButton(5, "\z_purge\r", "Φisti")
  487. EndBar()
  488.  
  489. CreateBar("Kreslenφ", "ICON32.BMP", 32, 32, "A")
  490. AddBarButton(8, "\z_block\r", "blok")
  491. AddBarButton(9, "\z_insert\r", "insert")
  492. AddBarSeparator()
  493. AddBarButton(11, "\z_text\r", "text")
  494. AddBarSeparator()
  495. AddBarButton(12, "\z_attr\r", "atribut")
  496. AddBarSeparator()
  497. AddBarButton(13, "\z_line\r", "·seΦka")
  498. AddBarButton(14, "\z_arc\r", "oblouk")
  499. AddBarButton(15, "\z_circle\r", "kru₧nice")
  500. AddBarButton(16, "\z_solid\r", "polygon")
  501. AddBarButton(71, "\z_hatch\r", "Üraf")
  502. AddBarSeparator()
  503. AddBarButton(78, "\z_sketch\r", "od ruky")
  504. AddBarSeparator()
  505. AddBarButton(17, "\z_dimlin\r", "lineßrnφ k≤ta")
  506. AddBarButton(67, "\z_dimrad\r", "polom∞rovß k≤ta")
  507. AddBarButton(68, "\z_dimdia\r", "pr∙m∞rovß k≤ta")
  508. AddBarButton(69, "\z_dimarc\r", "obloukovß k≤ta")
  509. AddBarButton(70, "\z_dimang\r", "·hlovß k≤ta")
  510. AddBarButton(18, "\z_dimgroup\r", "pokraΦovßnφ k≤t")
  511. AddBarButton(79, "\z_dimhome\r", "p∙vodnφ pozice textu")
  512. EndBar()
  513.  
  514. CreateBar("Zobrazenφ", "ICON32.BMP", 32, 32, "A")
  515. AddBarButton(19, "'_zoom\r", "zoom")
  516. AddBarButton(20, "'_zoom\r2\r", "zv∞tÜit")
  517. AddBarButton(21, "'_zoom\r0.5\r", "zmenÜit")
  518. AddBarButton(22, "'_zoom\r_extents\r", "zobrazit vÜe")
  519. AddBarButton(65, "'_zoom\r_previous\r", "p°edchozφ velikost")
  520. AddBarSeparator()
  521. AddBarButton(23, "'_pan\r", "pan")
  522. AddBarButton(24, "'_regen\r", "obnov")
  523. EndBar()
  524.  
  525. CreateBar("Nßstroje", "ICON32.BMP", 32, 32, "A")
  526. AddBarButton(33, "\z_erase\r", "sma₧")
  527. AddBarSeparator()
  528. AddBarButton(25, "\z_u\r", "krok zp∞t")
  529. AddBarButton(26, "\z_r\r", "opakovat krok")
  530. AddBarSeparator()
  531. AddBarButton(50, "'_gridsh\r", "M°φ₧ka Ano/Ne")
  532. AddBarButton(66, "'_grid\r\r", "P°ichytit do m°φ₧ky Ano/Ne")
  533. AddBarButton(51, "'_ortho\r", "Orto Ano/Ne")
  534. EndBar()
  535.  
  536. CreateBar("Modifikace", "ICON32.BMP", 32, 32, "A")
  537. AddBarButton(27, "\z_copy\r", "kopφruj")
  538. AddBarButton(48, "\z_array\r", "pole")
  539. AddBarButton(28, "\z_move\r", "posun")
  540. AddBarButton(29, "\z_rotate\r", "otoΦ")
  541. AddBarButton(30, "\z_mirror\r", "zrcadli")
  542. AddBarButton(31, "\z_scale\r", "m∞°φtko")
  543. AddBarButton(81, "\z_stretch\r", "protßhni")
  544. AddBarSeparator()
  545. AddBarButton(49, "\z_break\r", "rozd∞lit")
  546. AddBarButton(34, "\z_trim\r", "zkrßtit")
  547. AddBarButton(80, "\z_extend\r", "prodlu₧")
  548. AddBarButton(35, "\z_fillet\r", "zaoblit")
  549. AddBarButton(36, "\z_chamfer\r", "zkosit")
  550. AddBarSeparator()
  551. AddBarButton(10, "\z_explode\r", "rozbalit")
  552. AddBarButton(32, "\z_propsd\r", "vlastnosti")
  553. EndBar()
  554.  
  555. CreateBar("Editace", "ICON32.BMP", 32, 32, "A")
  556. AddBarButton(37, "\z_textstyle\r", "styl textu")
  557. AddBarButton(38, "\z_dimstyle\r", "styl k≤t")
  558. AddBarButton(72, "\z_hatchstyle\r", "styl Ürafu")
  559. AddBarSeparator()
  560. AddBarButton(40, "\z_edit\r", "editovat")
  561. AddBarButton(41, "\z_tedit\r", "editovat text")
  562. AddBarButton(42, "\z_attredit\r", "editovat atribut")
  563. AddBarButton(43, "\z_insattrd\r", "editovat atributy insertu")
  564. EndBar()
  565.  
  566. CreateBar("Informace", "ICON32.BMP", 32, 32, "A")
  567. AddBarButton(44, "'_list\r", "v²pis")
  568. AddBarButton(45, "'_id\r", "identifikace bodu")
  569. AddBarButton(46, "'_dist\r", "vzdßlenost")
  570. AddBarSeparator()
  571. AddBarButton(47, "'_help\r", "nßpov∞da")
  572. EndBar()
  573.  
  574. CreateBar("Filtry", "ICON32.BMP", 32, 32, "A")
  575. AddBarButton(77, "'_sticky\r", "lep")
  576. AddBarSeparator()
  577. AddBarButton(54, "'_endp\r", "koncov² bod")
  578. AddBarButton(55, "'_midp\r", "prost°ednφ bod")
  579. AddBarButton(56, "'_intp\r", "pr∙seΦφk")
  580. AddBarButton(57, "'_cenp\r", "st°ed")
  581. AddBarButton(58, "'_perp\r", "kolm²")
  582. AddBarButton(59, "'_tanp\r", "teΦna")
  583. AddBarButton(60, "'_insp\r", "bod vlo₧enφ")
  584. AddBarButton(61, "'_neap\r", "nejbli₧Üφ bod")
  585. AddBarButton(64, "'_align\r", "zarovnej")
  586. AddBarSeparator()
  587. AddBarButton(62, "'.x\r", ".X")
  588. AddBarButton(63, "'.y\r", ".Y")
  589. AddBarButton(76, "'_contin\r", "prodlou₧enφ")
  590. EndBar()
  591.  
  592. ;---------------------------------------------------------------
  593. ; PICTURE configuration
  594. ;---------------------------------------------------------------
  595. [**picture]
  596. ; define procedure needed for picture initialization
  597. DefineProcedure("PictureRegisterExtension", "SS", "PICTURE_set_extensions", "picture.dll")
  598. ; and use the procedure
  599. PictureRegisterExtension("PICBMP","BMP DIB")
  600. PictureRegisterExtension("PICJPEG","JPEG JFIF JPE JPG")
  601. PictureRegisterExtension("PICPCX","PCX")
  602. PictureRegisterExtension("PICPNG","PNG")
  603. PictureRegisterExtension("PICTIFF","TIF TIFF")
  604.