Rev 9891 | Rev 9902 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9891 | Rev 9892 | ||
---|---|---|---|
Line 26... | Line 26... | ||
26 | CB := Clipboard, Languages, |
26 | CB := Clipboard, Languages, |
27 | ChangeLog, Scroll, CheckBox, |
27 | ChangeLog, Scroll, CheckBox, |
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 (13-jan-2023)"; |
31 | HEADER = "CEdit (21-jan-2023)"; |
32 | 32 | ||
Line 33... | Line 33... | ||
33 | ShellFilter = ""; |
33 | ShellFilter = ""; |
Line 63... | Line 63... | ||
63 | btnHeight = 25; |
63 | btnHeight = 25; |
64 | btnWidth = 75; |
64 | btnWidth = 75; |
Line 65... | Line 65... | ||
65 | 65 | ||
Line 66... | Line 66... | ||
66 | toolbarTop = Menu.MainMenuHeight + 3; |
66 | toolbarTop = Menu.MainMenuHeight + 3; |
Line 67... | Line 67... | ||
67 | 67 | ||
Line 68... | Line 68... | ||
68 | TOP = toolbarTop + Toolbar.BtnSize + 10 + Tabs.tabHeight; |
68 | TOP = toolbarTop + Toolbar.BtnSize + 9 + Tabs.tabHeight; |
69 | 69 | ||
Line 167... | Line 167... | ||
167 | maxTexts = 32; |
167 | maxTexts = 32; |
Line 168... | Line 168... | ||
168 | 168 | ||
169 | SHIFT = Menu.SHIFT; |
169 | SHIFT = Menu.SHIFT; |
Line -... | Line 170... | ||
- | 170 | CTRL = Menu.CTRL; |
|
- | 171 | ||
Line 170... | Line 172... | ||
170 | CTRL = Menu.CTRL; |
172 | ClippingArea = 50; |
171 | 173 | ||
172 | 174 | ||
173 | VAR |
175 | VAR |
Line 444... | Line 446... | ||
444 | ELSE |
446 | ELSE |
445 | SB.SetFont(G.fonts[1]) |
447 | SB.SetFont(G.fonts[1]) |
446 | END; |
448 | END; |
447 | BOTTOM := SB.height() + scrollWidth - 1; |
449 | BOTTOM := SB.height() + scrollWidth - 1; |
448 | G.destroy(canvas); |
450 | G.destroy(canvas); |
449 | canvas := G.CreateCanvas(cliWidth - (LEFT + RIGHT + 2 + RIGHT_PADDING), cliHeight - (TOP + BOTTOM + 1)); |
451 | canvas := G.CreateCanvas(cliWidth - (LEFT + RIGHT + 2 + RIGHT_PADDING), cliHeight - (TOP + BOTTOM + 1 - ClippingArea)); |
- | 452 | DEC(canvas.height, ClippingArea); |
|
450 | Tabs.setArea(tabs, LEFT, TOP - Tabs.tabHeight, cliWidth - (LEFT + RIGHT + 2 + RIGHT_PADDING), Tabs.tabHeight); |
453 | Tabs.setArea(tabs, LEFT, TOP - Tabs.tabHeight, cliWidth - (LEFT + RIGHT + 2 + RIGHT_PADDING), Tabs.tabHeight); |
451 | G.SetFont(canvas, font); |
454 | G.SetFont(canvas, font); |
452 | T.setCanvas(canvas); |
455 | T.setCanvas(canvas); |
453 | T.resize(canvas.width, canvas.height); |
456 | T.resize(canvas.width, canvas.height); |
454 | Scroll.resize(vScroll, vScroll.width, canvas.height + 2); |
457 | Scroll.resize(vScroll, vScroll.width, canvas.height + 2); |
Line 2097... | Line 2100... | ||
2097 | 2100 | ||
2098 | LEFT := LEFT_PADDING; |
2101 | LEFT := LEFT_PADDING; |
2099 | RIGHT := scrollWidth - 2; |
2102 | RIGHT := scrollWidth - 2; |
2100 | BOTTOM := SB.height() + scrollWidth - 1; |
2103 | BOTTOM := SB.height() + scrollWidth - 1; |
2101 | SkinHeight := K.SkinHeight(); |
2104 | SkinHeight := K.SkinHeight(); |
- | 2105 | canvas := G.CreateCanvas(winWidth - (LEFT + RIGHT + 11 + RIGHT_PADDING), winHeight - (TOP + BOTTOM + 5 - ClippingArea) - SkinHeight); |
|
2102 | canvas := G.CreateCanvas(winWidth - (LEFT + RIGHT + 11 + RIGHT_PADDING), winHeight - (TOP + BOTTOM + 5) - SkinHeight); |
2106 | DEC(canvas.height, ClippingArea); |
2103 | tabs := Tabs.create(); |
2107 | tabs := Tabs.create(); |
2104 | Tabs.setArea(tabs, LEFT, TOP - Tabs.tabHeight, canvas.width, Tabs.tabHeight); |
2108 | Tabs.setArea(tabs, LEFT, TOP - Tabs.tabHeight, canvas.width, Tabs.tabHeight); |
2105 | font := G.fonts[Ini.font]; |
2109 | font := G.fonts[Ini.font]; |
2106 | G.SetFont(canvas, font); |
2110 | G.SetFont(canvas, font); |