-
Notifications
You must be signed in to change notification settings - Fork 3
/
UiEditor.bas
4929 lines (4544 loc) · 225 KB
/
UiEditor.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
'-----------------------------------------------------------------------------------------------------------------------
' InForm-PE GUI engine for QB64-PE
' Copyright (c) 2024 Samuel Gomes
' Copyright (c) 2023 George McGinn
' Copyright (c) 2022 Fellippe Heitor
'-----------------------------------------------------------------------------------------------------------------------
OPTION _EXPLICIT
$EXEICON:'./resources/InForm.ico'
'Controls: --------------------------------------------------------------------
'Main form
DIM SHARED UiEditor AS LONG
DIM SHARED StatusBar AS LONG
'Menus
DIM SHARED FileMenu AS LONG, EditMenu AS LONG, ViewMenu AS LONG
DIM SHARED InsertMenu AS LONG, AlignMenu AS LONG, OptionsMenu AS LONG
DIM SHARED HelpMenu AS LONG, FontSwitchMenu AS LONG
'Frames
DIM SHARED Toolbox AS LONG, ColorMixer AS LONG
DIM SHARED OpenFrame AS LONG, ZOrdering AS LONG
DIM SHARED ControlProperties AS LONG, ControlToggles AS LONG
DIM SHARED SetControlBinding AS LONG
'Menu items
DIM SHARED FileMenuNew AS LONG, FileMenuOpen AS LONG
DIM SHARED FileMenuSave AS LONG, FileMenuSaveAs AS LONG
DIM SHARED FileMenuExit AS LONG
DIM SHARED FileMenuRecent AS LONG
DIM SHARED FileMenuRecent1 AS LONG
DIM SHARED FileMenuRecent2 AS LONG
DIM SHARED FileMenuRecent3 AS LONG
DIM SHARED FileMenuRecent4 AS LONG
DIM SHARED FileMenuRecent5 AS LONG
DIM SHARED FileMenuRecent6 AS LONG
DIM SHARED FileMenuRecent7 AS LONG
DIM SHARED FileMenuRecent8 AS LONG
DIM SHARED FileMenuRecent9 AS LONG
DIM SHARED EditMenuUndo AS LONG, EditMenuRedo AS LONG, EditMenuCut AS LONG
DIM SHARED EditMenuCopy AS LONG, EditMenuPaste AS LONG
DIM SHARED EditMenuDelete AS LONG, EditMenuSelectAll AS LONG
DIM SHARED EditMenuCP437 AS LONG, EditMenuCP1252 AS LONG
DIM SHARED EditMenuConvertType AS LONG, EditMenuSetDefaultButton AS LONG
DIM SHARED EditMenuRestoreDimensions AS LONG, EditMenuBindControls AS LONG
DIM SHARED EditMenuAllowMinMax AS LONG, EditMenuZOrdering AS LONG
DIM SHARED ViewMenuPreviewDetach AS LONG
DIM SHARED ViewMenuShowPositionAndSize AS LONG
DIM SHARED ViewMenuShowInvisibleControls AS LONG
DIM SHARED ViewMenuPreview AS LONG, ViewMenuLoadedFonts AS LONG
DIM SHARED InsertMenuMenuBar AS LONG, InsertMenuContextMenu AS LONG
DIM SHARED InsertMenuMenuItem AS LONG
DIM SHARED OptionsMenuSnapLines AS LONG
DIM SHARED AlignMenuAlignLeft AS LONG
DIM SHARED AlignMenuAlignRight AS LONG
DIM SHARED AlignMenuAlignTops AS LONG
DIM SHARED AlignMenuAlignBottoms AS LONG
DIM SHARED AlignMenuAlignCentersV AS LONG
DIM SHARED AlignMenuAlignCentersH AS LONG
DIM SHARED AlignMenuAlignCenterV AS LONG
DIM SHARED AlignMenuAlignCenterH AS LONG
DIM SHARED AlignMenuDistributeV AS LONG
DIM SHARED AlignMenuDistributeH AS LONG
DIM SHARED OptionsMenuAutoName AS LONG, OptionsMenuSwapButtons AS LONG
DIM SHARED HelpMenuHelp AS LONG, HelpMenuAbout AS LONG
DIM SHARED FontSwitchMenuSwitch AS LONG
'Toolbox buttons
DIM SHARED AddButton AS LONG, AddLabel AS LONG
DIM SHARED AddTextBox AS LONG, AddNumericBox AS LONG
DIM SHARED AddCheckBox AS LONG, AddRadioButton AS LONG
DIM SHARED AddListBox AS LONG, AddDropdownList AS LONG
DIM SHARED AddTrackBar AS LONG, AddProgressBar AS LONG
DIM SHARED AddPictureBox AS LONG, AddFrame AS LONG
DIM SHARED AddToggleSwitch AS LONG
'Control toggles
DIM SHARED Stretch AS LONG, HasBorder AS LONG
DIM SHARED ShowPercentage AS LONG, PasswordMaskCB AS LONG
DIM SHARED WordWrap AS LONG, CanHaveFocus AS LONG
DIM SHARED Disabled AS LONG, Transparent AS LONG
DIM SHARED Hidden AS LONG, CenteredWindow AS LONG
DIM SHARED Resizable AS LONG, AutoScroll AS LONG
DIM SHARED AutoSize AS LONG, SizeTB AS LONG
DIM SHARED HideTicks AS LONG, AutoPlayGif AS LONG
DIM SHARED AddGifExtensionToggle AS LONG
'Open/Save dialog
DIM SHARED DialogBG AS LONG, FileNameLB AS LONG
DIM SHARED FileNameTextBox AS LONG, PathLB AS LONG
DIM SHARED FilesLB AS LONG, FileList AS LONG
DIM SHARED PathsLB AS LONG, DirList AS LONG
DIM SHARED OpenBT AS LONG, SaveBT AS LONG, CancelBT AS LONG
DIM SHARED ShowOnlyFrmbinFilesCB AS LONG, SaveFrmOnlyCB AS LONG
'Z-ordering dialog
DIM SHARED ControlList AS LONG, UpBT AS LONG
DIM SHARED DownBT AS LONG, CloseZOrderingBT AS LONG
'Set binding dialog
DIM SHARED SourceControlLB AS LONG
DIM SHARED SourceControlNameLB AS LONG
DIM SHARED TargetControlLB AS LONG
DIM SHARED TargetControlNameLB AS LONG
'DIM SHARED SwapBT AS LONG
DIM SHARED SourcePropertyLB AS LONG
DIM SHARED SourcePropertyList AS LONG
DIM SHARED TargetPropertyLB AS LONG
DIM SHARED TargetPropertyList AS LONG
DIM SHARED BindBT AS LONG
DIM SHARED CancelBindBT AS LONG
'Properties
DIM SHARED TextAlignLB AS LONG, AlignOptions AS LONG
DIM SHARED VerticalAlignLB AS LONG, VAlignOptions AS LONG
DIM SHARED ColorPropertiesList AS LONG, ColorPreview AS LONG
DIM SHARED Red AS LONG, RedValue AS LONG
DIM SHARED Green AS LONG, GreenValue AS LONG
DIM SHARED Blue AS LONG, BlueValue AS LONG
DIM SHARED NameLB AS LONG, CaptionLB AS LONG
DIM SHARED TextLB AS LONG, TopLB AS LONG
DIM SHARED LeftLB AS LONG, WidthLB AS LONG
DIM SHARED HeightLB AS LONG, FontLB AS LONG
DIM SHARED TooltipLB AS LONG, ValueLB AS LONG
DIM SHARED MinLB AS LONG, MaxLB AS LONG
DIM SHARED IntervalLB AS LONG, MinIntervalLB AS LONG
DIM SHARED PaddingLeftrightLB AS LONG, NameTB AS LONG
DIM SHARED CaptionTB AS LONG, TextTB AS LONG
DIM SHARED TopTB AS LONG, LeftTB AS LONG
DIM SHARED WidthTB AS LONG, HeightTB AS LONG
DIM SHARED FontTB AS LONG, TooltipTB AS LONG
DIM SHARED ValueTB AS LONG, MinTB AS LONG
DIM SHARED MaxTB AS LONG, IntervalTB AS LONG
DIM SHARED MinIntervalTB AS LONG, PaddingTB AS LONG
DIM SHARED MaskTB AS LONG, MaskLB AS LONG
DIM SHARED BulletOptions AS LONG, BulletOptionsLB AS LONG
DIM SHARED BooleanLB AS LONG, BooleanOptions AS LONG
DIM SHARED FontListLB AS LONG, FontList AS LONG, FontSizeList
DIM SHARED PasteListBT AS LONG, ContextMenuLB AS LONG
DIM SHARED ContextMenuControlsList AS LONG
DIM SHARED KeyboardComboLB AS LONG, KeyboardComboBT AS LONG
'------------------------------------------------------------------------------
'Other shared variables:
DIM SHARED UiPreviewPID AS LONG, TotalSelected AS LONG, FirstSelected AS LONG
DIM SHARED PreviewFormID AS LONG, PreviewSelectionRectangle AS INTEGER
DIM SHARED PreviewAttached AS _BYTE, AutoNameControls AS _BYTE
DIM SHARED LastKeyPress AS DOUBLE
DIM SHARED UiEditorTitle$, Edited AS _BYTE, ZOrderingDialogOpen AS _BYTE
DIM SHARED OpenDialogOpen AS _BYTE
DIM SHARED PropertySent AS _BYTE, RevertEdit AS _BYTE, OldColor AS _UNSIGNED LONG
DIM SHARED ColorPreviewWord$, BlinkStatusBar AS SINGLE, StatusBarBackColor AS _UNSIGNED LONG
DIM SHARED InstanceHost AS LONG, InstanceClient AS LONG
DIM SHARED HostPort AS STRING, Host AS LONG, Client AS LONG
DIM SHARED Stream$, FormDataReceived AS _BYTE, LastFormData$
DIM SHARED prevScreenX AS INTEGER, prevScreenY AS INTEGER
DIM SHARED UndoPointer AS INTEGER, TotalUndoImages AS INTEGER
DIM SHARED totalBytesSent AS _UNSIGNED _INTEGER64
DIM SHARED RecentMenuItem(1 TO 9) AS LONG, RecentListBuilt AS _BYTE
DIM SHARED LoadedWithGifExtension AS _BYTE, AddGifExtension AS _BYTE
DIM SHARED TotalGifLoaded AS LONG, SetBindingDialogOpen AS _BYTE
DIM SHARED InitialControlSet AS STRING
DIM SHARED Answer AS LONG
TYPE newInputBox
ID AS LONG
LabelID AS LONG
Signal AS INTEGER
LastEdited AS SINGLE
DataType AS INTEGER
Sent AS _BYTE
END TYPE
CONST DT_Text = 1
CONST DT_Integer = 2
CONST DT_Float = 3
REDIM SHARED PreviewCaptions(0) AS STRING
REDIM SHARED PreviewTexts(0) AS STRING
REDIM SHARED PreviewMasks(0) AS STRING
REDIM SHARED PreviewTips(0) AS STRING
REDIM SHARED PreviewFonts(0) AS STRING
REDIM SHARED PreviewActualFonts(0) AS STRING
REDIM SHARED PreviewControls(0) AS __UI_ControlTYPE
REDIM SHARED PreviewParentIDS(0) AS STRING
REDIM SHARED PreviewContextMenu(0) AS STRING
REDIM SHARED PreviewBoundTo(0) AS STRING
REDIM SHARED PreviewBoundProperty(0) AS STRING
REDIM SHARED PreviewKeyCombos(0) AS STRING
REDIM SHARED PreviewAnimatedGif(0) AS _BYTE
REDIM SHARED PreviewAutoPlayGif(0) AS _BYTE
REDIM SHARED zOrderIDs(0) AS LONG
REDIM SHARED InputBox(1 TO 100) AS newInputBox
REDIM SHARED Toggles(1 TO 100) AS LONG
REDIM SHARED InputBoxText(1 TO 100) AS STRING
DIM SHARED PreviewDefaultButtonID AS LONG
DIM SHARED HasFontList AS _BYTE, ShowFontList AS _BYTE
DIM SHARED AttemptToShowFontList AS _BYTE, BypassShowFontList AS _BYTE
DIM SHARED TotalFontsFound AS LONG
REDIM SHARED FontFile(0) AS STRING
CONST QB64_DISPLAY = "QB64-PE"
DIM SHARED AS STRING QB64_EXE_PATH
$IF WIN THEN
CONST PathSep$ = "\"
CONST QB64_EXE_NAME = "qb64pe.exe"
$ELSE
CONST PathSep$ = "/"
CONST QB64_EXE_NAME = "qb64pe"
$END IF
UiEditorTitle$ = "InForm Designer"
QB64_EXE_PATH = Ini_ReadSetting("InForm/InForm.ini", "InForm Settings", "QB64PE path") ' read the compiler path name from the INI
IF NOT _FILEEXISTS(QB64_EXE_PATH) THEN ' if the compiler is missing then look for it in obvious places
IF _FILEEXISTS("." + PathSep$ + QB64_EXE_NAME) THEN
QB64_EXE_PATH = "." + PathSep$ + QB64_EXE_NAME
ELSEIF _FILEEXISTS(".." + PathSep$ + QB64_EXE_NAME) THEN
QB64_EXE_PATH = ".." + PathSep$ + QB64_EXE_NAME
ELSEIF _FILEEXISTS(".." + PathSep$ + "QB64pe" + PathSep$ + QB64_EXE_NAME) THEN
QB64_EXE_PATH = ".." + PathSep$ + "QB64pe" + PathSep$ + QB64_EXE_NAME
ELSEIF _FILEEXISTS(".." + PathSep$ + "qb64pe" + PathSep$ + QB64_EXE_NAME) THEN
QB64_EXE_PATH = ".." + PathSep$ + "qb64pe" + PathSep$ + QB64_EXE_NAME
ELSE
QB64_EXE_PATH = _SELECTFOLDERDIALOG$("Select QB64-PE directory:")
IF _FILEEXISTS(QB64_EXE_PATH + PathSep$ + QB64_EXE_NAME) THEN
QB64_EXE_PATH = QB64_EXE_PATH + PathSep$ + QB64_EXE_NAME
ELSE
_MESSAGEBOX UiEditorTitle$, QB64_DISPLAY + " executable not found.", "error"
SYSTEM 1
END IF
Ini_WriteSetting "InForm/InForm.ini", "InForm Settings", "QB64PE path", QB64_EXE_PATH ' save the complete path name to the INI
END IF
END IF
DIM SHARED CurrentPath$, ThisFileName$
CONST EDITOR_IMAGE_COMMONCONTROLS~%% = 1~%%
CONST EDITOR_IMAGE_DISK~%% = 2~%%
'CheckPreviewTimer = _FREETIMER
'ON TIMER(CheckPreviewTimer, .003) CheckPreview
$IF WIN THEN
DECLARE DYNAMIC LIBRARY "kernel32"
FUNCTION OpenProcess& (BYVAL dwDesiredAccess AS LONG, BYVAL bInheritHandle AS LONG, BYVAL dwProcessId AS LONG)
FUNCTION CloseHandle& (BYVAL hObject AS LONG)
FUNCTION GetExitCodeProcess& (BYVAL hProcess AS LONG, lpExitCode AS LONG)
END DECLARE
DECLARE DYNAMIC LIBRARY "user32"
FUNCTION SetForegroundWindow& (BYVAL hWnd AS LONG)
END DECLARE
''Registry routines taken from the Wiki: http://www.qb64.org/wiki/Windows_Libraries#Registered_Fonts
''Code courtesy of Michael Calkins
''winreg.h
CONST HKEY_CLASSES_ROOT = &H80000000~&
CONST HKEY_CURRENT_USER = &H80000001~&
CONST HKEY_LOCAL_MACHINE = &H80000002~&
CONST HKEY_USERS = &H80000003~&
CONST HKEY_PERFORMANCE_DATA = &H80000004~&
CONST HKEY_CURRENT_CONFIG = &H80000005~&
CONST HKEY_DYN_DATA = &H80000006~&
CONST REG_OPTION_VOLATILE = 1
CONST REG_OPTION_NON_VOLATILE = 0
CONST REG_CREATED_NEW_KEY = 1
CONST REG_OPENED_EXISTING_KEY = 2
''http://msdn.microsoft.com/en-us/library/ms724884(v=VS.85).aspx
CONST REG_NONE = 0
CONST REG_SZ = 1
CONST REG_EXPAND_SZ = 2
CONST REG_BINARY = 3
CONST REG_DWORD_LITTLE_ENDIAN = 4
CONST REG_DWORD = 4
CONST REG_DWORD_BIG_ENDIAN = 5
CONST REG_LINK = 6
CONST REG_MULTI_SZ = 7
CONST REG_RESOURCE_LIST = 8
CONST REG_FULL_RESOURCE_DESCRIPTOR = 9
CONST REG_RESOURCE_REQUIREMENTS_LIST = 10
CONST REG_QWORD_LITTLE_ENDIAN = 11
CONST REG_QWORD = 11
CONST REG_NOTIFY_CHANGE_NAME = 1
CONST REG_NOTIFY_CHANGE_ATTRIBUTES = 2
CONST REG_NOTIFY_CHANGE_LAST_SET = 4
CONST REG_NOTIFY_CHANGE_SECURITY = 8
''http://msdn.microsoft.com/en-us/library/ms724878(v=VS.85).aspx
CONST KEY_ALL_ACCESS = &HF003F&
CONST KEY_CREATE_LINK = &H0020&
CONST KEY_CREATE_SUB_KEY = &H0004&
CONST KEY_ENUMERATE_SUB_KEYS = &H0008&
CONST KEY_EXECUTE = &H20019&
CONST KEY_NOTIFY = &H0010&
CONST KEY_QUERY_VALUE = &H0001&
CONST KEY_READ = &H20019&
CONST KEY_SET_VALUE = &H0002&
CONST KEY_WOW64_32KEY = &H0200&
CONST KEY_WOW64_64KEY = &H0100&
CONST KEY_WRITE = &H20006&
''winerror.h
''http://msdn.microsoft.com/en-us/library/ms681382(v=VS.85).aspx
CONST ERROR_SUCCESS = 0
CONST ERROR_FILE_NOT_FOUND = &H2&
CONST ERROR_INVALID_HANDLE = &H6&
CONST ERROR_MORE_DATA = &HEA&
CONST ERROR_NO_MORE_ITEMS = &H103&
DECLARE DYNAMIC LIBRARY "advapi32"
FUNCTION RegOpenKeyExA& (BYVAL hKey AS _OFFSET, BYVAL lpSubKey AS _OFFSET, BYVAL ulOptions AS _UNSIGNED LONG, BYVAL samDesired AS _UNSIGNED LONG, BYVAL phkResult AS _OFFSET)
FUNCTION RegCloseKey& (BYVAL hKey AS _OFFSET)
FUNCTION RegEnumValueA& (BYVAL hKey AS _OFFSET, BYVAL dwIndex AS _UNSIGNED LONG, BYVAL lpValueName AS _OFFSET, BYVAL lpcchValueName AS _OFFSET, BYVAL lpReserved AS _OFFSET, BYVAL lpType AS _OFFSET, BYVAL lpData AS _OFFSET, BYVAL lpcbData AS _OFFSET)
END DECLARE
$ELSE
DECLARE LIBRARY
FUNCTION PROCESS_CLOSED& ALIAS kill (BYVAL pid AS INTEGER, BYVAL signal AS INTEGER)
END DECLARE
$END IF
' This will enable the version info strings in InFormVersion.bi
$LET UIEDITOR_BAS = TRUE
'$INCLUDE:'extensions/Ini.bi'
'$INCLUDE:'InForm.bi'
'$INCLUDE:'UiEditor.frm'
'$INCLUDE:'InForm.ui'
'$INCLUDE:'extensions/Ini.bas'
'Event procedures: ---------------------------------------------------------------
SUB __UI_Click (id AS LONG)
DIM Answer AS _BYTE, Dummy AS LONG, b$
STATIC LastClick#, LastClickedID AS LONG
SendSignal -8
SELECT EVERYCASE id
CASE AlignMenuAlignLeft: Dummy = 201
CASE AlignMenuAlignRight: Dummy = 202
CASE AlignMenuAlignTops: Dummy = 203
CASE AlignMenuAlignBottoms: Dummy = 204
CASE AlignMenuAlignCentersV: Dummy = 205
CASE AlignMenuAlignCentersH: Dummy = 206
CASE AlignMenuAlignCenterV: Dummy = 207
CASE AlignMenuAlignCenterH: Dummy = 208
CASE AlignMenuDistributeV: Dummy = 209
CASE AlignMenuDistributeH: Dummy = 210
CASE AlignMenuAlignLeft, AlignMenuAlignRight, AlignMenuAlignTops, AlignMenuAlignBottoms, AlignMenuAlignCentersV, AlignMenuAlignCentersH, AlignMenuAlignCenterV, AlignMenuAlignCenterH, AlignMenuDistributeV, AlignMenuDistributeH
b$ = MKI$(0)
SendData b$, Dummy
CASE OptionsMenuAutoName
AutoNameControls = NOT AutoNameControls
Control(id).Value = AutoNameControls
SaveSettings
CASE EditMenuConvertType
b$ = MKI$(0)
SendData b$, 225
CASE EditMenuSetDefaultButton
SendSignal -6
CASE EditMenuRestoreDimensions
SendSignal -7
CASE OptionsMenuSwapButtons
__UI_MouseButtonsSwap = NOT __UI_MouseButtonsSwap
Control(id).Value = __UI_MouseButtonsSwap
SaveSettings
CASE OptionsMenuSnapLines
__UI_SnapLines = NOT __UI_SnapLines
Control(id).Value = __UI_SnapLines
SaveSettings
CASE InsertMenuMenuBar
b$ = "NEWCONTROL>" + MKI$(__UI_Type_MenuBar) + "<END>"
Send Client, b$
CASE InsertMenuMenuItem
b$ = "NEWCONTROL>" + MKI$(__UI_Type_MenuItem) + "<END>"
Send Client, b$
CASE InsertMenuContextMenu
b$ = "NEWCONTROL>" + MKI$(__UI_Type_ContextMenu) + "<END>"
Send Client, b$
CASE ViewMenuPreviewDetach
PreviewAttached = NOT PreviewAttached
Control(id).Value = PreviewAttached
SaveSettings
CASE AddButton: Dummy = __UI_Type_Button
CASE AddLabel: Dummy = __UI_Type_Label
CASE AddTextBox: Dummy = __UI_Type_TextBox
CASE AddCheckBox: Dummy = __UI_Type_CheckBox
CASE AddRadioButton: Dummy = __UI_Type_RadioButton
CASE AddListBox: Dummy = __UI_Type_ListBox
CASE AddDropdownList: Dummy = __UI_Type_DropdownList
CASE AddTrackBar: Dummy = __UI_Type_TrackBar
CASE AddProgressBar: Dummy = __UI_Type_ProgressBar
CASE AddPictureBox: Dummy = __UI_Type_PictureBox
CASE AddFrame: Dummy = __UI_Type_Frame
CASE AddToggleSwitch: Dummy = __UI_Type_ToggleSwitch
CASE AddButton, AddLabel, AddTextBox, AddCheckBox, AddRadioButton, AddListBox, AddDropdownList, AddTrackBar, AddProgressBar, AddPictureBox, AddFrame, AddToggleSwitch
b$ = "NEWCONTROL>" + MKI$(Dummy) + "<END>"
Send Client, b$
CASE AddNumericBox
b$ = MKI$(0)
SendData b$, 222
CASE Stretch
b$ = MKI$(Control(id).Value)
SendData b$, 14
CASE HasBorder
b$ = MKI$(Control(id).Value)
SendData b$, 15
CASE Transparent
b$ = MKI$(Control(Transparent).Value)
SendData b$, 28
CASE ShowPercentage
b$ = MKI$(Control(id).Value)
SendData b$, 16
CASE WordWrap
b$ = MKI$(Control(id).Value)
SendData b$, 17
'Also: disable autosize
IF Control(id).Value THEN
b$ = MKI$(0)
SendData b$, 39
END IF
CASE CanHaveFocus
b$ = MKI$(Control(id).Value)
SendData b$, 18
CASE ColorPreview
_CLIPBOARD$ = ColorPreviewWord$
CASE Disabled
b$ = MKI$(Control(id).Value)
SendData b$, 19
CASE Hidden
b$ = MKI$(Control(id).Value)
SendData b$, 20
CASE CenteredWindow
b$ = MKI$(Control(id).Value)
SendData b$, 21
CASE Resizable
b$ = MKI$(Control(id).Value)
SendData b$, 29
CASE PasswordMaskCB
b$ = MKI$(Control(id).Value)
SendData b$, 33
CASE AutoScroll
b$ = MKI$(Control(id).Value)
SendData b$, 38
CASE AutoSize
b$ = MKI$(Control(id).Value)
SendData b$, 39
CASE HideTicks
b$ = MKI$(Control(id).Value)
SendData b$, 42
CASE AutoPlayGif
b$ = MKI$(Control(id).Value)
SendData b$, 44
CASE AddGifExtensionToggle
IF Control(AddGifExtensionToggle).Value = FALSE AND TotalGifLoaded > 0 THEN
_DELAY 0.2: Answer = _MESSAGEBOX(UiEditorTitle$, "Removing the GIF extension will load the existing animations as static frames. Proceed?", "yesno", "question", 0)
IF Answer = 0 THEN
Control(AddGifExtensionToggle).Value = TRUE
ELSE
b$ = "PAUSEALLGIF>" + "<END>"
Send Client, b$
END IF
END IF
CASE ViewMenuPreview
$IF WIN THEN
SHELL _DONTWAIT ".\InForm\UiEditorPreview.exe " + HostPort
$ELSE
SHELL _DONTWAIT "./InForm/UiEditorPreview " + HostPort
$END IF
CASE ViewMenuLoadedFonts
DIM Temp$
Temp$ = "These fonts are currently in use in your form:" + CHR$(10)
FOR Dummy = 1 TO UBOUND(PreviewFonts)
IF LEN(PreviewFonts(Dummy)) THEN
Temp$ = Temp$ + CHR$(10)
Temp$ = Temp$ + PreviewFonts(Dummy)
END IF
NEXT
IF LEN(Temp$) THEN
MessageBox Temp$, UiEditorTitle$ + " - Loaded fonts", MsgBox_Information
ELSE
MessageBox "There are no fonts loaded.", UiEditorTitle$, MsgBox_Exclamation
END IF
CASE FileMenuNew
IF Edited THEN
_DELAY 0.2: Answer = _MESSAGEBOX(UiEditorTitle$, "Save the current form?", "yesnocancel", "question", 1)
IF Answer = 0 THEN
EXIT SUB
ELSEIF Answer = 1 THEN
SaveForm FALSE, FALSE
END IF
END IF
__UI_Focus = 0
LastFormData$ = ""
ThisFileName$ = ""
Stream$ = ""
FormDataReceived = FALSE
AddGifExtension = FALSE
Control(AddGifExtensionToggle).Value = FALSE
LoadedWithGifExtension = FALSE
Edited = FALSE
SendSignal -5
CASE FileMenuSave
IF LEN(ThisFileName$) THEN
SaveForm TRUE, FALSE
ELSE
GOTO SaveAs
END IF
CASE FileMenuSaveAs
SaveAs:
'Refresh the file list control's contents
DIM TotalFiles%
IF CurrentPath$ = "" THEN CurrentPath$ = _STARTDIR$
Text(FileList) = idezfilelist$(CurrentPath$, Control(ShowOnlyFrmbinFilesCB).Value + 1, 1, TotalFiles%)
Control(FileList).Max = TotalFiles%
Control(FileList).LastVisibleItem = 0 'Reset it so it's recalculated
Control(DialogBG).Left = 0: Control(DialogBG).Top = 0
Control(OpenFrame).Left = 18: Control(OpenFrame).Top = 40
Caption(OpenFrame) = "Save as"
Control(SaveBT).Hidden = FALSE
Control(OpenBT).Hidden = TRUE
Control(SaveFrmOnlyCB).Hidden = FALSE
Control(ShowOnlyFrmbinFilesCB).Hidden = TRUE
Control(SaveFrmOnlyCB).Value = FALSE
OpenDialogOpen = TRUE
Caption(StatusBar) = "Specify the name under which to save the current form..."
__UI_Focus = FileNameTextBox
IF LEN(ThisFileName$) THEN
Text(FileNameTextBox) = ThisFileName$
ELSE
Text(FileNameTextBox) = ""
END IF
IF LEN(Text(FileNameTextBox)) THEN
Control(FileNameTextBox).SelectionStart = 0
Control(FileNameTextBox).Cursor = LEN(Text(FileNameTextBox))
Control(FileNameTextBox).TextIsSelected = TRUE
END IF
__UI_ForceRedraw = TRUE
CASE SaveBT
SaveFile:
IF OpenDialogOpen THEN
DIM FileToOpen$, FreeFileNum AS INTEGER
FileToOpen$ = CurrentPath$ + PathSep$ + Text(FileNameTextBox)
ThisFileName$ = LTRIM$(RTRIM$(Text(FileNameTextBox)))
IF ThisFileName$ = "" THEN EXIT SUB
IF UCASE$(RIGHT$(ThisFileName$, 4)) <> ".FRM" THEN
ThisFileName$ = ThisFileName$ + ".frm"
END IF
Control(DialogBG).Left = -600: Control(DialogBG).Top = -600
Control(OpenFrame).Left = -600: Control(OpenFrame).Top = -600
Control(FileList).FirstVisibleLine = 1
Control(FileList).InputViewStart = 1
Control(FileList).Value = 0
Control(FileList).LastVisibleItem = 0 'Reset it so it's recalculated
Control(DirList).FirstVisibleLine = 1
Control(DirList).InputViewStart = 1
Control(DirList).Value = 0
Control(DirList).LastVisibleItem = 0 'Reset it so it's recalculated
OpenDialogOpen = FALSE
Caption(StatusBar) = "Ready."
__UI_Focus = 0
SaveForm TRUE, Control(SaveFrmOnlyCB).Value
END IF
CASE HelpMenuAbout
MessageBox "InForm GUI engine for QB64-PE\n\nCopyright (c) 2024 Samuel Gomes - @a740g\nCopyright (c) 2023 George McGinn - gbytes58@gmail.com\nCopyright (c) 2022 Fellippe Heitor - @FellippeHeitor\n\n" + UiEditorTitle$ + " v" + __UI_Version + "\n\nhttps://github.com/a740g/InForm-PE", UiEditorTitle$ + " - About", MsgBox_Information
CASE HelpMenuHelp
MessageBox "Design a form and export the resulting code to generate an event-driven QB64-PE program.", UiEditorTitle$ + " - What's all this?", MsgBox_Information
CASE FileMenuExit
IF Edited THEN
_DELAY 0.2: Answer = _MESSAGEBOX(UiEditorTitle$, "Save the current form before leaving?", "yesnocancel", "question", 1)
IF Answer = 0 THEN
EXIT SUB
ELSEIF Answer = 1 THEN
SaveForm FALSE, FALSE
END IF
END IF
IF _FILEEXISTS("InForm/UiEditorPreview.frmbin") THEN KILL "InForm/UiEditorPreview.frmbin"
SYSTEM
CASE EditMenuZOrdering
'Fill the list:
Caption(StatusBar) = "Editing z-ordering/tab ordering"
DIM j AS LONG, i AS LONG
STATIC Moving AS _BYTE
REDIM _PRESERVE zOrderIDs(1 TO UBOUND(PreviewControls)) AS LONG
ReloadZList:
ResetList ControlList
FOR i = 1 TO UBOUND(PreviewControls)
SELECT CASE PreviewControls(i).Type
CASE 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 15, 18
j = j + 1
zOrderIDs(j) = i
AddItem ControlList, __UI_Type(PreviewControls(i).Type).Name + RTRIM$(PreviewControls(i).Name)
END SELECT
NEXT
IF Moving THEN RETURN
Control(DialogBG).Left = 0: Control(DialogBG).Top = 0
Control(ZOrdering).Left = 18: Control(ZOrdering).Top = 40
__UI_Focus = ControlList
ZOrderingDialogOpen = TRUE
CASE EditMenuBindControls
'Get controls' names and bound properties
DIM CurrentSource$
j = 0
FOR i = 1 TO UBOUND(PreviewControls)
IF PreviewControls(i).ControlIsSelected THEN
j = j + 1
IF j = 1 THEN
Caption(SourceControlNameLB) = RTRIM$(PreviewControls(i).Name)
CurrentSource$ = PreviewBoundTo(i)
IF LEN(PreviewBoundProperty(i)) = 0 THEN
Dummy = SelectItem(SourcePropertyList, "Value")
ELSE
Dummy = SelectItem(SourcePropertyList, PreviewBoundProperty(i))
END IF
END IF
IF j = 2 THEN
Caption(TargetControlNameLB) = RTRIM$(PreviewControls(i).Name)
IF LEN(PreviewBoundProperty(i)) = 0 THEN
Dummy = SelectItem(TargetPropertyList, "Value")
ELSE
Dummy = SelectItem(TargetPropertyList, PreviewBoundProperty(i))
END IF
EXIT FOR
END IF
END IF
NEXT
IF CurrentSource$ = Caption(TargetControlNameLB) THEN
Caption(BindBT) = "Rebind"
Caption(CancelBindBT) = "Unbind"
ELSE
Caption(BindBT) = "Bind"
Caption(CancelBindBT) = "Cancel"
END IF
Caption(StatusBar) = "Defining control bindings"
Control(DialogBG).Left = 0: Control(DialogBG).Top = 0
Control(SetControlBinding).Left = 83: Control(SetControlBinding).Top = 169
__UI_Focus = SourcePropertyList
SetBindingDialogOpen = TRUE
'CASE SwapBT
' SWAP Caption(SourceControlNameLB), Caption(TargetControlNameLB)
' SWAP Control(SourcePropertyList).Value, Control(TargetPropertyList).Value
CASE BindBT
Control(DialogBG).Left = -600: Control(DialogBG).Top = -600
Control(SetControlBinding).Left = -600: Control(SetControlBinding).Top = -600
SetBindingDialogOpen = FALSE
b$ = "BINDCONTROLS>"
b$ = b$ + MKL$(LEN(Caption(SourceControlNameLB))) + Caption(SourceControlNameLB)
b$ = b$ + MKL$(LEN(Caption(TargetControlNameLB))) + Caption(TargetControlNameLB)
b$ = b$ + MKL$(LEN(GetItem(SourcePropertyList, Control(SourcePropertyList).Value)))
b$ = b$ + GetItem(SourcePropertyList, Control(SourcePropertyList).Value)
b$ = b$ + MKL$(LEN(GetItem(TargetPropertyList, Control(TargetPropertyList).Value)))
b$ = b$ + GetItem(TargetPropertyList, Control(TargetPropertyList).Value)
b$ = b$ + "<END>"
Send Client, b$
CASE CancelBindBT
Control(DialogBG).Left = -600: Control(DialogBG).Top = -600
Control(SetControlBinding).Left = -600: Control(SetControlBinding).Top = -600
SetBindingDialogOpen = FALSE
IF Caption(CancelBindBT) = "Unbind" THEN
b$ = "UNBINDCONTROLS>"
b$ = b$ + Caption(SourceControlNameLB)
b$ = b$ + "<END>"
Send Client, b$
END IF
CASE CloseZOrderingBT
Caption(StatusBar) = "Ready."
Control(DialogBG).Left = -600: Control(DialogBG).Top = -600
Control(ZOrdering).Left = -600: Control(ZOrdering).Top = -600
__UI_Focus = 0
ZOrderingDialogOpen = FALSE
CASE UpBT
DIM PrevListValue AS LONG
PrevListValue = Control(ControlList).Value
b$ = MKL$(zOrderIDs(Control(ControlList).Value)) + MKL$(zOrderIDs(Control(ControlList).Value - 1))
SendData b$, 211
_DELAY .1
Moving = TRUE: GOSUB ReloadZList
Moving = FALSE
Control(ControlList).Value = PrevListValue - 1
__UI_Focus = ControlList
__UI_ValueChanged ControlList
CASE DownBT
PrevListValue = Control(ControlList).Value
b$ = MKL$(zOrderIDs(Control(ControlList).Value)) + MKL$(zOrderIDs(Control(ControlList).Value + 1))
SendData b$, 212
_DELAY .1
Moving = TRUE: GOSUB ReloadZList
Moving = FALSE
Control(ControlList).Value = PrevListValue + 1
__UI_Focus = ControlList
__UI_ValueChanged ControlList
CASE FileMenuOpen
IF Edited THEN
_DELAY 0.2: Answer = _MESSAGEBOX(UiEditorTitle$, "Save the current form?", "yesnocancel", "question", 1)
IF Answer = 0 THEN
EXIT SUB
ELSEIF Answer = 1 THEN
SaveForm FALSE, FALSE
END IF
END IF
'Hide the preview
SendSignal -2
'Refresh the file list control's contents
IF CurrentPath$ = "" THEN CurrentPath$ = _STARTDIR$
Text(FileList) = idezfilelist$(CurrentPath$, Control(ShowOnlyFrmbinFilesCB).Value + 1, 1, TotalFiles%)
Control(FileList).Max = TotalFiles%
Control(FileList).LastVisibleItem = 0 'Reset it so it's recalculated
Control(DialogBG).Left = 0: Control(DialogBG).Top = 0
Control(OpenFrame).Left = 18: Control(OpenFrame).Top = 40
Caption(OpenFrame) = "Open"
Control(SaveBT).Hidden = TRUE
Control(OpenBT).Hidden = FALSE
Control(SaveFrmOnlyCB).Hidden = TRUE
Control(ShowOnlyFrmbinFilesCB).Hidden = FALSE
OpenDialogOpen = TRUE
Caption(StatusBar) = "Select a form file to load..."
__UI_Focus = FileNameTextBox
IF LEN(Text(FileNameTextBox)) > 0 THEN
Control(FileNameTextBox).SelectionStart = 0
Control(FileNameTextBox).Cursor = LEN(Text(FileNameTextBox))
Control(FileNameTextBox).TextIsSelected = TRUE
END IF
__UI_ForceRedraw = TRUE
CASE CancelBT
Text(FileNameTextBox) = ""
Control(DialogBG).Left = -600: Control(DialogBG).Top = -600
Control(OpenFrame).Left = -600: Control(OpenFrame).Top = -600
OpenDialogOpen = FALSE
Caption(StatusBar) = "Ready."
'Show the preview
SendSignal -3
__UI_Focus = 0
__UI_ForceRedraw = TRUE
CASE FileMenuRecent1, FileMenuRecent2, FileMenuRecent3, FileMenuRecent4, FileMenuRecent5, FileMenuRecent6, FileMenuRecent7, FileMenuRecent8, FileMenuRecent9
DIM RecentToOpen$
RecentToOpen$ = ToolTip(id)
IF _FILEEXISTS(RecentToOpen$) THEN
IF INSTR(RecentToOpen$, "/") > 0 OR INSTR(RecentToOpen$, "\") > 0 THEN
FOR i = LEN(RecentToOpen$) TO 1 STEP -1
IF ASC(RecentToOpen$, i) = 92 OR ASC(RecentToOpen$, i) = 47 THEN
CurrentPath$ = LEFT$(RecentToOpen$, i - 1)
RecentToOpen$ = MID$(RecentToOpen$, i + 1)
EXIT FOR
END IF
NEXT
END IF
IF Edited THEN
_DELAY 0.2: Answer = _MESSAGEBOX(UiEditorTitle$, "Save the current form?", "yesnocancel", "question", 1)
IF Answer = 0 THEN
EXIT SUB
ELSEIF Answer = 1 THEN
SaveForm FALSE, FALSE
END IF
END IF
Text(FileNameTextBox) = RecentToOpen$
OpenDialogOpen = TRUE
__UI_Click OpenBT
ELSE
MessageBox "File not found.", UiEditorTitle$, MsgBox_Critical
RemoveFromRecentList RecentToOpen$
END IF
CASE OpenBT
OpenFile:
IF OpenDialogOpen THEN
FileToOpen$ = CurrentPath$ + PathSep$ + Text(FileNameTextBox)
IF _FILEEXISTS(FileToOpen$) THEN
LoadedWithGifExtension = FALSE
IF _FILEEXISTS(LEFT$(FileToOpen$, LEN(FileToOpen$) - 4) + ".bas") THEN
FreeFileNum = FREEFILE
OPEN LEFT$(FileToOpen$, LEN(FileToOpen$) - 4) + ".bas" FOR BINARY AS #FreeFileNum
b$ = SPACE$(LOF(FreeFileNum))
GET #FreeFileNum, 1, b$
CLOSE #FreeFileNum
IF INSTR(b$, CHR$(10) + "'$INCLUDE:'InForm/extensions/GIFPlay.bas'") > 0 THEN
LoadedWithGifExtension = TRUE
END IF
END IF
AddToRecentList FileToOpen$
ThisFileName$ = Text(FileNameTextBox)
'Send open command
IF LoadedWithGifExtension = FALSE THEN
LoadedWithGifExtension = 1 'Set to 1 to check whether a loaded file already had the gif extension
Control(AddGifExtensionToggle).Value = FALSE
ELSE
Control(AddGifExtensionToggle).Value = TRUE
END IF
AddGifExtension = FALSE
b$ = "OPENFILE>" + FileToOpen$ + "<END>"
Send Client, b$
SendSignal -4
Control(DialogBG).Left = -600: Control(DialogBG).Top = -600
Control(OpenFrame).Left = -600: Control(OpenFrame).Top = -600
Control(FileList).FirstVisibleLine = 1
Control(FileList).InputViewStart = 1
Control(FileList).Value = 0
Control(FileList).LastVisibleItem = 0 'Reset it so it's recalculated
Control(DirList).FirstVisibleLine = 1
Control(DirList).InputViewStart = 1
Control(DirList).Value = 0
Control(DirList).LastVisibleItem = 0 'Reset it so it's recalculated
OpenDialogOpen = FALSE
Caption(StatusBar) = "Ready."
__UI_Focus = 0
Edited = FALSE
LastFormData$ = ""
Stream$ = ""
FormDataReceived = FALSE
InitialControlSet = ""
ELSE
MessageBox "File not found.", UiEditorTitle$, MsgBox_Critical
Control(FileList).Value = 0
END IF
END IF
CASE FileList
Text(FileNameTextBox) = GetItem(FileList, Control(FileList).Value)
Control(DirList).Value = 0
IF Control(FileList).HoveringVScrollbarButton = 0 AND LastClickedID = id AND TIMER - LastClick# < .3 THEN 'Double click
IF LEN(Text(FileNameTextBox)) > 0 THEN
IF Caption(OpenFrame) = "Open" THEN
GOTO OpenFile
ELSE
GOTO SaveFile
END IF
END IF
END IF
CASE DirList
Text(FileNameTextBox) = GetItem(DirList, Control(DirList).Value)
Control(FileList).Value = 0
IF LastClickedID = id AND TIMER - LastClick# < .3 THEN 'Double click
CurrentPath$ = idezchangepath(CurrentPath$, Text(FileNameTextBox))
Caption(PathLB) = "Path: " + CurrentPath$
Text(DirList) = idezpathlist$(CurrentPath$, TotalFiles%)
Control(DirList).Max = TotalFiles%
Control(DirList).LastVisibleItem = 0 'Reset it so it's recalculated
Control(DirList).Value = 0
GOTO ReloadList
END IF
CASE ShowOnlyFrmbinFilesCB
ReloadList:
Text(FileList) = idezfilelist$(CurrentPath$, Control(ShowOnlyFrmbinFilesCB).Value + 1, 1, TotalFiles%)
Control(FileList).Max = TotalFiles%
Control(FileList).FirstVisibleLine = 1
Control(FileList).InputViewStart = 1
Control(FileList).Value = 0
Control(FileList).LastVisibleItem = 0 'Reset it so it's recalculated
CASE EditMenuUndo
SendSignal 214
CASE EditMenuRedo
SendSignal 215
CASE EditMenuCopy
b$ = MKI$(0)
SendData b$, 217
CASE EditMenuPaste
b$ = MKI$(0)
SendData b$, 218
CASE EditMenuCut
b$ = MKI$(0)
SendData b$, 219
CASE EditMenuDelete
b$ = MKI$(0)
SendData b$, 220
CASE EditMenuSelectAll
b$ = MKI$(0)
SendData b$, 221
CASE EditMenuAllowMinMax
b$ = MKI$(0)
SendData b$, 223
CASE EditMenuCP437
b$ = MKL$(437)
SendData b$, 34 'Encoding
CASE EditMenuCP1252
b$ = MKL$(1252)
SendData b$, 34 'Encoding
CASE ViewMenuShowPositionAndSize
__UI_ShowPositionAndSize = NOT __UI_ShowPositionAndSize
Control(id).Value = __UI_ShowPositionAndSize
SaveSettings
CASE ViewMenuShowInvisibleControls
__UI_ShowInvisibleControls = NOT __UI_ShowInvisibleControls
Control(id).Value = __UI_ShowInvisibleControls
SaveSettings
CASE FontSwitchMenuSwitch, FontLB, FontListLB
AttemptToShowFontList = (ShowFontList = FALSE OR BypassShowFontList = TRUE)
ShowFontList = NOT ShowFontList
IF id <> FontSwitchMenuSwitch THEN __UI_MouseEnter FontLB
SaveSettings
__UI_ForceRedraw = TRUE
CASE PasteListBT
DIM Clip$
Clip$ = _CLIPBOARD$
Clip$ = Replace$(Clip$, CHR$(13) + CHR$(10), CHR$(10), 0, 0)
Clip$ = Replace$(Clip$, CHR$(10), "\n", 0, 0)
IF PreviewControls(FirstSelected).Type = __UI_Type_ListBox OR PreviewControls(FirstSelected).Type = __UI_Type_DropdownList THEN
Dummy = TextTB
ELSEIF (PreviewControls(FirstSelected).Type = __UI_Type_Label AND PreviewControls(FirstSelected).WordWrap = TRUE) THEN
Dummy = CaptionTB
END IF
Text(Dummy) = Clip$
__UI_Focus = Dummy
Control(Dummy).Cursor = LEN(Text(Dummy))
Control(Dummy).TextIsSelected = FALSE
CASE KeyboardComboBT
__UI_BypassKeyCombos = TRUE
Caption(KeyboardComboBT) = CHR$(7) + " hit a key combo... (ESC to clear)"
ToolTip(KeyboardComboBT) = "Press a key combination to assign to the selected control"
END SELECT
LastClickedID = id
LastClick# = TIMER
IF Caption(StatusBar) = "" THEN Caption(StatusBar) = "Ready."
END SUB
SUB __UI_MouseEnter (id AS LONG)
SELECT CASE id
CASE FileMenuNew
Caption(StatusBar) = "Creates a new project."
CASE FileMenuOpen
Caption(StatusBar) = "Loads an existing project from disk."
CASE FileMenuExit
Caption(StatusBar) = "Exits the editor."
CASE FileMenuSave
Caption(StatusBar) = "Saves the current project to disk."
CASE FileMenuSaveAs
Caption(StatusBar) = "Saves a copy of the current project to disk."
CASE EditMenuUndo
Caption(StatusBar) = "Undoes the last edit."
CASE EditMenuRedo
Caption(StatusBar) = "Redoes the last undone edit."
CASE EditMenuCut
Caption(StatusBar) = "Removes the selected controls and copies them to the Clipboard."
CASE EditMenuCopy
Caption(StatusBar) = "Copies the selected controls to the Clipboard."
CASE EditMenuPaste
Caption(StatusBar) = "Inserts controls previously cut or copied from the Clipboard."
CASE EditMenuDelete
Caption(StatusBar) = "Removes the selected controls."
CASE EditMenuSelectAll
Caption(StatusBar) = "Selects all controls."
CASE EditMenuCP437
Caption(StatusBar) = "Applies code page 437 to the current form."
CASE EditMenuCP1252
Caption(StatusBar) = "Applies code page 1252 to the current form."
CASE EditMenuConvertType
Caption(StatusBar) = "Converts this control's type into another similar in functionality."
CASE EditMenuSetDefaultButton
Caption(StatusBar) = "Makes the currently selected button the default button."
CASE EditMenuRestoreDimensions
Caption(StatusBar) = "Makes this control have the same dimensions as the loaded image."
CASE EditMenuAllowMinMax
Caption(StatusBar) = "Enables and validates the .Min and .Max properties for NumericTextBox controls."
CASE EditMenuZOrdering
Caption(StatusBar) = "Allows you to change tab-order/z-ordering of controls."
CASE ViewMenuPreviewDetach
Caption(StatusBar) = "Toggles whether the preview form will be moved with the editor."
CASE ViewMenuShowPositionAndSize
Caption(StatusBar) = "Toggles whether size and position indicators will be shown in the preview."
CASE ViewMenuShowInvisibleControls
Caption(StatusBar) = "Show or hide invisible controls and binding indicators in the preview dialog."
CASE ViewMenuPreview
Caption(StatusBar) = "Launches the preview window in case it's been closed accidentaly."
CASE ViewMenuLoadedFonts
Caption(StatusBar) = "Shows a list of all fonts in use in the current form."
CASE InsertMenuMenuBar
Caption(StatusBar) = "Inserts a new MenuBar control."
CASE InsertMenuMenuItem
Caption(StatusBar) = "Inserts a new MenuItem control in the currently selected menu panel."