author | convert-repo |
Fri, 21 Dec 2018 04:38:02 +0000 | |
changeset 8601 | bee9c53ab413 |
parent 6162 | 926edf474232 |
permissions | -rw-r--r-- |
6052 | 1 |
; common for all mswindows-like styles |
199 | 2 |
; |
3 |
; this is not yet completed |
|
4 |
; |
|
6162 | 5 |
; $Header: /cvs/stx/stx/libview/styles/mswindows.common,v 1.12 2013-11-25 15:24:54 stefan Exp $ |
199 | 6 |
|
7 |
name #mswindows |
|
8 |
||
9 |
;this seems not fully true, buttons |
|
10 |
;and scrollers show some 3D. |
|
11 |
;anyway, most other views are flat. |
|
12 |
is3D false |
|
13 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1951
diff
changeset
|
14 |
#if Screen current hasGreyscales not |
199 | 15 |
viewGrey Color white |
16 |
#endif |
|
17 |
||
18 |
borderWidth 1 |
|
6052 | 19 |
popupBorderWidth 1 |
199 | 20 |
viewBackground =viewGrey |
21 |
||
6162 | 22 |
font Font family:'arial' face:'medium' style:'roman' size:10 |
23 |
textFont Font family:'courier new' face:'medium' style:'roman' size:10 |
|
199 | 24 |
|
6052 | 25 |
scrollBar.position #right |
26 |
scrollBar.buttonPositions #around |
|
1948 | 27 |
scrollBar.spacing 0 |
199 | 28 |
|
1948 | 29 |
scroller.borderWidth 1 |
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1951
diff
changeset
|
30 |
#if Screen current hasGreyscales |
6052 | 31 |
scroller.viewBackground Color grey:80 |
199 | 32 |
#else |
1948 | 33 |
scroller.viewBackground Color white |
199 | 34 |
#endif |
1948 | 35 |
scroller.fullViewBackground Color white |
36 |
scroller.thumbColor Color grey:80 |
|
199 | 37 |
|
1948 | 38 |
scroller.thumbLevel 3 "2" |
39 |
scroller.thumbFixHeight true |
|
40 |
scroller.thumbEdgeStyle #soft |
|
41 |
scroller.thumbFrameColor Color black |
|
42 |
scroller.ghostFrameColor Color darkGrey |
|
199 | 43 |
|
1948 | 44 |
; variablePanel.showHandle false |
199 | 45 |
|
1948 | 46 |
framedBox.labelPosition #topLeft |
47 |
framedBox.3DFrame false |
|
199 | 48 |
|
1948 | 49 |
button.edgeStyle #soft |
50 |
button.activeLevel -1 |
|
51 |
button.passiveLevel 4 "3" |
|
3579 | 52 |
button.disabledForegroundColor Color darkGrey |
1948 | 53 |
button.borderWidth 0 |
199 | 54 |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1951
diff
changeset
|
55 |
#if Screen current hasGreyscales |
1948 | 56 |
button.foregroundColor Color black |
57 |
button.backgroundColor Color grey:80 |
|
3580 | 58 |
button.disabledEtchedForegroundColor Color white |
1948 | 59 |
button.activeForegroundColor =buttonForegroundColor |
60 |
button.activeBackgroundColor =buttonBackgroundColor |
|
199 | 61 |
#endif |
62 |
||
1948 | 63 |
button.returnButtonHasBorder true |
199 | 64 |
|
1948 | 65 |
arrowButton.style #mswindows |
66 |
arrowButton.upFormFile 'ScrollUp_win.xbm' |
|
67 |
arrowButton.downFormFile 'ScrollDn_win.xbm' |
|
68 |
arrowButton.leftFormFile 'ScrollLt_win.xbm' |
|
69 |
arrowButton.rightFormFile 'ScrollRt_win.xbm' |
|
199 | 70 |
|
1948 | 71 |
checkToggle.bitmapFile nil |
72 |
checkToggle.style #cross |
|
73 |
checkToggle.activeLevel 0 |
|
74 |
checkToggle.passiveLevel 0 |
|
75 |
checkToggle.borderWidth 1 |
|
76 |
checkToggle.activeBackgroundColor Color white |
|
77 |
checkToggle.backgroundColor Color white |
|
199 | 78 |
|
1951 | 79 |
radioButton.style #round2D |
80 |
||
199 | 81 |
; |
82 |
; selection-in-list |
|
83 |
; |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1951
diff
changeset
|
84 |
#if Screen current hasColors |
6052 | 85 |
selection.hilightForegroundColor Color white |
1948 | 86 |
selection.hilightBackgroundColor Color blue |
87 |
selection.hilightFrameColor Color black |
|
199 | 88 |
#endif |
89 |
||
1948 | 90 |
menuView.background Color white |
199 | 91 |
|
1948 | 92 |
pullDownMenu.keepMenu true |
199 | 93 |
|
6052 | 94 |
popUpList.popPosition #below |
199 | 95 |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
1951
diff
changeset
|
96 |
#if Screen current hasGrayscales not |
1948 | 97 |
html.anchorUnderline true |
98 |
html.anchorForegroundColor Color black |
|
99 |
html.backgroundColor Color white |
|
100 |
html.activeAnchorForegroundColor Color black |
|
101 |
html.activeAnchorBackgroundColor =html.backgroundColor |
|
102 |
html.visitedAnchorForegroundColor Color black |
|
103 |
html.exampleAnchorForegroundColor Color black |
|
1620
49812898bfe2
html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents:
1448
diff
changeset
|
104 |
#else |
1948 | 105 |
html.backgroundColor Color white |
106 |
html.anchorForegroundColor Color green darkened |
|
107 |
html.visitedAnchorForegroundColor =html.anchorForegroundColor darkened darkened |
|
108 |
html.anchorUnderlines true |
|
1620
49812898bfe2
html defs for monochrome displays
Claus Gittinger <cg@exept.de>
parents:
1448
diff
changeset
|
109 |
#endif |