fzeet 0.5.1 → 0.5.2
Sign up to get free protection for your applications and to get access to all the features.
- data/examples/Raw/UIRibbon/Command.dll +0 -0
- data/examples/Raw/UIRibbon/Command.rb +24 -0
- data/examples/Raw/UIRibbon/Command.rbw +51 -0
- data/examples/Raw/UIRibbon/Command.xml +65 -0
- data/examples/Raw/UIRibbon/Minimal.dll +0 -0
- data/examples/Raw/UIRibbon/Minimal.rb +18 -0
- data/examples/Raw/UIRibbon/Minimal.rbw +39 -0
- data/examples/Raw/UIRibbon/Minimal.xml +55 -0
- data/examples/UIRibbon/Command.dll +0 -0
- data/examples/UIRibbon/Command.rb +24 -0
- data/examples/UIRibbon/Command.rbw +20 -0
- data/examples/UIRibbon/Command.xml +65 -0
- data/examples/UIRibbon/Minimal.dll +0 -0
- data/examples/UIRibbon/Minimal.rb +18 -0
- data/examples/UIRibbon/Minimal.rbw +8 -0
- data/examples/UIRibbon/Minimal.xml +55 -0
- data/examples/UIRibbon/Viewer.rbw +9 -0
- data/lib/fzeet/windows/com.rb +3 -5
- data/lib/fzeet/windows/uiribbon.rb +14 -9
- data/lib/fzeet/windows.rb +1 -1
- metadata +20 -3
|
Binary file
|
|
@@ -0,0 +1,24 @@
|
|
|
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_LargeImages_RESID = 60006
|
|
13
|
+
CmdItem1 = 6
|
|
14
|
+
CmdItem1_LabelTitle_RESID = 60007
|
|
15
|
+
CmdItem1_LabelDescription_RESID = 60008
|
|
16
|
+
CmdItem1_TooltipDescription_RESID = 60009
|
|
17
|
+
CmdItem1_SmallImages_RESID = 60010
|
|
18
|
+
CmdItem1_LargeImages_RESID = 60011
|
|
19
|
+
CmdButton1 = 7
|
|
20
|
+
CmdButton1_LabelTitle_RESID = 60012
|
|
21
|
+
CmdButton1_LabelDescription_RESID = 60013
|
|
22
|
+
CmdButton1_TooltipDescription_RESID = 60014
|
|
23
|
+
CmdButton1_SmallImages_RESID = 60015
|
|
24
|
+
CmdButton1_LargeImages_RESID = 60016
|
|
@@ -0,0 +1,51 @@
|
|
|
1
|
+
require 'fzeet'
|
|
2
|
+
|
|
3
|
+
include Fzeet::Windows
|
|
4
|
+
|
|
5
|
+
def onItem1(*args)
|
|
6
|
+
Fzeet.message __method__
|
|
7
|
+
|
|
8
|
+
UIF.SetUICommandProperty(CmdButton1, UI_PKEY_Enabled, PROPVARIANT[:bool, true])
|
|
9
|
+
UIF.SetUICommandProperty(CmdItem1, UI_PKEY_Enabled, PROPVARIANT[:bool, false])
|
|
10
|
+
end
|
|
11
|
+
|
|
12
|
+
def onButton1(*args)
|
|
13
|
+
Fzeet.message __method__
|
|
14
|
+
|
|
15
|
+
UIF.SetUICommandProperty(CmdItem1, UI_PKEY_Enabled, PROPVARIANT[:bool, true])
|
|
16
|
+
UIF.SetUICommandProperty(CmdButton1, UI_PKEY_Enabled, PROPVARIANT[:bool, false])
|
|
17
|
+
end
|
|
18
|
+
|
|
19
|
+
UICH = UICommandHandler.new
|
|
20
|
+
|
|
21
|
+
def UICH.Execute(*args)
|
|
22
|
+
case args[0]
|
|
23
|
+
when CmdItem1
|
|
24
|
+
onItem1(*args)
|
|
25
|
+
when CmdButton1
|
|
26
|
+
onButton1(*args)
|
|
27
|
+
end
|
|
28
|
+
|
|
29
|
+
S_OK
|
|
30
|
+
end
|
|
31
|
+
|
|
32
|
+
UIA = UIApplication.new
|
|
33
|
+
|
|
34
|
+
def UIA.OnCreateUICommand(*args)
|
|
35
|
+
UICH.QueryInterface(UICH.class::IID, args[-1])
|
|
36
|
+
|
|
37
|
+
S_OK
|
|
38
|
+
end
|
|
39
|
+
|
|
40
|
+
UIF = UIFramework.new
|
|
41
|
+
|
|
42
|
+
Fzeet::Application.run { |window|
|
|
43
|
+
UIF.Initialize(window.handle, UIA)
|
|
44
|
+
UIF.LoadUI(LoadRibbonDll(), "APPLICATION_RIBBON\0".encode('utf-16le'))
|
|
45
|
+
|
|
46
|
+
window.on(:destroy) {
|
|
47
|
+
UICH.Release
|
|
48
|
+
UIA.Release
|
|
49
|
+
UIF.Destroy; UIF.Release
|
|
50
|
+
}
|
|
51
|
+
}
|
|
@@ -0,0 +1,65 @@
|
|
|
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='Tab1' />
|
|
9
|
+
<Command Name='cmdTab1Group1' LabelTitle='&Group1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
|
|
10
|
+
<Command.SmallImages>
|
|
11
|
+
<Image>../../res/go-next-small.bmp</Image>
|
|
12
|
+
</Command.SmallImages>
|
|
13
|
+
<Command.LargeImages>
|
|
14
|
+
<Image>../../res/go-next.bmp</Image>
|
|
15
|
+
</Command.LargeImages>
|
|
16
|
+
</Command>
|
|
17
|
+
|
|
18
|
+
<Command Name='cmdItem1' LabelTitle='&Item1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
|
|
19
|
+
<Command.SmallImages>
|
|
20
|
+
<Image>../../res/go-previous-small.bmp</Image>
|
|
21
|
+
</Command.SmallImages>
|
|
22
|
+
<Command.LargeImages>
|
|
23
|
+
<Image>../../res/go-previous.bmp</Image>
|
|
24
|
+
</Command.LargeImages>
|
|
25
|
+
</Command>
|
|
26
|
+
|
|
27
|
+
<Command Name='cmdButton1' LabelTitle='&Button1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
|
|
28
|
+
<Command.SmallImages>
|
|
29
|
+
<Image>../../res/go-next-small.bmp</Image>
|
|
30
|
+
</Command.SmallImages>
|
|
31
|
+
<Command.LargeImages>
|
|
32
|
+
<Image>../../res/go-next.bmp</Image>
|
|
33
|
+
</Command.LargeImages>
|
|
34
|
+
</Command>
|
|
35
|
+
</Application.Commands>
|
|
36
|
+
|
|
37
|
+
<Application.Views>
|
|
38
|
+
<Ribbon>
|
|
39
|
+
<Ribbon.ApplicationMenu>
|
|
40
|
+
<ApplicationMenu CommandName='cmdAppMenu'>
|
|
41
|
+
<MenuGroup Class='MajorItems'>
|
|
42
|
+
<Button CommandName='cmdItem1' />
|
|
43
|
+
</MenuGroup>
|
|
44
|
+
</ApplicationMenu>
|
|
45
|
+
</Ribbon.ApplicationMenu>
|
|
46
|
+
|
|
47
|
+
<Ribbon.QuickAccessToolbar>
|
|
48
|
+
<QuickAccessToolbar CommandName='cmdQAT'>
|
|
49
|
+
<QuickAccessToolbar.ApplicationDefaults>
|
|
50
|
+
<Button CommandName='cmdItem1' />
|
|
51
|
+
<Button CommandName='cmdButton1' />
|
|
52
|
+
</QuickAccessToolbar.ApplicationDefaults>
|
|
53
|
+
</QuickAccessToolbar>
|
|
54
|
+
</Ribbon.QuickAccessToolbar>
|
|
55
|
+
|
|
56
|
+
<Ribbon.Tabs>
|
|
57
|
+
<Tab CommandName='cmdTab1'>
|
|
58
|
+
<Group CommandName='cmdTab1Group1' SizeDefinition='OneButton'>
|
|
59
|
+
<Button CommandName='cmdButton1' />
|
|
60
|
+
</Group>
|
|
61
|
+
</Tab>
|
|
62
|
+
</Ribbon.Tabs>
|
|
63
|
+
</Ribbon>
|
|
64
|
+
</Application.Views>
|
|
65
|
+
</Application>
|
|
Binary file
|
|
@@ -0,0 +1,18 @@
|
|
|
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_LargeImages_RESID = 60006
|
|
13
|
+
CmdButton1 = 6
|
|
14
|
+
CmdButton1_LabelTitle_RESID = 60007
|
|
15
|
+
CmdButton1_LabelDescription_RESID = 60008
|
|
16
|
+
CmdButton1_TooltipDescription_RESID = 60009
|
|
17
|
+
CmdButton1_SmallImages_RESID = 60010
|
|
18
|
+
CmdButton1_LargeImages_RESID = 60011
|
|
@@ -0,0 +1,39 @@
|
|
|
1
|
+
require 'fzeet'
|
|
2
|
+
|
|
3
|
+
include Fzeet::Windows
|
|
4
|
+
|
|
5
|
+
def onButton1(*args)
|
|
6
|
+
Fzeet.message __method__
|
|
7
|
+
end
|
|
8
|
+
|
|
9
|
+
UICH = UICommandHandler.new
|
|
10
|
+
|
|
11
|
+
def UICH.Execute(*args)
|
|
12
|
+
case args[0]
|
|
13
|
+
when CmdButton1
|
|
14
|
+
onButton1(*args)
|
|
15
|
+
end
|
|
16
|
+
|
|
17
|
+
S_OK
|
|
18
|
+
end
|
|
19
|
+
|
|
20
|
+
UIA = UIApplication.new
|
|
21
|
+
|
|
22
|
+
def UIA.OnCreateUICommand(*args)
|
|
23
|
+
UICH.QueryInterface(UICH.class::IID, args[-1])
|
|
24
|
+
|
|
25
|
+
S_OK
|
|
26
|
+
end
|
|
27
|
+
|
|
28
|
+
UIF = UIFramework.new
|
|
29
|
+
|
|
30
|
+
Fzeet::Application.run { |window|
|
|
31
|
+
UIF.Initialize(window.handle, UIA)
|
|
32
|
+
UIF.LoadUI(LoadRibbonDll(), "APPLICATION_RIBBON\0".encode('utf-16le'))
|
|
33
|
+
|
|
34
|
+
window.on(:destroy) {
|
|
35
|
+
UICH.Release
|
|
36
|
+
UIA.Release
|
|
37
|
+
UIF.Destroy; UIF.Release
|
|
38
|
+
}
|
|
39
|
+
}
|
|
@@ -0,0 +1,55 @@
|
|
|
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='Tab1' />
|
|
9
|
+
<Command Name='cmdTab1Group1' LabelTitle='&Group1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
|
|
10
|
+
<Command.SmallImages>
|
|
11
|
+
<Image>../../res/go-next-small.bmp</Image>
|
|
12
|
+
</Command.SmallImages>
|
|
13
|
+
<Command.LargeImages>
|
|
14
|
+
<Image>../../res/go-next.bmp</Image>
|
|
15
|
+
</Command.LargeImages>
|
|
16
|
+
</Command>
|
|
17
|
+
|
|
18
|
+
<Command Name='cmdButton1' LabelTitle='&Button1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
|
|
19
|
+
<Command.SmallImages>
|
|
20
|
+
<Image>../../res/go-next-small.bmp</Image>
|
|
21
|
+
</Command.SmallImages>
|
|
22
|
+
<Command.LargeImages>
|
|
23
|
+
<Image>../../res/go-next.bmp</Image>
|
|
24
|
+
</Command.LargeImages>
|
|
25
|
+
</Command>
|
|
26
|
+
</Application.Commands>
|
|
27
|
+
|
|
28
|
+
<Application.Views>
|
|
29
|
+
<Ribbon>
|
|
30
|
+
<Ribbon.ApplicationMenu>
|
|
31
|
+
<ApplicationMenu CommandName='cmdAppMenu'>
|
|
32
|
+
<MenuGroup Class='MajorItems'>
|
|
33
|
+
<Button CommandName='cmdButton1' />
|
|
34
|
+
</MenuGroup>
|
|
35
|
+
</ApplicationMenu>
|
|
36
|
+
</Ribbon.ApplicationMenu>
|
|
37
|
+
|
|
38
|
+
<Ribbon.QuickAccessToolbar>
|
|
39
|
+
<QuickAccessToolbar CommandName='cmdQAT'>
|
|
40
|
+
<QuickAccessToolbar.ApplicationDefaults>
|
|
41
|
+
<Button CommandName='cmdButton1' />
|
|
42
|
+
</QuickAccessToolbar.ApplicationDefaults>
|
|
43
|
+
</QuickAccessToolbar>
|
|
44
|
+
</Ribbon.QuickAccessToolbar>
|
|
45
|
+
|
|
46
|
+
<Ribbon.Tabs>
|
|
47
|
+
<Tab CommandName='cmdTab1'>
|
|
48
|
+
<Group CommandName='cmdTab1Group1' SizeDefinition='OneButton'>
|
|
49
|
+
<Button CommandName='cmdButton1' />
|
|
50
|
+
</Group>
|
|
51
|
+
</Tab>
|
|
52
|
+
</Ribbon.Tabs>
|
|
53
|
+
</Ribbon>
|
|
54
|
+
</Application.Views>
|
|
55
|
+
</Application>
|
|
Binary file
|
|
@@ -0,0 +1,24 @@
|
|
|
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_LargeImages_RESID = 60006
|
|
13
|
+
CmdItem1 = 6
|
|
14
|
+
CmdItem1_LabelTitle_RESID = 60007
|
|
15
|
+
CmdItem1_LabelDescription_RESID = 60008
|
|
16
|
+
CmdItem1_TooltipDescription_RESID = 60009
|
|
17
|
+
CmdItem1_SmallImages_RESID = 60010
|
|
18
|
+
CmdItem1_LargeImages_RESID = 60011
|
|
19
|
+
CmdButton1 = 7
|
|
20
|
+
CmdButton1_LabelTitle_RESID = 60012
|
|
21
|
+
CmdButton1_LabelDescription_RESID = 60013
|
|
22
|
+
CmdButton1_TooltipDescription_RESID = 60014
|
|
23
|
+
CmdButton1_SmallImages_RESID = 60015
|
|
24
|
+
CmdButton1_LargeImages_RESID = 60016
|
|
@@ -0,0 +1,20 @@
|
|
|
1
|
+
require 'fzeet'
|
|
2
|
+
|
|
3
|
+
include Fzeet
|
|
4
|
+
|
|
5
|
+
Application.run { |window|
|
|
6
|
+
UIRibbon.new(window).
|
|
7
|
+
on(CmdItem1) { |args|
|
|
8
|
+
message 'on(CmdItem1)'
|
|
9
|
+
|
|
10
|
+
window.ribbon[CmdButton1].enabled = true
|
|
11
|
+
args[:sender].enabled = false
|
|
12
|
+
}.
|
|
13
|
+
|
|
14
|
+
on(CmdButton1) { |args|
|
|
15
|
+
message 'on(CmdButton1)'
|
|
16
|
+
|
|
17
|
+
window.ribbon[CmdItem1].enabled = true
|
|
18
|
+
args[:sender].enabled = false
|
|
19
|
+
}
|
|
20
|
+
}
|
|
@@ -0,0 +1,65 @@
|
|
|
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='Tab1' />
|
|
9
|
+
<Command Name='cmdTab1Group1' LabelTitle='&Group1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
|
|
10
|
+
<Command.SmallImages>
|
|
11
|
+
<Image>../res/go-next-small.bmp</Image>
|
|
12
|
+
</Command.SmallImages>
|
|
13
|
+
<Command.LargeImages>
|
|
14
|
+
<Image>../res/go-next.bmp</Image>
|
|
15
|
+
</Command.LargeImages>
|
|
16
|
+
</Command>
|
|
17
|
+
|
|
18
|
+
<Command Name='cmdItem1' LabelTitle='&Item1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
|
|
19
|
+
<Command.SmallImages>
|
|
20
|
+
<Image>../res/go-previous-small.bmp</Image>
|
|
21
|
+
</Command.SmallImages>
|
|
22
|
+
<Command.LargeImages>
|
|
23
|
+
<Image>../res/go-previous.bmp</Image>
|
|
24
|
+
</Command.LargeImages>
|
|
25
|
+
</Command>
|
|
26
|
+
|
|
27
|
+
<Command Name='cmdButton1' LabelTitle='&Button1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
|
|
28
|
+
<Command.SmallImages>
|
|
29
|
+
<Image>../res/go-next-small.bmp</Image>
|
|
30
|
+
</Command.SmallImages>
|
|
31
|
+
<Command.LargeImages>
|
|
32
|
+
<Image>../res/go-next.bmp</Image>
|
|
33
|
+
</Command.LargeImages>
|
|
34
|
+
</Command>
|
|
35
|
+
</Application.Commands>
|
|
36
|
+
|
|
37
|
+
<Application.Views>
|
|
38
|
+
<Ribbon>
|
|
39
|
+
<Ribbon.ApplicationMenu>
|
|
40
|
+
<ApplicationMenu CommandName='cmdAppMenu'>
|
|
41
|
+
<MenuGroup Class='MajorItems'>
|
|
42
|
+
<Button CommandName='cmdItem1' />
|
|
43
|
+
</MenuGroup>
|
|
44
|
+
</ApplicationMenu>
|
|
45
|
+
</Ribbon.ApplicationMenu>
|
|
46
|
+
|
|
47
|
+
<Ribbon.QuickAccessToolbar>
|
|
48
|
+
<QuickAccessToolbar CommandName='cmdQAT'>
|
|
49
|
+
<QuickAccessToolbar.ApplicationDefaults>
|
|
50
|
+
<Button CommandName='cmdItem1' />
|
|
51
|
+
<Button CommandName='cmdButton1' />
|
|
52
|
+
</QuickAccessToolbar.ApplicationDefaults>
|
|
53
|
+
</QuickAccessToolbar>
|
|
54
|
+
</Ribbon.QuickAccessToolbar>
|
|
55
|
+
|
|
56
|
+
<Ribbon.Tabs>
|
|
57
|
+
<Tab CommandName='cmdTab1'>
|
|
58
|
+
<Group CommandName='cmdTab1Group1' SizeDefinition='OneButton'>
|
|
59
|
+
<Button CommandName='cmdButton1' />
|
|
60
|
+
</Group>
|
|
61
|
+
</Tab>
|
|
62
|
+
</Ribbon.Tabs>
|
|
63
|
+
</Ribbon>
|
|
64
|
+
</Application.Views>
|
|
65
|
+
</Application>
|
|
Binary file
|
|
@@ -0,0 +1,18 @@
|
|
|
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_LargeImages_RESID = 60006
|
|
13
|
+
CmdButton1 = 6
|
|
14
|
+
CmdButton1_LabelTitle_RESID = 60007
|
|
15
|
+
CmdButton1_LabelDescription_RESID = 60008
|
|
16
|
+
CmdButton1_TooltipDescription_RESID = 60009
|
|
17
|
+
CmdButton1_SmallImages_RESID = 60010
|
|
18
|
+
CmdButton1_LargeImages_RESID = 60011
|
|
@@ -0,0 +1,55 @@
|
|
|
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='Tab1' />
|
|
9
|
+
<Command Name='cmdTab1Group1' LabelTitle='&Group1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
|
|
10
|
+
<Command.SmallImages>
|
|
11
|
+
<Image>../res/go-next-small.bmp</Image>
|
|
12
|
+
</Command.SmallImages>
|
|
13
|
+
<Command.LargeImages>
|
|
14
|
+
<Image>../res/go-next.bmp</Image>
|
|
15
|
+
</Command.LargeImages>
|
|
16
|
+
</Command>
|
|
17
|
+
|
|
18
|
+
<Command Name='cmdButton1' LabelTitle='&Button1' LabelDescription='LabelDescription...' TooltipDescription='TooltipDescription...'>
|
|
19
|
+
<Command.SmallImages>
|
|
20
|
+
<Image>../res/go-next-small.bmp</Image>
|
|
21
|
+
</Command.SmallImages>
|
|
22
|
+
<Command.LargeImages>
|
|
23
|
+
<Image>../res/go-next.bmp</Image>
|
|
24
|
+
</Command.LargeImages>
|
|
25
|
+
</Command>
|
|
26
|
+
</Application.Commands>
|
|
27
|
+
|
|
28
|
+
<Application.Views>
|
|
29
|
+
<Ribbon>
|
|
30
|
+
<Ribbon.ApplicationMenu>
|
|
31
|
+
<ApplicationMenu CommandName='cmdAppMenu'>
|
|
32
|
+
<MenuGroup Class='MajorItems'>
|
|
33
|
+
<Button CommandName='cmdButton1' />
|
|
34
|
+
</MenuGroup>
|
|
35
|
+
</ApplicationMenu>
|
|
36
|
+
</Ribbon.ApplicationMenu>
|
|
37
|
+
|
|
38
|
+
<Ribbon.QuickAccessToolbar>
|
|
39
|
+
<QuickAccessToolbar CommandName='cmdQAT'>
|
|
40
|
+
<QuickAccessToolbar.ApplicationDefaults>
|
|
41
|
+
<Button CommandName='cmdButton1' />
|
|
42
|
+
</QuickAccessToolbar.ApplicationDefaults>
|
|
43
|
+
</QuickAccessToolbar>
|
|
44
|
+
</Ribbon.QuickAccessToolbar>
|
|
45
|
+
|
|
46
|
+
<Ribbon.Tabs>
|
|
47
|
+
<Tab CommandName='cmdTab1'>
|
|
48
|
+
<Group CommandName='cmdTab1Group1' SizeDefinition='OneButton'>
|
|
49
|
+
<Button CommandName='cmdButton1' />
|
|
50
|
+
</Group>
|
|
51
|
+
</Tab>
|
|
52
|
+
</Ribbon.Tabs>
|
|
53
|
+
</Ribbon>
|
|
54
|
+
</Application.Views>
|
|
55
|
+
</Application>
|
data/lib/fzeet/windows/com.rb
CHANGED
|
@@ -44,7 +44,6 @@ module Fzeet
|
|
|
44
44
|
|
|
45
45
|
attach_function :CoCreateInstance, [:pointer, :pointer, :ulong, :pointer, :pointer], :long
|
|
46
46
|
|
|
47
|
-
=begin
|
|
48
47
|
module COM
|
|
49
48
|
module Interface
|
|
50
49
|
def self.[](*args)
|
|
@@ -79,7 +78,7 @@ module Fzeet
|
|
|
79
78
|
|
|
80
79
|
attr_reader :vtbl
|
|
81
80
|
|
|
82
|
-
VTBL.members.each { |name|
|
|
81
|
+
self::VTBL.members.each { |name|
|
|
83
82
|
define_method(name) { |*args|
|
|
84
83
|
raise "#{self}.#{name} failed." if Windows.FAILED(result = @vtbl[name].call(self, *args)); result
|
|
85
84
|
}
|
|
@@ -110,7 +109,7 @@ module Fzeet
|
|
|
110
109
|
|
|
111
110
|
attr_reader :vtbl
|
|
112
111
|
|
|
113
|
-
VTBL.members.each { |name|
|
|
112
|
+
self::VTBL.members.each { |name|
|
|
114
113
|
define_method(name) { |*args|
|
|
115
114
|
raise "#{self}.#{name} failed." if Windows.FAILED(result = @vtbl[name].call(self, *args)); result
|
|
116
115
|
}
|
|
@@ -162,7 +161,7 @@ module Fzeet
|
|
|
162
161
|
@refc -= 1
|
|
163
162
|
end
|
|
164
163
|
|
|
165
|
-
(VTBL.members - IUnknown::VTBL.members).each { |name|
|
|
164
|
+
(self::VTBL.members - IUnknown::VTBL.members).each { |name|
|
|
166
165
|
define_method(name) { |*args|
|
|
167
166
|
E_NOTIMPL
|
|
168
167
|
}
|
|
@@ -183,6 +182,5 @@ module Fzeet
|
|
|
183
182
|
]
|
|
184
183
|
|
|
185
184
|
Unknown = COM::Instance[IUnknown]
|
|
186
|
-
=end
|
|
187
185
|
end
|
|
188
186
|
end
|
|
@@ -6,9 +6,11 @@ module Fzeet
|
|
|
6
6
|
ffi_convention :stdcall
|
|
7
7
|
|
|
8
8
|
def LoadRibbonDll(name = File.basename($0, '.rbw'), opts = {})
|
|
9
|
-
|
|
10
|
-
|
|
11
|
-
|
|
9
|
+
path = File.dirname(File.expand_path($0))
|
|
10
|
+
|
|
11
|
+
if !File.exist?("#{path}/#{name}.dll") || (
|
|
12
|
+
File.exist?("#{path}/#{name}.xml") &&
|
|
13
|
+
test(?M, "#{path}/#{name}.xml") > test(?M, "#{path}/#{name}.dll")
|
|
12
14
|
)
|
|
13
15
|
|
|
14
16
|
opts[:sdkroot] ||= "#{ENV['SystemDrive']}/Program Files/Microsoft SDKs/Windows/v7.1"
|
|
@@ -43,22 +45,25 @@ module Fzeet
|
|
|
43
45
|
# "#{opts[:gcc]}" -shared -o"#{name}.dll" "#{ENV['TEMP']}/#{name}.o" >> "#{name}.log"
|
|
44
46
|
# CMD
|
|
45
47
|
|
|
46
|
-
raise "Ribbon build failed - see #{name}.log for details." if File.read("#{name}.log") =~ /error/i
|
|
48
|
+
raise "Ribbon build failed - see #{path}/#{name}.log for details." if File.read("#{path}/#{name}.log") =~ /error/i
|
|
49
|
+
|
|
50
|
+
File.open("#{path}/#{name}.rb", 'w') { |rb|
|
|
51
|
+
rb.puts "# Generated by the UIRibbon build, do NOT modify\n\n"
|
|
47
52
|
|
|
48
|
-
|
|
49
|
-
File.foreach("#{name}.h") { |line|
|
|
53
|
+
File.foreach("#{path}/#{name}.h") { |line|
|
|
50
54
|
rb.puts "#{$1[0].upcase}#{$1[1..-1]} = #{$2}" if line =~ /^\s*#define\s+(\w+)\s+(\d+)/
|
|
51
55
|
}
|
|
52
56
|
}
|
|
53
57
|
|
|
54
58
|
%w{bml h rc}.each { |ext|
|
|
55
|
-
File.delete("#{name}.#{ext}") if File.exist?("#{name}.#{ext}")
|
|
59
|
+
File.delete("#{path}/#{name}.#{ext}") if File.exist?("#{path}/#{name}.#{ext}")
|
|
56
60
|
} if opts[:clean]
|
|
57
61
|
end
|
|
58
62
|
|
|
59
|
-
require name
|
|
63
|
+
require "#{path}/#{name}"
|
|
60
64
|
|
|
61
|
-
raise "LoadLibrary('#{
|
|
65
|
+
raise "LoadLibrary('#{path}/#{name}.dll') failed." if
|
|
66
|
+
(hdll = LoadLibrary("#{path}/#{name}.dll")).null?
|
|
62
67
|
|
|
63
68
|
hdll.tap { at_exit { FreeLibrary(hdll) } }
|
|
64
69
|
end
|
data/lib/fzeet/windows.rb
CHANGED
metadata
CHANGED
|
@@ -5,8 +5,8 @@ version: !ruby/object:Gem::Version
|
|
|
5
5
|
segments:
|
|
6
6
|
- 0
|
|
7
7
|
- 5
|
|
8
|
-
-
|
|
9
|
-
version: 0.5.
|
|
8
|
+
- 2
|
|
9
|
+
version: 0.5.2
|
|
10
10
|
platform: ruby
|
|
11
11
|
authors:
|
|
12
12
|
- Radoslav Peev
|
|
@@ -14,7 +14,7 @@ autorequire:
|
|
|
14
14
|
bindir: bin
|
|
15
15
|
cert_chain: []
|
|
16
16
|
|
|
17
|
-
date: 2010-08-
|
|
17
|
+
date: 2010-08-24 00:00:00 +03:00
|
|
18
18
|
default_executable:
|
|
19
19
|
dependencies:
|
|
20
20
|
- !ruby/object:Gem::Dependency
|
|
@@ -95,6 +95,14 @@ files:
|
|
|
95
95
|
- examples/Raw/Hello.rbw
|
|
96
96
|
- examples/Raw/LifeCycle.rbw
|
|
97
97
|
- examples/Raw/Minimal.rbw
|
|
98
|
+
- examples/Raw/UIRibbon/Command.rbw
|
|
99
|
+
- examples/Raw/UIRibbon/Minimal.rbw
|
|
100
|
+
- examples/Raw/UIRibbon/Command.xml
|
|
101
|
+
- examples/Raw/UIRibbon/Minimal.xml
|
|
102
|
+
- examples/Raw/UIRibbon/Command.rb
|
|
103
|
+
- examples/Raw/UIRibbon/Minimal.rb
|
|
104
|
+
- examples/Raw/UIRibbon/Command.dll
|
|
105
|
+
- examples/Raw/UIRibbon/Minimal.dll
|
|
98
106
|
- examples/Command.rbw
|
|
99
107
|
- examples/Hello.rbw
|
|
100
108
|
- examples/Inheritance.rbw
|
|
@@ -115,6 +123,15 @@ files:
|
|
|
115
123
|
- examples/Dialog/Dialog.rbw
|
|
116
124
|
- examples/Dialog/DialogApplication.rbw
|
|
117
125
|
- examples/Dialog/FileDialog.rbw
|
|
126
|
+
- examples/UIRibbon/Command.rbw
|
|
127
|
+
- examples/UIRibbon/Minimal.rbw
|
|
128
|
+
- examples/UIRibbon/Viewer.rbw
|
|
129
|
+
- examples/UIRibbon/Command.xml
|
|
130
|
+
- examples/UIRibbon/Minimal.xml
|
|
131
|
+
- examples/UIRibbon/Command.rb
|
|
132
|
+
- examples/UIRibbon/Minimal.rb
|
|
133
|
+
- examples/UIRibbon/Command.dll
|
|
134
|
+
- examples/UIRibbon/Minimal.dll
|
|
118
135
|
- LICENSE
|
|
119
136
|
has_rdoc: true
|
|
120
137
|
homepage:
|