QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-14 19:49:33 +00:00
Code Issues Releases Wiki Activity

Properly loads PictureBox controls with Stretch = True/False.

Browse source
This commit is contained in:
FellippeHeitor 2018-08-26 03:01:38 -03:00
parent 8e05b84297
commit cb5c6cda57
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
InForm/UiEditorPreview.bas
View file

@ -2103,7 +2103,10 @@ SUB LoadPreview (Destination AS _BYTE)
__UI_TotalSelectedControls = __UI_TotalSelectedControls + 1
IF __UI_TotalSelectedControls = 1 THEN FirstToBeSelected = TempValue
END IF
IF NewType = __UI_Type_PictureBox THEN Control(TempValue).HasBorder = False
IF NewType = __UI_Type_PictureBox THEN
Control(TempValue).HasBorder = False
Control(TempValue).Stretch = False
END IF
DO 'read properties
IF NOT Disk THEN b$ = ReadSequential$(Clip$, 2) ELSE b$ = SPACE$(2): GET #BinaryFileNum, , b$
@ -2393,7 +2396,10 @@ SUB LoadPreviewText
END IF
TempValue = __UI_NewControl(NewType, NewName, NewWidth, NewHeight, NewLeft, NewTop, __UI_GetID(NewParentID))
IF NewType = __UI_Type_PictureBox THEN Control(TempValue).HasBorder = False
IF NewType = __UI_Type_PictureBox THEN
Control(TempValue).HasBorder = False
Control(TempValue).Stretch = False
END IF
IF NewType = __UI_Type_Label THEN Control(TempValue).VAlign = __UI_Top
DO 'read properties