diff --git a/data/common/icons16.png b/data/common/icons16.png index 1fe1536e4e..df2044fc6d 100644 Binary files a/data/common/icons16.png and b/data/common/icons16.png differ diff --git a/data/common/settings/app.ini b/data/common/settings/app.ini index 50cdb91579..b0cd9ac0be 100644 --- a/data/common/settings/app.ini +++ b/data/common/settings/app.ini @@ -7,6 +7,7 @@ ShowDeviceName=1 RealFileNamesCase=1 InfoAfterCopy=0 ShowStatusBar=1 +LineHeight=20 [Kiv] Next=PgDn diff --git a/programs/cmm/appearance/appearance.c b/programs/cmm/appearance/appearance.c index 6822bb80d3..2b1d7ec95d 100644 --- a/programs/cmm/appearance/appearance.c +++ b/programs/cmm/appearance/appearance.c @@ -284,7 +284,7 @@ void Sort_by_Name(int a, b) // for the first call: a = 0, b = sizeof(mas) - 1 void SelectList_DrawLine(dword i) { - int yyy, list_last; + int yyy; cur = select_list.first + i; strcpy(#temp_filename, io.dir.position(files_mas[cur])); diff --git a/programs/cmm/eolite/Eolite.c b/programs/cmm/eolite/Eolite.c index 8263a22f7e..afb596370a 100644 --- a/programs/cmm/eolite/Eolite.c +++ b/programs/cmm/eolite/Eolite.c @@ -3,8 +3,8 @@ // 70.5 - get volume info and label -#define TITLE "Eolite File Manager 4.5" -#define ABOUT_TITLE "EOLITE 4.5" +#define TITLE "Eolite File Manager 4.51" +#define ABOUT_TITLE "EOLITE 4.51" #ifndef AUTOBUILD #include "lang.h--" @@ -276,7 +276,7 @@ void main() if (getElementSelectedFlag(files.cur_y) == false) selected_count = 0; //on redraw selection would be flashed, see [L001] EventShowListMenu(); } - break; + //break; } if (mouse.x>=files.x+files.w) && (mouse.x<=files.x+files.w+16) && (mouse.y>files.y-17) && (mouse.y= 10); + KOSAPI.sysfunc4(48, 3, SYSTEM.ADR(buf[0]), 40); + + winColor := buf[5]; + textColor := buf[8]; + btnColor := buf[6]; + btnTextColor := buf[7]; + scrollColor := btnColor; + scrollBkColor := winColor; + borderColor := buf[9]; +END GetSystemColors; + + END KolibriOS. \ No newline at end of file diff --git a/programs/develop/cedit/SRC/Languages.ob07 b/programs/develop/cedit/SRC/Languages.ob07 index d949d51fcc..ca5e554a81 100644 --- a/programs/develop/cedit/SRC/Languages.ob07 +++ b/programs/develop/cedit/SRC/Languages.ob07 @@ -319,7 +319,7 @@ BEGIN END comments; -PROCEDURE EnterKW (s: ARRAY OF CHAR; VAR KW: tKeyWords); +PROCEDURE EnterKW (s: ARRAY OF CHAR; VAR KW: tKeyWords; CPrep: BOOLEAN); CONST SPACE = 20X; CR = 0DX; LF = 0AX; TAB = 9X; COMMA = ","; VAR @@ -333,7 +333,8 @@ BEGIN k := KW.cnt; i := 0; REPEAT - j := 0; + KW.words[k, 0] := "#"; + j := ORD(CPrep); WHILE (s[i] # 0X) & ~delim(s[i]) DO KW.words[k, j] := WCHR(ORD(s[i])); INC(i); @@ -360,8 +361,8 @@ BEGIN KW[i].cnt := 0; key[2] := CHR(ORD("1") + i); getStr(lang, key, s); - EnterKW(s, KW[i]) - END; + EnterKW(s, KW[i], (lang = "lang_C") & (i = 1)) + END END loadKW; diff --git a/programs/develop/cedit/SRC/Menu.ob07 b/programs/develop/cedit/SRC/Menu.ob07 index e19942bf0d..50c76fdaa1 100644 --- a/programs/develop/cedit/SRC/Menu.ob07 +++ b/programs/develop/cedit/SRC/Menu.ob07 @@ -48,7 +48,6 @@ TYPE END; tMenu* = POINTER TO RECORD - (*stack: POINTER TO RECORD stk: ARRAY 250000 OF INTEGER END;*) tid*: INTEGER; winX, winY, width*, height*: INTEGER; selItem, cliItem: INTEGER; @@ -163,7 +162,7 @@ VAR item: List.tItem; BEGIN item := List.getItem(m.items, i); - IF item(tItem).enabled THEN + IF (item # NIL) & item(tItem).enabled THEN m.click(m, item(tItem).id); exit(m) END @@ -304,10 +303,6 @@ BEGIN IF m.tid = 0 THEN m.winX := x; m.winY := y; -(* DISPOSE(m.stack); - NEW(m.stack); - SYSTEM.PUT(SYSTEM.ADR(m.stack.stk[LEN(m.stack.stk) - 1]), m); - lastTID := K.CreateThread(SYSTEM.ADR(window), m.stack.stk);*) SYSTEM.PUT(SYSTEM.ADR(stack[LEN(stack) - 1]), m); lastTID := K.CreateThread(SYSTEM.ADR(window), stack); m.tid := lastTID @@ -319,7 +314,6 @@ PROCEDURE close* (m: tMenu); BEGIN IF m.tid # 0 THEN K.ExitID(m.tid); - (*DISPOSE(m.stack);*) m.tid := 0 END END close; @@ -346,7 +340,6 @@ BEGIN m.height := items.count*fontHeight - 2; m.font := G.CreateFont(1, "", {}); m.canvas := G.CreateCanvas(m.width + 1, m.height + 1); - (*m.stack := NIL;*) G.SetFont(m.canvas, m.font); RETURN m END create; diff --git a/programs/develop/cedit/SRC/Text.ob07 b/programs/develop/cedit/SRC/Text.ob07 index 06608de3ee..321e07040d 100644 --- a/programs/develop/cedit/SRC/Text.ob07 +++ b/programs/develop/cedit/SRC/Text.ob07 @@ -26,6 +26,7 @@ IMPORT RW, Search, E := Encodings, CB := Clipboard, + K := KolibriOS, ChangeLog, Lang := Languages; @@ -91,7 +92,7 @@ VAR ShowCursor: PROCEDURE; colors*: RECORD - text, back, seltext, selback, modified, saved, curline, numtext, numback, border*: INTEGER; + text, back, seltext, selback, modified, saved, curline, numtext, numback: INTEGER; comment, string, num, delim, key1, key2, key3: INTEGER END; canvas: G.tCanvas; @@ -766,7 +767,7 @@ BEGIN ELSIF lang = Lang.langIni THEN IF depth = 0 THEN - IF c = ";" THEN + IF (c = ";") OR (c = "#") THEN PrintLex(text, line, i, n, y, colors.comment, backColor); i := n ELSIF c = '"' THEN @@ -1851,7 +1852,7 @@ BEGIN IF drawCursor THEN cursor(text) END; - G.SetColor(canvas, colors.border); + G.SetColor(canvas, K.borderColor); G.Rect(canvas, 0, 0, size.X - 1, size.Y - 1); END draw; @@ -1890,7 +1891,7 @@ END create; PROCEDURE setColors* (text, back, seltext, selback, modified, saved, curline, numtext, numback, - comment, string, num, delim, key1, key2, key3, border: INTEGER); + comment, string, num, delim, key1, key2, key3: INTEGER); BEGIN colors.text := text; colors.back := back; @@ -1908,7 +1909,6 @@ BEGIN colors.key1 := key1; colors.key2 := key2; colors.key3 := key3; - colors.border := border; END setColors; diff --git a/programs/develop/cedit/SRC/scroll.ob07 b/programs/develop/cedit/SRC/scroll.ob07 index 9cb778dfc1..f02ade3083 100644 --- a/programs/develop/cedit/SRC/scroll.ob07 +++ b/programs/develop/cedit/SRC/scroll.ob07 @@ -19,7 +19,7 @@ MODULE Scroll; -IMPORT G := Graph; +IMPORT G := Graph, K := KolibriOS; TYPE @@ -27,7 +27,6 @@ TYPE vertical, mouse: BOOLEAN; canvas: G.tCanvas; xSize*, ySize*, pos, mousePos: INTEGER; - color, bkColor: INTEGER; value*, maxVal*: INTEGER END; @@ -50,21 +49,25 @@ BEGIN pos := 0 END; canvas := scroll.canvas; - G.SetColor(canvas, scroll.bkColor); + G.SetColor(canvas, K.scrollBkColor); G.clear(canvas); - G.SetColor(canvas, 0808080H); + G.SetColor(canvas, K.borderColor); G.Rect(canvas, 0, 0, scroll.xSize - 1, scroll.ySize - 1); - G.SetColor(canvas, scroll.color); + G.SetColor(canvas, K.scrollColor); DEC(b, 2); IF scroll.vertical THEN G.FillRect(canvas, 1, pos + 1, b, pos + b); - G.SetColor(canvas, 0404040H); + G.SetColor(canvas, K.borderColor); + G.Rect(canvas, 0, pos, b + 2, pos + b + 1); + G.SetColor(canvas, K.btnTextColor); G.HLine(canvas, pos + 1 + b DIV 2, 4, b - 4); G.HLine(canvas, pos + 1 + b DIV 2 - 3, 6, b - 6); G.HLine(canvas, pos + 1 + b DIV 2 + 3, 6, b - 6); ELSE G.FillRect(canvas, pos + 1, 1, pos + b, b); - G.SetColor(canvas, 0404040H); + G.SetColor(canvas, K.borderColor); + G.Rect(canvas, pos, 0, pos + b + 1, b + 2); + G.SetColor(canvas, K.btnTextColor); G.VLine(canvas, pos + b DIV 2, 4, b - 4); G.VLine(canvas, pos + b DIV 2 - 3, 6, b - 6); G.VLine(canvas, pos + b DIV 2 + 3, 6, b - 6); @@ -74,7 +77,7 @@ BEGIN END draw; -PROCEDURE create* (xSize, ySize: INTEGER; color, bkColor: INTEGER): tScroll; +PROCEDURE create* (xSize, ySize: INTEGER): tScroll; VAR scroll: tScroll; BEGIN @@ -85,8 +88,6 @@ BEGIN scroll.maxVal := 30; scroll.value := 0; scroll.mouse := FALSE; - scroll.bkColor := bkColor; - scroll.color := color; scroll.canvas := G.CreateCanvas(xSize, ySize) RETURN scroll END create; diff --git a/programs/system/menu/trunk/menu.asm b/programs/system/menu/trunk/menu.asm index ee3a5797ea..d6c92953a6 100644 --- a/programs/system/menu/trunk/menu.asm +++ b/programs/system/menu/trunk/menu.asm @@ -22,7 +22,7 @@ ;****************************************************************************** BTN_HEIGHT = 26 BTN_WIDTH = 178 - TXT_Y = (BTN_HEIGHT)/2-6 + TXT_Y = (BTN_HEIGHT)/2-7 FONT_TYPE = 0x90000000 PANEL_HEIGHT = 20