PowerBuilder Processing Marquee
Source Code
uo_dwprocess from datawindow
|
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 |
forward global type uo_dwprocess from datawindow end type end forward global type uo_dwprocess from datawindow integer width = 1147 integer height = 88 string title = "none" boolean livescroll = true borderstyle borderstyle = stylelowered! event vscroll pbm_vscroll event timer pbm_timer end type global uo_dwprocess uo_dwprocess type prototypes Function UInt SetTimer( UInt hwin, UInt idtimer, UInt TimeOut, Long tmprc ) Library "user32.dll" Function Boolean KillTimer( UInt hwin, UInt idtimer ) Library "user32.dll" end prototypes type variables Int ii_rrheight = 100 Int ii_rrwidth = 50 Int ii_rrellipseheight = 20 Int ii_rrellipsewidth = 55 Int ii_rrbrushhatch = 6 Long il_rrbrushcolor = 32768 Long il_rrbackgroundcolor = 1073741824 Long il_rrpencolor = 32768 Int ii_rrpenstyle = 0 Int ii_rrpenwidth = 5 Int ii_rrpadding = 5 Int ii_rrcnt = 5 Long il_dwbackgroundcolor = 15794160 Int ii_xstart, ii_xend, ii_rr_cnt String is_runtype = "LEFT" String TypeLeft = "LEFT" String TypeRight = "RIGHT" String TypeMid = "MID" Boolean ib_flagmid = True end variables forward prototypes public function string of_syntaxdw () public subroutine of_loadprocess () public subroutine of_marquee () public subroutine of_start (long al_time) public subroutine of_stop () public subroutine of_setruntype (string as_runtype) public subroutine of_setrr (integer ai_rrwidth, integer ai_rrellipseheight, integer ai_rrellipsewidth, integer ai_rrbrushhatch, long al_rrbrushcolor, long al_rrbackgroundcolor, long al_rrpencolor, integer ai_rrpenstyle, integer ai_rrpenwidth, integer ai_rrpadding, integer ai_rrcnt) public subroutine of_setdw (long al_dwbackgroundcolor) public subroutine of_setrrcolor (long al_rrbrushcolor, long al_rrbackgroundcolor, long al_rrpencolor) public subroutine of_setrrpaint (integer ai_rrwidth, integer ai_rrellipseheight, integer ai_rrellipsewidth, integer ai_rrpadding, integer ai_rrcnt) end prototypes event vscroll;return 1 end event event timer;of_marquee() //of_rightmarquee() //of_midmarquee() end event public function string of_syntaxdw ();//==================================================================== // Function: uo_dwprocess.of_syntaxdw() //-------------------------------------------------------------------- // Description: //-------------------------------------------------------------------- // Arguments: //-------------------------------------------------------------------- // Returns: string //-------------------------------------------------------------------- // Author: PB.BaoGa Date: 2021/06/21 //-------------------------------------------------------------------- // Usage: uo_dwprocess.of_syntaxdw ( ) //-------------------------------------------------------------------- // Copyright (c) PB.BaoGa(TM), All rights reserved. //-------------------------------------------------------------------- // Modify History: // //==================================================================== string ls_syntax ls_syntax = 'release 10.5;' + '~r~n' + & 'datawindow(units=0 timer_interval=0 color='+string(il_dwbackgroundcolor)+' processing=0 HTMLDW=no print.printername="" print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 96 print.margin.bottom = 96 print.paper.source = 0 print.paper.size = 0 print.canusedefaultprinter=yes print.prompt=no print.buttons=no print.preview.buttons=no print.cliptext=no print.overrideprintjob=no print.collate=yes print.preview.outline=yes hidegrayline=no )' + '~r~n' + & 'header(height=0 color="1073741824" )' + '~r~n' + & 'summary(height=0 color="536870912" )' + '~r~n' + & 'footer(height=0 color="536870912" )' + '~r~n' + & 'detail(height=0 color="536870912" )' + '~r~n' + & 'table(column=(type=char(500) updatewhereclause=yes name=col dbname="col" ))' + '~r~n' + & 'htmltable(border="1" )' + '~r~n' + & 'htmlgen(clientevents="1" clientvalidation="1" clientcomputedfields="1" clientformatting="0" clientscriptable="0" generatejavascript="1" encodeselflinkargs="1" netscapelayers="0" pagingmethod=0 generatedddwframes="1" )' + '~r~n' + & 'xhtmlgen() cssgen(sessionspecific="0" )' + '~r~n' + & 'xmlgen(inline="0" )' + '~r~n' + & 'xsltgen()' + '~r~n' + & 'jsgen()' + '~r~n' + & 'export.xml(headgroups="1" includewhitespace="0" metadatatype=0 savemetadata=0 )' + '~r~n' + & 'import.xml()' + '~r~n' + & 'export.pdf(method=0 distill.custompostscript="0" xslfop.print="0" )' + '~r~n' + & 'export.xhtml()' Return ls_syntax end function public subroutine of_loadprocess ();//==================================================================== // Function: uo_dwprocess.of_loadprocess() //-------------------------------------------------------------------- // Description: //-------------------------------------------------------------------- // Arguments: //-------------------------------------------------------------------- // Returns: (none) //-------------------------------------------------------------------- // Author: PB.BaoGa Date: 2021/06/21 //-------------------------------------------------------------------- // Usage: uo_dwprocess.of_loadprocess ( ) //-------------------------------------------------------------------- // Copyright (c) PB.BaoGa(TM), All rights reserved. //-------------------------------------------------------------------- // Modify History: // //==================================================================== String ls_syntax_str, ls_errmsg, ls_visible String ls_syntaxrr, ls_value Int li_row, li_rr_count, li_rr_mid, li_rr_start, li_rr_end Long ll_rrx of_stop() ls_syntax_str = of_syntaxdw( ) This.Create(ls_syntax_str, ls_errmsg) If Len(Trim(ls_errmsg)) > 0 Then MessageBox("Warning","Create Dw Error") Return End If li_rr_count = Width / (ii_rrwidth +ii_rrpadding ) li_rr_mid = li_rr_count /2 - 1 li_rr_start = li_rr_mid - (ii_rrcnt/2) li_rr_end = li_rr_mid + (ii_rrcnt/2) ii_xstart = li_rr_start ii_xend = li_rr_end ii_rr_cnt = li_rr_count ls_syntaxrr = "" ls_value = "" For li_row = 0 To li_rr_count ll_rrx = li_row * (ii_rrwidth +ii_rrpadding ) If li_row >= li_rr_start And li_row < li_rr_end Then //ls_visible = "1" ls_value = ls_value + "1" Else //ls_visible = "0" ls_value = ls_value + "0" End If ls_syntaxrr = ls_syntaxrr + 'create roundrectangle(band=detail ellipseheight="'+String(ii_rrellipseheight)+'" ellipsewidth="'+String(ii_rrellipsewidth)+'"x="'+String(ll_rrx)+'" y="1" height="'+String(ii_rrheight - 4)+'" width="'+String(ii_rrwidth)+'" name=rr_'+String(li_row )+' visible="1~tIf(long(mid(col,'+String(li_row + 1)+',1))=1,1,0)" brush.hatch="'+String(ii_rrbrushhatch)+'" brush.color="'+String(il_rrbrushcolor)+'" pen.style="'+String(ii_rrpenstyle)+'" pen.width="'+String(ii_rrpenwidth)+'" pen.color="'+String(il_rrpencolor)+'" background.mode="2" background.color="'+String(il_rrbackgroundcolor)+'" ) ' Next ls_errmsg = This.Modify(ls_syntaxrr) This.Modify('DataWindow.Detail.Height='+String(ii_rrheight)) //This.Height = ii_rrheight + 5 InsertRow(0) This.SetItem(1, "col", ls_value ) end subroutine public subroutine of_marquee ();//==================================================================== // Function: uo_dwprocess.of_marquee() //-------------------------------------------------------------------- // Description: //-------------------------------------------------------------------- // Arguments: //-------------------------------------------------------------------- // Returns: (none) //-------------------------------------------------------------------- // Author: PB.BaoGa Date: 2021/06/21 //-------------------------------------------------------------------- // Usage: uo_dwprocess.of_marquee ( ) //-------------------------------------------------------------------- // Copyright (c) PB.BaoGa(TM), All rights reserved. //-------------------------------------------------------------------- // Modify History: // //==================================================================== String ls_value Int li_row For li_row = 0 To ii_rr_cnt If ii_xstart <= ii_xend Then If li_row >= ii_xstart And li_row < ( ii_xend ) Then ls_value = ls_value + "1" Else ls_value = ls_value + "0" End If Else If li_row >= ii_xend And li_row < ( ii_xstart ) Then ls_value = ls_value + "0" Else ls_value = ls_value + "1" End If End If Next If is_runtype = TypeLeft Or ( is_runtype = TypeMid And ib_flagmid )Then ii_xstart ++ ii_xend ++ If ii_xend > ii_rr_cnt Then ii_xend = 0 If is_runtype = TypeMid Then ii_xend -- ib_flagmid = False End If End If If ii_xstart > ii_rr_cnt Then ii_xstart = 0 ElseIf is_runtype = TypeRight Or ( is_runtype = TypeMid And Not ib_flagmid ) Then ii_xstart -- ii_xend -- If ii_xend < 0 Then ii_xend = ii_rr_cnt If ii_xstart < 0 Then ii_xstart = ii_rr_cnt If is_runtype = TypeMid Then ii_xstart ++ ib_flagmid = True End If End If End If This.SetItem(1, "col", ls_value) end subroutine public subroutine of_start (long al_time);//==================================================================== // Function: uo_dwprocess.of_start() //-------------------------------------------------------------------- // Description: //-------------------------------------------------------------------- // Arguments: // value long al_time //-------------------------------------------------------------------- // Returns: (none) //-------------------------------------------------------------------- // Author: PB.BaoGa Date: 2021/06/21 //-------------------------------------------------------------------- // Usage: uo_dwprocess.of_start ( long al_time ) //-------------------------------------------------------------------- // Copyright (c) PB.BaoGa(TM), All rights reserved. //-------------------------------------------------------------------- // Modify History: // //==================================================================== If al_time < 1 Then al_time = 1 SetTimer( Handle( This ), 0, al_time, 0 ) end subroutine public subroutine of_stop ();//==================================================================== // Function: uo_dwprocess.of_stop() //-------------------------------------------------------------------- // Description: //-------------------------------------------------------------------- // Arguments: //-------------------------------------------------------------------- // Returns: (none) //-------------------------------------------------------------------- // Author: PB.BaoGa Date: 2021/06/21 //-------------------------------------------------------------------- // Usage: uo_dwprocess.of_stop ( ) //-------------------------------------------------------------------- // Copyright (c) PB.BaoGa(TM), All rights reserved. //-------------------------------------------------------------------- // Modify History: // //==================================================================== KillTimer( Handle( This ),0 ) end subroutine public subroutine of_setruntype (string as_runtype);is_runtype = as_runtype end subroutine public subroutine of_setrr (integer ai_rrwidth, integer ai_rrellipseheight, integer ai_rrellipsewidth, integer ai_rrbrushhatch, long al_rrbrushcolor, long al_rrbackgroundcolor, long al_rrpencolor, integer ai_rrpenstyle, integer ai_rrpenwidth, integer ai_rrpadding, integer ai_rrcnt);//==================================================================== // Function: uo_dwprocess.Script - of_setrr ( integer ai_rrwidth, integer ai_rrellipseheight, integer ai_rrellipsewidth, integer ai_rrbrushhatch, long al_rrbrushcolor, long al_rrbackgroundcolor, long al_rrpencolor, integer ai_rrpenstyle, integer ai_rrpenwidth, integer ai_rrpadding() //-------------------------------------------------------------------- // Description: //-------------------------------------------------------------------- // Arguments: // value integer ai_rrwidth // value integer ai_rrellipseheight // value integer ai_rrellipsewidth // value integer ai_rrbrushhatch // value long al_rrbrushcolor // value long al_rrbackgroundcolor // value long al_rrpencolor // value integer ai_rrpenstyle // value integer ai_rrpenwidth // value integer ai_rrpadding // value integer ai_rrcnt //-------------------------------------------------------------------- // Returns: (none) //-------------------------------------------------------------------- // Author: PB.BaoGa Date: 2021/06/21 //-------------------------------------------------------------------- // Usage: uo_dwprocess. //-------------------------------------------------------------------- // Copyright (c) PB.BaoGa(TM), All rights reserved. //-------------------------------------------------------------------- // Modify History: // //==================================================================== ii_rrwidth = ai_rrwidth ii_rrellipseheight = ai_rrellipseheight ii_rrellipsewidth = ai_rrellipsewidth ii_rrbrushhatch = ai_rrbrushhatch il_rrbrushcolor = al_rrbrushcolor il_rrbackgroundcolor = al_rrbackgroundcolor il_rrpencolor = al_rrpencolor ii_rrpenstyle = ai_rrpenstyle ii_rrpenwidth = ai_rrpenwidth ii_rrpadding = ai_rrpadding ii_rrcnt = ai_rrcnt of_loadprocess() end subroutine public subroutine of_setdw (long al_dwbackgroundcolor);il_dwbackgroundcolor = al_dwbackgroundcolor end subroutine public subroutine of_setrrcolor (long al_rrbrushcolor, long al_rrbackgroundcolor, long al_rrpencolor);il_rrbrushcolor = al_rrbrushcolor il_rrbackgroundcolor = al_rrbackgroundcolor il_rrpencolor = al_rrpencolor of_loadprocess() end subroutine public subroutine of_setrrpaint (integer ai_rrwidth, integer ai_rrellipseheight, integer ai_rrellipsewidth, integer ai_rrpadding, integer ai_rrcnt);ii_rrwidth = ai_rrwidth ii_rrellipseheight = ai_rrellipseheight ii_rrellipsewidth = ai_rrellipsewidth ii_rrpadding = ai_rrpadding ii_rrcnt = ai_rrcnt of_loadprocess() end subroutine on uo_dwprocess.create end on on uo_dwprocess.destroy end on event constructor;ii_rrheight = Height This.Post of_loadprocess() //This.Height = ii_height end event event resize;ii_rrheight = newheight of_loadprocess() end event |
w_main from window
|
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 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 |
forward global type w_main from window end type type em_speed from editmask within w_main end type type st_17 from statictext within w_main end type type em_nrrect from editmask within w_main end type type st_16 from statictext within w_main end type type cb_3 from commandbutton within w_main end type type dw_3 from uo_dwprocess within w_main end type type dw_2 from uo_dwprocess within w_main end type type st_dwbgcolor from statictext within w_main end type type st_14 from statictext within w_main end type type em_rrpadding from editmask within w_main end type type st_13 from statictext within w_main end type type ddlb_brushhatch from dropdownlistbox within w_main end type type em_rrpenwidth from editmask within w_main end type type ddlb_1 from dropdownlistbox within w_main end type type st_rrpencolor from statictext within w_main end type type st_brushcolor from statictext within w_main end type type st_rrbgcolor from statictext within w_main end type type st_9 from statictext within w_main end type type st_8 from statictext within w_main end type type st_7 from statictext within w_main end type type st_2 from statictext within w_main end type type st_6 from statictext within w_main end type type st_rrbgcolor1 from statictext within w_main end type type st_4 from statictext within w_main end type type em_rrewidth from editmask within w_main end type type em_rreheight from editmask within w_main end type type st_3 from statictext within w_main end type type em_rrwidth from editmask within w_main end type type st_1 from statictext within w_main end type type cb_2 from commandbutton within w_main end type type cb_1 from commandbutton within w_main end type type dw_1 from uo_dwprocess within w_main end type type gb_1 from groupbox within w_main end type type gb_2 from groupbox within w_main end type end forward global type w_main from window integer width = 1440 integer height = 2364 boolean titlebar = true string title = "Processing Marquee" boolean controlmenu = true boolean minbox = true boolean maxbox = true boolean resizable = true long backcolor = 67108864 string icon = "AppIcon!" boolean center = true em_speed em_speed st_17 st_17 em_nrrect em_nrrect st_16 st_16 cb_3 cb_3 dw_3 dw_3 dw_2 dw_2 st_dwbgcolor st_dwbgcolor st_14 st_14 em_rrpadding em_rrpadding st_13 st_13 ddlb_brushhatch ddlb_brushhatch em_rrpenwidth em_rrpenwidth ddlb_1 ddlb_1 st_rrpencolor st_rrpencolor st_brushcolor st_brushcolor st_rrbgcolor st_rrbgcolor st_9 st_9 st_8 st_8 st_7 st_7 st_2 st_2 st_6 st_6 st_rrbgcolor1 st_rrbgcolor1 st_4 st_4 em_rrewidth em_rrewidth em_rreheight em_rreheight st_3 st_3 em_rrwidth em_rrwidth st_1 st_1 cb_2 cb_2 cb_1 cb_1 dw_1 dw_1 gb_1 gb_1 gb_2 gb_2 end type global w_main w_main type variables int ii_rrpenstyle, ii_rrbrushhatch, ii_rrpadding end variables on w_main.create this.em_speed=create em_speed this.st_17=create st_17 this.em_nrrect=create em_nrrect this.st_16=create st_16 this.cb_3=create cb_3 this.dw_3=create dw_3 this.dw_2=create dw_2 this.st_dwbgcolor=create st_dwbgcolor this.st_14=create st_14 this.em_rrpadding=create em_rrpadding this.st_13=create st_13 this.ddlb_brushhatch=create ddlb_brushhatch this.em_rrpenwidth=create em_rrpenwidth this.ddlb_1=create ddlb_1 this.st_rrpencolor=create st_rrpencolor this.st_brushcolor=create st_brushcolor this.st_rrbgcolor=create st_rrbgcolor this.st_9=create st_9 this.st_8=create st_8 this.st_7=create st_7 this.st_2=create st_2 this.st_6=create st_6 this.st_rrbgcolor1=create st_rrbgcolor1 this.st_4=create st_4 this.em_rrewidth=create em_rrewidth this.em_rreheight=create em_rreheight this.st_3=create st_3 this.em_rrwidth=create em_rrwidth this.st_1=create st_1 this.cb_2=create cb_2 this.cb_1=create cb_1 this.dw_1=create dw_1 this.gb_1=create gb_1 this.gb_2=create gb_2 this.Control[]={this.em_speed,& this.st_17,& this.em_nrrect,& this.st_16,& this.cb_3,& this.dw_3,& this.dw_2,& this.st_dwbgcolor,& this.st_14,& this.em_rrpadding,& this.st_13,& this.ddlb_brushhatch,& this.em_rrpenwidth,& this.ddlb_1,& this.st_rrpencolor,& this.st_brushcolor,& this.st_rrbgcolor,& this.st_9,& this.st_8,& this.st_7,& this.st_2,& this.st_6,& this.st_rrbgcolor1,& this.st_4,& this.em_rrewidth,& this.em_rreheight,& this.st_3,& this.em_rrwidth,& this.st_1,& this.cb_2,& this.cb_1,& this.dw_1,& this.gb_1,& this.gb_2} end on on w_main.destroy destroy(this.em_speed) destroy(this.st_17) destroy(this.em_nrrect) destroy(this.st_16) destroy(this.cb_3) destroy(this.dw_3) destroy(this.dw_2) destroy(this.st_dwbgcolor) destroy(this.st_14) destroy(this.em_rrpadding) destroy(this.st_13) destroy(this.ddlb_brushhatch) destroy(this.em_rrpenwidth) destroy(this.ddlb_1) destroy(this.st_rrpencolor) destroy(this.st_brushcolor) destroy(this.st_rrbgcolor) destroy(this.st_9) destroy(this.st_8) destroy(this.st_7) destroy(this.st_2) destroy(this.st_6) destroy(this.st_rrbgcolor1) destroy(this.st_4) destroy(this.em_rrewidth) destroy(this.em_rreheight) destroy(this.st_3) destroy(this.em_rrwidth) destroy(this.st_1) destroy(this.cb_2) destroy(this.cb_1) destroy(this.dw_1) destroy(this.gb_1) destroy(this.gb_2) end on type em_speed from editmask within w_main integer x = 549 integer y = 1488 integer width = 695 integer height = 80 integer taborder = 50 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 string text = "100" alignment alignment = right! borderstyle borderstyle = stylelowered! string mask = "####" boolean spin = true double increment = 1 string minmax = "1~~99999" end type type st_17 from statictext within w_main integer x = 73 integer y = 1488 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Speed:" alignment alignment = right! boolean focusrectangle = false end type type em_nrrect from editmask within w_main integer x = 549 integer y = 1104 integer width = 695 integer height = 80 integer taborder = 40 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 string text = "5" alignment alignment = right! borderstyle borderstyle = stylelowered! string mask = "####" boolean spin = true double increment = 1 string minmax = "1~~99999" end type type st_16 from statictext within w_main integer x = 73 integer y = 1104 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Number RRect:" alignment alignment = right! boolean focusrectangle = false end type type cb_3 from commandbutton within w_main integer x = 73 integer y = 1664 integer width = 256 integer height = 112 integer taborder = 40 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Apply" end type event clicked;dw_1.of_setdw(st_dwbgcolor.backcolor ) dw_1.of_setrr (integer(em_rrwidth.text), integer (em_rreheight.text), integer (em_rrewidth.text), ii_rrbrushhatch, st_brushcolor.backcolor , st_rrbgcolor.backcolor , st_rrpencolor.backcolor , ii_rrpenstyle, Integer(em_rrpenwidth.text), integer (em_rrpadding.text), integer (em_nrrect.text)) dw_2.of_setdw(st_dwbgcolor.backcolor ) dw_2.of_setrr (integer(em_rrwidth.text), integer (em_rreheight.text), integer (em_rrewidth.text), ii_rrbrushhatch, st_brushcolor.backcolor , st_rrbgcolor.backcolor , st_rrpencolor.backcolor , ii_rrpenstyle, Integer(em_rrpenwidth.text), integer (em_rrpadding.text), integer (em_nrrect.text)) dw_3.of_setdw(st_dwbgcolor.backcolor ) dw_3.of_setrr (integer(em_rrwidth.text), integer (em_rreheight.text), integer (em_rrewidth.text), ii_rrbrushhatch, st_brushcolor.backcolor , st_rrbgcolor.backcolor , st_rrpencolor.backcolor , ii_rrpenstyle, Integer(em_rrpenwidth.text), integer (em_rrpadding.text), integer (em_nrrect.text)) end event type dw_3 from uo_dwprocess within w_main integer x = 73 integer y = 2080 integer width = 1243 integer height = 96 integer taborder = 20 boolean border = false borderstyle borderstyle = stylebox! end type type dw_2 from uo_dwprocess within w_main integer x = 73 integer y = 1952 integer width = 1243 integer height = 96 integer taborder = 20 boolean border = false borderstyle borderstyle = stylebox! end type type st_dwbgcolor from statictext within w_main integer x = 549 integer y = 1376 integer width = 695 integer height = 80 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 alignment alignment = right! boolean border = true boolean focusrectangle = false end type event clicked;long red, green, blue long custom[ ] integer li_color red = This.backcolor custom[1]=0 // Black custom[2]=16777215 // White custom[3]=12632256 // Gray custom[4]=8421504 // Dark Grey custom[5]=255 // Red custom[6]=128 // Dark Red custom[7]=65280 // Green custom[8]=32768 // Dark Green custom[9]=16711680 // Blue custom[10]=8388608 // Dark Blue custom[11]=16711935 // Magenta custom[12]=8388736 // Dark Magenta custom[13]=16776960 // Cyan custom[14]=8421376 // Dark Cyan custom[15]=65535 // Yellow custom[16]=32896 // Brown li_color = ChooseColor( red, custom [ ] ) This.backcolor = red //rr_1.fillcolor = red end event event constructor;this.backcolor = 15794160 end event type st_14 from statictext within w_main integer x = 73 integer y = 1376 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Background Color:" alignment alignment = right! boolean focusrectangle = false end type type em_rrpadding from editmask within w_main integer x = 549 integer y = 1008 integer width = 695 integer height = 80 integer taborder = 40 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 string text = "5" alignment alignment = right! borderstyle borderstyle = stylelowered! string mask = "####" boolean spin = true double increment = 1 string minmax = "1~~99999" end type type st_13 from statictext within w_main integer x = 73 integer y = 1008 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Padding:" alignment alignment = right! boolean focusrectangle = false end type type ddlb_brushhatch from dropdownlistbox within w_main integer x = 549 integer y = 608 integer width = 695 integer height = 640 integer taborder = 40 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 boolean sorted = false string item[] = {"Horizontal (0)","Bdiagonal (1)","Vertical (2)","Cross (3)","Fdiagonal (4)","DiagCross (5)","Solid (6)","Transparent (7)"} borderstyle borderstyle = stylelowered! end type event selectionchanged;ii_rrbrushhatch = index end event event constructor;this.selectitem( 1) end event type em_rrpenwidth from editmask within w_main integer x = 549 integer y = 912 integer width = 695 integer height = 80 integer taborder = 30 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 string text = "1" alignment alignment = right! borderstyle borderstyle = stylelowered! string mask = "####" boolean spin = true double increment = 1 string minmax = "1~~99999" end type type ddlb_1 from dropdownlistbox within w_main integer x = 549 integer y = 804 integer width = 695 integer height = 512 integer taborder = 40 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 boolean sorted = false string item[] = {"Solid (0)","Dash (1)","Dotted (2)","Dash-dot Pattem (3)","Dash-dot-dot Pattem (4)","No Visible Line (5)"} borderstyle borderstyle = stylelowered! end type event selectionchanged;//LineStyle style[] ={ Continuous!,Dash!,DashDot!,DashDotDot!,Dot!,Transparent!} //rr_1.linestyle =style[ index] ii_rrpenstyle = index end event event constructor;this.selectitem( 1) end event type st_rrpencolor from statictext within w_main integer x = 549 integer y = 712 integer width = 695 integer height = 80 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 alignment alignment = right! boolean border = true boolean focusrectangle = false end type event clicked;long red, green, blue long custom[ ] integer li_color red = This.backcolor custom[1]=0 // Black custom[2]=16777215 // White custom[3]=12632256 // Gray custom[4]=8421504 // Dark Grey custom[5]=255 // Red custom[6]=128 // Dark Red custom[7]=65280 // Green custom[8]=32768 // Dark Green custom[9]=16711680 // Blue custom[10]=8388608 // Dark Blue custom[11]=16711935 // Magenta custom[12]=8388736 // Dark Magenta custom[13]=16776960 // Cyan custom[14]=8421376 // Dark Cyan custom[15]=65535 // Yellow custom[16]=32896 // Brown li_color = ChooseColor( red, custom [ ] ) This.backcolor = red end event type st_brushcolor from statictext within w_main integer x = 549 integer y = 512 integer width = 695 integer height = 80 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 alignment alignment = right! boolean border = true boolean focusrectangle = false end type event clicked;long red, green, blue long custom[ ] integer li_color red = This.backcolor custom[1]=0 // Black custom[2]=16777215 // White custom[3]=12632256 // Gray custom[4]=8421504 // Dark Grey custom[5]=255 // Red custom[6]=128 // Dark Red custom[7]=65280 // Green custom[8]=32768 // Dark Green custom[9]=16711680 // Blue custom[10]=8388608 // Dark Blue custom[11]=16711935 // Magenta custom[12]=8388736 // Dark Magenta custom[13]=16776960 // Cyan custom[14]=8421376 // Dark Cyan custom[15]=65535 // Yellow custom[16]=32896 // Brown li_color = ChooseColor( red, custom [ ] ) This.backcolor = red end event event constructor;This.backcolor = 32768 end event type st_rrbgcolor from statictext within w_main integer x = 549 integer y = 416 integer width = 695 integer height = 80 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 alignment alignment = right! boolean border = true boolean focusrectangle = false end type event clicked;long red, green, blue long custom[ ] integer li_color red = This.backcolor custom[1]=0 // Black custom[2]=16777215 // White custom[3]=12632256 // Gray custom[4]=8421504 // Dark Grey custom[5]=255 // Red custom[6]=128 // Dark Red custom[7]=65280 // Green custom[8]=32768 // Dark Green custom[9]=16711680 // Blue custom[10]=8388608 // Dark Blue custom[11]=16711935 // Magenta custom[12]=8388736 // Dark Magenta custom[13]=16776960 // Cyan custom[14]=8421376 // Dark Cyan custom[15]=65535 // Yellow custom[16]=32896 // Brown li_color = ChooseColor( red, custom [ ] ) This.backcolor = red //rr_1.fillcolor = red end event event constructor;This.backcolor = 32768 end event type st_9 from statictext within w_main integer x = 73 integer y = 912 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Pen Width:" alignment alignment = right! boolean focusrectangle = false end type type st_8 from statictext within w_main integer x = 73 integer y = 800 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Pen Style:" alignment alignment = right! boolean focusrectangle = false end type type st_7 from statictext within w_main integer x = 73 integer y = 704 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Pen Color:" alignment alignment = right! boolean focusrectangle = false end type type st_2 from statictext within w_main integer x = 73 integer y = 608 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Brush Hatch:" alignment alignment = right! boolean focusrectangle = false end type type st_6 from statictext within w_main integer x = 73 integer y = 512 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Brush Color:" alignment alignment = right! boolean focusrectangle = false end type type st_rrbgcolor1 from statictext within w_main integer x = 73 integer y = 416 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Background Color:" alignment alignment = right! boolean focusrectangle = false end type type st_4 from statictext within w_main integer x = 73 integer y = 320 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Ellipse Width:" alignment alignment = right! boolean focusrectangle = false end type type em_rrewidth from editmask within w_main integer x = 549 integer y = 320 integer width = 695 integer height = 80 integer taborder = 30 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 string text = "50" alignment alignment = right! borderstyle borderstyle = stylelowered! string mask = "####" boolean spin = true double increment = 10 string minmax = "1~~99999" end type type em_rreheight from editmask within w_main integer x = 549 integer y = 224 integer width = 695 integer height = 80 integer taborder = 20 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 string text = "20" alignment alignment = right! borderstyle borderstyle = stylelowered! string mask = "####" boolean spin = true double increment = 10 string minmax = "1~~99999" end type type st_3 from statictext within w_main integer x = 73 integer y = 224 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Ellipse Height:" alignment alignment = right! boolean focusrectangle = false end type type em_rrwidth from editmask within w_main integer x = 549 integer y = 128 integer width = 695 integer height = 80 integer taborder = 20 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 string text = "50" alignment alignment = right! borderstyle borderstyle = stylelowered! string mask = "####" boolean spin = true double increment = 10 string minmax = "1~~99999" end type type st_1 from statictext within w_main integer x = 73 integer y = 128 integer width = 462 integer height = 64 integer textsize = -9 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "RR Width:" alignment alignment = right! boolean focusrectangle = false end type type cb_2 from commandbutton within w_main integer x = 1024 integer y = 1664 integer width = 256 integer height = 112 integer taborder = 30 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "stop" end type event clicked;dw_1.of_stop() dw_2.of_stop() dw_3.of_stop() end event type cb_1 from commandbutton within w_main integer x = 768 integer y = 1664 integer width = 256 integer height = 112 integer taborder = 20 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "start" end type event clicked;dw_3.of_setruntype(dw_1.TypeMid ) dw_2.of_setruntype(dw_1.Typeright ) dw_1.of_setruntype(dw_1.Typeleft ) dw_1.of_start(Long(em_speed.Text)) dw_2.of_start(Long(em_speed.Text)) dw_3.of_start(Long(em_speed.Text)) end event type dw_1 from uo_dwprocess within w_main integer x = 73 integer y = 1824 integer width = 1243 integer height = 96 integer taborder = 10 boolean border = false borderstyle borderstyle = stylebox! end type type gb_1 from groupbox within w_main integer x = 37 integer y = 32 integer width = 1280 integer height = 1216 integer taborder = 10 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "RoundRectangle" end type type gb_2 from groupbox within w_main integer x = 37 integer y = 1280 integer width = 1280 integer height = 336 integer taborder = 50 integer textsize = -10 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Process" end type |
Find Projects On Github click here
Good Luck!
Subscribe
Login
0 Comments
Oldest