home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / txl / 1_preis / kubasic.rc < prev    next >
Text File  |  1991-02-02  |  13KB  |  256 lines
  1. /************************************************************************
  2. *                .......................................                *
  3. *                .                                     .                *
  4. *                .       TOOLBOX - INTERPRETER         .                *
  5. *                .         RESSOURCEN - DATEI          .                *
  6. *                .            KUBASIC.RC               .                *
  7. *                .......................................                *
  8. *************************************************************************/
  9.  
  10. #include "windows.h"
  11. #include "kubasic.h"
  12.  
  13. KUBASICON  ICON    kubasic.ico
  14. TOOLBOX    BITMAP  toolbox.bmp
  15.  
  16. STRINGTABLE
  17. BEGIN
  18.     IDSNAME,    "KUBASIC"
  19.     IDSABOUT,   "About..."
  20.     IDSTITLE,   "TOOLBOX-INTERPRETER"
  21. END
  22. theMenu MENU
  23.     Begin
  24.     POPUP "&Menue"
  25.       Begin
  26.        MENUITEM "&Hilfe \tF1", MN_HELP
  27.        MENUITEM "&run \tF2", MN_RUN
  28.        MENUITEM "&load /weitersuchen \tF3", MN_LOAD
  29.        MENUITEM "&save /ersetzen \tF4", MN_SAVE
  30.        MENUITEM "&list \tF5", MN_LIST
  31.        MENUITEM "&typeset \tF6", MN_TYPESET
  32.        MENUITEM "&setscreen \tF8", MN_SCREEN
  33.        MENUITEM "&cls \tF9", MN_CLS
  34.        MENUITEM "&Mono \tF10", MN_MONO
  35.        MENUITEM SEPARATOR
  36.        MENUITEM "&Ende \tALT-F4", MN_EXIT
  37.       End
  38.     POPUP "&Edit"
  39.       Begin
  40.        MENUITEM "&Editor \tF7", MN_EDITOR
  41.        MENUITEM "&Interpreter \tF8", MN_INTERPR
  42.        MENUITEM SEPARATOR
  43.        MENUITEM "&Undo \tAlt+Rⁿck", MN_UNDO
  44.        MENUITEM "&Ausschneiden\tEntf",   MN_CUT
  45.        MENUITEM "&Kopieren \tStrg+Einfg", MN_COPY
  46.        MENUITEM "&Einfⁿgen \tUmsch+Einfg",MN_PASTE
  47.        MENUITEM "&L÷schen \tUmsch+Entf",  MN_CLEAR
  48.        MENUITEM "&Selektieren alles",     MN_SELECT
  49.        MENUITEM SEPARATOR
  50.        MENUITEM "&Load", MN_ELOAD
  51.        MENUITEM "&Save", MN_ESAVE
  52.       End
  53.        POPUP "&Search"
  54.       Begin
  55.        MENUITEM "&Find",                  MN_SEARCH
  56.        MENUITEM "&Repeat Last Find \tF3", MN_WSEARCH
  57.        MENUITEM "&Change by",             MN_ERSETZE
  58.        MENUITEM "&Substitute \tF4",       MN_WERSETZE
  59.       End
  60.     POPUP "&Fonts"
  61.       Begin
  62.        MENUITEM "&System  ", MN_SYSFON
  63.        MENUITEM "&Terminal", MN_TERFON
  64.        MENUITEM "&Helv    ", MN_HELFON
  65.        MENUITEM "&Courier ", MN_COUFON
  66.        MENUITEM "Tms Rm&n ", MN_TMSFON
  67.        MENUITEM "&Roman   ", MN_ROMFON
  68.        MENUITEM "S&cript  ", MN_SCRFON
  69.        MENUITEM "&Modern  ", MN_MODFON
  70.       End
  71.     POPUP "&Grad"
  72.       Begin
  73.        MENUITEM "8 ", MN_ACHT
  74.        MENUITEM "10", MN_ZEHN
  75.        MENUITEM "12", MN_ZWLF
  76.        MENUITEM "13", MN_DRZN
  77.        MENUITEM "15", MN_FFZN
  78.        MENUITEM "16", MN_SHZN
  79.        MENUITEM "18", MN_ACZN
  80.        MENUITEM "19", MN_NNZN
  81.        MENUITEM "20", MN_ZWAN
  82.        MENUITEM "21", MN_EIZW
  83.        MENUITEM "22", MN_ZWZW, MENUBARBREAK
  84.        MENUITEM "24", MN_VRZW,
  85.        MENUITEM "26", MN_SXZW,
  86.        MENUITEM "27", MN_SIZW,
  87.        MENUITEM "28", MN_ACZW,
  88.        MENUITEM "29", MN_NNZW,
  89.        MENUITEM "30", MN_DRSG,
  90.        MENUITEM "32", MN_ZWSG,
  91.        MENUITEM "35", MN_FFSG,
  92.        MENUITEM "36", MN_SXSG,
  93.        MENUITEM "37", MN_SISG, MENUBARBREAK
  94.        MENUITEM "38", MN_ACSG,
  95.        MENUITEM "39", MN_NNSG,
  96.        MENUITEM "40", MN_VRZG,
  97.        MENUITEM "42", MN_ZWZG,
  98.        MENUITEM "44", MN_VVZG,
  99.        MENUITEM "45", MN_FFZG,
  100.        MENUITEM "48", MN_ACZG,
  101.        MENUITEM "50", MN_FFZC,
  102.        MENUITEM "52", MN_ZWZC,
  103.        MENUITEM "54", MN_VFZC, MENUBARBREAK
  104.        MENUITEM "56", MN_SXZC
  105.       End
  106.     POPUP "&Dicke"
  107.       Begin
  108.        MENUITEM "&NORMAL      ", MW_NORMAL
  109.        MENUITEM "&HEAVY       ", MW_HEAVY
  110.        MENUITEM SEPARATOR
  111.        MENUITEM "&Kursiv      ", MN_KURSIV
  112.        MENUITEM "&Unterstr....", MN_UNTERS
  113.        MENUITEM "Du&rchgestr..", MN_DURCHG
  114.       End
  115.     POPUP "&Precision"
  116.       Begin
  117.        MENUITEM "&Box           ", MW_TEXTBOX
  118.        MENUITEM "&Typesethelp   ", MW_TEXTHELP
  119.       End
  120.     End
  121.  
  122. ABOUTBOX DIALOG LOADONCALL MOVEABLE DISCARDABLE 22, 13, 155, 146
  123. STYLE WS_DLGFRAME | WS_POPUP
  124. BEGIN
  125.        CONTROL "Microsoft Windows", -1, "static", SS_CENTER | WS_GROUP | WS_CHILD, 0, 4, 154, 8
  126.        CONTROL " ", -1, "static", SS_ICON | WS_CHILD, 8, 22, 16, 26
  127.        CONTROL "INTERPRETER", -1, "static", SS_CENTER | WS_GROUP | WS_CHILD, 0, 14, 154, 8
  128.        CONTROL "Version 1.0 P.D.", -1, "static", SS_CENTER | WS_GROUP | WS_CHILD, 30, 34, 94, 8
  129.        CONTROL "Copyright ⌐ 1990  KuBa « ", -1, "static", SS_CENTER | WS_GROUP | WS_CHILD, 0, 46, 154, 9
  130.        CONTROL " &Ok ", KUBASICON, "button", BS_DEFPUSHBUTTON | WS_GROUP | WS_TABSTOP | WS_CHILD, 59, 122, 44, 16
  131.        CONTROL "Text", -1, "static", SS_BLACKFRAME | WS_CHILD, 26, 60, 110, 41
  132.        CONTROL "Kurt Bauer", -1, "static", SS_LEFT | WS_CHILD, 32, 64, 43, 10
  133.        CONTROL "Bahnhofstr.35", -1, "static", SS_LEFT | WS_CHILD, 33, 75, 54, 9
  134.        CONTROL "6973 Boxberg - Schweigern", -1, "static", SS_LEFT | WS_CHILD, 32, 88, 103, 10
  135.        CONTROL "Tel. 07930 / 6590       ", -1, "static", SS_LEFT | WS_CHILD, 33, 106, 99, 12
  136. END
  137.  
  138. TEXTBOX DIALOG LOADONCALL MOVEABLE DISCARDABLE 73, 37, 127, 59
  139. CAPTION " * Eingabe * "
  140. STYLE WS_BORDER | WS_CAPTION | WS_DLGFRAME | WS_POPUP
  141. BEGIN
  142.        CONTROL "Wert eingeben !                       ", MN_QUESTION, "static", SS_LEFT | WS_CHILD, 3, 4, 121, 12
  143.        CONTROL ".............................", MN_TEXT, "edit", ES_LEFT | WS_BORDER | WS_TABSTOP | WS_CHILD, 2, 19, 122, 12
  144.        CONTROL " &OK ", IDOK, "button", BS_DEFPUSHBUTTON | WS_TABSTOP | WS_CHILD, 36, 38, 56, 14
  145. END
  146.  
  147. TYPEHELP DIALOG LOADONCALL MOVEABLE DISCARDABLE 135, 4, 136, 169
  148. STYLE WS_DLGFRAME | WS_VISIBLE | WS_POPUP
  149. BEGIN
  150.        CONTROL "1.- typeset (*Art 0 = System    ", -1, "static", SS_LEFT | WS_CHILD, 2, 4, 119, 10
  151.        CONTROL "1.- 1=Terminal 2=Helv 3=Courier ", -1, "static", SS_LEFT | WS_CHILD, 2, 14, 127, 10
  152.        CONTROL "1.- 4=Tms Rmn 5=Roman 6=Script  ", -1, "static", SS_LEFT | WS_CHILD, 2, 24, 124, 10
  153.        CONTROL "2.3 7=Modern *Breit 0-56 *Hoch  ", -1, "static", SS_LEFT | WS_CHILD, 2, 34, 122, 10
  154.        CONTROL "4.5 *Fett 5000/600 *Unterstr    ", -1, "static", SS_LEFT | WS_CHILD, 2, 44, 119, 10
  155.        CONTROL "6.7 *Durchgestr *Kursiv  0 | 1  ", -1, "static", SS_LEFT | WS_CHILD, 2, 54, 127, 10
  156.        CONTROL "8.- *Fam.10=Def.20=Fix. 30=Var. ", -1, "static", SS_LEFT | WS_CHILD, 2, 64, 129, 10
  157.        CONTROL "8.- + 0 DONTCARE 1 DEC 2 MODERN ", -1, "static", SS_LEFT | WS_CHILD, 2, 74, 127, 10
  158.        CONTROL "8.- + 3 ROMAN 4 SCRIPT 5 SWISS  ", -1, "static", SS_LEFT | WS_CHILD, 2, 84, 125, 10
  159.        CONTROL "9.- *OUTP 0Def1CHAR2STRING3STROK", -1, "static", SS_LEFT | WS_CHILD, 2, 94, 131, 10
  160.        CONTROL "10- *Clip 0 DEf 1 CHAR 2 STROKE ", -1, "static", SS_LEFT | WS_CHILD, 2, 104, 126, 10
  161.        CONTROL "11- *Qual 0 Def 1 DRAFT 2 PROOF ", -1, "static", SS_LEFT | WS_CHILD, 2, 114, 129, 10
  162.        CONTROL "12- *OEM- ANSI-Charset 0 | 255  ", -1, "static", SS_LEFT | WS_CHILD, 2, 124, 129, 10
  163.        CONTROL "13-14*ESC*ORIENT 0 900 1800 2700", -1, "static", SS_LEFT | WS_CHILD, 2, 136, 132, 10
  164.        CONTROL "  &ALLES KLAR ? ", IDOK, "button", BS_DEFPUSHBUTTON | WS_GROUP | WS_TABSTOP | WS_CHILD, 29, 148, 82, 15
  165. END
  166.  
  167. HELPBOX DIALOG LOADONCALL MOVEABLE DISCARDABLE 3, 4, 279, 246
  168. STYLE WS_DLGFRAME | WS_VISIBLE | WS_POPUP
  169. BEGIN
  170.        CONTROL "run runb list new cls end rem system llist;", -1, "static", SS_LEFT | WS_CHILD, 6, 0, 266, 10
  171.        CONTROL "input [''Text'',]Variable; inline [''Text'',]Variable;  ", -1,  "static", SS_LEFT | WS_CHILD, 6, 10, 266, 10
  172.        CONTROL "print Variable,''String'',((FORMEL)),..usw....;  ", -1, "static", SS_LEFT | WS_CHILD, 6, 20, 266, 10
  173.        CONTROL "let Variablenname=Formel  Konst  ''STRING''; ", -1, "static", SS_LEFT | WS_CHILD, 6, 30, 266, 10
  174.        CONTROL "typeset o.Parameter Systemfont  ? eingeben fⁿr Hilfe (1-14)", -1, "static", SS_LEFT | WS_CHILD, 6, 40, 266, 10
  175.        CONTROL "load ''*.TXL''; (ohne Parameter erscheint Dialogbox)          ", -1, "static", SS_LEFT | WS_CHILD, 5, 50, 269, 10
  176.        CONTROL "save ''*.TXL''; settextcolor(0-15);   setbkcolor(0-15);    ", -1, "static", SS_LEFT | WS_CHILD, 6, 60, 266, 10
  177.        CONTROL "goto   Zeilennummer xxx; setcolor(0-15) setpencolor(0-15)  ", -1, "static", SS_LEFT | WS_CHILD, 6, 70, 266, 10
  178.        CONTROL "while Formel<=>Formel wend                    ", -1, "static", SS_LEFT | WS_CHILD, 6, 81, 266, 10
  179.        CONTROL "for Variable=Formel to Formel step Formel;    ", -1, "static", SS_LEFT | WS_CHILD, 6, 91, 266, 10
  180.        CONTROL "if (F) <<=<>=>>AND OR XOR EQV NOT(..) >(F)   if ''*!H?OYC TEXT'';", -1, "static", SS_LEFT | WS_CHILD, 6, 101, 266, 10
  181.        CONTROL "locate (X,Y); cursor off/on              msgbox ''*!H?OYC TEXT'';", -1, "static", SS_LEFT | WS_CHILD, 6, 110, 266, 10
  182.        CONTROL "setprinter; setscreen;          *!H = * ! Hand OK YESNO OKCANCEL ", -1, "static", SS_LEFT | WS_CHILD, 6, 120, 266, 10
  183.        CONTROL "movewindow (X,Y,Br,H÷he);       ", -1, "static", SS_LEFT | WS_CHILD, 7, 130, 266, 10
  184.        CONTROL "titlewindow  ''Text'';          ", -1, "static", SS_LEFT | WS_CHILD, 6, 140, 266, 10
  185.        CONTROL "setpixel (X1,Y1,Farbe);        viereck (X1,Y1,X2,Y2,X3,Y3,X4,Y4);", -1, "static", SS_LEFT | WS_CHILD, 6, 150, 266, 10
  186.        CONTROL "roundrect (X1,Y1,X2,Y2,X3,Y3); ", -1, "static", SS_LEFT | WS_CHILD, 6, 160, 266, 10
  187.        CONTROL "line (X1,Y1,X2,Y2);            polyline (X1,Y1,X2,Y2,X3,Y3,X4,Y4);", -1,       "static", SS_LEFT | WS_CHILD, 6, 170, 266, 10
  188.        CONTROL "ellipse (X1,Y1,X2,Y2);", -1,    "static", SS_LEFT | WS_CHILD, 6, 181, 266, 10
  189.        CONTROL "rectangle (X1,Y1,X2,Y2);       rectline (X1,Y1,X2,Y2);", -1,  "static", SS_LEFT | WS_CHILD, 6, 190, 266, 10
  190.        CONTROL "arc (X1,Y1,X2,Y2,X3,Y3,X4,Y4); floodfill (X1,Y1,Randfarbe 0-15);", -1, "static", SS_LEFT | WS_CHILD, 6, 201, 266, 10
  191.        CONTROL "pie (X1,Y1,X2,Y2,X3,Y3,X4,Y4);  ", -1, "static", SS_LEFT | WS_CHILD, 6, 211, 266, 10
  192.        CONTROL "       &OK      ", IDOK, "button", BS_DEFPUSHBUTTON | WS_GROUP | WS_TABSTOP | WS_CHILD, 7, 226, 264, 14
  193. END
  194.  
  195. SETTEXTBOX DIALOG LOADONCALL MOVEABLE DISCARDABLE 11, 16, 199, 100
  196. STYLE WS_DLGFRAME | WS_POPUP
  197. BEGIN
  198.        CONTROL "Outp.Prec.", -1, "static", SS_LEFT | WS_CHILD, 11, 2, 41, 10
  199.        CONTROL "Clip.Prec.", -1, "static", SS_LEFT | WS_CHILD, 61, 2, 40, 10
  200.        CONTROL "Quality", -1, "static", SS_LEFT | WS_CHILD, 111, 2, 33, 10
  201.        CONTROL "Family", -1, "static", SS_LEFT | WS_CHILD, 162, 2, 27, 10
  202.        CONTROL "DEFAULT", OP_DEF, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 2, 12, 42, 14
  203.        CONTROL "CHARACTER",OP_CHAR, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 2, 25, 47, 12
  204.        CONTROL "STRING",OP_STRING, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 2, 38, 37, 12
  205.        CONTROL "STROKE",OP_STROKE, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 2, 51, 40, 12
  206.        CONTROL "DEFAULT",CL_DEF, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 52, 13, 46, 12
  207.        CONTROL "CHARACTER",CL_CHAR, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 52, 25, 48, 12
  208.        CONTROL "STROKE",CL_STROKE, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 52, 38, 38, 12
  209.        CONTROL "DEFAULT",QU_DEF, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 102, 13, 41, 12
  210.        CONTROL "DRAFT",QU_DRAFT, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 102, 25, 31, 12
  211.        CONTROL "PROOF",QU_PROOF, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 102, 38, 31, 12
  212.        CONTROL "DEFAULT",FA_DEF, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 154, 13, 41, 12
  213.        CONTROL "FIXED", FA_FIX, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 154, 25, 34, 12
  214.        CONTROL "VARIABLE",FA_VAR, "button", BS_RADIOBUTTON | WS_TABSTOP | WS_CHILD, 154, 38, 44, 12
  215.        CONTROL "DONTCARE", FA_DNTC, "button", BS_CHECKBOX | WS_TABSTOP | WS_CHILD, 102, 55, 44, 12
  216.        CONTROL "DECORARTIV",FA_DEC, "button", BS_CHECKBOX | WS_TABSTOP | WS_CHILD, 102, 68, 51, 12
  217.        CONTROL "MODERN", FA_MOD, "button", BS_CHECKBOX | WS_TABSTOP | WS_CHILD, 102, 82, 38, 12
  218.        CONTROL "ROMAN", FA_ROM, "button", BS_CHECKBOX | WS_TABSTOP | WS_CHILD, 154, 54, 34, 12
  219.        CONTROL "SCRIPT", FA_SCR, "button", BS_CHECKBOX | WS_TABSTOP | WS_CHILD, 154, 68, 36, 12
  220.        CONTROL "SWISS", FA_SWS, "button", BS_CHECKBOX | WS_TABSTOP | WS_CHILD, 154, 82, 32, 12
  221.        CONTROL "OEM", MW_OEM, "button", BS_CHECKBOX | WS_TABSTOP | WS_CHILD, 43, 51, 25, 12
  222.        CONTROL "ANSI",MW_ANSI, "button", BS_CHECKBOX | WS_TABSTOP | WS_CHILD, 70, 51, 28, 12
  223.        CONTROL "  &OK  ", IDOK, "button", BS_DEFPUSHBUTTON | WS_TABSTOP | WS_CHILD, 16, 69, 67, 18
  224. END
  225.  
  226. Open DIALOG 10, 10, 148, 112
  227. STYLE WS_DLGFRAME | WS_POPUP
  228. BEGIN
  229.     LTEXT "Open File &Name:", ID_FILENAME,  4,  4,  60, 10
  230.     EDITTEXT ID_EDIT,                4, 16, 100, 12, ES_AUTOHSCROLL
  231.     LTEXT "&Files in", ID_FILES,     4, 40,  32, 10
  232.     LISTBOX, ID_LISTBOX,             4, 52,  70, 56, WS_TABSTOP
  233.     LTEXT "",  ID_PATH,             40, 40, 100, 10
  234.     DEFPUSHBUTTON "&Open" , IDOK,   87, 60,  50, 14
  235.     PUSHBUTTON "&Cancel", IDCANCEL,  87, 80,  50, 14
  236. END
  237.  
  238. theAcc ACCELERATORS
  239. BEGIN
  240.   VK_BACK,   MN_UNDO,  VIRTKEY, SHIFT
  241.   VK_DELETE, MN_CUT,   VIRTKEY
  242.   VK_INSERT, MN_COPY,  VIRTKEY, CONTROL
  243.   VK_INSERT, MN_PASTE, VIRTKEY, SHIFT
  244.   VK_DELETE, MN_CLEAR, VIRTKEY, SHIFT
  245.   VK_F1    , MN_HELP,  VIRTKEY
  246.   VK_F2    , MN_RUN ,  VIRTKEY
  247.   VK_F3    , MN_LOAD,  VIRTKEY
  248.   VK_F4    , MN_SAVE,  VIRTKEY
  249.   VK_F5    , MN_LIST,  VIRTKEY
  250.   VK_F6    , MN_TYPESET,VIRTKEY
  251.   VK_F7    , MN_EDITOR, VIRTKEY
  252.   VK_F8    , MN_INTERPR,  VIRTKEY
  253.   VK_F9    , MN_CLS ,  VIRTKEY
  254.   VK_F10   , MN_MONO,  VIRTKEY
  255. END
  256.