C/C++ User's Journal & Wi…eveloper's Journal Tools/C-C__Users_Journal_and_Windows_Developers_Journal_Tools_1997.iso/sbdemo/p09.sb

Text File | 1996-10-24 | 7KB | 367 lines

Const PlayString$ = "{LeftDown 19 19}\
{Move 19 69}\
{LeftUp 19 69}\
{LeftDown 20 41}\
{Move 35 41}\
{LeftUp 35 41}\
{LeftDown 38 19}\
{Move 38 68}\
{LeftUp 39 68}\
{LeftDown 53 54}\
{Move 54 54}\
{Move 56 54}\
{Move 58 54}\
{Move 60 53}\
{Move 60 52}\
{Move 61 51}\
{Move 62 47}\
{Move 63 44}\
{Move 63 40}\
{Move 62 40}\
{Move 61 39}\
{Move 56 39}\
{Move 55 40}\
{Move 55 41}\
{Move 53 41}\
{Move 53 42}\
{Move 53 43}\
{Move 52 49}\
{Move 51 53}\
{Move 51 61}\
{Move 52 62}\
{Move 55 62}\
{Move 57 63}\
{Move 65 63}\
{Move 67 62}\
{Move 68 61}\
{Move 69 61}\
{LeftUp 69 61}\
{LeftDown 81 49}\
{Move 83 49}\
{Move 85 47}\
{Move 86 45}\
{Move 87 42}\
{Move 88 41}\
{Move 88 38}\
{Move 89 36}\
{Move 89 35}\
{Move 90 34}\
{Move 90 17}\
{Move 85 17}\
{Move 84 19}\
{Move 83 20}\
{Move 82 24}\
{Move 81 27}\
{Move 80 30}\
{Move 80 60}\
{Move 81 62}\
{Move 83 63}\
{Move 90 63}\
{Move 92 62}\
{Move 94 62}\
{Move 94 61}\
{Move 95 61}\
{LeftUp 95 61}\
{LeftDown 106 45}\
{Move 107 45}\
{Move 108 41}\
{Move 109 40}\
{Move 110 37}\
{Move 110 36}\
{Move 111 35}\
{Move 112 33}\
{Move 113 32}\
{Move 114 31}\
{Move 115 24}\
{Move 115 21}\
{Move 115 18}\
{Move 113 17}\
{Move 107 17}\
{Move 107 18}\
{Move 106 21}\
{Move 106 23}\
{Move 105 26}\
{Move 105 64}\
{Move 106 65}\
{Move 107 65}\
{Move 108 65}\
{Move 109 65}\
{Move 111 65}\
{Move 113 65}\
{Move 115 64}\
{Move 116 63}\
{Move 119 61}\
{Move 119 60}\
{Move 120 58}\
{LeftUp 120 58}\
{LeftDown 132 44}\
{Move 131 44}\
{Move 131 45}\
{Move 129 48}\
{Move 127 55}\
{Move 127 62}\
{Move 128 63}\
{Move 129 63}\
{Move 131 63}\
{Move 132 64}\
{Move 143 64}\
{Move 143 63}\
{Move 143 61}\
{Move 144 61}\
{Move 144 46}\
{Move 143 45}\
{Move 143 44}\
{Move 141 42}\
{Move 141 41}\
{Move 140 41}\
{Move 140 40}\
{Move 138 40}\
{Move 134 40}\
{Move 133 41}\
{Move 132 43}\
{Move 131 46}\
{Move 130 47}\
{LeftUp 130 47}\
{LeftDown 154 62}\
{Move 154 63}\
{Move 155 64}\
{Move 156 65}\
{Move 156 71}\
{Move 153 72}\
{Move 149 73}\
{LeftUp 149 73}\
{LeftDown 79 92}\
{Move 79 93}\
{Move 79 97}\
{Move 80 99}\
{Move 81 102}\
{Move 83 104}\
{Move 84 106}\
{Move 85 109}\
{Move 86 110}\
{Move 87 111}\
{Move 87 113}\
{Move 87 115}\
{Move 88 120}\
{Move 88 122}\
{Move 89 124}\
{Move 89 125}\
{Move 90 126}\
{Move 91 126}\
{Move 91 129}\
{Move 92 130}\
{Move 94 128}\
{Move 96 127}\
{Move 100 124}\
{Move 105 122}\
{Move 108 120}\
{Move 111 117}\
{Move 112 115}\
{Move 112 114}\
{Move 113 114}\
{Move 113 115}\
{Move 115 118}\
{Move 116 120}\
{Move 118 122}\
{Move 119 123}\
{Move 121 124}\
{Move 123 125}\
{Move 124 126}\
{Move 125 126}\
{Move 128 127}\
{Move 128 128}\
{Move 129 128}\
{Move 130 128}\
{Move 132 126}\
{Move 134 124}\
{Move 136 122}\
{Move 140 118}\
{Move 142 114}\
{Move 144 110}\
{Move 146 106}\
{Move 148 103}\
{Move 150 99}\
{Move 151 97}\
{Move 153 95}\
{Move 156 91}\
{Move 158 89}\
{Move 159 88}\
{Move 160 87}\
{LeftUp 160 87}\
{LeftDown 175 105}\
{Move 171 106}\
{Move 170 107}\
{Move 170 108}\
{Move 168 111}\
{Move 168 112}\
{Move 168 121}\
{Move 169 122}\
{Move 170 123}\
{Move 186 123}\
{Move 186 122}\
{Move 186 120}\
{Move 187 119}\
{Move 187 108}\
{Move 186 108}\
{Move 186 107}\
{Move 185 107}\
{Move 184 106}\
{Move 181 106}\
{Move 179 105}\
{Move 173 105}\
{LeftUp 173 105}\
{LeftDown 208 104}\
{Move 208 105}\
{Move 208 123}\
{LeftUp 208 123}\
{LeftDown 210 111}\
{Move 211 109}\
{Move 214 107}\
{Move 217 105}\
{Move 219 104}\
{Move 221 104}\
{Move 222 103}\
{LeftUp 222 103}\
{LeftDown 240 109}\
{Move 241 109}\
{Move 245 108}\
{Move 250 104}\
{Move 252 103}\
{Move 254 100}\
{Move 255 97}\
{Move 256 95}\
{Move 257 91}\
{Move 257 90}\
{Move 258 88}\
{Move 258 80}\
{Move 257 78}\
{Move 256 77}\
{Move 256 76}\
{Move 255 76}\
{Move 254 76}\
{Move 254 77}\
{Move 253 78}\
{Move 252 79}\
{Move 252 80}\
{Move 251 83}\
{Move 249 87}\
{Move 248 89}\
{Move 247 91}\
{Move 245 93}\
{Move 244 95}\
{Move 243 97}\
{Move 242 99}\
{Move 241 102}\
{Move 240 104}\
{Move 240 106}\
{Move 239 107}\
{Move 239 124}\
{Move 240 125}\
{Move 253 125}\
{Move 254 124}\
{Move 255 124}\
{Move 257 123}\
{Move 259 122}\
{Move 260 119}\
{Move 261 119}\
{LeftUp 261 119}\
{LeftDown 292 107}\
{Move 286 104}\
{Move 281 103}\
{Move 278 102}\
{Move 276 102}\
{Move 274 103}\
{Move 274 105}\
{Move 273 106}\
{Move 273 124}\
{Move 276 125}\
{Move 280 126}\
{Move 284 126}\
{Move 285 125}\
{Move 287 118}\
{Move 293 100}\
{Move 293 88}\
{Move 294 80}\
{Move 295 78}\
{Move 295 80}\
{Move 294 86}\
{Move 294 88}\
{Move 294 96}\
{Move 293 99}\
{Move 293 103}\
{Move 293 121}\
{Move 295 123}\
{Move 297 124}\
{Move 298 125}\
{Move 299 125}\
{Move 300 125}\
{LeftUp 300 125}\
{LeftDown 327 74}\
{Move 327 79}\
{Move 327 115}\
{LeftUp 327 115}\
{LeftDown 324 122}\
{Move 324 124}\
{Move 324 126}\
{Move 325 126}\
{Move 325 125}\
{Move 326 125}\
{Move 327 124}\
{Move 328 123}\
{Move 328 122}\
{Move 326 122}\
{Move 323 122}\
{LeftUp 323 122}\
"
Const PaintID$ = "#0"
Const BrushID$ = "#1"
Const PaintClass$ = "Afx:8"
Const BrushClass$ = "pbPaint"
Const VirtSize$ = "{VirtSize 699|477}"

