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

Restore "auto reopen preview window" behavior that was lost. Also:

Browse source 
- Make detection of edits to Property textbox (editor) more accurate.
This commit is contained in:
FellippeHeitor 2016-12-20 05:08:55 -02:00
parent 50a82c7958
commit 71032ce487
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
InForm/UiEditor.bas
View file

@ -11,6 +11,7 @@ DIM SHARED BackStyleListID AS LONG, PropertyUpdateStatusID AS LONG
DIM SHARED CheckPreviewTimer AS INTEGER, PreviewAttached AS _BYTE, AutoNameControls AS _BYTE DIM SHARED CheckPreviewTimer AS INTEGER, PreviewAttached AS _BYTE, AutoNameControls AS _BYTE
DIM SHARED PropertyUpdateStatusImage AS LONG, LastKeyPress AS DOUBLE DIM SHARED PropertyUpdateStatusImage AS LONG, LastKeyPress AS DOUBLE
DIM SHARED UiEditorTitle$, Edited AS _BYTE, ZOrderingDialogOpen AS _BYTE DIM SHARED UiEditorTitle$, Edited AS _BYTE, ZOrderingDialogOpen AS _BYTE
DIM SHARED OpenDialogOpen AS _BYTE
CONST OffsetEditorPID = 1 CONST OffsetEditorPID = 1
CONST OffsetPreviewPID = 5 CONST OffsetPreviewPID = 5
@ -365,13 +366,14 @@ SUB __UI_Click (id AS LONG)
Control(DialogBG).Left = 0: Control(DialogBG).Top = 0 Control(DialogBG).Left = 0: Control(DialogBG).Top = 0
Control(OpenFrame).Left = 68: Control(OpenFrame).Top = 70 Control(OpenFrame).Left = 68: Control(OpenFrame).Top = 70
OpenDialogOpen = True
__UI_Focus = FileNameTextBox __UI_Focus = FileNameTextBox
__UI_ForceRedraw = True __UI_ForceRedraw = True
CASE "CANCELBT" CASE "CANCELBT"
Text(FileNameTextBox) = "" Text(FileNameTextBox) = ""
Control(DialogBG).Left = -500: Control(DialogBG).Top = -600 Control(DialogBG).Left = -500: Control(DialogBG).Top = -600
Control(OpenFrame).Left = -500: Control(OpenFrame).Top = -600 Control(OpenFrame).Left = -500: Control(OpenFrame).Top = -600
OpenDialogOpen = False
'Show the preview 'Show the preview
SendSignal -3 SendSignal -3
@ -393,7 +395,7 @@ SUB __UI_Click (id AS LONG)
Control(DialogBG).Left = -500: Control(DialogBG).Top = -600 Control(DialogBG).Left = -500: Control(DialogBG).Top = -600
Control(OpenFrame).Left = -500: Control(OpenFrame).Top = -600 Control(OpenFrame).Left = -500: Control(OpenFrame).Top = -600
OpenDialogOpen = False
__UI_Focus = 0 __UI_Focus = 0
ELSE ELSE
Answer = MessageBox("File not found.", "", MsgBox_OkOnly + MsgBox_Critical) Answer = MessageBox("File not found.", "", MsgBox_OkOnly + MsgBox_Critical)
@ -1187,11 +1189,13 @@ SUB __UI_TextChanged (id AS LONG)
CASE "PROPERTYVALUE" CASE "PROPERTYVALUE"
'Send the preview the new property value 'Send the preview the new property value
DIM FloatValue AS _FLOAT, b$, TempValue AS LONG, i AS LONG DIM FloatValue AS _FLOAT, b$, TempValue AS LONG, i AS LONG
STATIC PreviousValue$ STATIC PreviousValue$, PreviousControl AS LONG, PreviousProperty AS INTEGER
IF PreviousValue$ <> Text(PropertyValueID) THEN TempValue = Control(__UI_GetID("PropertiesList")).Value
IF PreviousValue$ <> Text(PropertyValueID) OR PreviousControl <> FirstSelected OR PreviousProperty <> TempValue THEN
PreviousValue$ = Text(PropertyValueID) PreviousValue$ = Text(PropertyValueID)
TempValue = Control(__UI_GetID("PropertiesList")).Value PreviousControl = FirstSelected
PreviousProperty = TempValue
SELECT CASE TempValue SELECT CASE TempValue
CASE 1, 2, 3, 9 'Name, caption, text, tooltips CASE 1, 2, 3, 9 'Name, caption, text, tooltips
b$ = MKL$(LEN(Text(PropertyValueID))) + Text(PropertyValueID) b$ = MKL$(LEN(Text(PropertyValueID))) + Text(PropertyValueID)
@ -5238,7 +5242,7 @@ SUB CheckPreview
'Check if the preview window is still alive 'Check if the preview window is still alive
DIM b$, UiEditorFile AS INTEGER DIM b$, UiEditorFile AS INTEGER
IF Control(OpenFrame).Hidden = False THEN EXIT SUB IF OpenDialogOpen THEN EXIT SUB
UiEditorFile = FREEFILE UiEditorFile = FREEFILE
OPEN "UiEditor.dat" FOR BINARY AS #UiEditorFile OPEN "UiEditor.dat" FOR BINARY AS #UiEditorFile