Rev 9915 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9915 | Rev 9946 | ||
|---|---|---|---|
| Line 26... | Line 26... | ||
| 26 | CB := Clipboard, Languages, |
26 | CB := Clipboard, Languages, |
| 27 | ChangeLog, Scroll, CheckBox, Icons, |
27 | ChangeLog, Scroll, CheckBox, Icons, |
| 28 | RW, Ini, EB := EditBox, Tabs, Toolbar, SB := StatusBar; |
28 | RW, Ini, EB := EditBox, Tabs, Toolbar, SB := StatusBar; |
| Line 29... | Line 29... | ||
| 29 | 29 | ||
| 30 | CONST |
30 | CONST |
| Line 31... | Line 31... | ||
| 31 | HEADER = "CEdit (07-may-2023)"; |
31 | HEADER = "CEdit (01-oct-2023)"; |
| 32 | 32 | ||
| Line 33... | Line 33... | ||
| 33 | ShellFilter = ""; |
33 | ShellFilter = ""; |
| Line 99... | Line 99... | ||
| 99 | menuExit = 17; |
99 | menuExit = 17; |
| Line 100... | Line 100... | ||
| 100 | 100 | ||
| 101 | menuFontSmall = 20; |
101 | menuFontSmall = 20; |
| 102 | menuFontMedium = menuFontSmall + 1; |
102 | menuFontMedium = menuFontSmall + 1; |
| - | 103 | menuFontLarge = menuFontMedium + 1; |
|
| - | 104 | menuIncLS = menuFontLarge + 1; |
|
| 103 | menuFontLarge = menuFontMedium + 1; |
105 | menuDecLS = menuIncLS + 1; |
| 104 | menuColors = 1000; |
106 | menuColors = 1000; |
| Line 105... | Line 107... | ||
| 105 | menuMaxColors = menuColors + Ini.MAX_SECTIONS - 1; |
107 | menuMaxColors = menuColors + Ini.MAX_SECTIONS - 1; |
| 106 | 108 | ||
| Line 167... | Line 169... | ||
| 167 | maxTexts = 32; |
169 | maxTexts = 32; |
| Line 168... | Line 170... | ||
| 168 | 170 | ||
| 169 | SHIFT = Menu.SHIFT; |
171 | SHIFT = Menu.SHIFT; |
| Line 170... | Line 172... | ||
| 170 | CTRL = Menu.CTRL; |
172 | CTRL = Menu.CTRL; |
| Line 171... | Line 173... | ||
| 171 | 173 | ||
| 172 | ClippingArea = 32 + T.LineSpacing; |
174 | ClippingArea = 32 + T.MaxLineSpacing; |
| 173 | 175 | ||
| Line 1071... | Line 1073... | ||
| 1071 | Menu.option(menu, menuCP1251, T.getEnc(text) = E.CP1251) |
1073 | Menu.option(menu, menuCP1251, T.getEnc(text) = E.CP1251) |
| 1072 | ELSIF menu = menuView THEN |
1074 | ELSIF menu = menuView THEN |
| 1073 | Menu.option(menu, menuFontSmall, font = G.fonts[0]); |
1075 | Menu.option(menu, menuFontSmall, font = G.fonts[0]); |
| 1074 | Menu.option(menu, menuFontMedium, font = G.fonts[1]); |
1076 | Menu.option(menu, menuFontMedium, font = G.fonts[1]); |
| 1075 | Menu.option(menu, menuFontLarge, font = G.fonts[2]); |
1077 | Menu.option(menu, menuFontLarge, font = G.fonts[2]); |
| - | 1078 | Menu.setEnabled(menu, menuIncLS, T.LineSpacing < T.MaxLineSpacing); |
|
| - | 1079 | Menu.setEnabled(menu, menuDecLS, T.LineSpacing > 0); |
|
| 1076 | FOR i := 0 TO Ini.sections.count - 1 DO |
1080 | FOR i := 0 TO Ini.sections.count - 1 DO |
| 1077 | Menu.option(menu, menuColors + i, Ini.curSectionNum = i) |
1081 | Menu.option(menu, menuColors + i, Ini.curSectionNum = i) |
| 1078 | END |
1082 | END |
| 1079 | ELSIF menu = menuLanguage THEN |
1083 | ELSIF menu = menuLanguage THEN |
| 1080 | Menu.option(menu, menuText, text.lang = Languages.langText); |
1084 | Menu.option(menu, menuText, text.lang = Languages.langText); |
| Line 1256... | Line 1260... | ||
| 1256 | T.gotoLabel(text, FALSE) |
1260 | T.gotoLabel(text, FALSE) |
| 1257 | |menuFontSmall..menuFontLarge: |
1261 | |menuFontSmall..menuFontLarge: |
| 1258 | font := G.fonts[Menu.MenuItem - menuFontSmall]; |
1262 | font := G.fonts[Menu.MenuItem - menuFontSmall]; |
| 1259 | Ini.setInt("settings", "font", Menu.MenuItem - menuFontSmall); |
1263 | Ini.setInt("settings", "font", Menu.MenuItem - menuFontSmall); |
| 1260 | resize |
1264 | resize |
| - | 1265 | |menuIncLS, menuDecLS: |
|
| - | 1266 | T.setLineSpacing(canvas, T.LineSpacing + ORD(Menu.MenuItem = menuIncLS)*2 - 1); |
|
| - | 1267 | Ini.setInt("settings", "line_spacing", T.LineSpacing) |
|
| 1261 | |menuText: |
1268 | |menuText: |
| 1262 | T.setLang(text, Languages.langText) |
1269 | T.setLang(text, Languages.langText) |
| 1263 | |menuC: |
1270 | |menuC: |
| 1264 | T.setLang(text, Languages.langC) |
1271 | T.setLang(text, Languages.langC) |
| 1265 | |menuFasm: |
1272 | |menuFasm: |
| Line 1468... | Line 1475... | ||
| 1468 | menu := List.create(NIL); |
1475 | menu := List.create(NIL); |
| 1469 | Menu.AddMenuItem(menu, menuFontSmall, "small"); |
1476 | Menu.AddMenuItem(menu, menuFontSmall, "small"); |
| 1470 | Menu.AddMenuItem(menu, menuFontMedium, "medium"); |
1477 | Menu.AddMenuItem(menu, menuFontMedium, "medium"); |
| 1471 | Menu.AddMenuItem(menu, menuFontLarge, "large"); |
1478 | Menu.AddMenuItem(menu, menuFontLarge, "large"); |
| 1472 | Menu.delimiter(menu); |
1479 | Menu.delimiter(menu); |
| - | 1480 | Menu.AddMenuItem(menu, menuIncLS, "line spacing ++"); |
|
| - | 1481 | Menu.AddMenuItem(menu, menuDecLS, "line spacing --"); |
|
| - | 1482 | Menu.delimiter(menu); |
|
| Line 1473... | Line 1483... | ||
| 1473 | 1483 | ||
| 1474 | colors := Ini.sections.first(Ini.tSection); |
1484 | colors := Ini.sections.first(Ini.tSection); |
| 1475 | idx := menuColors; |
1485 | idx := menuColors; |
| 1476 | WHILE colors # NIL DO |
1486 | WHILE colors # NIL DO |
| Line 2150... | Line 2160... | ||
| 2150 | DEC(canvas.height, ClippingArea); |
2160 | DEC(canvas.height, ClippingArea); |
| 2151 | tabs := Tabs.create(); |
2161 | tabs := Tabs.create(); |
| 2152 | Tabs.setArea(tabs, LEFT, TOP - Tabs.tabHeight, canvas.width, Tabs.tabHeight); |
2162 | Tabs.setArea(tabs, LEFT, TOP - Tabs.tabHeight, canvas.width, Tabs.tabHeight); |
| 2153 | font := G.fonts[Ini.font]; |
2163 | font := G.fonts[Ini.font]; |
| 2154 | G.SetFont(canvas, font); |
2164 | G.SetFont(canvas, font); |
| 2155 | T.init(resetTimer, Ini.lineNumbers, Ini.autoIndents, Ini.autoBrackets, Ini.trimSpace); |
2165 | T.init(resetTimer, Ini.lineNumbers, Ini.autoIndents, Ini.autoBrackets, Ini.trimSpace, Ini.lineSpacing); |
| 2156 | Ini.selectSection(Ini.theme); |
2166 | Ini.selectSection(Ini.theme); |
| 2157 | T.setCanvas(canvas); |
2167 | T.setCanvas(canvas); |
| Line 2158... | Line 2168... | ||
| 2158 | 2168 | ||