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

Replaces all instances of _PRINTSTRING with __UI_PrintString (at last).

Browse source
This commit is contained in:
FellippeHeitor 2018-05-16 11:19:37 -03:00
parent c6e37ddddf
commit 4d80507f00
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
InForm/InForm.ui
View file

@ -365,7 +365,7 @@ SUB __UI_Init
COLOR Control(__UI_FormID).ForeColor, Control(__UI_FormID).BackColor
CLS
IF Control(__UI_FormID).Font > 0 THEN _FONT Control(__UI_FormID).Font
_PRINTSTRING (_WIDTH / 2 - _PRINTWIDTH("Initializing...") / 2, _HEIGHT / 2 - _FONTHEIGHT / 2), "Initializing..."
__UI_PrintString _WIDTH / 2 - _PRINTWIDTH("Initializing...") / 2, _HEIGHT / 2 - _FONTHEIGHT / 2, "Initializing..."
_SCREENSHOW
_DELAY .1

8
InForm/UiEditor.bas
View file

@ -1817,7 +1817,7 @@ SUB __UI_OnLoad
LINE (1, 3)-(15, 13), _RGB32(255, 255, 255), BF
LINE (1, 3)-(15, 13), _RGB32(132, 165, 189), B
COLOR _RGB32(55, 55, 55), _RGBA32(0, 0, 0, 0)
_PRINTSTRING (5, 5), "#"
__UI_PrintString 5, 5, "#"
'Draw Align menu icons
Control(AlignMenuAlignLeft).HelperCanvas = _NEWIMAGE(48, 16, 32)
@ -2118,7 +2118,7 @@ SUB __UI_OnLoad
_FONT Control(__UI_FormID).Font
CLS , __UI_DefaultColor(__UI_Type_Form, 2)
COLOR __UI_DefaultColor(__UI_Type_Form, 1), _RGBA32(0, 0, 0, 0)
_PRINTSTRING (_WIDTH \ 2 - _PRINTWIDTH(b$) \ 2, _HEIGHT \ 2 - _FONTHEIGHT \ 2), b$
__UI_PrintString _WIDTH \ 2 - _PRINTWIDTH(b$) \ 2, _HEIGHT \ 2 - _FONTHEIGHT \ 2, b$
_DISPLAY
RETURN
END SUB
@ -6194,7 +6194,7 @@ SUB UpdateColorPreview (Attribute AS _BYTE, ForeColor AS _UNSIGNED LONG, BackCol
LINE (21, 21)-STEP(_WIDTH - 43, _HEIGHT - 43), ForeColor, B
ColorPreviewWord$ = "#" + MID$(HEX$(ForeColor), 3)
COLOR ForeColor, BackColor
_PRINTSTRING (_WIDTH \ 2 - _PRINTWIDTH(ColorPreviewWord$) \ 2, _HEIGHT \ 2 - _FONTHEIGHT \ 2), ColorPreviewWord$
__UI_PrintString _WIDTH \ 2 - _PRINTWIDTH(ColorPreviewWord$) \ 2, _HEIGHT \ 2 - _FONTHEIGHT \ 2, ColorPreviewWord$
ELSE
CLS , BackColor
COLOR ForeColor, BackColor
@ -6204,7 +6204,7 @@ SUB UpdateColorPreview (Attribute AS _BYTE, ForeColor AS _UNSIGNED LONG, BackCol
CASE 2, 4
ColorPreviewWord$ = "BG: #" + MID$(HEX$(BackColor), 3)
END SELECT
_PRINTSTRING (_WIDTH \ 2 - _PRINTWIDTH(ColorPreviewWord$) \ 2, _HEIGHT \ 2 - _FONTHEIGHT \ 2), ColorPreviewWord$
__UI_PrintString _WIDTH \ 2 - _PRINTWIDTH(ColorPreviewWord$) \ 2, _HEIGHT \ 2 - _FONTHEIGHT \ 2, ColorPreviewWord$
ColorPreviewWord$ = MID$(ColorPreviewWord$, 5)
END IF
_DEST 0