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

Minor adjustments to TextBox control rendering.

Browse source
This commit is contained in:
FellippeHeitor 2016-10-07 20:56:12 -03:00
parent 92f0e8ee61
commit 2de37eb062
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
UI.bas
View file

@ -2550,18 +2550,19 @@ SUB __UI_DrawTextBox (This AS __UI_ControlTYPE, ControlState, ss1 AS LONG, ss2 A
_FREEIMAGE This.Canvas
END IF
This.Canvas = _NEWIMAGE(This.Width + 2, This.Height + 2, 32)
This.Canvas = _NEWIMAGE(This.Width, This.Height, 32)
PrevDest = _DEST
_DEST This.Canvas
_FONT __UI_Fonts(This.Font)
CLS , _RGBA32(0, 0, 0, 0)
'------
IF This.BackStyle = __UI_Opaque THEN
_PRINTMODE _FILLBACKGROUND
CLS , This.BackColor
ELSE
_PRINTMODE _KEEPBACKGROUND
CLS , _RGBA32(0, 0, 0, 0)
END IF
TempCaption$ = __UI_ClipText(__UI_Captions(This.ID), This.Width - CaptionIndent * 2)