QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 10:30:36 +00:00
Code Issues Releases Wiki Activity

Reduces width of column Line Count (SUBs dialog)

Browse source
This commit is contained in:
Fellippe Heitor 2021-02-15 20:57:37 -03:00
parent 97d194957a
commit 339b82d1b0
1 changed files with 34 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
source/ide/ide_methods.bas
View file

@ -8654,8 +8654,8 @@ FUNCTION idesubs$
IF maxModuleNameLen > moduleNameLenLimit + 2 THEN IF maxModuleNameLen > moduleNameLenLimit + 2 THEN
l$ = LEFT$(l$, moduleNameLenLimit - 1) + STRING$(3, 250) l$ = LEFT$(l$, moduleNameLenLimit - 1) + STRING$(3, 250)
maxModuleNameLen = moduleNameLenLimit maxModuleNameLen = moduleNameLenLimit
ELSEIF maxModuleNameLen < 20 THEN ELSEIF maxModuleNameLen < 10 THEN
maxModuleNameLen = 20 maxModuleNameLen = 10
END IF END IF
ly$ = MKL$(1) ly$ = MKL$(1)
@ -8664,6 +8664,7 @@ FUNCTION idesubs$
PreferCurrentCursorSUBFUNC = 0 PreferCurrentCursorSUBFUNC = 0
InsideDECLARE = 0 InsideDECLARE = 0
FoundExternalSUBFUNC = 0 FoundExternalSUBFUNC = 0
maxLineCount = 0
REDIM SortedSubsList(1 TO 100) AS STRING * 998 REDIM SortedSubsList(1 TO 100) AS STRING * 998
REDIM CaseBkpSubsList(1 TO 100) AS STRING * 998 REDIM CaseBkpSubsList(1 TO 100) AS STRING * 998
@ -8800,14 +8801,25 @@ FUNCTION idesubs$
'build headers (normal, sorted, normal with line count, sorted with line count) 'build headers (normal, sorted, normal with line count, sorted with line count)
IF TotalSUBs > 0 THEN IF TotalSUBs > 0 THEN
IF LEN(LTRIM$(STR$(maxLineCount))) <= 10 THEN
maxLineCountSpace = 10
linesHeader$ = "Line count"
external$ = "external"
END IF
IF LEN(LTRIM$(STR$(maxLineCount))) <= 5 THEN
maxLineCountSpace = 5
linesHeader$ = "Lines"
external$ = CHR$(196)
END IF
l$ = l$ + SPACE$((maxModuleNameLen + 2) - LEN(l$)) l$ = l$ + SPACE$((maxModuleNameLen + 2) - LEN(l$))
lSized$ = l$ lSized$ = l$
lSortedSized$ = l$ lSortedSized$ = l$
l$ = l$ + " Type Arguments" l$ = l$ + " Type Arguments"
lSorted$ = l$ lSorted$ = l$
lSorted$ = l$ lSorted$ = l$
lSized$ = lSized$ + " Line count Type Arguments" + sep lSized$ = lSized$ + " " + linesHeader$ + " Type Arguments" + sep
lSortedSized$ = lSortedSized$ + " Line count Type Arguments" lSortedSized$ = lSortedSized$ + " " + linesHeader$ + " Type Arguments"
ELSE ELSE
l$ = ideprogname$ l$ = ideprogname$
IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$ IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$
@ -8835,9 +8847,9 @@ FUNCTION idesubs$
l$ = l$ + sep + CHR$(195) + CHR$(196) + n$ + " " + CHR$(16) + CHR$(2) + _ l$ = l$ + sep + CHR$(195) + CHR$(196) + n$ + " " + CHR$(16) + CHR$(2) + _
sf$ + CHR$(16) + CHR$(16) + args$ sf$ + CHR$(16) + CHR$(16) + args$
IF TotalLines(x) = 0 THEN num$ = "external" ELSE num$ = LTRIM$(STR$(TotalLines(x))) IF TotalLines(x) = 0 THEN num$ = external$ ELSE num$ = LTRIM$(STR$(TotalLines(x)))
lSized$ = lSized$ + CHR$(195) + CHR$(196) + n$ + " " + _ lSized$ = lSized$ + CHR$(195) + CHR$(196) + n$ + " " + _
CHR$(16) + CHR$(2) + SPACE$(10 - LEN(num$)) + num$ + " " _ CHR$(16) + CHR$(2) + SPACE$(maxLineCountSpace - LEN(num$)) + num$ + " " _
+ sf$ + CHR$(16) + CHR$(16) + args$ + sep + sf$ + CHR$(16) + CHR$(16) + args$ + sep
listItem$ = n$ + " " + CHR$(1) + CHR$(16) + CHR$(2) + sf$ + CHR$(16) + CHR$(16) + args$ listItem$ = n$ + " " + CHR$(1) + CHR$(16) + CHR$(2) + sf$ + CHR$(16) + CHR$(16) + args$
@ -8865,10 +8877,10 @@ FUNCTION idesubs$
MID$(temp$, INSTR(temp$, CHR$(1)) + 1) MID$(temp$, INSTR(temp$, CHR$(1)) + 1)
num$ = LTRIM$(STR$(TotalLines(RestoreCaseBkp))) num$ = LTRIM$(STR$(TotalLines(RestoreCaseBkp)))
IF LEFT$(temp$, 1) = "*" THEN num$ = "external" IF LEFT$(temp$, 1) = "*" THEN num$ = external$
lSortedSized$ = lSortedSized$ + sep + CHR$(195) + CHR$(196) lSortedSized$ = lSortedSized$ + sep + CHR$(195) + CHR$(196)
lSortedSized$ = lSortedSized$ + LEFT$(temp$, INSTR(temp$, CHR$(1)) - 1) + _ lSortedSized$ = lSortedSized$ + LEFT$(temp$, INSTR(temp$, CHR$(1)) - 1) + _
SPACE$(10 - LEN(num$)) + CHR$(16) + CHR$(2) + num$ + " " + _ SPACE$(maxLineCountSpace - LEN(num$)) + CHR$(16) + CHR$(2) + num$ + " " + _
MID$(temp$, INSTR(temp$, CHR$(1)) + 1) MID$(temp$, INSTR(temp$, CHR$(1)) + 1)
EXIT FOR EXIT FOR
END IF END IF
@ -8932,21 +8944,20 @@ FUNCTION idesubs$
o(i).typ = 4 'check box o(i).typ = 4 'check box
o(i).x = 2 o(i).x = 2
o(i).y = idewy + idesubwindow - 6 o(i).y = idewy + idesubwindow - 6
o(i).nam = idenewtxt("Show #Line Count") o(i).nam = idenewtxt("#Line Count")
o(i).sel = IDESubsLength o(i).sel = IDESubsLength
IF TotalSUBs > 1 THEN i = i + 1
i = i + 1 o(i).typ = 4 'check box
o(i).typ = 4 'check box o(i).x = 18
o(i).x = 22 o(i).y = idewy + idesubwindow - 6
o(i).y = idewy + idesubwindow - 6 o(i).nam = idenewtxt("#Sort")
o(i).nam = idenewtxt("#Sorted A-Z") o(i).sel = SortedSubsFlag
o(i).sel = SortedSubsFlag
END IF
i = i + 1 i = i + 1
o(i).typ = 3 o(i).typ = 3
o(i).x = p.w - 30 o(i).x = p.x + p.w - 26
o(i).w = 26
o(i).y = idewy + idesubwindow - 6 o(i).y = idewy + idesubwindow - 6
o(i).txt = idenewtxt("#Edit" + sep + "#Cancel") o(i).txt = idenewtxt("#Edit" + sep + "#Cancel")
o(i).dft = 1 o(i).dft = 1
@ -8977,6 +8988,10 @@ FUNCTION idesubs$
'-------- end of generic display dialog box & objects -------- '-------- end of generic display dialog box & objects --------
'-------- custom display changes -------- '-------- custom display changes --------
IF FoundExternalSUBFUNC THEN
COLOR 2, 7
_PRINTSTRING (p.x + p.w - 32, p.y + p.h), "* external"
END IF
'-------- end of custom display changes -------- '-------- end of custom display changes --------
'update visual page and cursor position 'update visual page and cursor position
@ -9136,6 +9151,7 @@ FUNCTION idesubs$
AddLineCount: AddLineCount:
ModuleSize = ModuleSize + 1 ModuleSize = ModuleSize + 1
TotalLines(LastOpenSUB) = ModuleSize TotalLines(LastOpenSUB) = ModuleSize
IF ModuleSize > maxLineCount THEN maxLineCount = ModuleSize
SubClosed = -1 SubClosed = -1
RETURN RETURN
END FUNCTION END FUNCTION