fzeet 0.6.1 → 0.6.2

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (68) hide show
  1. data/examples/UIRibbon/ApplicationModes.dll +0 -0
  2. data/examples/UIRibbon/ApplicationModes.rb +40 -0
  3. data/examples/UIRibbon/ApplicationModes.rbw +14 -0
  4. data/examples/UIRibbon/ApplicationModes.xml +83 -0
  5. data/examples/UIRibbon/Color.rbw +1 -1
  6. data/examples/UIRibbon/Control/Button.dll +0 -0
  7. data/examples/UIRibbon/Control/Button.rb +9 -5
  8. data/examples/UIRibbon/Control/Button.rbw +3 -1
  9. data/examples/UIRibbon/Control/Button.xml +6 -0
  10. data/examples/UIRibbon/Control/ColorPicker.dll +0 -0
  11. data/examples/UIRibbon/Control/ColorPicker.rb +55 -0
  12. data/examples/UIRibbon/Control/ColorPicker.rbw +91 -0
  13. data/examples/UIRibbon/Control/ColorPicker.xml +131 -0
  14. data/examples/UIRibbon/Control/ComboBox.dll +0 -0
  15. data/examples/UIRibbon/Control/ComboBox.rb +23 -0
  16. data/examples/UIRibbon/Control/ComboBox.rbw +56 -0
  17. data/examples/UIRibbon/Control/ComboBox.xml +75 -0
  18. data/examples/UIRibbon/Control/FontControl.dll +0 -0
  19. data/examples/UIRibbon/Control/FontControl.rb +34 -0
  20. data/examples/UIRibbon/Control/FontControl.rbw +83 -0
  21. data/examples/UIRibbon/Control/FontControl.xml +96 -0
  22. data/examples/UIRibbon/Control/Gallery.dll +0 -0
  23. data/examples/UIRibbon/Control/Gallery.rb +55 -0
  24. data/examples/UIRibbon/Control/Gallery.rbw +124 -0
  25. data/examples/UIRibbon/Control/Gallery.xml +132 -0
  26. data/examples/UIRibbon/Control/Spinner.dll +0 -0
  27. data/examples/UIRibbon/Control/Spinner.rb +14 -0
  28. data/examples/UIRibbon/Control/Spinner.rbw +27 -0
  29. data/examples/UIRibbon/Control/Spinner.xml +37 -0
  30. data/examples/UIRibbon/Size.rbw +1 -1
  31. data/examples/UIRibbon/TabGroup.dll +0 -0
  32. data/examples/UIRibbon/TabGroup.rb +12 -0
  33. data/examples/UIRibbon/TabGroup.rbw +23 -0
  34. data/examples/UIRibbon/TabGroup.xml +42 -0
  35. data/examples/UIRibbon/Viewer.rbw +1 -1
  36. data/examples/res/applications-graphics-big.bmp +0 -0
  37. data/examples/res/applications-graphics-small.bmp +0 -0
  38. data/examples/res/applications-graphics.bmp +0 -0
  39. data/examples/res/document-print-big.bmp +0 -0
  40. data/examples/res/document-print-preview-big.bmp +0 -0
  41. data/examples/res/document-print-preview-small.bmp +0 -0
  42. data/examples/res/document-print-preview.bmp +0 -0
  43. data/examples/res/document-print-small.bmp +0 -0
  44. data/examples/res/document-print.bmp +0 -0
  45. data/examples/res/go-bottom-big.bmp +0 -0
  46. data/examples/res/go-bottom-small.bmp +0 -0
  47. data/examples/res/go-bottom.bmp +0 -0
  48. data/examples/res/preferences-desktop-font-big.bmp +0 -0
  49. data/examples/res/preferences-desktop-font-small.bmp +0 -0
  50. data/examples/res/preferences-desktop-font.bmp +0 -0
  51. data/examples/res/process-stop-big.bmp +0 -0
  52. data/examples/res/process-stop-small.bmp +0 -0
  53. data/examples/res/process-stop.bmp +0 -0
  54. data/lib/fzeet/Application.rb +6 -1
  55. data/lib/fzeet/Common.rb +17 -0
  56. data/lib/fzeet/Dialog/ShellFileDialog.rb +8 -48
  57. data/lib/fzeet/UIRibbon.rb +174 -7
  58. data/lib/fzeet/windows/com.rb +2 -0
  59. data/lib/fzeet/windows/common.rb +47 -6
  60. data/lib/fzeet/windows/gdi.rb +8 -0
  61. data/lib/fzeet/windows/kernel.rb +2 -0
  62. data/lib/fzeet/windows/ole.rb +34 -0
  63. data/lib/fzeet/windows/propsys.rb +7 -1
  64. data/lib/fzeet/windows/shell/Common.rb +44 -0
  65. data/lib/fzeet/windows/shlwapi.rb +10 -0
  66. data/lib/fzeet/windows/uiribbon.rb +15 -0
  67. data/lib/fzeet/windows.rb +1 -0
  68. metadata +51 -8
