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

Declutters font list for new forms while still trying to load them all.

Browse source
This commit is contained in:
FellippeHeitor 2018-05-06 10:44:13 -03:00
parent dcb2b1ac59
commit c1a05509a9
2 changed files with 22 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
InForm/UiEditorPreview.bas
View file

@ -338,6 +338,8 @@ SUB __UI_BeforeUpdateDisplay
CLOSE #FileToLoad CLOSE #FileToLoad
LoadPreview LoadPreview
LoadDefaultFonts
UndoPointer = 0 UndoPointer = 0
TotalUndoImages = 0 TotalUndoImages = 0
SendSignal -7 'New form created SendSignal -7 'New form created
@ -912,7 +914,7 @@ SUB __UI_FormResized
END SUB END SUB
SUB __UI_OnLoad SUB __UI_OnLoad
LoadDefaultFonts
END SUB END SUB
SUB __UI_KeyPress (id AS LONG) SUB __UI_KeyPress (id AS LONG)
@ -2049,3 +2051,21 @@ SUB RestoreRedoImage
LoadPreview LoadPreview
END SUB END SUB
SUB LoadDefaultFonts
IF Control(__UI_FormID).Font = 8 OR Control(__UI_FormID).Font = 16 THEN
Control(__UI_FormID).Font = SetFont("segoeui.ttf", 12)
END IF
IF Control(__UI_FormID).Font = 8 OR Control(__UI_FormID).Font = 16 THEN
Control(__UI_FormID).Font = SetFont("arial.ttf", 12)
END IF
IF Control(__UI_FormID).Font = 8 OR Control(__UI_FormID).Font = 16 THEN
Control(__UI_FormID).Font = SetFont("cour.ttf", 12)
END IF
IF Control(__UI_FormID).Font = 8 OR Control(__UI_FormID).Font = 16 THEN
Control(__UI_FormID).Font = SetFont("/Library/Fonts/Arial.ttf", 12)
END IF
IF Control(__UI_FormID).Font = 8 OR Control(__UI_FormID).Font = 16 THEN
Control(__UI_FormID).Font = SetFont("InForm/resources/NotoMono-Regular.ttf", 12)
END IF
END SUB

2
InForm/UiEditorPreview.frm
View file

@ -7,7 +7,7 @@ SUB __UI_LoadForm
$RESIZE:ON $RESIZE:ON
__UI_NewID = __UI_NewControl(__UI_Type_Form, "Form1", 300, 300, 0, 0,0) __UI_NewID = __UI_NewControl(__UI_Type_Form, "Form1", 300, 300, 0, 0,0)
Control(__UI_NewID).Font = SetFont("segoeui.ttf?arial.ttf?/Library/Fonts/Arial.ttf?InForm/resources/NotoMono-Regular.ttf?cour.ttf", 12)
END SUB END SUB
SUB __UI_AssignIDs SUB __UI_AssignIDs