QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 11:59:34 +00:00
Code Issues Releases Wiki Activity

Rewords Font dialog message.

Browse source
This commit is contained in:
FellippeHeitor 2018-05-22 01:29:43 -03:00
parent a23524ebe1
commit 34dbdf81a0
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
InForm/UiEditor.bas
View file

@ -395,9 +395,10 @@ SUB __UI_Click (id AS LONG)
$END IF
CASE ViewMenuLoadedFonts
DIM Temp$
Temp$ = "These fonts are currently in use in your form:" + CHR$(10)
FOR Dummy = 1 TO UBOUND(PreviewFonts)
IF LEN(PreviewFonts(Dummy)) THEN
IF LEN(Temp$) THEN Temp$ = Temp$ + CHR$(10)
Temp$ = Temp$ + CHR$(10)
Temp$ = Temp$ + PreviewFonts(Dummy)
END IF
NEXT