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

Auto-size for labels tweaked (taller box).

Browse source
This commit is contained in:
FellippeHeitor 2018-05-05 23:47:37 -03:00
parent 041636dfcf
commit d4f5218716
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
InForm/UiEditorPreview.bas
View file

@ -93,11 +93,11 @@ SUB AutoSizeLabel (this AS __UI_ControlTYPE)
DIM tempFont AS LONG, tempCenter AS INTEGER
tempFont = _FONT
_FONT this.Font
IF this.WordWrap = False AND (this.Height = 23 OR this.Height = uheight) THEN
IF this.WordWrap = False AND (this.Height = 23 OR this.Height = uheight + 6) THEN
this.Width = __UI_PrintWidth(Caption(this.ID))
IF this.Height <> uheight THEN
IF this.Height <> uheight + 6 THEN
tempCenter = this.Top + this.Height / 2
this.Height = uheight
this.Height = uheight + 6
this.Top = tempCenter - this.Height / 2
END IF
this.Redraw = True