data/examples/UIRibbon/ApplicationModes.rb ADDED
@@ -0,0 +1,40 @@
1
+ # Generated by the UIRibbon build, do NOT modify
2
+
3
+ CmdAppMenu = 2
4
+ CmdQAT = 3
5
+ CmdTab1 = 4
6
+ CmdTab1_LabelTitle_RESID = 60001
7
+ CmdTab1Group1 = 5
8
+ CmdTab1Group1_LabelTitle_RESID = 60002
9
+ CmdTab1Group1_LabelDescription_RESID = 60003
10
+ CmdTab1Group1_TooltipDescription_RESID = 60004
11
+ CmdTab1Group1_SmallImages_RESID = 60005
12
+ CmdTab1Group1_SmallImages_120__RESID = 60006
13
+ CmdTab1Group1_LargeImages_RESID = 60007
14
+ CmdTab1Group1_LargeImages_120__RESID = 60008
15
+ CmdTab2 = 6
16
+ CmdTab2_LabelTitle_RESID = 60009
17
+ CmdTab2Group1 = 7
18
+ CmdTab2Group1_LabelTitle_RESID = 60010
19
+ CmdTab2Group1_LabelDescription_RESID = 60011
20
+ CmdTab2Group1_TooltipDescription_RESID = 60012
21
+ CmdTab2Group1_SmallImages_RESID = 60013
22
+ CmdTab2Group1_SmallImages_120__RESID = 60014
23
+ CmdTab2Group1_LargeImages_RESID = 60015
24
+ CmdTab2Group1_LargeImages_120__RESID = 60016
25
+ CmdPrintPreview = 8
26
+ CmdPrintPreview_LabelTitle_RESID = 60017
27
+ CmdPrintPreview_LabelDescription_RESID = 60018
28
+ CmdPrintPreview_TooltipDescription_RESID = 60019
29
+ CmdPrintPreview_SmallImages_RESID = 60020
30
+ CmdPrintPreview_SmallImages_120__RESID = 60021
31
+ CmdPrintPreview_LargeImages_RESID = 60022
32
+ CmdPrintPreview_LargeImages_120__RESID = 60023
33
+ CmdClosePrintPreview = 9
34
+ CmdClosePrintPreview_LabelTitle_RESID = 60024
35
+ CmdClosePrintPreview_LabelDescription_RESID = 60025
36
+ CmdClosePrintPreview_TooltipDescription_RESID = 60026
37
+ CmdClosePrintPreview_SmallImages_RESID = 60027
38
+ CmdClosePrintPreview_SmallImages_120__RESID = 60028
39
+ CmdClosePrintPreview_LargeImages_RESID = 60029
40
+ CmdClosePrintPreview_LargeImages_120__RESID = 60030
data/examples/UIRibbon/ApplicationModes.rbw ADDED
@@ -0,0 +1,14 @@
1
+ require 'fzeet'
2
+
3
+ include Fzeet
4
+
5
+ Application.run { |window|
6
+ UIRibbon.new(window).
7
+ on(CmdPrintPreview) {
8
+ window.ribbon.uif.SetModes(Windows.UI_MAKEAPPMODE(1))
9
+ }.
10
+
11
+ on(CmdClosePrintPreview) {
12
+ window.ribbon.uif.SetModes(Windows.UI_MAKEAPPMODE(0))
13
+ }
14
+ }
data/examples/UIRibbon/ApplicationModes.xml ADDED
@@ -0,0 +1,83 @@
1
+ <?xml version='1.0' encoding='utf-8' ?>
2
+ <Application xmlns='http://schemas.microsoft.com/windows/2009/Ribbon'>
3
+ <Application.Commands>
4
+ <Command Name='cmdAppMenu' />
5
+
6
+ <Command Name='cmdQAT' />
7
+
8
+ <Command Name='cmdTab1' LabelTitle='Home' />
9
+ <Command Name='cmdTab1Group1' LabelTitle='&amp;Print' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
10
+ <Command.SmallImages>
11
+ <Image>../res/document-print-small.bmp</Image>
12
+ <Image MinDPI='120'>../res/document-print.bmp</Image>
13
+ </Command.SmallImages>
14
+ <Command.LargeImages>
15
+ <Image>../res/document-print.bmp</Image>
16
+ <Image MinDPI='120'>../res/document-print-big.bmp</Image>
17
+ </Command.LargeImages>
18
+ </Command>
19
+
20
+ <Command Name='cmdTab2' LabelTitle='Print Preview' />
21
+ <Command Name='cmdTab2Group1' LabelTitle='' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
22
+ <Command.SmallImages>
23
+ <Image>../res/process-stop-small.bmp</Image>
24
+ <Image MinDPI='120'>../res/process-stop.bmp</Image>
25
+ </Command.SmallImages>
26
+ <Command.LargeImages>
27
+ <Image>../res/process-stop.bmp</Image>
28
+ <Image MinDPI='120'>../res/process-stop-big.bmp</Image>
29
+ </Command.LargeImages>
30
+ </Command>
31
+
32
+ <Command Name='cmdPrintPreview' LabelTitle='P&amp;rint Preview' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
33
+ <Command.SmallImages>
34
+ <Image>../res/document-print-preview-small.bmp</Image>
35
+ <Image MinDPI='120'>../res/document-print-preview.bmp</Image>
36
+ </Command.SmallImages>
37
+ <Command.LargeImages>
38
+ <Image>../res/document-print-preview.bmp</Image>
39
+ <Image MinDPI='120'>../res/document-print-preview-big.bmp</Image>
40
+ </Command.LargeImages>
41
+ </Command>
42
+ <Command Name='cmdClosePrintPreview' LabelTitle='&amp;Close' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
43
+ <Command.SmallImages>
44
+ <Image>../res/process-stop-small.bmp</Image>
45
+ <Image MinDPI='120'>../res/process-stop.bmp</Image>
46
+ </Command.SmallImages>
47
+ <Command.LargeImages>
48
+ <Image>../res/process-stop.bmp</Image>
49
+ <Image MinDPI='120'>../res/process-stop-big.bmp</Image>
50
+ </Command.LargeImages>
51
+ </Command>
52
+ </Application.Commands>
53
+
54
+ <Application.Views>
55
+ <Ribbon>
56
+ <Ribbon.ApplicationMenu>
57
+ <ApplicationMenu CommandName='cmdAppMenu'>
58
+
59
+ </ApplicationMenu>
60
+ </Ribbon.ApplicationMenu>
61
+
62
+ <Ribbon.QuickAccessToolbar>
63
+ <QuickAccessToolbar CommandName='cmdQAT'>
64
+
65
+ </QuickAccessToolbar>
66
+ </Ribbon.QuickAccessToolbar>
67
+
68
+ <Ribbon.Tabs>
69
+ <Tab CommandName='cmdTab1'>
70
+ <Group CommandName='cmdTab1Group1' SizeDefinition='OneButton'>
71
+ <Button CommandName='cmdPrintPreview' />
72
+ </Group>
73
+ </Tab>
74
+
75
+ <Tab CommandName='cmdTab2' ApplicationModes='1'>
76
+ <Group CommandName='cmdTab2Group1' ApplicationModes='1' SizeDefinition='OneButton'>
77
+ <Button CommandName='cmdClosePrintPreview' />
78
+ </Group>
79
+ </Tab>
80
+ </Ribbon.Tabs>
81
+ </Ribbon>
82
+ </Application.Views>
83
+ </Application>
data/examples/UIRibbon/Color.rbw CHANGED
@@ -3,7 +3,7 @@ require 'fzeet'
3
3
  include Fzeet
4
4
 
5
5
  Application.run { |window|
6
- r = UIRibbon.new(window, 'Minimal').
6
+ r = UIRibbon.new(window, name: 'Minimal').
7
7
  on(CmdButton1) { message 'on(CmdButton1)' }
8
8
 
9
9
  r.background.darken(20).bleach(50)
data/examples/UIRibbon/Control/Button.dll CHANGED
Binary file
data/examples/UIRibbon/Control/Button.rb CHANGED
@@ -84,8 +84,12 @@ CmdCheck1_SmallImages_RESID = 60068
84
84
  CmdCheck1_SmallImages_120__RESID = 60069
85
85
  CmdCheck1_LargeImages_RESID = 60070
86
86
  CmdCheck1_LargeImages_120__RESID = 60071
87
- CmdContextMap1 = 15
88
- InternalCmd2_LabelTitle_RESID = 60072
89
- InternalCmd4_LabelTitle_RESID = 60073
90
- InternalCmd6_LabelTitle_RESID = 60074
91
- InternalCmd8_LabelTitle_RESID = 60075
87
+ CmdHelp = 15
88
+ CmdHelp_LabelTitle_RESID = 60072
89
+ CmdHelp_LabelDescription_RESID = 60073
90
+ CmdHelp_TooltipDescription_RESID = 60074
91
+ CmdContextMap1 = 16
92
+ InternalCmd2_LabelTitle_RESID = 60075
93
+ InternalCmd4_LabelTitle_RESID = 60076
94
+ InternalCmd6_LabelTitle_RESID = 60077
95
+ InternalCmd8_LabelTitle_RESID = 60078
data/examples/UIRibbon/Control/Button.rbw CHANGED
@@ -7,7 +7,9 @@ Application.run(View.new) { |window|
7
7
  on(CmdButton1) { message 'on(CmdButton1)' }.
8
8
  on(CmdSplit1) { message 'on(CmdSplit1)' }.
9
9
  on(CmdToggle1) { window.ribbon[CmdCheck1].toggle(:checked) }.
10
- on(CmdCheck1) { window.ribbon[CmdToggle1].toggle(:checked) }
10
+ on(CmdCheck1) { window.ribbon[CmdToggle1].toggle(:checked) }.
11
+
12
+ on(CmdHelp) { message 'on(CmdHelp)' }
11
13
 
12
14
  window.ribbon[CmdToggle1].checked = true
13
15
 
data/examples/UIRibbon/Control/Button.xml CHANGED
@@ -108,6 +108,8 @@
108
108
  </Command.LargeImages>
109
109
  </Command>
110
110
 
111
+ <Command Name='cmdHelp' LabelTitle='&amp;Help' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...' />
112
+
111
113
  <Command Name='cmdContextMap1' />
112
114
  </Application.Commands>
113
115
 
@@ -184,6 +186,10 @@
184
186
  </Group>
185
187
  </Tab>
186
188
  </Ribbon.Tabs>
189
+
190
+ <Ribbon.HelpButton>
191
+ <HelpButton CommandName='cmdHelp' />
192
+ </Ribbon.HelpButton>
187
193
  </Ribbon>
188
194
 
189
195
  <ContextPopup>
data/examples/UIRibbon/Control/ColorPicker.rb ADDED
@@ -0,0 +1,55 @@
1
+ # Generated by the UIRibbon build, do NOT modify
2
+
3
+ CmdAppMenu = 2
4
+ CmdQAT = 3
5
+ CmdTab1 = 4
6
+ CmdTab1_LabelTitle_RESID = 60001
7
+ CmdTab1Group1 = 5
8
+ CmdTab1Group1_LabelTitle_RESID = 60002
9
+ CmdTab1Group1_LabelDescription_RESID = 60003
10
+ CmdTab1Group1_TooltipDescription_RESID = 60004
11
+ CmdTab1Group1_SmallImages_RESID = 60005
12
+ CmdTab1Group1_SmallImages_120__RESID = 60006
13
+ CmdTab1Group1_LargeImages_RESID = 60007
14
+ CmdTab1Group1_LargeImages_120__RESID = 60008
15
+ CmdTab1Group2 = 6
16
+ CmdTab1Group2_LabelTitle_RESID = 60009
17
+ CmdTab1Group2_LabelDescription_RESID = 60010
18
+ CmdTab1Group2_TooltipDescription_RESID = 60011
19
+ CmdTab1Group2_SmallImages_RESID = 60012
20
+ CmdTab1Group2_SmallImages_120__RESID = 60013
21
+ CmdTab1Group2_LargeImages_RESID = 60014
22
+ CmdTab1Group2_LargeImages_120__RESID = 60015
23
+ CmdTab1Group3 = 7
24
+ CmdTab1Group3_LabelTitle_RESID = 60016
25
+ CmdTab1Group3_LabelDescription_RESID = 60017
26
+ CmdTab1Group3_TooltipDescription_RESID = 60018
27
+ CmdTab1Group3_SmallImages_RESID = 60019
28
+ CmdTab1Group3_SmallImages_120__RESID = 60020
29
+ CmdTab1Group3_LargeImages_RESID = 60021
30
+ CmdTab1Group3_LargeImages_120__RESID = 60022
31
+ CmdPicker1 = 8
32
+ CmdPicker1_LabelTitle_RESID = 60023
33
+ CmdPicker1_LabelDescription_RESID = 60024
34
+ CmdPicker1_TooltipDescription_RESID = 60025
35
+ CmdPicker1_SmallImages_RESID = 60026
36
+ CmdPicker1_SmallImages_120__RESID = 60027
37
+ CmdPicker1_LargeImages_RESID = 60028
38
+ CmdPicker1_LargeImages_120__RESID = 60029
39
+ CmdPicker2 = 9
40
+ CmdPicker2_LabelTitle_RESID = 60030
41
+ CmdPicker2_LabelDescription_RESID = 60031
42
+ CmdPicker2_TooltipDescription_RESID = 60032
43
+ CmdPicker2_SmallImages_RESID = 60033
44
+ CmdPicker2_SmallImages_120__RESID = 60034
45
+ CmdPicker2_LargeImages_RESID = 60035
46
+ CmdPicker2_LargeImages_120__RESID = 60036
47
+ CmdPicker3 = 10
48
+ CmdPicker3_LabelTitle_RESID = 60037
49
+ CmdPicker3_LabelDescription_RESID = 60038
50
+ CmdPicker3_TooltipDescription_RESID = 60039
51
+ CmdPicker3_SmallImages_RESID = 60040
52
+ CmdPicker3_SmallImages_120__RESID = 60041
53
+ CmdPicker3_LargeImages_RESID = 60042
54
+ CmdPicker3_LargeImages_120__RESID = 60043
55
+ CmdContextMap1 = 11
data/examples/UIRibbon/Control/ColorPicker.rbw ADDED
@@ -0,0 +1,91 @@
1
+ require 'fzeet'
2
+
3
+ include Fzeet
4
+
5
+ Application.run(View.new) { |window|
6
+ UIRibbon.new(window)
7
+
8
+ backgroundhsb = window.ribbon.background
9
+ colorhsb = window.ribbon.color
10
+ highlighthsb = window.ribbon.highlight
11
+
12
+ window.ribbon.
13
+ on(:preview, CmdPicker1) { |args|
14
+ next unless args[:value].uint == Windows::UI_SWATCHCOLORTYPE_RGB
15
+
16
+ colorref = args[:props].uiprop(:Color).uint
17
+
18
+ window.ribbon.background = Windows.UI_RGB2HSB(
19
+ Windows.GetRValue(colorref), Windows.GetGValue(colorref), Windows.GetBValue(colorref)
20
+ )
21
+ }.
22
+
23
+ on(:cancelPreview, CmdPicker1) {
24
+ window.ribbon.background = backgroundhsb
25
+ }.
26
+
27
+ on(:execute, CmdPicker1) { |args|
28
+ next unless args[:value].uint == Windows::UI_SWATCHCOLORTYPE_RGB
29
+
30
+ colorref = args[:props].uiprop(:Color).uint
31
+
32
+ window.ribbon.background = backgroundhsb = Windows.UI_RGB2HSB(
33
+ Windows.GetRValue(colorref), Windows.GetGValue(colorref), Windows.GetBValue(colorref)
34
+ )
35
+ }.
36
+
37
+ on(:preview, CmdPicker2) { |args|
38
+ next unless args[:value].uint == Windows::UI_SWATCHCOLORTYPE_RGB
39
+
40
+ colorref = args[:props].uiprop(:Color).uint
41
+
42
+ window.ribbon.color = Windows.UI_RGB2HSB(
43
+ Windows.GetRValue(colorref), Windows.GetGValue(colorref), Windows.GetBValue(colorref)
44
+ )
45
+ }.
46
+
47
+ on(:cancelPreview, CmdPicker2) {
48
+ window.ribbon.color = colorhsb
49
+ }.
50
+
51
+ on(:execute, CmdPicker2) { |args|
52
+ next unless args[:value].uint == Windows::UI_SWATCHCOLORTYPE_RGB
53
+
54
+ colorref = args[:props].uiprop(:Color).uint
55
+
56
+ window.ribbon.color = colorhsb = Windows.UI_RGB2HSB(
57
+ Windows.GetRValue(colorref), Windows.GetGValue(colorref), Windows.GetBValue(colorref)
58
+ )
59
+ }.
60
+
61
+ on(:preview, CmdPicker3) { |args|
62
+ next unless args[:value].uint == Windows::UI_SWATCHCOLORTYPE_RGB
63
+
64
+ colorref = args[:props].uiprop(:Color).uint
65
+
66
+ window.ribbon.highlight = Windows.UI_RGB2HSB(
67
+ Windows.GetRValue(colorref), Windows.GetGValue(colorref), Windows.GetBValue(colorref)
68
+ )
69
+ }.
70
+
71
+ on(:cancelPreview, CmdPicker3) {
72
+ window.ribbon.highlight = highlighthsb
73
+ }.
74
+
75
+ on(:execute, CmdPicker3) { |args|
76
+ next unless args[:value].uint == Windows::UI_SWATCHCOLORTYPE_RGB
77
+
78
+ colorref = args[:props].uiprop(:Color).uint
79
+
80
+ window.ribbon.highlight = highlighthsb = Windows.UI_RGB2HSB(
81
+ Windows.GetRValue(colorref), Windows.GetGValue(colorref), Windows.GetBValue(colorref)
82
+ )
83
+ }
84
+
85
+ window.
86
+ on(:draw, Control::Font) { |dc| dc.sms 'Right-click (or menu key) for context menu' }.
87
+
88
+ on(:contextmenu) { |args|
89
+ window.ribbon.contextualUI(CmdContextMap1, args[:x], args[:y])
90
+ }
91
+ }
data/examples/UIRibbon/Control/ColorPicker.xml ADDED
@@ -0,0 +1,131 @@
1
+ <?xml version='1.0' encoding='utf-8' ?>
2
+ <Application xmlns='http://schemas.microsoft.com/windows/2009/Ribbon'>
3
+ <Application.Commands>
4
+ <Command Name='cmdAppMenu' />
5
+
6
+ <Command Name='cmdQAT' />
7
+
8
+ <Command Name='cmdTab1' LabelTitle='ColorPicker' />
9
+ <Command Name='cmdTab1Group1' LabelTitle='&amp;ThemeColors' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
10
+ <Command.SmallImages>
11
+ <Image>../../res/applications-graphics-small.bmp</Image>
12
+ <Image MinDPI='120'>../../res/applications-graphics.bmp</Image>
13
+ </Command.SmallImages>
14
+ <Command.LargeImages>
15
+ <Image>../../res/applications-graphics.bmp</Image>
16
+ <Image MinDPI='120'>../../res/applications-graphics-big.bmp</Image>
17
+ </Command.LargeImages>
18
+ </Command>
19
+ <Command Name='cmdTab1Group2' LabelTitle='&amp;StandardColors' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
20
+ <Command.SmallImages>
21
+ <Image>../../res/applications-graphics-small.bmp</Image>
22
+ <Image MinDPI='120'>../../res/applications-graphics.bmp</Image>
23
+ </Command.SmallImages>
24
+ <Command.LargeImages>
25
+ <Image>../../res/applications-graphics.bmp</Image>
26
+ <Image MinDPI='120'>../../res/applications-graphics-big.bmp</Image>
27
+ </Command.LargeImages>
28
+ </Command>
29
+ <Command Name='cmdTab1Group3' LabelTitle='&amp;HighlightColors' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
30
+ <Command.SmallImages>
31
+ <Image>../../res/applications-graphics-small.bmp</Image>
32
+ <Image MinDPI='120'>../../res/applications-graphics.bmp</Image>
33
+ </Command.SmallImages>
34
+ <Command.LargeImages>
35
+ <Image>../../res/applications-graphics.bmp</Image>
36
+ <Image MinDPI='120'>../../res/applications-graphics-big.bmp</Image>
37
+ </Command.LargeImages>
38
+ </Command>
39
+
40
+ <Command Name='cmdPicker1' LabelTitle='Picker&amp;1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
41
+ <Command.SmallImages>
42
+ <Image>../../res/applications-graphics-small.bmp</Image>
43
+ <Image MinDPI='120'>../../res/applications-graphics.bmp</Image>
44
+ </Command.SmallImages>
45
+ <Command.LargeImages>
46
+ <Image>../../res/applications-graphics.bmp</Image>
47
+ <Image MinDPI='120'>../../res/applications-graphics-big.bmp</Image>
48
+ </Command.LargeImages>
49
+ </Command>
50
+ <Command Name='cmdPicker2' LabelTitle='Picker&amp;2' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
51
+ <Command.SmallImages>
52
+ <Image>../../res/applications-graphics-small.bmp</Image>
53
+ <Image MinDPI='120'>../../res/applications-graphics.bmp</Image>
54
+ </Command.SmallImages>
55
+ <Command.LargeImages>
56
+ <Image>../../res/applications-graphics.bmp</Image>
57
+ <Image MinDPI='120'>../../res/applications-graphics-big.bmp</Image>
58
+ </Command.LargeImages>
59
+ </Command>
60
+ <Command Name='cmdPicker3' LabelTitle='Picker&amp;3' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
61
+ <Command.SmallImages>
62
+ <Image>../../res/applications-graphics-small.bmp</Image>
63
+ <Image MinDPI='120'>../../res/applications-graphics.bmp</Image>
64
+ </Command.SmallImages>
65
+ <Command.LargeImages>
66
+ <Image>../../res/applications-graphics.bmp</Image>
67
+ <Image MinDPI='120'>../../res/applications-graphics-big.bmp</Image>
68
+ </Command.LargeImages>
69
+ </Command>
70
+
71
+ <Command Name='cmdContextMap1' />
72
+ </Application.Commands>
73
+
74
+ <Application.Views>
75
+ <Ribbon>
76
+ <Ribbon.ApplicationMenu>
77
+ <ApplicationMenu CommandName='cmdAppMenu'>
78
+
79
+ </ApplicationMenu>
80
+ </Ribbon.ApplicationMenu>
81
+
82
+ <Ribbon.QuickAccessToolbar>
83
+ <QuickAccessToolbar CommandName='cmdQAT'>
84
+
85
+ </QuickAccessToolbar>
86
+ </Ribbon.QuickAccessToolbar>
87
+
88
+ <Ribbon.Tabs>
89
+ <Tab CommandName='cmdTab1'>
90
+ <Group CommandName='cmdTab1Group1' SizeDefinition='OneButton'>
91
+ <DropDownColorPicker CommandName='cmdPicker1' ColorTemplate='ThemeColors' />
92
+ </Group>
93
+
94
+ <Group CommandName='cmdTab1Group2' SizeDefinition='OneButton'>
95
+ <DropDownColorPicker CommandName='cmdPicker2' ColorTemplate='StandardColors' />
96
+ </Group>
97
+
98
+ <Group CommandName='cmdTab1Group3' SizeDefinition='OneButton'>
99
+ <DropDownColorPicker CommandName='cmdPicker3' ColorTemplate='HighlightColors' />
100
+ </Group>
101
+ </Tab>
102
+ </Ribbon.Tabs>
103
+ </Ribbon>
104
+
105
+ <ContextPopup>
106
+ <ContextPopup.MiniToolbars>
107
+ <MiniToolbar Name='miniToolbar1'>
108
+ <MenuGroup>
109
+ <DropDownColorPicker CommandName='cmdPicker1' />
110
+ <DropDownColorPicker CommandName='cmdPicker2' />
111
+ <DropDownColorPicker CommandName='cmdPicker3' />
112
+ </MenuGroup>
113
+ </MiniToolbar>
114
+ </ContextPopup.MiniToolbars>
115
+
116
+ <ContextPopup.ContextMenus>
117
+ <ContextMenu Name='contextMenu1'>
118
+ <MenuGroup>
119
+ <DropDownColorPicker CommandName='cmdPicker1' />
120
+ <DropDownColorPicker CommandName='cmdPicker2' />
121
+ <DropDownColorPicker CommandName='cmdPicker3' />
122
+ </MenuGroup>
123
+ </ContextMenu>
124
+ </ContextPopup.ContextMenus>
125
+
126
+ <ContextPopup.ContextMaps>
127
+ <ContextMap CommandName='cmdContextMap1' MiniToolbar='miniToolbar1' ContextMenu='contextMenu1' />
128
+ </ContextPopup.ContextMaps>
129
+ </ContextPopup>
130
+ </Application.Views>
131
+ </Application>
data/examples/UIRibbon/Control/ComboBox.rb ADDED
@@ -0,0 +1,23 @@
1
+ # Generated by the UIRibbon build, do NOT modify
2
+
3
+ CmdAppMenu = 2
4
+ CmdQAT = 3
5
+ CmdTab1 = 4
6
+ CmdTab1_LabelTitle_RESID = 60001
7
+ CmdTab1Group1 = 5
8
+ CmdTab1Group1_LabelTitle_RESID = 60002
9
+ CmdTab1Group1_LabelDescription_RESID = 60003
10
+ CmdTab1Group1_TooltipDescription_RESID = 60004
11
+ CmdTab1Group1_SmallImages_RESID = 60005
12
+ CmdTab1Group1_SmallImages_120__RESID = 60006
13
+ CmdTab1Group1_LargeImages_RESID = 60007
14
+ CmdTab1Group1_LargeImages_120__RESID = 60008
15
+ CmdCombo1 = 6
16
+ CmdCombo1_LabelTitle_RESID = 60009
17
+ CmdCombo1_LabelDescription_RESID = 60010
18
+ CmdCombo1_TooltipDescription_RESID = 60011
19
+ CmdCombo1_SmallImages_RESID = 60012
20
+ CmdCombo1_SmallImages_120__RESID = 60013
21
+ CmdCombo1_LargeImages_RESID = 60014
22
+ CmdCombo1_LargeImages_120__RESID = 60015
23
+ CmdContextMap1 = 7
data/examples/UIRibbon/Control/ComboBox.rbw ADDED
@@ -0,0 +1,56 @@
1
+ require 'fzeet'
2
+
3
+ include Fzeet
4
+
5
+ Application.run(View.new) { |window|
6
+ UIRibbon.new(window,
7
+ [:update, :CmdCombo1] => proc { |args|
8
+ next unless args[:key] == Windows::UI_PKEY_RepresentativeString
9
+
10
+ args[:newValue].wstring = 'W' * 10
11
+ }
12
+ ).
13
+ invalidate(CmdCombo1, Windows::UI_INVALIDATIONS_PROPERTY, Windows::UI_PKEY_Categories).
14
+ invalidate(CmdCombo1, Windows::UI_INVALIDATIONS_PROPERTY, Windows::UI_PKEY_ItemsSource).
15
+ invalidate(CmdCombo1, Windows::UI_INVALIDATIONS_STATE).
16
+
17
+ on(:update, CmdCombo1) { |args|
18
+ case args[:key]
19
+ when Windows::UI_PKEY_Categories
20
+ args[:value].unknown { |current|
21
+ current.QueryInstance(Windows::UICollection) { |categories|
22
+ categories.
23
+ add(C1 = UIRibbon::GalleryItem.new('Category1', 0)).
24
+ add(C2 = UIRibbon::GalleryItem.new('Category2', 1))
25
+ }
26
+
27
+ args[:newValue].unknown = current
28
+ }
29
+ when Windows::UI_PKEY_ItemsSource
30
+ args[:value].unknown { |current|
31
+ current.QueryInstance(Windows::UICollection) { |items|
32
+ items.
33
+ add(I1 = UIRibbon::GalleryItem.new('Item1', 0, '../../res/go-next-small.bmp')).
34
+ add(I2 = UIRibbon::GalleryItem.new('Item2', 1, '../../res/go-previous-small.bmp'))
35
+ }
36
+
37
+ args[:newValue].unknown = current
38
+ }
39
+
40
+ window.ribbon.invalidate(CmdCombo1, Windows::UI_INVALIDATIONS_PROPERTY, Windows::UI_PKEY_SelectedItem)
41
+ when Windows::UI_PKEY_SelectedItem
42
+ args[:newValue].uint = 0
43
+ end
44
+ }.
45
+
46
+ on(:execute, CmdCombo1) { |args|
47
+ message "Item with index #{args[:value].uint} selected"
48
+ }
49
+
50
+ window.
51
+ on(:draw, Control::Font) { |dc| dc.sms 'Right-click (or menu key) for context menu' }.
52
+
53
+ on(:contextmenu) { |args|
54
+ window.ribbon.contextualUI(CmdContextMap1, args[:x], args[:y])
55
+ }
56
+ }
data/examples/UIRibbon/Control/ComboBox.xml ADDED
@@ -0,0 +1,75 @@
1
+ <?xml version='1.0' encoding='utf-8' ?>
2
+ <Application xmlns='http://schemas.microsoft.com/windows/2009/Ribbon'>
3
+ <Application.Commands>
4
+ <Command Name='cmdAppMenu' />
5
+
6
+ <Command Name='cmdQAT' />
7
+
8
+ <Command Name='cmdTab1' LabelTitle='ComboBox' />
9
+ <Command Name='cmdTab1Group1' LabelTitle='&amp;ComboBox' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
10
+ <Command.SmallImages>
11
+ <Image>../../res/go-bottom-small.bmp</Image>
12
+ <Image MinDPI='120'>../../res/go-bottom.bmp</Image>
13
+ </Command.SmallImages>
14
+ <Command.LargeImages>
15
+ <Image>../../res/go-bottom.bmp</Image>
16
+ <Image MinDPI='120'>../../res/go-bottom-big.bmp</Image>
17
+ </Command.LargeImages>
18
+ </Command>
19
+
20
+ <Command Name='cmdCombo1' LabelTitle='&amp;Combo1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
21
+ <Command.SmallImages>
22
+ <Image>../../res/go-bottom-small.bmp</Image>
23
+ <Image MinDPI='120'>../../res/go-bottom.bmp</Image>
24
+ </Command.SmallImages>
25
+ <Command.LargeImages>
26
+ <Image>../../res/go-bottom.bmp</Image>
27
+ <Image MinDPI='120'>../../res/go-bottom-big.bmp</Image>
28
+ </Command.LargeImages>
29
+ </Command>
30
+
31
+ <Command Name='cmdContextMap1' />
32
+ </Application.Commands>
33
+
34
+ <Application.Views>
35
+ <Ribbon>
36
+ <Ribbon.ApplicationMenu>
37
+ <ApplicationMenu CommandName='cmdAppMenu'>
38
+
39
+ </ApplicationMenu>
40
+ </Ribbon.ApplicationMenu>
41
+
42
+ <Ribbon.QuickAccessToolbar>
43
+ <QuickAccessToolbar CommandName='cmdQAT'>
44
+
45
+ </QuickAccessToolbar>
46
+ </Ribbon.QuickAccessToolbar>
47
+
48
+ <Ribbon.Tabs>
49
+ <Tab CommandName='cmdTab1'>
50
+ <Group CommandName='cmdTab1Group1'>
51
+ <ComboBox CommandName='cmdCombo1' />
52
+ </Group>
53
+ </Tab>
54
+ </Ribbon.Tabs>
55
+ </Ribbon>
56
+
57
+ <ContextPopup>
58
+ <ContextPopup.MiniToolbars>
59
+ <MiniToolbar Name='miniToolbar1'>
60
+ <MenuGroup>
61
+ <ComboBox CommandName='cmdCombo1' />
62
+ </MenuGroup>
63
+ </MiniToolbar>
64
+ </ContextPopup.MiniToolbars>
65
+
66
+ <ContextPopup.ContextMenus>
67
+
68
+ </ContextPopup.ContextMenus>
69
+
70
+ <ContextPopup.ContextMaps>
71
+ <ContextMap CommandName='cmdContextMap1' MiniToolbar='miniToolbar1' />
72
+ </ContextPopup.ContextMaps>
73
+ </ContextPopup>
74
+ </Application.Views>
75
+ </Application>