fzeet 0.6.1 → 0.6.2

Sign up to get free protection for your applications and to get access to all the features.
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>