mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-15 11:59:34 +00:00
UiEditorPreview: AutoNameControls (AdaptName$()). Also:
- Allow only one menu bar control to be right-aligned. - Automatically inform the editor that a context menu can't be shown (too small a form).
This commit is contained in:
FellippeHeitor
parent
fd3a270fe3
commit
12dfea5ea1
2 changed files with 147 additions and 22 deletions
|
|
@ -14,11 +14,28 @@ CONST OffsetTotalControlsSelected = 19
|
||||||
CONST OffsetFormID = 23
|
CONST OffsetFormID = 23
|
||||||
CONST OffsetFirstSelectedID = 27
|
CONST OffsetFirstSelectedID = 27
|
||||||
CONST OffsetMenuPanelIsON = 31
|
CONST OffsetMenuPanelIsON = 31
|
||||||
CONST OffsetPropertyChanged = 33
|
CONST OffsetAutoName = 33
|
||||||
CONST OffsetPropertyValue = 35
|
CONST OffsetPropertyChanged = 35
|
||||||
|
CONST OffsetPropertyValue = 37
|
||||||
|
|
||||||
DIM SHARED UiPreviewPID AS LONG
|
DIM SHARED UiPreviewPID AS LONG
|
||||||
DIM SHARED ExeIcon AS LONG
|
DIM SHARED ExeIcon AS LONG
|
||||||
|
DIM SHARED AutoNameControls AS _BYTE
|
||||||
|
|
||||||
|
DIM i AS LONG
|
||||||
|
DIM SHARED AlphaNumeric(255)
|
||||||
|
FOR i = 48 TO 57: AlphaNumeric(i) = -1: NEXT
|
||||||
|
FOR i = 65 TO 90: AlphaNumeric(i) = -1: NEXT
|
||||||
|
FOR i = 97 TO 122: AlphaNumeric(i) = -1: NEXT
|
||||||
|
AlphaNumeric(95) = -1
|
||||||
|
|
||||||
|
DIM SHARED Alpha(255)
|
||||||
|
FOR i = 65 TO 90: Alpha(i) = -1: NEXT
|
||||||
|
FOR i = 97 TO 122: Alpha(i) = -1: NEXT
|
||||||
|
Alpha(95) = -1
|
||||||
|
|
||||||
|
DIM SHARED Numeric(255)
|
||||||
|
FOR i = 48 TO 57: Numeric(i) = -1: NEXT
|
||||||
|
|
||||||
$IF WIN THEN
|
$IF WIN THEN
|
||||||
DECLARE DYNAMIC LIBRARY "kernel32"
|
DECLARE DYNAMIC LIBRARY "kernel32"
|
||||||
|
|
@ -72,7 +89,7 @@ END SUB
|
||||||
|
|
||||||
SUB __UI_BeforeUpdateDisplay
|
SUB __UI_BeforeUpdateDisplay
|
||||||
DIM NewWindowTop AS INTEGER, NewWindowLeft AS INTEGER
|
DIM NewWindowTop AS INTEGER, NewWindowLeft AS INTEGER
|
||||||
DIM b$, TempValue AS LONG, i AS LONG, UiEditorPID AS LONG
|
DIM b$, TempValue AS LONG, i AS LONG, j AS LONG, UiEditorPID AS LONG
|
||||||
STATIC MidRead AS _BYTE, UiEditorFile AS INTEGER
|
STATIC MidRead AS _BYTE, UiEditorFile AS INTEGER
|
||||||
|
|
||||||
SavePreview
|
SavePreview
|
||||||
|
|
@ -102,6 +119,9 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
END IF
|
END IF
|
||||||
$END IF
|
$END IF
|
||||||
|
|
||||||
|
GET #UiEditorFile, OffsetAutoName, b$
|
||||||
|
AutoNameControls = CVI(b$)
|
||||||
|
|
||||||
'Check if the editor is still alive
|
'Check if the editor is still alive
|
||||||
$IF WIN THEN
|
$IF WIN THEN
|
||||||
DIM hnd&, b&, ExitCode&
|
DIM hnd&, b&, ExitCode&
|
||||||
|
|
@ -160,6 +180,12 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
TempValue = __UI_NewControl(TempValue, "", 230, 150, TempWidth \ 2 - 115, TempHeight \ 2 - 75, 0)
|
TempValue = __UI_NewControl(TempValue, "", 230, 150, TempWidth \ 2 - 115, TempHeight \ 2 - 75, 0)
|
||||||
__UI_SetCaption __UI_Controls(TempValue).Name, RTRIM$(__UI_Controls(TempValue).Name)
|
__UI_SetCaption __UI_Controls(TempValue).Name, RTRIM$(__UI_Controls(TempValue).Name)
|
||||||
CASE __UI_Type_MenuBar
|
CASE __UI_Type_MenuBar
|
||||||
|
'Before adding a menu bar item, reset all other menu bar items' alignment
|
||||||
|
FOR i = 1 TO UBOUND(__UI_Controls)
|
||||||
|
IF __UI_Controls(i).Type = __UI_Type_MenuBar THEN
|
||||||
|
__UI_Controls(i).Align = __UI_Left
|
||||||
|
END IF
|
||||||
|
NEXT
|
||||||
TempValue = __UI_NewControl(TempValue, "", 0, 0, 0, 0, 0)
|
TempValue = __UI_NewControl(TempValue, "", 0, 0, 0, 0, 0)
|
||||||
__UI_SetCaption __UI_Controls(TempValue).Name, RTRIM$(__UI_Controls(TempValue).Name)
|
__UI_SetCaption __UI_Controls(TempValue).Name, RTRIM$(__UI_Controls(TempValue).Name)
|
||||||
__UI_RefreshMenuBar
|
__UI_RefreshMenuBar
|
||||||
|
|
@ -167,7 +193,7 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
CASE __UI_Type_MenuItem
|
CASE __UI_Type_MenuItem
|
||||||
IF __UI_ActiveMenu > 0 AND LEFT$(__UI_Controls(__UI_ParentMenu).Name, 5) <> "__UI_" THEN
|
IF __UI_ActiveMenu > 0 AND LEFT$(__UI_Controls(__UI_ParentMenu).Name, 5) <> "__UI_" THEN
|
||||||
TempValue = __UI_NewControl(TempValue, "", 0, 0, 0, 0, __UI_ParentMenu)
|
TempValue = __UI_NewControl(TempValue, "", 0, 0, 0, 0, __UI_ParentMenu)
|
||||||
__UI_SetCaption __UI_Controls(TempValue).Name, "New menu item"
|
__UI_SetCaption __UI_Controls(TempValue).Name, RTRIM$(__UI_Controls(TempValue).Name)
|
||||||
__UI_ActivateMenu __UI_Controls(__UI_ParentMenu), __UI_False
|
__UI_ActivateMenu __UI_Controls(__UI_ParentMenu), __UI_False
|
||||||
END IF
|
END IF
|
||||||
END SELECT
|
END SELECT
|
||||||
|
|
@ -196,21 +222,15 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
b$ = SPACE$(4): GET #UiEditorFile, OffsetPropertyValue, b$
|
b$ = SPACE$(4): GET #UiEditorFile, OffsetPropertyValue, b$
|
||||||
b$ = SPACE$(CVL(b$)): GET #UiEditorFile, , b$
|
b$ = SPACE$(CVL(b$)): GET #UiEditorFile, , b$
|
||||||
IF __UI_TotalSelectedControls = 1 THEN
|
IF __UI_TotalSelectedControls = 1 THEN
|
||||||
IF __UI_GetID(b$) > 0 AND __UI_GetID(b$) <> __UI_FirstSelectedID THEN
|
__UI_Controls(__UI_FirstSelectedID).Name = AdaptName$(b$, __UI_FirstSelectedID)
|
||||||
DO
|
ELSEIF __UI_TotalSelectedControls = 0 THEN
|
||||||
b$ = b$ + "_"
|
'IF __UI_GetID(b$) > 0 AND __UI_GetID(b$) <> __UI_FormID THEN
|
||||||
IF __UI_GetID(b$) = 0 THEN EXIT DO
|
' DO
|
||||||
LOOP
|
' b$ = b$ + "_"
|
||||||
END IF
|
' IF __UI_GetID(b$) = 0 THEN EXIT DO
|
||||||
__UI_Controls(__UI_FirstSelectedID).Name = b$
|
' LOOP
|
||||||
ELSE
|
'END IF
|
||||||
IF __UI_GetID(b$) > 0 AND __UI_GetID(b$) <> __UI_FormID THEN
|
__UI_Controls(__UI_FormID).Name = AdaptName$(b$, __UI_FormID)
|
||||||
DO
|
|
||||||
b$ = b$ + "_"
|
|
||||||
IF __UI_GetID(b$) = 0 THEN EXIT DO
|
|
||||||
LOOP
|
|
||||||
END IF
|
|
||||||
__UI_Controls(__UI_FormID).Name = b$
|
|
||||||
END IF
|
END IF
|
||||||
CASE 2 'Caption
|
CASE 2 'Caption
|
||||||
b$ = SPACE$(4): GET #UiEditorFile, OffsetPropertyValue, b$
|
b$ = SPACE$(4): GET #UiEditorFile, OffsetPropertyValue, b$
|
||||||
|
|
@ -219,6 +239,7 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
FOR i = 1 TO UBOUND(__UI_Controls)
|
FOR i = 1 TO UBOUND(__UI_Controls)
|
||||||
IF __UI_Controls(i).ControlIsSelected THEN
|
IF __UI_Controls(i).ControlIsSelected THEN
|
||||||
__UI_SetCaption RTRIM$(__UI_Controls(i).Name), b$
|
__UI_SetCaption RTRIM$(__UI_Controls(i).Name), b$
|
||||||
|
IF LEN(b$) > 0 AND b$ <> "&" THEN GOSUB AutoName
|
||||||
IF __UI_Controls(i).Type = __UI_Type_MenuItem THEN
|
IF __UI_Controls(i).Type = __UI_Type_MenuItem THEN
|
||||||
__UI_ActivateMenu __UI_Controls(__UI_Controls(i).ParentID), __UI_False
|
__UI_ActivateMenu __UI_Controls(__UI_Controls(i).ParentID), __UI_False
|
||||||
END IF
|
END IF
|
||||||
|
|
@ -226,7 +247,41 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
NEXT
|
NEXT
|
||||||
ELSE
|
ELSE
|
||||||
__UI_Captions(__UI_FormID) = b$
|
__UI_Captions(__UI_FormID) = b$
|
||||||
|
i = __UI_FormID
|
||||||
|
IF LEN(b$) > 0 AND b$ <> "&" THEN GOSUB AutoName
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
GOTO SkipAutoName
|
||||||
|
|
||||||
|
AutoName:
|
||||||
|
IF AutoNameControls THEN
|
||||||
|
DIM NewName$
|
||||||
|
|
||||||
|
NewName$ = RTRIM$(b$)
|
||||||
|
|
||||||
|
IF __UI_Controls(i).Type = __UI_Type_MenuBar THEN
|
||||||
|
IF LEN(NewName$) > 36 THEN NewName$ = LEFT$(NewName$, 36)
|
||||||
|
ELSEIF __UI_Controls(i).Type <> __UI_Type_Form AND __UI_Controls(i).Type <> __UI_Type_MenuItem AND __UI_Controls(i).Type <> __UI_Type_ListBox AND __UI_Controls(i).Type <> __UI_Type_TrackBar AND __UI_Controls(i).Type <> __UI_Type_DropdownList THEN
|
||||||
|
IF LEN(NewName$) > 38 THEN NewName$ = LEFT$(NewName$, 38)
|
||||||
|
END IF
|
||||||
|
SELECT CASE __UI_Controls(i).Type
|
||||||
|
CASE __UI_Type_Button: NewName$ = NewName$ + "BT"
|
||||||
|
CASE __UI_Type_Label: NewName$ = NewName$ + "LB"
|
||||||
|
CASE __UI_Type_CheckBox: NewName$ = NewName$ + "CB"
|
||||||
|
CASE __UI_Type_RadioButton: NewName$ = NewName$ + "RB"
|
||||||
|
CASE __UI_Type_TextBox: NewName$ = NewName$ + "TB"
|
||||||
|
CASE __UI_Type_ProgressBar: NewName$ = NewName$ + "PB"
|
||||||
|
CASE __UI_Type_MenuBar: NewName$ = NewName$ + "Menu"
|
||||||
|
CASE __UI_Type_MenuItem
|
||||||
|
NewName$ = RTRIM$(__UI_Controls(__UI_Controls(i).ParentID).Name) + NewName$
|
||||||
|
CASE __UI_Type_PictureBox: NewName$ = NewName$ + "PX"
|
||||||
|
END SELECT
|
||||||
|
|
||||||
|
__UI_Controls(i).Name = AdaptName$(NewName$, i)
|
||||||
|
END IF
|
||||||
|
RETURN
|
||||||
|
|
||||||
|
SkipAutoName:
|
||||||
CASE 3 'Text
|
CASE 3 'Text
|
||||||
DIM TotalReplacements AS LONG
|
DIM TotalReplacements AS LONG
|
||||||
b$ = SPACE$(4): GET #UiEditorFile, OffsetPropertyValue, b$
|
b$ = SPACE$(4): GET #UiEditorFile, OffsetPropertyValue, b$
|
||||||
|
|
@ -235,8 +290,14 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
FOR i = 1 TO UBOUND(__UI_Controls)
|
FOR i = 1 TO UBOUND(__UI_Controls)
|
||||||
IF __UI_Controls(i).ControlIsSelected THEN
|
IF __UI_Controls(i).ControlIsSelected THEN
|
||||||
__UI_Texts(i) = b$
|
__UI_Texts(i) = b$
|
||||||
IF __UI_Controls(i).Type = __UI_Type_Button OR __UI_Controls(i).Type = __UI_Type_PictureBox THEN
|
IF __UI_Controls(i).Type = __UI_Type_Button OR __UI_Controls(i).Type = __UI_Type_MenuItem THEN
|
||||||
__UI_LoadImage __UI_Controls(i), b$
|
__UI_LoadImage __UI_Controls(i), b$
|
||||||
|
ELSEIF __UI_Controls(i).Type = __UI_Type_PictureBox THEN
|
||||||
|
__UI_LoadImage __UI_Controls(i), b$
|
||||||
|
IF LEN(__UI_Texts(i)) > 0 THEN 'Load successful
|
||||||
|
'Keep aspect ratio at load
|
||||||
|
__UI_Controls(i).Height = (_HEIGHT(__UI_Controls(i).HelperCanvas) / _WIDTH(__UI_Controls(i).HelperCanvas)) * __UI_Controls(i).Width
|
||||||
|
END IF
|
||||||
ELSEIF __UI_Controls(i).Type = __UI_Type_ListBox OR __UI_Controls(i).Type = __UI_Type_DropdownList THEN
|
ELSEIF __UI_Controls(i).Type = __UI_Type_ListBox OR __UI_Controls(i).Type = __UI_Type_DropdownList THEN
|
||||||
__UI_Texts(i) = __UI_ReplaceText(b$, "\n", CHR$(13), __UI_False, TotalReplacements)
|
__UI_Texts(i) = __UI_ReplaceText(b$, "\n", CHR$(13), __UI_False, TotalReplacements)
|
||||||
IF __UI_Controls(i).Max < TotalReplacements + 1 THEN __UI_Controls(i).Max = TotalReplacements + 1
|
IF __UI_Controls(i).Max < TotalReplacements + 1 THEN __UI_Controls(i).Max = TotalReplacements + 1
|
||||||
|
|
@ -421,6 +482,9 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
FOR i = 1 TO UBOUND(__UI_Controls)
|
FOR i = 1 TO UBOUND(__UI_Controls)
|
||||||
IF __UI_Controls(i).ControlIsSelected THEN
|
IF __UI_Controls(i).ControlIsSelected THEN
|
||||||
__UI_Controls(i).Hidden = CVI(b$)
|
__UI_Controls(i).Hidden = CVI(b$)
|
||||||
|
IF __UI_Controls(i).Type = __UI_Type_MenuItem AND __UI_ParentMenu = __UI_Controls(i).ParentID THEN
|
||||||
|
__UI_ActivateMenu __UI_Controls(__UI_Controls(i).ParentID), __UI_False
|
||||||
|
END IF
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
CASE 21 'CenteredWindow
|
CASE 21 'CenteredWindow
|
||||||
|
|
@ -434,6 +498,11 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
FOR i = 1 TO UBOUND(__UI_Controls)
|
FOR i = 1 TO UBOUND(__UI_Controls)
|
||||||
IF __UI_Controls(i).ControlIsSelected THEN
|
IF __UI_Controls(i).ControlIsSelected THEN
|
||||||
__UI_Controls(i).Align = CVI(b$)
|
__UI_Controls(i).Align = CVI(b$)
|
||||||
|
IF __UI_Controls(i).Type = __UI_Type_MenuBar THEN
|
||||||
|
IF __UI_Controls(i).Align <> __UI_Left THEN __UI_Controls(i).Align = __UI_Right
|
||||||
|
IF __UI_ActiveMenu > 0 THEN __UI_DestroyControl __UI_Controls(__UI_ActiveMenu)
|
||||||
|
__UI_RefreshMenuBar
|
||||||
|
END IF
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
CASE 23 'ForeColor
|
CASE 23 'ForeColor
|
||||||
|
|
@ -534,10 +603,20 @@ SUB __UI_BeforeUpdateDisplay
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
END IF
|
END IF
|
||||||
|
CASE 201 TO 210
|
||||||
|
'Alignment commands
|
||||||
|
__UI_DesignModeAlignCommand = TempValue
|
||||||
|
__UI_HasInput = __UI_True
|
||||||
END SELECT
|
END SELECT
|
||||||
__UI_ForceRedraw = __UI_True
|
__UI_ForceRedraw = __UI_True
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
IF __UI_ActiveMenu > 0 AND LEFT$(__UI_Controls(__UI_ParentMenu).Name, 5) = "__UI_" AND __UI_CantShowContextMenu THEN
|
||||||
|
__UI_DestroyControl __UI_Controls(__UI_ActiveMenu)
|
||||||
|
b$ = MKI$(-2) 'Signal to the editor that the preview can't show the context menu
|
||||||
|
PUT #UiEditorFile, OffsetNewDataFromPreview, b$
|
||||||
|
END IF
|
||||||
|
|
||||||
b$ = MKL$(__UI_TotalSelectedControls)
|
b$ = MKL$(__UI_TotalSelectedControls)
|
||||||
PUT #UiEditorFile, OffsetTotalControlsSelected, b$
|
PUT #UiEditorFile, OffsetTotalControlsSelected, b$
|
||||||
IF __UI_Controls(__UI_FirstSelectedID).ID = 0 THEN __UI_FirstSelectedID = 0
|
IF __UI_Controls(__UI_FirstSelectedID).ID = 0 THEN __UI_FirstSelectedID = 0
|
||||||
|
|
@ -573,6 +652,9 @@ END SUB
|
||||||
SUB __UI_KeyPress (id AS LONG)
|
SUB __UI_KeyPress (id AS LONG)
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
|
SUB __UI_TextChanged (id AS LONG)
|
||||||
|
END SUB
|
||||||
|
|
||||||
SUB __UI_ValueChanged (id AS LONG)
|
SUB __UI_ValueChanged (id AS LONG)
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
|
|
@ -825,7 +907,7 @@ SUB SavePreview
|
||||||
DIM b$, i AS LONG, a$, FontSetup$, TempValue AS LONG
|
DIM b$, i AS LONG, a$, FontSetup$, TempValue AS LONG
|
||||||
DIM BinFileNum AS INTEGER, TxtFileNum AS INTEGER
|
DIM BinFileNum AS INTEGER, TxtFileNum AS INTEGER
|
||||||
|
|
||||||
CONST Debug = __UI_True
|
CONST Debug = __UI_False
|
||||||
|
|
||||||
BinFileNum = FREEFILE
|
BinFileNum = FREEFILE
|
||||||
OPEN "UiEditorPreview.frmbin" FOR BINARY AS #BinFileNum
|
OPEN "UiEditorPreview.frmbin" FOR BINARY AS #BinFileNum
|
||||||
|
|
@ -840,7 +922,7 @@ SUB SavePreview
|
||||||
b$ = MKL$(UBOUND(__UI_Controls))
|
b$ = MKL$(UBOUND(__UI_Controls))
|
||||||
PUT #BinFileNum, , b$
|
PUT #BinFileNum, , b$
|
||||||
FOR i = 1 TO UBOUND(__UI_Controls)
|
FOR i = 1 TO UBOUND(__UI_Controls)
|
||||||
IF __UI_Controls(i).ID > 0 AND __UI_Controls(i).Type <> __UI_Type_MenuPanel AND __UI_Controls(i).Type <> __UI_Type_Font AND LEN(RTRIM$(__UI_Controls(i).Name)) > 0 AND LEFT$(RTRIM$(__UI_Controls(i).Name), 9) <> "__UI_Text" AND LEFT$(RTRIM$(__UI_Controls(i).Name), 16) <> "__UI_PreviewMenu" THEN
|
IF __UI_Controls(i).ID > 0 AND __UI_Controls(i).Type <> __UI_Type_MenuPanel AND __UI_Controls(i).Type <> __UI_Type_Font AND LEN(RTRIM$(__UI_Controls(i).Name)) > 0 AND LEFT$(RTRIM$(__UI_Controls(i).Name), 5) <> "__UI_" THEN
|
||||||
IF Debug THEN
|
IF Debug THEN
|
||||||
PRINT #TxtFileNum, __UI_Controls(i).ID,
|
PRINT #TxtFileNum, __UI_Controls(i).ID,
|
||||||
PRINT #TxtFileNum, RTRIM$(__UI_Controls(i).Name)
|
PRINT #TxtFileNum, RTRIM$(__UI_Controls(i).Name)
|
||||||
|
|
@ -1113,3 +1195,43 @@ FUNCTION IconPreview& (IconFile$)
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
|
FUNCTION AdaptName$ (tName$, TargetID AS LONG)
|
||||||
|
DIM Name$, NewName$, i AS LONG, c$, NextIsCapital AS _BYTE, CheckID AS LONG
|
||||||
|
Name$ = RTRIM$(tName$)
|
||||||
|
|
||||||
|
IF NOT AlphaNumeric(ASC(Name$, 1)) AND ASC(Name$, 1) <> 38 THEN Name$ = "__" + Name$
|
||||||
|
|
||||||
|
FOR i = 1 TO LEN(Name$)
|
||||||
|
IF AlphaNumeric(ASC(Name$, i)) THEN
|
||||||
|
IF NextIsCapital THEN
|
||||||
|
NewName$ = NewName$ + UCASE$(CHR$(ASC(Name$, i)))
|
||||||
|
IF ASC(RIGHT$(NewName$, 1)) >= 65 AND ASC(RIGHT$(NewName$, 1)) <= 90 THEN NextIsCapital = __UI_False
|
||||||
|
ELSE
|
||||||
|
NewName$ = NewName$ + CHR$(ASC(Name$, i))
|
||||||
|
END IF
|
||||||
|
ELSE
|
||||||
|
IF ASC(Name$, i) = 32 THEN NextIsCapital = __UI_True
|
||||||
|
END IF
|
||||||
|
NEXT
|
||||||
|
|
||||||
|
IF LEN(NewName$) > 40 THEN NewName$ = LEFT$(NewName$, 40)
|
||||||
|
Name$ = NewName$
|
||||||
|
|
||||||
|
i = 1
|
||||||
|
DO
|
||||||
|
CheckID = __UI_GetID(NewName$)
|
||||||
|
IF CheckID = 0 THEN EXIT DO
|
||||||
|
IF CheckID = TargetID THEN EXIT DO
|
||||||
|
i = i + 1
|
||||||
|
c$ = LTRIM$(STR$(i))
|
||||||
|
IF LEN(Name$) + LEN(c$) <= 40 THEN
|
||||||
|
NewName$ = Name$ + c$
|
||||||
|
ELSE
|
||||||
|
Name$ = MID$(Name$, 1, 40 - LEN(c$))
|
||||||
|
NewName$ = Name$ + c$
|
||||||
|
END IF
|
||||||
|
LOOP
|
||||||
|
|
||||||
|
AdaptName$ = NewName$
|
||||||
|
END FUNCTION
|
||||||
|
|
|
||||||
|
|
@ -4,6 +4,9 @@
|
||||||
SUB __UI_LoadForm
|
SUB __UI_LoadForm
|
||||||
DIM __UI_NewID AS LONG
|
DIM __UI_NewID AS LONG
|
||||||
|
|
||||||
|
$RESIZE:ON
|
||||||
|
_RESIZE OFF
|
||||||
|
|
||||||
__UI_NewID = __UI_NewControl(__UI_Type_Form, "Form1", 640, 400, 0, 0,0)
|
__UI_NewID = __UI_NewControl(__UI_Type_Form, "Form1", 640, 400, 0, 0,0)
|
||||||
__UI_Controls(__UI_NewID).Font = __UI_Font("segoeui.ttf", 12, "")
|
__UI_Controls(__UI_NewID).Font = __UI_Font("segoeui.ttf", 12, "")
|
||||||
END SUB
|
END SUB
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue