mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-15 11:59:34 +00:00
Extends "LOCKCONTROLS" functionality to all properties.
This commit is contained in:
FellippeHeitor
parent
10b3e99821
commit
6cfd2193db
1 changed files with 393 additions and 211 deletions
|
|
@ -705,9 +705,16 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
NewFontSize = VAL(b$)
|
NewFontSize = VAL(b$)
|
||||||
|
|
||||||
IF TotalSep = 1 AND NewFontSize > 0 THEN
|
IF TotalSep = 1 AND NewFontSize > 0 THEN
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
i = LockedControls(j)
|
||||||
|
GOSUB ChangeFont
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
IF __UI_TotalSelectedControls > 0 THEN
|
IF __UI_TotalSelectedControls > 0 THEN
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
|
ChangeFont:
|
||||||
Control(i).Font = SetFont(NewFontFile, NewFontSize)
|
Control(i).Font = SetFont(NewFontFile, NewFontSize)
|
||||||
DIM tempFont AS LONG
|
DIM tempFont AS LONG
|
||||||
tempFont = _FONT
|
tempFont = _FONT
|
||||||
|
|
@ -728,6 +735,7 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
_FONT tempFont
|
_FONT tempFont
|
||||||
|
IF LockedControlsGOSUB THEN RETURN
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
ELSE
|
ELSE
|
||||||
|
|
@ -742,18 +750,36 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
IF MustRedrawMenus THEN __UI_RefreshMenuBar
|
IF MustRedrawMenus THEN __UI_RefreshMenuBar
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
END IF
|
||||||
CASE 9 'Tooltip
|
CASE 9 'Tooltip
|
||||||
b$ = ReadSequential$(Property$, 4)
|
b$ = ReadSequential$(Property$, 4)
|
||||||
b$ = ReadSequential$(Property$, CVL(b$))
|
b$ = ReadSequential$(Property$, CVL(b$))
|
||||||
|
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
i = LockedControls(j)
|
||||||
|
GOSUB ChangeTooltip
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
|
ChangeTooltip:
|
||||||
ToolTip(i) = Replace(b$, "\n", CHR$(10), False, 0)
|
ToolTip(i) = Replace(b$, "\n", CHR$(10), False, 0)
|
||||||
|
IF LockedControlsGOSUB THEN RETURN
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 10 'Value
|
CASE 10 'Value
|
||||||
b$ = ReadSequential$(Property$, LEN(FloatValue))
|
b$ = ReadSequential$(Property$, LEN(FloatValue))
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
i = LockedControls(j)
|
||||||
|
GOSUB ChangeValue
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
|
ChangeValue:
|
||||||
IF Control(i).Type = __UI_Type_CheckBox OR (Control(i).Type = __UI_Type_MenuItem AND Control(i).BulletStyle = __UI_CheckMark) OR Control(i).Type = __UI_Type_ToggleSwitch THEN
|
IF Control(i).Type = __UI_Type_CheckBox OR (Control(i).Type = __UI_Type_MenuItem AND Control(i).BulletStyle = __UI_CheckMark) OR Control(i).Type = __UI_Type_ToggleSwitch THEN
|
||||||
IF _CV(_FLOAT, b$) <> 0 THEN
|
IF _CV(_FLOAT, b$) <> 0 THEN
|
||||||
Control(i).Value = True
|
Control(i).Value = True
|
||||||
|
|
@ -769,105 +795,187 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
ELSE
|
ELSE
|
||||||
Control(i).Value = _CV(_FLOAT, b$)
|
Control(i).Value = _CV(_FLOAT, b$)
|
||||||
END IF
|
END IF
|
||||||
|
IF LockedControlsGOSUB THEN RETURN
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 11 'Min
|
CASE 11 'Min
|
||||||
b$ = ReadSequential$(Property$, LEN(FloatValue))
|
b$ = ReadSequential$(Property$, LEN(FloatValue))
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).Min = _CV(_FLOAT, b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).Min = _CV(_FLOAT, b$)
|
Control(i).Min = _CV(_FLOAT, b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 12 'Max
|
CASE 12 'Max
|
||||||
b$ = ReadSequential$(Property$, LEN(FloatValue))
|
b$ = ReadSequential$(Property$, LEN(FloatValue))
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
i = LockedControls(j)
|
||||||
|
GOSUB ChangeMax
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
|
ChangeMax:
|
||||||
Control(i).Max = _CV(_FLOAT, b$)
|
Control(i).Max = _CV(_FLOAT, b$)
|
||||||
IF Control(i).Type = __UI_Type_TextBox THEN
|
IF Control(i).Type = __UI_Type_TextBox THEN
|
||||||
Text(i) = LEFT$(Text(i), INT(Control(i).Max))
|
Text(i) = LEFT$(Text(i), INT(Control(i).Max))
|
||||||
IF LEN(Mask(i)) > 0 THEN Mask(i) = ""
|
IF LEN(Mask(i)) > 0 THEN Mask(i) = ""
|
||||||
END IF
|
END IF
|
||||||
|
IF LockedControlsGOSUB THEN RETURN
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 13 'Interval
|
CASE 13 'Interval
|
||||||
b$ = ReadSequential$(Property$, LEN(FloatValue))
|
b$ = ReadSequential$(Property$, LEN(FloatValue))
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).Interval = _CV(_FLOAT, b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).Interval = _CV(_FLOAT, b$)
|
Control(i).Interval = _CV(_FLOAT, b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 14 'Stretch
|
CASE 14 'Stretch
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).Stretch = CVI(b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).Stretch = CVI(b$)
|
Control(i).Stretch = CVI(b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 15 'Has border
|
CASE 15 'Has border
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).HasBorder = CVI(b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).HasBorder = CVI(b$)
|
Control(i).HasBorder = CVI(b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 16 'Show percentage
|
CASE 16 'Show percentage
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).ShowPercentage = CVI(b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).ShowPercentage = CVI(b$)
|
Control(i).ShowPercentage = CVI(b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 17 'Word wrap
|
CASE 17 'Word wrap
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).WordWrap = CVI(b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).WordWrap = CVI(b$)
|
Control(i).WordWrap = CVI(b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 18 'Can have focus
|
CASE 18 'Can have focus
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).CanHaveFocus = CVI(b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).CanHaveFocus = CVI(b$)
|
Control(i).CanHaveFocus = CVI(b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 19 'Disabled
|
CASE 19 'Disabled
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).Disabled = CVI(b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).Disabled = CVI(b$)
|
Control(i).Disabled = CVI(b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 20 'Hidden
|
CASE 20 'Hidden
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
i = LockedControls(j)
|
||||||
|
GOSUB ChangeHidden
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
|
ChangeHidden:
|
||||||
Control(i).Hidden = CVI(b$)
|
Control(i).Hidden = CVI(b$)
|
||||||
IF Control(i).Type = __UI_Type_MenuItem AND __UI_ParentMenu = Control(i).ParentID THEN
|
IF Control(i).Type = __UI_Type_MenuItem AND __UI_ParentMenu = Control(i).ParentID THEN
|
||||||
__UI_ActivateMenu Control(Control(i).ParentID), False
|
__UI_ActivateMenu Control(Control(i).ParentID), False
|
||||||
END IF
|
END IF
|
||||||
|
IF LockedControlsGOSUB THEN RETURN
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
CASE 21 'CenteredWindow
|
END IF
|
||||||
|
CASE 21 'CenteredWindow - Form only
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
TempValue = CVI(b$)
|
TempValue = CVI(b$)
|
||||||
IF __UI_TotalSelectedControls = 0 THEN
|
IF TotalLockedControls = 0 AND __UI_TotalSelectedControls = 0 THEN
|
||||||
Control(__UI_FormID).CenteredWindow = TempValue
|
Control(__UI_FormID).CenteredWindow = TempValue
|
||||||
END IF
|
END IF
|
||||||
CASE 22 'Alignment
|
CASE 22 'Alignment
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
i = LockedControls(j)
|
||||||
|
GOSUB ChangeAlignment
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
|
ChangeAlignment:
|
||||||
Control(i).Align = CVI(b$)
|
Control(i).Align = CVI(b$)
|
||||||
IF Control(i).Type = __UI_Type_MenuBar THEN
|
IF Control(i).Type = __UI_Type_MenuBar THEN
|
||||||
IF Control(i).Align <> __UI_Left THEN Control(i).Align = __UI_Right
|
IF Control(i).Align <> __UI_Left THEN Control(i).Align = __UI_Right
|
||||||
IF __UI_ActiveMenu > 0 THEN __UI_DestroyControl Control(__UI_ActiveMenu)
|
IF __UI_ActiveMenu > 0 THEN __UI_DestroyControl Control(__UI_ActiveMenu)
|
||||||
__UI_RefreshMenuBar
|
__UI_RefreshMenuBar
|
||||||
END IF
|
END IF
|
||||||
|
IF LockedControlsGOSUB THEN RETURN
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 23 'ForeColor
|
CASE 23 'ForeColor
|
||||||
b$ = ReadSequential$(Property$, 4)
|
b$ = ReadSequential$(Property$, 4)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).ForeColor = _CV(_UNSIGNED LONG, b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
IF __UI_TotalSelectedControls > 0 THEN
|
IF __UI_TotalSelectedControls > 0 THEN
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
|
|
@ -882,8 +990,14 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
END IF
|
END IF
|
||||||
|
END IF
|
||||||
CASE 24 'BackColor
|
CASE 24 'BackColor
|
||||||
b$ = ReadSequential$(Property$, 4)
|
b$ = ReadSequential$(Property$, 4)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).BackColor = _CV(_UNSIGNED LONG, b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
IF __UI_TotalSelectedControls > 0 THEN
|
IF __UI_TotalSelectedControls > 0 THEN
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
|
|
@ -898,8 +1012,14 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
END IF
|
END IF
|
||||||
|
END IF
|
||||||
CASE 25 'SelectedForeColor
|
CASE 25 'SelectedForeColor
|
||||||
b$ = ReadSequential$(Property$, 4)
|
b$ = ReadSequential$(Property$, 4)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).SelectedForeColor = _CV(_UNSIGNED LONG, b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
IF __UI_TotalSelectedControls > 0 THEN
|
IF __UI_TotalSelectedControls > 0 THEN
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
|
|
@ -914,8 +1034,14 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
END IF
|
END IF
|
||||||
|
END IF
|
||||||
CASE 26 'SelectedBackColor
|
CASE 26 'SelectedBackColor
|
||||||
b$ = ReadSequential$(Property$, 4)
|
b$ = ReadSequential$(Property$, 4)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).SelectedBackColor = _CV(_UNSIGNED LONG, b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
IF __UI_TotalSelectedControls > 0 THEN
|
IF __UI_TotalSelectedControls > 0 THEN
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
|
|
@ -930,8 +1056,14 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
END IF
|
END IF
|
||||||
|
END IF
|
||||||
CASE 27 'BorderColor
|
CASE 27 'BorderColor
|
||||||
b$ = ReadSequential$(Property$, 4)
|
b$ = ReadSequential$(Property$, 4)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).BorderColor = _CV(_UNSIGNED LONG, b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
IF __UI_TotalSelectedControls > 0 THEN
|
IF __UI_TotalSelectedControls > 0 THEN
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
|
|
@ -941,23 +1073,34 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
ELSE
|
ELSE
|
||||||
Control(__UI_FormID).BorderColor = _CV(_UNSIGNED LONG, b$)
|
Control(__UI_FormID).BorderColor = _CV(_UNSIGNED LONG, b$)
|
||||||
END IF
|
END IF
|
||||||
|
END IF
|
||||||
CASE 28 'BackStyle
|
CASE 28 'BackStyle
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).BackStyle = CVI(b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).BackStyle = CVI(b$)
|
Control(i).BackStyle = CVI(b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
CASE 29 'CanResize
|
END IF
|
||||||
|
CASE 29 'CanResize - Form only
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
TempValue = CVI(b$)
|
TempValue = CVI(b$)
|
||||||
IF __UI_TotalSelectedControls = 0 THEN
|
IF TotalLockedControls = 0 AND __UI_TotalSelectedControls = 0 THEN
|
||||||
Control(__UI_FormID).CanResize = TempValue
|
Control(__UI_FormID).CanResize = TempValue
|
||||||
END IF
|
END IF
|
||||||
CASE 31 'Padding
|
CASE 31 'Padding
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
TempValue = CVI(b$)
|
TempValue = CVI(b$)
|
||||||
IF __UI_TotalSelectedControls > 0 THEN
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).Padding = TempValue
|
||||||
|
NEXT
|
||||||
|
ELSEIF __UI_TotalSelectedControls > 0 THEN
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).Padding = TempValue
|
Control(i).Padding = TempValue
|
||||||
|
|
@ -966,52 +1109,91 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
END IF
|
END IF
|
||||||
CASE 32 'Vertical Alignment
|
CASE 32 'Vertical Alignment
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).VAlign = CVI(b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).VAlign = CVI(b$)
|
Control(i).VAlign = CVI(b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 33 'Password field
|
CASE 33 'Password field
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).PasswordField = CVI(b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected AND Control(i).Type = __UI_Type_TextBox THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).PasswordField = CVI(b$)
|
Control(i).PasswordField = CVI(b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
CASE 34 'Encoding
|
END IF
|
||||||
|
CASE 34 'Encoding - Form only
|
||||||
b$ = ReadSequential$(Property$, 4)
|
b$ = ReadSequential$(Property$, 4)
|
||||||
Control(__UI_FormID).Encoding = CVL(b$)
|
Control(__UI_FormID).Encoding = CVL(b$)
|
||||||
CASE 35 'Mask
|
CASE 35 'Mask
|
||||||
b$ = ReadSequential$(Property$, 4)
|
b$ = ReadSequential$(Property$, 4)
|
||||||
b$ = ReadSequential$(Property$, CVL(b$))
|
b$ = ReadSequential$(Property$, CVL(b$))
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
i = LockedControls(j)
|
||||||
|
GOSUB ChangeMask
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
|
ChangeMask:
|
||||||
Mask(i) = b$
|
Mask(i) = b$
|
||||||
Text(i) = ""
|
Text(i) = ""
|
||||||
IF LEN(Mask(i)) THEN Control(i).Max = 0
|
IF LEN(Mask(i)) THEN Control(i).Max = 0
|
||||||
|
IF LockedControlsGOSUB THEN RETURN
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 36 'MinInterval
|
CASE 36 'MinInterval
|
||||||
b$ = ReadSequential$(Property$, LEN(FloatValue))
|
b$ = ReadSequential$(Property$, LEN(FloatValue))
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).MinInterval = _CV(_FLOAT, b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).MinInterval = _CV(_FLOAT, b$)
|
Control(i).MinInterval = _CV(_FLOAT, b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 37 'BulletStyle
|
CASE 37 'BulletStyle
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).BulletStyle = CVI(b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).BulletStyle = CVI(b$)
|
Control(i).BulletStyle = CVI(b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 38 'AutoScroll
|
CASE 38 'AutoScroll
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
IF TotalLockedControls THEN
|
||||||
|
FOR j = 1 TO TotalLockedControls
|
||||||
|
Control(LockedControls(j)).AutoScroll = CVI(b$)
|
||||||
|
NEXT
|
||||||
|
ELSE
|
||||||
FOR i = 1 TO UBOUND(Control)
|
FOR i = 1 TO UBOUND(Control)
|
||||||
IF Control(i).ControlIsSelected THEN
|
IF Control(i).ControlIsSelected THEN
|
||||||
Control(i).AutoScroll = CVI(b$)
|
Control(i).AutoScroll = CVI(b$)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
END IF
|
||||||
CASE 201 TO 210
|
CASE 201 TO 210
|
||||||
'Alignment commands
|
'Alignment commands
|
||||||
b$ = ReadSequential$(Property$, 2)
|
b$ = ReadSequential$(Property$, 2)
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue