mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-15 11:59:34 +00:00
New Listbox control. Also:
- New ProgressBar control.
This commit is contained in:
FellippeHeitor
parent
45b013057b
commit
61cfd8fade
1 changed files with 221 additions and 41 deletions
262
UI.bas
262
UI.bas
|
|
@ -22,6 +22,7 @@ TYPE ObjectTYPE
|
|||
Value AS _FLOAT
|
||||
Min AS _FLOAT
|
||||
Max AS _FLOAT
|
||||
ShowPercentage AS _BYTE
|
||||
InputViewStart AS LONG
|
||||
Cursor AS LONG
|
||||
PrevCursor AS LONG
|
||||
|
|
@ -60,12 +61,13 @@ DIM SHARED __UI_Focus AS LONG
|
|||
DIM SHARED __UI_HoveringID AS LONG
|
||||
DIM SHARED __UI_IsDragging AS _BYTE, __UI_DraggingID AS LONG
|
||||
DIM SHARED __UI_IsSelectingText AS _BYTE, __UI_IsSelectingTextOnID AS LONG
|
||||
DIM SHARED __UI_SelectedText AS STRING
|
||||
DIM SHARED __UI_HasInput AS _BYTE
|
||||
DIM SHARED __UI_UnloadSignal AS _BYTE
|
||||
DIM SHARED __UI_ExitTriggered AS _BYTE
|
||||
DIM SHARED __UI_Loaded AS _BYTE
|
||||
DIM SHARED __UI_FirstDisplay AS _BYTE
|
||||
DIM SHARED __UI_SelectedText AS STRING
|
||||
DIM SHARED __UI_RefreshTimer AS INTEGER
|
||||
|
||||
'Object types:
|
||||
CONST __UI_Type_Form = 1
|
||||
|
|
@ -74,12 +76,12 @@ CONST __UI_Type_Button = 3
|
|||
CONST __UI_Type_Label = 4
|
||||
CONST __UI_Type_CheckBox = 5
|
||||
CONST __UI_Type_RadioButton = 6
|
||||
CONST __UI_Type_ComboBox = 7
|
||||
CONST __UI_Type_TextBox = 8
|
||||
CONST __UI_Type_MultiLineTextBox = 9
|
||||
CONST __UI_Type_ListBox = 10
|
||||
CONST __UI_Type_Menu = 11
|
||||
CONST __UI_Type_ProgressBar = 12
|
||||
CONST __UI_Type_TextBox = 7
|
||||
CONST __UI_Type_ProgressBar = 8
|
||||
CONST __UI_Type_ListBox = 9
|
||||
CONST __UI_Type_ComboBox = 10
|
||||
CONST __UI_Type_MultiLineTextBox = 11
|
||||
CONST __UI_Type_Menu = 12
|
||||
CONST __UI_Type_HScrollBar = 13
|
||||
CONST __UI_Type_VScrollBar = 14
|
||||
|
||||
|
|
@ -135,8 +137,7 @@ __UI_Controls(NewID).Width = 300
|
|||
__UI_Controls(NewID).Height = 20
|
||||
__UI_Controls(NewID).Font = 0
|
||||
__UI_Controls(NewID).ForeColor = _RGB32(0, 0, 0)
|
||||
__UI_Controls(NewID).ForeColor = _RGB32(0, 0, 0)
|
||||
__UI_Controls(NewID).BackColor = __UI_Controls(__UI_GetID("Form1")).BackColor
|
||||
__UI_Controls(NewID).BackColor = _RGB32(255, 255, 255)
|
||||
__UI_Controls(NewID).HasBorder = __UI_True
|
||||
__UI_Controls(NewID).BorderColor = _RGB32(0, 0, 0)
|
||||
__UI_Controls(NewID).CanHaveFocus = __UI_True
|
||||
|
|
@ -154,6 +155,22 @@ __UI_Controls(NewID).CanHaveFocus = __UI_True
|
|||
__UI_Controls(NewID).Enabled = __UI_True
|
||||
__UI_SetCaption "DragButton", "Make frame draggable"
|
||||
|
||||
NewID = __UI_NewObject(__UI_Type_ListBox, "ListBox1", 0)
|
||||
__UI_Controls(NewID).Top = 160
|
||||
__UI_Controls(NewID).Left = 350
|
||||
__UI_Controls(NewID).Width = 200
|
||||
__UI_Controls(NewID).Height = 200
|
||||
__UI_Controls(NewID).ForeColor = _RGB32(0, 0, 0)
|
||||
__UI_Controls(NewID).BackColor = _RGB32(255, 255, 255)
|
||||
__UI_Controls(NewID).HasBorder = __UI_True
|
||||
__UI_Controls(NewID).BorderColor = _RGB32(0, 0, 0)
|
||||
__UI_Controls(NewID).CanHaveFocus = __UI_True
|
||||
__UI_Controls(NewID).Enabled = __UI_True
|
||||
__UI_AddListBoxItem "ListBox1", "Australia"
|
||||
__UI_AddListBoxItem "ListBox1", "Brazil"
|
||||
__UI_AddListBoxItem "ListBox1", "USA"
|
||||
__UI_Controls(NewID).Value = 1
|
||||
|
||||
NewID = __UI_NewObject(__UI_Type_Label, "Label1", 0)
|
||||
__UI_Controls(NewID).Top = 30
|
||||
__UI_Controls(NewID).Left = 10
|
||||
|
|
@ -184,6 +201,7 @@ __UI_Controls(NewID).Height = 20
|
|||
__UI_Controls(NewID).ForeColor = _RGB32(0, 0, 0)
|
||||
__UI_Controls(NewID).Enabled = __UI_True
|
||||
__UI_Controls(NewID).Font = 1
|
||||
|
||||
NewID = __UI_NewObject(__UI_Type_Label, "Label2", 0)
|
||||
__UI_Controls(NewID).Top = 350
|
||||
__UI_Controls(NewID).Left = 30
|
||||
|
|
@ -253,8 +271,25 @@ __UI_Controls(NewID).CanHaveFocus = __UI_True
|
|||
__UI_SetCaption "Check2", "Checkbox 2"
|
||||
__UI_Controls(NewID).Font = 2
|
||||
|
||||
NewID = __UI_NewObject(__UI_Type_ProgressBar, "ProgressBar1", 0)
|
||||
__UI_Controls(NewID).Top = 375
|
||||
__UI_Controls(NewID).Left = 30
|
||||
__UI_Controls(NewID).Width = 300
|
||||
__UI_Controls(NewID).Height = 20
|
||||
__UI_Controls(NewID).ForeColor = _RGB32(0, 128, 0)
|
||||
__UI_Controls(NewID).BackColor = __UI_Controls(__UI_GetID("Form1")).BackColor
|
||||
__UI_Controls(NewID).HasBorder = __UI_True
|
||||
__UI_Controls(NewID).BorderColor = _RGB32(0, 0, 0)
|
||||
__UI_Controls(NewID).Font = 1
|
||||
__UI_Controls(NewID).Min = 0
|
||||
__UI_Controls(NewID).Max = 500
|
||||
__UI_Controls(NewID).ShowPercentage = __UI_True
|
||||
__UI_Controls(NewID).Height = 20
|
||||
__UI_Controls(NewID).Enabled = __UI_True
|
||||
'__UI_SetCaption "ProgressBar1", "Performing task"
|
||||
|
||||
NewID = __UI_NewObject(__UI_Type_Button, "OkButton", 0)
|
||||
__UI_Controls(NewID).Top = 350
|
||||
__UI_Controls(NewID).Top = 370
|
||||
__UI_Controls(NewID).Left = 550
|
||||
__UI_Controls(NewID).Width = 70
|
||||
__UI_Controls(NewID).Height = 20
|
||||
|
|
@ -265,17 +300,14 @@ __UI_Controls(NewID).Enabled = __UI_True
|
|||
__UI_SetCaption "OkButton", "OK"
|
||||
__UI_DefaultButtonID = NewID
|
||||
|
||||
|
||||
'Main loop
|
||||
DO
|
||||
IF __UI_Loaded = __UI_False THEN __UI_Load
|
||||
|
||||
__UI_ProcessInput
|
||||
IF __UI_HasInput OR __UI_FirstDisplay = __UI_False OR _
|
||||
__UI_Controls(__UI_Focus).Type = __UI_Type_TextBox THEN
|
||||
IF __UI_HasInput OR __UI_FirstDisplay = __UI_False THEN
|
||||
__UI_FirstDisplay = __UI_True
|
||||
__UI_EventDispatcher
|
||||
__UI_UpdateDisplay
|
||||
END IF
|
||||
_LIMIT 30
|
||||
LOOP
|
||||
|
|
@ -294,10 +326,15 @@ SUB __UI_Load
|
|||
END IF
|
||||
|
||||
IF __UI_Controls(i).Type = __UI_Type_TextBox THEN
|
||||
IF _FONTWIDTH(__UI_Fonts(__UI_Controls(i).Font)) = 0 THEN __UI_Controls(i).Font = 0
|
||||
__UI_Controls(i).FieldArea = __UI_Controls(i).Width \ _FONTWIDTH(__UI_Fonts(__UI_Controls(i).Font))
|
||||
END IF
|
||||
NEXT
|
||||
|
||||
__UI_RefreshTimer = _FREETIMER
|
||||
ON TIMER(__UI_RefreshTimer, .03) __UI_UpdateDisplay
|
||||
TIMER(__UI_RefreshTimer) ON
|
||||
|
||||
__UI_Loaded = __UI_True
|
||||
__UI_OnLoad
|
||||
END SUB
|
||||
|
|
@ -423,10 +460,17 @@ SUB __UI_BeforeUpdateDisplay
|
|||
STATIC Iterations AS LONG
|
||||
Iterations = Iterations + 1
|
||||
|
||||
__UI_Controls(__UI_GetID("ProgressBar1")).Value = Iterations
|
||||
IF __UI_Controls(__UI_GetID("ProgressBar1")).Value > __UI_Controls(__UI_GetID("ProgressBar1")).Max THEN
|
||||
__UI_Controls(__UI_GetID("ProgressBar1")).Value = __UI_Controls(__UI_GetID("ProgressBar1")).Max
|
||||
END IF
|
||||
|
||||
IF __UI_Focus THEN
|
||||
__UI_SetCaption "FocusLabel", "Focus is on " + RTRIM$(__UI_Controls(__UI_Focus).Name)
|
||||
IF LEN(__UI_SelectedText) THEN
|
||||
__UI_SetCaption "FocusLabel", "Selected text: " + __UI_SelectedText
|
||||
ELSEIF __UI_Focus = __UI_GetID("ListBox1") THEN
|
||||
__UI_SetCaption "FocusLabel", "Selected item: " + STR$(__UI_Controls(__UI_Focus).Value)
|
||||
END IF
|
||||
END IF
|
||||
|
||||
|
|
@ -616,7 +660,7 @@ SUB __UI_UpdateDisplay
|
|||
SELECT CASE __UI_Controls(i).Type
|
||||
CASE __UI_Type_Button
|
||||
IF ((__UI_MouseIsDown AND i = __UI_MouseDownOnID) OR _
|
||||
(__UI_KeyIsDown AND i = __UI_KeyDownOnID)) AND _
|
||||
(__UI_KeyIsDown AND i = __UI_KeyDownOnID AND __UI_KeyDownOnID = __UI_Focus)) AND _
|
||||
__UI_Controls(i).Enabled THEN
|
||||
TempColor~& = __UI_Darken(__UI_Controls(i).BackColor, 70)
|
||||
ELSEIF i = __UI_HoveringID AND __UI_Controls(i).Enabled THEN
|
||||
|
|
@ -729,7 +773,7 @@ SUB __UI_UpdateDisplay
|
|||
__UI_DrawRectangle ContainerOffsetLeft + __UI_Controls(i).Left, ContainerOffsetTop + __UI_Controls(i).Top, __UI_Controls(i).Width, __UI_Controls(i).Height, __UI_Controls(i).BorderColor, TempColor~&, __UI_False
|
||||
END IF
|
||||
|
||||
CaptionIndent = CaptionIndent + CircleDiameter
|
||||
CaptionIndent = CaptionIndent + CircleDiameter * 1.5
|
||||
|
||||
IF __UI_Controls(i).Enabled THEN
|
||||
COLOR __UI_Controls(i).ForeColor, __UI_Controls(i).BackColor
|
||||
|
|
@ -751,7 +795,7 @@ SUB __UI_UpdateDisplay
|
|||
DIM CheckBoxSize AS INTEGER
|
||||
__UI_DrawCheckBox __UI_Controls(i).Value, _
|
||||
ContainerOffsetLeft + __UI_Controls(i).Left, _
|
||||
ContainerOffsetTop + __UI_Controls(i).Top + __UI_Controls(i).Height \ 3, _
|
||||
ContainerOffsetTop + __UI_Controls(i).Top + __UI_Controls(i).Height \ 2, _
|
||||
CheckBoxSize
|
||||
|
||||
CaptionIndent = 0
|
||||
|
|
@ -764,7 +808,7 @@ SUB __UI_UpdateDisplay
|
|||
__UI_DrawRectangle ContainerOffsetLeft + __UI_Controls(i).Left, ContainerOffsetTop + __UI_Controls(i).Top, __UI_Controls(i).Width, __UI_Controls(i).Height, __UI_Controls(i).BorderColor, TempColor~&, __UI_False
|
||||
END IF
|
||||
|
||||
CaptionIndent = CaptionIndent + CheckBoxSize
|
||||
CaptionIndent = CaptionIndent + CheckBoxSize * 1.5
|
||||
|
||||
IF __UI_Controls(i).Enabled THEN
|
||||
COLOR __UI_Controls(i).ForeColor, __UI_Controls(i).BackColor
|
||||
|
|
@ -847,6 +891,70 @@ SUB __UI_UpdateDisplay
|
|||
LINE (ContainerOffsetLeft + __UI_Controls(i).Left + CaptionIndent + (__UI_Controls(i).Cursor - (__UI_Controls(i).InputViewStart - 1)) * _FONTWIDTH, ContainerOffsetTop + __UI_Controls(i).Top + ((__UI_Controls(i).Height \ 2) - _FONTHEIGHT \ 2))-STEP(0, _FONTHEIGHT), _RGB32(0, 0, 0)
|
||||
END IF
|
||||
END IF
|
||||
CASE __UI_Type_ProgressBar
|
||||
__UI_DrawProgressBar __UI_Controls(i)
|
||||
CASE __UI_Type_ListBox
|
||||
IF __UI_Controls(i).InputViewStart = 0 THEN __UI_Controls(i).InputViewStart = 1
|
||||
|
||||
IF __UI_Controls(i).BackStyle = __UI_Opaque THEN
|
||||
_PRINTMODE _FILLBACKGROUND
|
||||
ELSE
|
||||
_PRINTMODE _KEEPBACKGROUND
|
||||
END IF
|
||||
|
||||
CaptionIndent = 0
|
||||
IF __UI_Controls(i).BackStyle = __UI_Opaque THEN
|
||||
__UI_DrawRectangle ContainerOffsetLeft + __UI_Controls(i).Left, ContainerOffsetTop + __UI_Controls(i).Top, __UI_Controls(i).Width, __UI_Controls(i).Height, __UI_Controls(i).BackColor, __UI_Controls(i).BackColor, __UI_True
|
||||
END IF
|
||||
|
||||
IF __UI_Controls(i).HasBorder = __UI_True THEN
|
||||
CaptionIndent = 5
|
||||
__UI_DrawRectangle ContainerOffsetLeft + __UI_Controls(i).Left, ContainerOffsetTop + __UI_Controls(i).Top, __UI_Controls(i).Width, __UI_Controls(i).Height, __UI_Controls(i).BorderColor, TempColor~&, __UI_False
|
||||
END IF
|
||||
|
||||
IF __UI_Controls(i).Enabled THEN
|
||||
COLOR __UI_Controls(i).ForeColor, __UI_Controls(i).BackColor
|
||||
ELSE
|
||||
COLOR __UI_Darken(__UI_Controls(__UI_GetID("Form1")).BackColor, 80), __UI_Controls(i).BackColor
|
||||
END IF
|
||||
|
||||
IF LEN(__UI_Texts(i)) THEN
|
||||
DIM TempText$, FindLF&, ThisItem%, ThisItemTop%
|
||||
|
||||
TempText$ = __UI_Texts(i)
|
||||
ThisItem% = 0
|
||||
DO WHILE LEN(TempText$)
|
||||
ThisItem% = ThisItem% + 1
|
||||
FindLF& = INSTR(TempText$, CHR$(13))
|
||||
IF FindLF& THEN
|
||||
TempCaption$ = LEFT$(TempText$, FindLF& - 1)
|
||||
TempText$ = MID$(TempText$, FindLF& + 1)
|
||||
ELSE
|
||||
TempCaption$ = TempText$
|
||||
TempText$ = ""
|
||||
END IF
|
||||
IF ThisItem% >= __UI_Controls(i).InputViewStart THEN
|
||||
ThisItemTop% = __UI_Controls(i).Top + (ThisItem% - __UI_Controls(i).InputViewStart) * _FONTHEIGHT - _FONTHEIGHT + CaptionIndent
|
||||
IF ThisItemTop% + _FONTHEIGHT > __UI_Controls(i).Top + __UI_Controls(i).Height THEN EXIT DO
|
||||
DO WHILE _PRINTWIDTH(TempCaption$) > __UI_Controls(i).Width
|
||||
TempCaption$ = MID$(TempCaption$, 1, LEN(TempCaption$) - 1)
|
||||
LOOP
|
||||
|
||||
SELECT CASE __UI_Controls(i).Align
|
||||
CASE __UI_Left
|
||||
_PRINTSTRING (ContainerOffsetLeft + __UI_Controls(i).Left + CaptionIndent, ContainerOffsetTop + ThisItemTop%), TempCaption$
|
||||
CASE __UI_Center
|
||||
_PRINTSTRING (ContainerOffsetLeft + __UI_Controls(i).Left + (__UI_Controls(i).Width \ 2 - _PRINTWIDTH(TempCaption$) \ 2), ContainerOffsetTop + ThisItemTop%), TempCaption$
|
||||
CASE __UI_Right
|
||||
_PRINTSTRING (ContainerOffsetLeft + __UI_Controls(i).Left + (__UI_Controls(i).Width - _PRINTWIDTH(TempCaption$)) - CaptionIndent, ContainerOffsetTop + ThisItemTop%), TempCaption$
|
||||
END SELECT
|
||||
|
||||
IF ThisItem% = __UI_Controls(i).Value THEN
|
||||
LINE (ContainerOffsetLeft + __UI_Controls(i).Left + CaptionIndent, ContainerOffsetTop + ThisItemTop% + _FONTHEIGHT)-STEP(__UI_Controls(i).Width - CaptionIndent * 2, _FONTHEIGHT), _RGBA32(0, 0, 0, 50), BF
|
||||
END IF
|
||||
END IF
|
||||
LOOP
|
||||
END IF
|
||||
END SELECT
|
||||
END IF
|
||||
NEXT
|
||||
|
|
@ -1113,14 +1221,16 @@ SUB __UI_EventDispatcher
|
|||
IF __UI_KeyHit = -100307 OR __UI_KeyHit = -100308 THEN __UI_AltIsDown = __UI_False
|
||||
|
||||
IF __UI_Focus THEN
|
||||
'Enter activates the default button, if any
|
||||
'Enter activates the selected/default button, if any
|
||||
IF __UI_IsDragging = __UI_False AND _
|
||||
__UI_KeyHit = -13 AND _
|
||||
__UI_DefaultButtonID > 0 AND _
|
||||
__UI_Controls(__UI_Focus).Type <> __UI_Type_MultiLineTextBox AND _
|
||||
__UI_Controls(__UI_Focus).Type <> __UI_Type_Button THEN
|
||||
__UI_Controls(__UI_Focus).Enabled THEN
|
||||
'Enter released and there is a default button
|
||||
__UI_Click __UI_DefaultButtonID
|
||||
IF __UI_Controls(__UI_Focus).Type = __UI_Type_Button THEN
|
||||
__UI_Click __UI_Focus
|
||||
ELSEIF __UI_Focus <> __UI_DefaultButtonID AND __UI_DefaultButtonID > 0 THEN
|
||||
__UI_Click __UI_DefaultButtonID
|
||||
END IF
|
||||
ELSE
|
||||
SELECT CASE __UI_Controls(__UI_Focus).Type
|
||||
CASE __UI_Type_Button, __UI_Type_RadioButton, __UI_Type_CheckBox
|
||||
|
|
@ -1148,18 +1258,27 @@ SUB __UI_EventDispatcher
|
|||
__UI_KeyDownOnID = 0
|
||||
__UI_KeyIsDown = __UI_False
|
||||
END IF
|
||||
CASE __UI_Type_ListBox
|
||||
SELECT CASE __UI_KeyHit
|
||||
CASE 18432 'Up
|
||||
IF __UI_Controls(__UI_Focus).Value > 1 THEN _
|
||||
__UI_Controls(__UI_Focus).Value = __UI_Controls(__UI_Focus).Value - 1
|
||||
CASE 20480 'Down
|
||||
IF __UI_Controls(__UI_Focus).Value < __UI_Controls(__UI_Focus).Max THEN _
|
||||
__UI_Controls(__UI_Focus).Value = __UI_Controls(__UI_Focus).Value + 1
|
||||
END SELECT
|
||||
CASE __UI_Type_TextBox
|
||||
DIM Clip$, FindLF%
|
||||
DIM Clip$, FindLF&
|
||||
DIM s1 AS LONG, s2 AS LONG
|
||||
SELECT CASE __UI_KeyHit
|
||||
CASE 32 TO 126 'Printable ASCII characters
|
||||
IF __UI_KeyHit = ASC("v") OR __UI_KeyHit = ASC("V") THEN 'Paste from clipboard (Ctrl+V)
|
||||
IF __UI_CtrlIsDown THEN
|
||||
Clip$ = _CLIPBOARD$
|
||||
FindLF% = INSTR(Clip$, CHR$(13))
|
||||
IF FindLF% > 0 THEN Clip$ = LEFT$(Clip$, FindLF% - 1)
|
||||
FindLF% = INSTR(Clip$, CHR$(10))
|
||||
IF FindLF% > 0 THEN Clip$ = LEFT$(Clip$, FindLF% - 1)
|
||||
FindLF& = INSTR(Clip$, CHR$(13))
|
||||
IF FindLF& > 0 THEN Clip$ = LEFT$(Clip$, FindLF& - 1)
|
||||
FindLF& = INSTR(Clip$, CHR$(10))
|
||||
IF FindLF& > 0 THEN Clip$ = LEFT$(Clip$, FindLF& - 1)
|
||||
IF LEN(RTRIM$(LTRIM$(Clip$))) > 0 THEN
|
||||
IF NOT __UI_Controls(__UI_Focus).Selected THEN
|
||||
IF __UI_Controls(__UI_Focus).Cursor = LEN(__UI_Texts(__UI_Focus)) THEN
|
||||
|
|
@ -1279,19 +1398,6 @@ SUB __UI_EventDispatcher
|
|||
__UI_LastHoveringID = __UI_HoveringID
|
||||
END SUB
|
||||
|
||||
'---------------------------------------------------------------------------------
|
||||
SUB __UI_CheckSelection (id)
|
||||
IF __UI_ShiftIsDown THEN
|
||||
IF NOT __UI_Controls(id).Selected THEN
|
||||
__UI_Controls(id).Selected = __UI_True
|
||||
__UI_Controls(id).SelectionStart = __UI_Controls(id).Cursor
|
||||
END IF
|
||||
ELSE
|
||||
__UI_Controls(id).Selected = __UI_False
|
||||
__UI_SelectedText = ""
|
||||
END IF
|
||||
END SUB
|
||||
|
||||
'---------------------------------------------------------------------------------
|
||||
FUNCTION __UI_GetID (ObjectName$)
|
||||
DIM i AS LONG
|
||||
|
|
@ -1512,6 +1618,19 @@ SUB __UI_DrawCheckBox (Checked%%, Left&, Top&, BoxSize%)
|
|||
END IF
|
||||
END SUB
|
||||
|
||||
'---------------------------------------------------------------------------------
|
||||
SUB __UI_CheckSelection (id)
|
||||
IF __UI_ShiftIsDown THEN
|
||||
IF NOT __UI_Controls(id).Selected THEN
|
||||
__UI_Controls(id).Selected = __UI_True
|
||||
__UI_Controls(id).SelectionStart = __UI_Controls(id).Cursor
|
||||
END IF
|
||||
ELSE
|
||||
__UI_Controls(id).Selected = __UI_False
|
||||
__UI_SelectedText = ""
|
||||
END IF
|
||||
END SUB
|
||||
|
||||
'---------------------------------------------------------------------------------
|
||||
SUB __UI_DeleteSelection
|
||||
DIM s1 AS LONG, s2 AS LONG
|
||||
|
|
@ -1524,6 +1643,7 @@ SUB __UI_DeleteSelection
|
|||
__UI_Controls(__UI_Focus).Cursor = s1
|
||||
END SUB
|
||||
|
||||
'---------------------------------------------------------------------------------
|
||||
SUB __UI_CursorAdjustments
|
||||
IF __UI_Controls(__UI_Focus).Cursor > __UI_Controls(__UI_Focus).PrevCursor THEN
|
||||
IF __UI_Controls(__UI_Focus).Cursor - __UI_Controls(__UI_Focus).InputViewStart + 2 > __UI_Controls(__UI_Focus).FieldArea THEN __UI_Controls(__UI_Focus).InputViewStart = (__UI_Controls(__UI_Focus).Cursor - __UI_Controls(__UI_Focus).FieldArea) + 2
|
||||
|
|
@ -1533,3 +1653,63 @@ SUB __UI_CursorAdjustments
|
|||
__UI_Controls(__UI_Focus).PrevCursor = __UI_Controls(__UI_Focus).Cursor
|
||||
IF __UI_Controls(__UI_Focus).InputViewStart < 1 THEN __UI_Controls(__UI_Focus).InputViewStart = 1
|
||||
END SUB
|
||||
|
||||
'---------------------------------------------------------------------------------
|
||||
SUB __UI_DrawProgressBar (ProgressBar AS ObjectTYPE)
|
||||
DIM ContainerOffsetLeft AS INTEGER, ContainerOffsetTop AS INTEGER
|
||||
DIM DisplayValue AS _FLOAT
|
||||
|
||||
IF ProgressBar.Value > ProgressBar.Max THEN ERROR 5
|
||||
|
||||
IF ProgressBar.ParentID THEN
|
||||
ContainerOffsetTop = __UI_Controls(ProgressBar.ParentID).Top
|
||||
ContainerOffsetLeft = __UI_Controls(ProgressBar.ParentID).Left
|
||||
END IF
|
||||
|
||||
LINE (ContainerOffsetLeft + ProgressBar.Left, _
|
||||
ContainerOffsetTop + ProgressBar.Top)-_
|
||||
STEP(ProgressBar.Width - 1, _
|
||||
ProgressBar.Height -1), ProgressBar.BackColor, BF
|
||||
|
||||
LINE (ContainerOffsetLeft + ProgressBar.Left, _
|
||||
ContainerOffsetTop + ProgressBar.Top)-_
|
||||
STEP(((ProgressBar.Width - 1) / ProgressBar.Max) * ProgressBar.Value, _
|
||||
ProgressBar.Height -1), ProgressBar.ForeColor, BF
|
||||
|
||||
IF ProgressBar.HasBorder THEN
|
||||
LINE (ContainerOffsetLeft + ProgressBar.Left, _
|
||||
ContainerOffsetTop + ProgressBar.Top)-_
|
||||
STEP(ProgressBar.Width - 1, _
|
||||
ProgressBar.Height -1), ProgressBar.BorderColor, B
|
||||
END IF
|
||||
|
||||
IF ProgressBar.ShowPercentage OR LEN(__UI_Captions(ProgressBar.ID)) THEN
|
||||
DIM ProgressString$
|
||||
ProgressString$ = LTRIM$(STR$(FIX((ProgressBar.Value / ProgressBar.Max) * 100))) + "%"
|
||||
IF LEN(__UI_Captions(ProgressBar.ID)) THEN
|
||||
ProgressString$ = __UI_Captions(ProgressBar.ID)
|
||||
DO WHILE _PRINTWIDTH(ProgressString$) > ProgressBar.Width
|
||||
ProgressString$ = MID$(ProgressString$, 1, LEN(ProgressString$) - 1)
|
||||
LOOP
|
||||
END IF
|
||||
_FONT __UI_Fonts(ProgressBar.Font)
|
||||
_PRINTMODE _KEEPBACKGROUND
|
||||
COLOR ProgressBar.BorderColor
|
||||
IF _PRINTWIDTH(ProgressString$) < ProgressBar.Width THEN
|
||||
_PRINTSTRING (ContainerOffsetLeft + ProgressBar.Left + ProgressBar.Width / 2 - _PRINTWIDTH(ProgressString$) / 2, _
|
||||
ContainerOffsetTop + ProgressBar.Top + ProgressBar.Height / 2 - _FONTHEIGHT / 2), _
|
||||
ProgressString$
|
||||
END IF
|
||||
END IF
|
||||
END SUB
|
||||
|
||||
'---------------------------------------------------------------------------------
|
||||
SUB __UI_AddListBoxItem (WhichListBox$, Item$)
|
||||
DIM ThisID AS LONG
|
||||
|
||||
ThisID = __UI_GetID(WhichListBox$)
|
||||
IF __UI_Controls(ThisID).Type <> __UI_Type_ListBox THEN ERROR 5: EXIT SUB
|
||||
|
||||
__UI_Texts(ThisID) = __UI_Texts(ThisID) + CHR$(13) + Item$
|
||||
__UI_Controls(ThisID).Max = __UI_Controls(ThisID).Max + 1
|
||||
END SUB
|
||||
|
|
|
|||
Loading…
Reference in a new issue