1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590
|
\ ############################################################################################################
\ ############ ##############
\ ############ INFORMATIONS ET DESCRIPTION DU DIALOGUE ##############
\ ############ ##############
\ ############################################################################################################
&& Nom du Bloc: ZoomCourbesRéduites(C8A41186F4)Dlg Bloc de démonstration d'une application Easywindows
&& Date de création: 01/08/2018
&& Heure de création: 16:12:07
&& Copyright: (C) 2001-2030
&& Bloc développé par: Louis Jean-Pierre SCHMITT
&& Email: jean.pierre@buechi-schmitt.ch
&& Dialogue ZoomCourbesRéduites(C8A41186F4)Dlg
&& ZoomCourbesRéduites(C8A41186F4)Dlg.FTH is a computer Dialog component developed
&& by I.C.M. it is based of Microsoft Windows and Easywindows Systems
&& This component is for free use and made available to users by I.C.M.
&& I.C.M. Assumes no responsibility
&& for the implementation and use of this computer component.
\ ############################################################################################################
\ ############ ##############
\ ############ INSTALLATION DE LA CONFIGURATION DES DONNEES ##############
\ ############ ##############
\ ############################################################################################################
\ ========== Installation des données ================
16 CreateNewliste ZoomCourbesRéduites(C8A41186F4)Lst \ Liste contenant les objets avec leurs valeurs attachées. Ces Valeurs sont mises en place par SendTo
\ EXEMPLE: ( #ComboBox1.Value :Id.Value SourceFile \DeGiroTmpFile\FileDates.FTH :M0 X... :MX; )SendTo
\ Construira la séquence suivante dans ZoomCourbesRéduites(C8A41186F4)Lst
\ #ComboBox1 Entête de Liste, Nom de l'objet précédé par #
\ :Id.Value SourceFile \DeGiroTmpFile\FileDates.FTH Source des données
\ :M0 X... Liste des données
\ :M. ...
\ :MX; Fermeture de la liste par le marqueur :MX;
' ZoomCourbesRéduites(C8A41186F4)Lst IS ObjetListe \ On conecte le nom de la liste sur le mot ObjetListe. De ce fait, toutes les procédures
\ de transmission du courrier INTRABLOC relative à un bloc donné utiliserons le mot ObjetList pour
\ dialoguer avec un autre objet de la liste.
\ En clair, ObjetList est le nom de la boite au lettre interne qui permet le dialogue entre les objets d'un même
\ Bloc.
: ZoomCourbesRéduites.Datas S( --- ) \ Installation des éléments
HWNB >R
( #QUADRANT1.Datas :Id.Quadrant1 20 30 1260 880 ConfigToolTrading(C8A41186F4)Dlg :M0 Color.Back 125 )SendTo
( #Quadrant1.Datas :M1 Color.Axe 13 :M2 LineWidth.Axe 2 :M3 Offset.AxeX 70 :M4 Offset.AxeY 40 )SendTo
( #Quadrant1.Datas :M5 GrandeurY$ [F(y)+%] [F(y)-%] :M6 GrandeurX$ [t(h)] :M7 UniteY$ % :M8 UniteX$ h )SendTo
( #Quadrant1.Datas :M9 Datas$ Tas :M10 UserFont 12 )SendTo
( #Quadrant1.Datas :M11 Scalle0.AxeY 0 :M12 FullScalle.AxeY 5 :M13 Scalle0.AxeX 9 :M14 FullScalle.AxeX 18 )SendTo
( #Quadrant1.Datas :M15 SubDiv.AxeY 5 :M16 SubDiv.AxeX 4 )SendTo
( #Quadrant1.Datas :M17 EW_GRID Color.Grid 124 LineWidth 1 )SendTo
( #Quadrant1.Datas :M18 EW_TEXT 0 1 Courbes Réduites exprimées en % Valeur$ CodeIsin$ )SendTO
( #Quadrant1.Datas :M19 Div.AxeY 5 :M20 Div.AxeX 9 )SendTo
( #Quadrant1.Datas :MX; )SendTo
( #Quadrant1.Value :Id.Value :M0 Color.Back 96 :M1 Color.Curves 24 :M2 Color.Triger 20 )SendTo
( #Quadrant1.Value :M3 Color.Axe 13 :M4 Color.Grid 124 :M5 Resolution.AxeX 0 :M6 Resolution.Axey 0 :MX; )SendTo
( #Keys1.Datas :Id.Keys1 1320 760 20 20 ChoixCouleur(C8A41186F4)Dlg :M0 Color.Back 96 :MX; )SendTo
( #Keys2.Datas :Id.Keys2 1320 785 20 20 ChoixCouleur(C8A41186F4)Dlg :M0 Color.Triger 20 :MX; )SendTo
( #Keys3.Datas :Id.Keys3 1320 810 20 20 ChoixCouleur(C8A41186F4)Dlg :M0 Color.Graphe 24 :MX; )SendTo
( #Keys4.Datas :Id.Keys4 1320 835 20 20 ChoixCouleur(C8A41186F4)Dlg :M0 Color.Axe 13 :MX; )SendTo
( #Keys5.Datas :Id.Keys5 1320 860 20 20 ChoixCouleur(C8A41186F4)Dlg :M0 Color.Grid 124 :MX; )SendTo
( #Keys1.Datas :IdTxt.Keys1 :M0 Couleur Fond :MX; )SendTo
( #Keys2.Datas :IdTxt.Keys2 :M0 Couleur Trigger :MX; )SendTo
( #Keys3.Datas :IdTxt.Keys3 :M0 Couleur Graphe :MX; )SendTo
( #Keys4.Datas :IdTxt.Keys4 :M0 Couleur Axes :MX; )SendTo
( #Keys5.Datas :IdTxt.Keys5 :M0 Couleur Grille :MX; )SendTo
( #Keys1.Value :Id.Value :M0 Color.Back 96 :MX; )SendTo
( #Keys2.Value :Id.Value :M0 Color.Triger 20 :MX; )SendTo
( #Keys3.Value :Id.Value :M0 Color.Curves 24 :MX; )SendTo
( #Keys4.Value :Id.Value :M0 Color.Axe 13 :MX; )SendTo
( #Keys5.Value :Id.Value :M0 Color.Grid 124 :MX; )SendTo
( #ComboBoxGroup0.Value :Id.Value :MX; )SendTo
( #ComboBox1.File :Id.Combobox1 880 20 120 70 NOOP \DeGiroTmpFile\FileDates.FTH :MX; )SendTo
( #ComboBox1.Value :Id.Value SourceFile \DeGiroTmpFile\FileDates.FTH :M0 X... :MX; )SendTo
( #ComboBox2.Datas :Id.Combobox2 880 70 120 70 NOOP )SendTo
( #ComboBox2.Datas :M0 +/- 0.4% :M1 +/- 0.45% :M2 +/- 0.50% :M3 +/- 0.55% :M4 +/- 0.60% :M5 +/- 0.65% )SendTo
( #ComboBox2.Datas :M6 +/- 0.70% :M7 +/- 0.75% :M8 +/- 0.80% :M9 +/- .85% :M10 +/- .90% :MX; )SendTo
( #ComboBox3.Datas :Id.Combobox3 880 120 120 70 NOOP )SendTo
( #ComboBox3.Datas :M0 +/- 0.70% :M1 +/- 0.75% :M2 +/- 0.80% :M3 +/- 0.85% :M4 +/- 0.90% :M5 +/- 0.95% )SendTo
( #ComboBox3.Datas :M6 +/- 1.00% :M7 +/- 1.05% :M8 +/- 1.10% :M9 +/- 1.15% )SendTo
( #ComboBox3.Datas :M10 +/- 1.20% :M11 +/- 1.25% :M12 +/- 1.30% :M13 +/- 1.35% )SendTo
( #Combobox3.Datas :M14 +/- 1.40% :M15 +/- 1.45% :M16 +/- 1.50% :MX; )SendTo
( #ComboBox4.Datas :Id.Combobox4 880 170 120 70 NOOP :M0 +/- 1.00% :M1 +/- 1.10% :M2 +/- 1.20% :M3 +/- 1.30% )SendTo
( #ComboBox4.Datas :M4 +/- 1.40% :M5 +/- 1.50% :M6 +/- 1.60% :M7 +/- 1.70% :M8 +/- 1.80% :M9 +/- 1.90% :M10 +/- 2.00% )SendTo
( #ComboBox4.Datas :M11 +/- 2.10% :M12 +/- 2.20% :M13 +/- 2.30% :M14 +/- 2.40% :M15 +/- 2.50% :M16 +/- 2.60% )SendTo
( #ComboBox4.Datas :M17 +/- 2.70% :M18 +/- 2.80% :M19 +/- 2.90% :MX; )SendTo
( #ComboBox5.Datas :Id.Combobox5 880 220 120 70 NOOP :M0 +/- 2.60% :M1 +/- 2.70% :M2 +/- 2.80% :M3 +/- 2.90% )SendTo
( #ComboBox5.Datas :M4 +/- 3.00% :M5 +/- 3.10% :M6 +/- 3.20% )SendTo
( #ComboBox5.Datas :M7 +/- 3.30% :M8 +/- 3.40% :M9 +/- 3.50% :M10 +/- 3.60% :M11 +/- 3.70% :M12 +/- 3.80% )SendTo
( #ComboBox5.Datas :M13 +/- 3.90% :M14 +/- 4.00% :MX; )SendTo
( #ComboBox6.Datas :Id.Combobox6 880 270 120 70 NOOP :M0 +/- 3.00% :M1 +/- 3.50% :M2 +/- 4.00% )SendTo
( #ComboBox6.Datas :M3 +/- 4.500% :M4 +/- 5.00% :MX; )SendTo
( #ComboBox7.Datas :Id.Combobox7 1030 20 120 70 NOOP :M0 Val 500000.00 :M1 Val 750000.00 :M2 Val 1000000.00 )SendTo
( #ComboBox7.Datas :M3 Val 1250000.00 :M4 Val 15000000.00 :MX; )SendTo
( #ComboBox8.Datas :Id.Combobox8 1030 70 120 70 NOOP :M0 Val 100000 :M1 Val 250000 :M2 Val 500000 )SendTo
( #ComboBox8.Datas :M3 Val 750000 :M4 Val 1000000 :M5 Val 1500000 :M6 Val 1750000 :M7 Val 2000000 :MX; )SendTo
( #ComboBoxGroup1.Value :Id.Value :MX; )SendTo
( #ComboBox2.Value :Id.Value Bande.Neutre :M0 +/- 0.4% :M1 Coef.Plus 0.0 :M2 Coef.Moins 0.0 :MX; )SendTo
( #ComboBox3.Value :Id.Value Bande.Surveillance :M0 +/- 0.70% :M1 Coef.Plus 0.0 :M2 Coef.Moins 0.0 :MX; )SendTo
( #ComboBox4.Value :Id.Value Bande.Vente_Achat :M0 +/- 1.00% :M1 Coef.Plus 0.0 :M2 Coef.Moins 0.0 :MX; )SendTo
( #ComboBox5.Value :Id.Value Bande.Pump.and.Pump :M0 +/- 2.60% :M1 Coef.Plus 0.0 :M2 Coef.Moins 0.0 :MX; )SendTo
( #ComboBox6.Value :Id.Value Bande.Oscilateur :M0 +/- 3.00% :M1 Coef.Plus 0.0 :M2 Coef.Moins 0.0 :MX; )SendTo
( #ComboBoxGroup2.Value :Id.Value :MX; )SendTo
( #ComboBox7.Value :Id.Value Volatilité.Capital :M0 500000.00 :MX; )SendTo
( #ComboBox8.Value :Id.Value Volatilité.Volume :M0 100000 :MX; )SendTo
( #LeditText1.Datas Fichier contenant la liste des dates )SendTo
( #ComboBox1.Datas :IdTxt.ComboBox1 :M0 Sélectionner une Date :MX; )SendTo
( #ComboBox2.Datas :IdTxt.ComboBox2 :M0 Sélectionner la Bande Neutre :MX; )SendTo
( #ComboBox3.Datas :IdTxt.ComboBox3 :M0 Sélectionner la Bande de surveillance :MX; )SendTo
( #ComboBox4.Datas :IdTxt.ComboBox4 :M0 Sélectionner la Bande Vente Achat :MX; )SendTo
( #ComboBox5.Datas :IdTxt.ComboBox5 :M0 Sélectionner la Bande Pump and Pump :MX; )SendTo
( #ComboBox6.Datas :IdTxt.ComboBox6 :M0 Sélectionner la Bande de l'Oscilateur :MX; )SendTo
( #ComboBox7.Datas :IdTxt.ComboBox7 :M0 Sélectionner la Volatilité Capital :MX; )SendTo
( #ComboBox8.Datas :IdTxt.ComboBox8 :M0 Sélectionner la Volatilité Volume :MX; )SendTo
( #RadioBoxGroup0.Datas :Id.RadioGroup0 880 320 150 115 NOOP :M0 :MX; )SendTo
( #RadioBoxGroup0.Value :Id.Value :MX; )SendTo
( #RadioBox1.Datas :Id.RadioBox1 890 335 15 15 NOOP :M0 0 :M1 1 :M2 Bande.Neutre$ ON :MX; )SendTo
( #RadioBox2.Datas :Id.RadioBox2 890 350 15 15 NOOP :M0 0 :M1 1 :M2 Bande.Surveillance$ ON :MX; )SendTo
( #RadioBox3.Datas :Id.RadioBox3 890 365 15 15 NOOP :M0 0 :M1 1 :M2 Bande.Vente.Achat$ ON :MX; )SendTo
( #RadioBox4.Datas :Id.RadioBox4 890 380 15 15 NOOP :M0 0 :M1 1 :M2 Bande.Pump.and.Pump$ ON :MX; )SendTo
( #RadioBox5.Datas :Id.RadioBox5 890 335 15 15 NOOP :M0 0 :M1 1 :M2 Bande.Oscilateur ON :MX; )SendTo
( #RadioBox1.Datas :IdTxt.RadioBox1 :M0 Bande Neutre :MX; )SendTo
( #RadioBox2.Datas :IdTxt.RadioBox2 :M0 Bande de Surveillance :MX; )SendTo
( #RadioBox3.Datas :IdTxt.RadioBox3 :M0 Bande Vente Achat :MX; )SendTo
( #RadioBox4.Datas :IdTxt.RadioBox4 :M0 Bande Pump and Pump :MX; )SendTo
( #RadioBox5.Datas :IdTxt.RadioBox5 :M0 Bande Oscilateur :MX; )SendTo
( #Titre1.Datas :IdTxt.ComboBox1 :M0 Configuration du Module de Trading :MX; )SendTo
( #GroupBox0.Datas :IdTxt.GroupBox0 :M0 Sélectionner le mode d' Analyse :MX; )SendTo
R> TO HWNB
;
\ ############################################################################################################
\ ############ ##############
\ ############ INSTALLATION DES IDENTIFICATEURS ##############
\ ############ ##############
\ ############################################################################################################
\ ========== Installation des identificateurs ================
200 IDENT Id.Quadrant1
IDENT Id.DlgQuit
IDENT Id.Cancel
IDENT Id.Apply
IDENT Id.KeyBoard1
IDENT Id.LbuttonDown
IDENT IdTxt.ComboBox1
IDENT Id.ComboBox1
IDENT IdTxt.ComboBox2
IDENT Id.Combobox2
IDENT IdTxt.ComboBox3
IDENT Id.Combobox3
IDENT IdTxt.ComboBox4
IDENT Id.Combobox4
IDENT IdTxt.ComboBox5
IDENT Id.Combobox5
IDENT IdTxt.ComboBox6
IDENT Id.Combobox6
IDENT IdTxt.ComboBox7
IDENT Id.ComboBox7
IDENT IdTxt.ComboBox8
IDENT Id.ComboBox8
IDENT IdTxt.EditText1
IDENT IdTxt.LeditText1
IDENT IdTxt.GroupBox0
IDENT IdTxt.RadioBox1
IDENT IdTxt.RadioBox2
IDENT IdTxt.RadioBox3
IDENT IdTxt.RadioBox4
IDENT IdTxt.RadioBox5
IDENT Id.RadioBox1
IDENT Id.RadioBox2
IDENT Id.RadioBox3
IDENT Id.RadioBox4
IDENT Id.RadioBox5
IDENT Id.Keys1
IDENT Id.Keys2
IDENT Id.Keys3
IDENT Id.Keys4
IDENT Id.Keys5
IDENT IdTxt.Keys1
IDENT IdTxt.Keys2
IDENT IdTxt.Keys3
IDENT IdTxt.Keys4
IDENT IdTxt.Keys5
DROP
\ ############################################################################################################
\ ############ ##############
\ ############ INSTALLATION DU DIALOGUE HOMME MACHINE ##############
\ ############ ##############
\ ############################################################################################################
\ ========== Installation du dialogue ================
DIALOGS ZoomCourbesRéduites.Dialog
[MODELESS " I. C. M. International Cloud Machine BLOCNAME ZoomCourbesRéduites(C8A41186F4)Dlg " 100 0 1180 580 (FONT 8, MS Sans Serif) ]
[DEFPUSHBUTTON " OK" Id.DlgQuit 1010 560 40 15 ]
[PUSHBUTTON " Cancel" Id.Cancel 960 560 40 15 ]
[PUSHBUTTON " Apply" Id.Apply 910 560 40 15 ]
[COMPONENT " Quadrant" Id.Quadrant1 20 30 1260 880 (+STYLES EW_QUAD_SIX EW_SCL_SIX EW_GRID_SIX EW_TRIG_SIX ) ]
[COMPONENT " Keys" Id.Keys1 1320 760 20 20 (+STYLES EW_RECT ) ]
[COMPONENT " Keys" Id.Keys2 1320 785 20 20 (+STYLES EW_RECT ) ]
[COMPONENT " Keys" Id.Keys3 1320 810 20 20 (+STYLES EW_RECT ) ]
[COMPONENT " Keys" Id.Keys4 1320 835 20 20 (+STYLES EW_RECT ) ]
[COMPONENT " Keys" Id.Keys5 1320 860 20 20 (+STYLES EW_RECT ) ]
[LTEXT IdTxt.Keys1 900 470 80 10 ]
[LTEXT IdTxt.Keys2 900 485 80 10 ]
[LTEXT IdTxt.Keys3 900 500 80 10 ]
[LTEXT IdTxt.Keys4 900 515 80 10 ]
[LTEXT IdTxt.Keys5 900 530 80 10 ]
[LTEXT IdTxt.ComboBox1 880 8 130 10 ]
[COMBOBOX Id.ComboBox1 880 20 120 70 (+STYLE CBS_DROPDOWN WS_VSCROLL CBS_AUTOHSCROLL) ]
[LTEXT IdTxt.ComboBox2 880 60 130 10 ]
[COMBOBOX Id.ComboBox2 880 70 120 70 (+STYLE CBS_DROPDOWN WS_VSCROLL CBS_AUTOHSCROLL) ]
[LTEXT IdTxt.ComboBox3 880 110 130 10 ]
[COMBOBOX Id.ComboBox3 880 120 120 70 (+STYLE CBS_DROPDOWN WS_VSCROLL CBS_AUTOHSCROLL) ]
[LTEXT IdTxt.ComboBox4 880 160 130 10 ]
[COMBOBOX Id.ComboBox4 880 170 120 70 (+STYLE CBS_DROPDOWN WS_VSCROLL CBS_AUTOHSCROLL) ]
[LTEXT IdTxt.ComboBox5 880 210 130 10 ]
[COMBOBOX Id.ComboBox5 880 220 120 70 (+STYLE CBS_DROPDOWN WS_VSCROLL CBS_AUTOHSCROLL) ]
[LTEXT IdTxt.ComboBox6 880 260 130 10 ]
[COMBOBOX Id.ComboBox6 880 270 120 70 (+STYLE CBS_DROPDOWN WS_VSCROLL CBS_AUTOHSCROLL) ]
[LTEXT IdTxt.ComboBox7 1030 8 130 10 ]
[COMBOBOX Id.ComboBox7 1030 20 120 70 (+STYLE CBS_DROPDOWN WS_VSCROLL CBS_AUTOHSCROLL) ]
[LTEXT IdTxt.ComboBox8 1030 60 130 10 ]
[COMBOBOX Id.ComboBox8 1030 70 120 70 (+STYLE CBS_DROPDOWN WS_VSCROLL CBS_AUTOHSCROLL) ]
[GROUPBOX " " IdTxt.GroupBox0 880 320 150 115 ]
[AUTORADIOBUTTON Id.RadioBox1 890 335 15 15 ]
[AUTORADIOBUTTON Id.RadioBox2 890 350 15 15 ]
[AUTORADIOBUTTON Id.RadioBox3 890 365 15 15 ]
[AUTORADIOBUTTON Id.RadioBox4 890 380 15 15 ]
[AUTORADIOBUTTON Id.RadioBox5 890 395 15 15 ] \ SurveillanceBande
[LTEXT IdTxt.RadioBox1 910 335 90 15 ]
[LTEXT IdTxt.RadioBox2 910 350 90 15 ]
[LTEXT IdTxt.RadioBox3 910 365 90 15 ]
[LTEXT IdTxt.RadioBox4 910 380 90 15 ]
[LTEXT IdTxt.RadioBox5 910 395 90 15 ]
END-DIALOGS
: ZoomCourbesRéduites.Paint S( --- )
Id.Quadrant1 Quadrant.Paint
Id.Combobox1 ComboBox.Paint
Id.Combobox2 ComboBox.Paint
Id.Combobox3 ComboBox.Paint
Id.Combobox4 ComboBox.Paint
Id.Combobox5 ComboBox.Paint
Id.Combobox6 ComboBox.Paint
Id.Combobox7 ComboBox.Paint
Id.Combobox8 ComboBox.Paint
Id.Keys1 Keys.Paint
Id.Keys2 Keys.Paint
Id.Keys3 Keys.Paint
Id.Keys4 Keys.Paint
Id.Keys5 Keys.Paint
;
: ZoomCourbesRéduites.Init S( --- )
IdTxt.ComboBox1 Texte.Paint
IdTxt.ComboBox2 Texte.Paint
IdTxt.ComboBox3 Texte.Paint
IdTxt.ComboBox4 Texte.Paint
IdTxt.ComboBox5 Texte.Paint
IdTxt.ComboBox6 Texte.Paint
IdTxt.Combobox7 Texte.Paint
IdTxt.Combobox8 Texte.Paint
IdTxt.LeditText1 Texte.Paint
IdTxt.GroupBox0 Texte.Paint
IdTxt.RadioBox1 Texte.Paint
IdTxt.RadioBox2 Texte.Paint
IdTxt.RadioBox3 Texte.Paint
IdTxt.RadioBox4 Texte.Paint
IdTxt.RadioBox5 Texte.Paint
IdTxt.Keys1 Texte.Paint
IdTxt.Keys2 Texte.Paint
IdTxt.Keys3 Texte.Paint
IdTxt.Keys4 Texte.Paint
IdTxt.Keys5 Texte.Paint
;
: ZoomCourbesRéduites.Repaint S( --- ) \ remet un composant en peinture
ZoomCourbesRéduites.Paint
\ Id.Quadrant1 HWND Quadrant.Repaint
;
\ Schliessen des Fenster
: Applic.Quit S( --- )
HWND 0 EndDialog
HWND Application.Quit
HWND SubKey.DestroyEX
;
: ZoomCourbesRéduites.Quit S( -- res)
Applic.Quit
;
: ZoomCourbesRéduites.Cancel
Applic.Quit
;
: ZoomCourbesRéduites.Apply
\ Config.Apply
;
: #Message1 S( --- ) \ Liste des requêtes
( #Quadrant1.Request :Id.Request :M0 Color.Back Valeur.Changer :M1 Color.Back Valeur.Retourner :MX; )Msg.SendTo
( #Quadrant1.Value :Id.Value :M0 Color.Back 96 :MX; )Msg.SendTo
;
: #Message2 S( --- ) \ Liste des requêtes
( #Quadrant1.Request :Id.Request :M0 Color.Curves Valeur.Changer :M1 Color.Curves Valeur.Retourner :MX; )Msg.SendTo
( #Quadrant1.Value :Id.Value :M1 Color.Curves 24 :MX; )Msg.SendTo
;
: #Message3 S( --- ) \ Liste des requêtes
( #Quadrant1.Request :Id.Request :M0 Color.Triger Valeur.Changer :M1 Color.Triger Valeur.Retourner :MX; )Msg.SendTo
( #Quadrant1.Value :Id.Value :M2 Color.Triger 20 :MX; )Msg.SendTo
;
: #Message4 S( --- ) \ Liste des requêtes
( #Quadrant1.Request :Id.Request :M0 Color.Axe Valeur.Changer :M1 Color.Axe Valeur.Retourner :MX; )Msg.SendTo
( #Quadrant1.Value :Id.Value :M3 Color.Axe 13 :MX; )Msg.SendTo
;
: #Message5 S( --- ) \ Liste des requêtes
( #Quadrant1.Request :Id.Request :M0 Color.Grid Valeur.Changer :M1 Color.Grid Valeur.Retourner :MX; )Msg.SendTo
( #Quadrant1.Value :Id.Value :M4 Color.Grid 124 :MX; )Msg.SendTo
;
: ZoomCourbesRéduites.Commands S( Id -- )
CASE
Id.DlgQuit OF ZoomCourbesRéduites.Quit ENDOF
Id.Cancel OF ZoomCourbesRéduites.Cancel ENDOF
Id.Apply OF ZoomCourbesRéduites.Apply ENDOF
Id.Quadrant1 OF ( :M0 Color.Back #NewValue Change )Request.SendTo ENDOF
Id.Keys1 OF ['] #Message1 INHERIT-REQUEST Request.SendTo ENDOF
Id.Keys2 OF ['] #Message2 INHERIT-REQUEST Request.SendTo ENDOF
Id.Keys3 OF ['] #Message3 INHERIT-REQUEST Request.SendTo ENDOF
Id.Keys4 OF ['] #Message4 INHERIT-REQUEST Request.SendTo ENDOF
Id.Keys5 OF ['] #Message5 INHERIT-REQUEST Request.SendTo ENDOF
Id.Combobox1 OF ( #ComboBoxGroup0 #Combobox1 )Objet.SendTo ENDOF
Id.Combobox2 OF ( #ComboBoxGroup1 #Combobox2 )Objet.SendTo ENDOF
Id.Combobox3 OF ( #ComboBoxGroup1 #Combobox3 )Objet.SendTo ENDOF
Id.Combobox4 OF ( #ComboboxGroup1 #Combobox4 )Objet.SendTo ENDOF
Id.Combobox5 OF ( #ComboboxGroup1 #Combobox5 )Objet.SendTo ENDOF
Id.Combobox6 OF ( #ComboboxGroup1 #Combobox6 )Objet.SendTo ENDOF
Id.Combobox7 OF ( #ComboboxGroup2 #Combobox7 )Objet.SendTo ENDOF
Id.Combobox8 OF ( #ComboboxGroup2 #Combobox8 )Objet.SendTo ENDOF
Id.RadioBox1 OF ( #RadioBoxGroup0 #Combobox2 )Objet.SendTo ENDOF
Id.RadioBox2 OF ( #RadioBoxGroup0 #Combobox3 )Objet.SendTo ENDOF
Id.RadioBox3 OF ( #RadioBoxGroup0 #Combobox4 )Objet.SendTo ENDOF
Id.RadioBox4 OF ( #RadioBoxGroup0 #Combobox5 )Objet.SendTo ENDOF
Id.RadioBox5 OF ( #RadioBoxGroup0 #Combobox6 )Objet.SendTo ENDOF
ENDCASE
;
: ZoomCourbesRéduites.MESSAGES S( WM_PARAM --- res)
CASE
WM_ACTIVATE OF LPARAM LOWORD WPARAM LOWORD WA_CLICKACTIVE = IF HWND EWfocus.Change THEN
HWND InitDialogDlgParam ZoomCourbesRéduites.Init ENDOF
WM_CLOSE OF ZoomCourbesRéduites.Quit ENDOF
WM_COMMAND OF WPARAM LOWORD ZoomCourbesRéduites.Commands ENDOF
WM_INITDIALOG OF ZoomCourbesRéduites.Init ENDOF
WM_PAINT OF ZoomCourbesRéduites.Paint ENDOF \ Call App-Paint
WM_LBUTTONDOWN OF Bouton.Flag @ NOT IF EWPARAM ZoomCourbesRéduites.Commands Bouton.Flag ON THEN ENDOF
WM_LBUTTONUP OF Bouton.Flag OFF ENDOF
WM_TIMER OF HWND ZoomCourbesRéduites.Repaint ENDOF
ZERO
ENDCASE
;
\ Callback definition
:NONAME S( -- res)
INHERIT-SEARCHORDER
INHERIT-FLOAT
INHERIT-DIALOG
['] ZoomCourbesRéduites(C8A41186F4)Lst
INHERIT-OBJETLIST
MSG LOWORD
ZoomCourbesRéduites.MESSAGES ;
4 CB: ZoomCourbesRéduites.Run
\ Startwort
: ZoomCourbesRéduites(C8A41186F4)Dlg S( --- ) \ Fonction principale d'entrée dans le bloc ZoomCourbesRéduites(C8A41186F4)Dlg
ConfigDialogIndirectParam
ConfigDialogCfgParam
ZoomCourbesRéduites.Datas
ZoomCourbesRéduites.Dialog CELL- OFF
ZoomCourbesRéduites.Dialog CELL- @ ?EXIT
HINST ZoomCourbesRéduites.Dialog
HWND ZoomCourbesRéduites.Run
0 CreateDialogIndirectParam
ZoomCourbesRéduites.Dialog CELL- !
ConfigDialogHandel
;
Gild
' ZoomCourbesRéduites(C8A41186F4)Dlg Last_Cmd !
\\ |