DIM sI As SYSTEMINFO

WinInfoSystem(sI)
IF  MID$(sI.si_szWinVer,1,3) = "W95" THEN
    ID$ = PaintID$
    Class$ = PaintClass$
ELSE
    ID$ = BrushID$
    Class$ = BrushClass$
ENDIF

Run("pbrush.exe", NOWAIT)

wPaint% = WinActivate("", Class$, 10)
IF wPaint% = 0 THEN
    SBV_CONTBUTTON = SW_HIDE
    PopupTextBox(SBC_CENTER, SBC_CENTER, 250,150, \
    "Sorry, can't start or locate Paintbrush or Paint", \
    SBC_THREED or SBC_ALIGNCENTER or SBC_TOPMOST)
    exit
ENDIF

ret% =    PopupTextBox(SBC_CENTER, SBC_CENTER, 350,200, \
"Please select a \"free-hand\" drawing tool \
(pencil, brush or airbrush) and some foreground color.\n\n\
Make sure that the drawing area is big enough and then \
click Continue.", \
SBC_THREED or SBC_ALIGNCENTER or SBC_TOPMOST)

IF ret% = TRUE THEN
    Simulate("{Origin Client Caption|" + ID$ + \
             "}{Origin Client Class|" + Class$ + "}" + \
             VirtSize$ + PlayString$)
ENDIF

SBV_CONTBUTTON = SW_HIDE
PopupTextBox(SBC_CENTER, SBC_CENTER, 250,150, \
"Click Stop to close Paint/Paintbrush and finish.", \
SBC_THREED or SBC_ALIGNCENTER or SBC_TOPMOST)

WinActivate(wPaint%, 1)
Simulate("%fx")
IF WinActivate("", "#32770", 1) Then
    Simulate("n")
ENDIF