1RESOURCE OrderWindow DIALOG 7,11,239,196
2STYLE WS_CHILD
3FONT 8,"MS Sans Serif"
4BEGIN
5CONTROL "Currency",;
6ORDERWINDOW_CURRENCY,"Button";
7BS_GROUPBOX|WS_GROUP|WS_CHILD,;
827,33,85,122
9CONTROL "U.S. Dollars",;
10ORDERWINDOW_THERADIOBUTTON1,"Button";
11BS_AUTORADIOBUTTON|WS_TABSTOP|WS_CHILD,;
1238,45,57,11
13CONTROL "Can. Dollars",;
14ORDERWINDOW_THERADIOBUTTON2,"Button";
15BS_AUTORADIOBUTTON|WS_TABSTOP|WS_CHILD,;
1638,63,69,11
17CONTROL "Mexican Pesos",;
18ORDERWINDOW_THERADIOBUTTON3,"Button";
19BS_AUTORADIOBUTTON|WS_TABSTOP|WS_CHILD,;
2038,82,69,11
21CONTROL "Yen",;
22ORDERWINDOW_THERADIOBUTTON4,"Button";
23BS_AUTORADIOBUTTON|WS_TABSTOP|WS_CHILD,;
2438,100,68,11
25CONTROL "British Pounds",;
26ORDERWINDOW_THERADIOBUTTON5,"Button";
27BS_AUTORADIOBUTTON|WS_TABSTOP|WS_CHILD,;
2838,118,68,11
29CONTROL "German Marks",;
30ORDERWINDOW_THERADIOBUTTON6,"Button";
31BS_AUTORADIOBUTTON|WS_TABSTOP|WS_CHILD,;
3238,137,69,11
33METHOD Init(oWindow,iCtlID,oServer) CLASS OrderWindow
34SUPER:Init(oWindow,ResourceID{"OrderWindow"},iCtlID)
35oCCTheRadioButton1 := RadioButton{SELF,;
36ResourceID{ORDERWINDOW_THERADIOBUTTON1}}
37RadioButton1:HyperLabel := {#TheRadioButton1,;
38"U.S. Dollars",,}
39oCCTheRadioButton2 := RadioButton{SELF,;
40ResourceID{ORDERWINDOW_THERADIOBUTTON2}}
41RadioButton2:HyperLabel := {#TheRadioButton2,;
42"Can. Dollars",,}
43oCCTheRadioButton3 := RadioButton{SELF,;
44ResourceID{ORDERWINDOW_THERADIOBUTTON3}}
45RadioButton3:HyperLabel := {#TheRadioButton3,;
46"Mexican Pesos",,}
47oCCTheRadioButton4 := RadioButton{SELF,;
48ResourceID{ORDERWINDOW_THERADIOBUTTON4}}
49RadioButton4:HyperLabel := {#TheRadioButton4,;
50"Yen",,}
51oCCTheRadioButton5 := RadioButton{SELF,;
52ResourceID{ORDERWINDOW_THERADIOBUTTON5}}
53RadioButton5:HyperLabel := {#TheRadioButton5,;
54"British Pounds",,}
55oCCTheRadioButton6 := RadioButton{SELF,;
56ResourceID{ORDERWINDOW_THERADIOBUTTON6}}
57RadioButton6:HyperLabel := {#TheRadioButton6,;
58"German Marks",,}
59oDCCCurrency := RadioButtonGroup{SELF,;
60ResourceID{ORDERWINDOW_CURRENCY}}
61oDCCCurrency:FieldSpec := ;
62FieldSpec{#Currency,STRING,3,0}
63oDCCurrency:FillUsing({;
64{oCCTheRadioButton1,"USD"},;
65{oCCTheRadioButton2,"CDN"},;
66{oCCTheRadioButton3,"MEX"},;
67{oCCTheRadioButton4,"YEN"},;
68{oCCTheRadioButton5,"UK"},;
69{oCCTheRadioButton6,"DM"};
70})
71oDCCurrency:HyperLabel := {#Currency,"Currency",,}