PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Fenstergröße ändern trotz #PB_Window_Borderless

https://www.purebasic.fr/german/viewtopic.php?t=29605

Seite 2 von 4

Re: Fenstergröße ändern trotz #PB_Window_Borderless

Verfasst: 29.04.2016 02:06
von udg
Noch eine Frage.
normalerweise lege ich fest, dass das Fenster nicht kleiner gemacht werden darf als der Inhalt noch gut sichtbar wäre.
das Ganze mit:

Code: Alles auswählen

WindowBounds(0, 200, 200, 400, 400)
jedoch wird das irgendwie durch deinen Code übergangen?

PS Frage:
wozu ist das Delay(20) gut?

Re: Fenstergröße ändern trotz #PB_Window_Borderless

Verfasst: 29.04.2016 10:52
von silbersurfer
Noch eine Frage.
normalerweise lege ich fest, dass das Fenster nicht kleiner gemacht werden darf als der Inhalt noch gut sichtbar wäre.
jedoch wird das irgendwie durch deinen Code übergangen?
Da Ich ja Manuel Resize und nicht von Windows eigenen routine,aber das kannst du auch leicht Manuel festlegen.
z.b

Code: Alles auswählen

; Id=WindowID,my/mx MausX/MausY,w/h Minmale Breite/Höhe
Procedure WindowsBaund(id,mx,my,w,h)
    If w<mx And h<mx
      ResizeWindow(id,#PB_Ignore,#PB_Ignore, mx, my)
    EndIf   
    If w>mx And Not h>my
      ResizeWindow(id,#PB_Ignore,#PB_Ignore, w, my)
    EndIf   
    If h>my And Not w>mx
      ResizeWindow(id,#PB_Ignore,#PB_Ignore,mx,h)
    EndIf 
    If w>mx And h>my
      ResizeWindow(id,#PB_Ignore,#PB_Ignore, w,h)
    EndIf  
  EndProcedure

Code: Alles auswählen

 WindowsBaund(0,DmausX-BackupMausX,DmausY-BackupMausY,400,250)
in meinen Beispiel dann dort eingefügt

Code: Alles auswählen

      ;größe ändern des Fensters
      If Resize=#True 
        WindowsBaund(0,DmausX-BackupMausX,DmausY-BackupMausY,400,250)      
        ResizeGadget(2,#PB_Ignore,#PB_Ignore,WindowWidth(0)-20,#PB_Ignore)
        ResizeGadget(3,WindowWidth(0)-20,0,#PB_Ignore,#PB_Ignore)
        ResizeGadget(4,WindowWidth(0)-20,WindowHeight(0)-20,#PB_Ignore,#PB_Ignore)
      EndIf
wozu ist das Delay(20) gut?
gibt dem System Multitasting Zeit, da ja EventWindow statt WaitEventWindow genutzt wird
(solange kein event stattfindet warte bitte 20 Millisekunden)

EventWindows wartet nicht auf einen Event sondern fängt diese nur ab, soll heißen deine Schleife wird immer abgearbeitet
egal ob ein Event auftritt oder nicht.
WaitEventWindow hält das Programm an bis ein Event stattfindet

Re: Fenstergröße ändern trotz #PB_Window_Borderless

Verfasst: 29.04.2016 15:48
von udg
Sehr schön, ich glaube jetzt haben wir alles. Hab mal ein Beispiel fertig gemacht. Das einzige was noch buggd hier, ist, dass der Exitbutton nicht sofort reagiert sondern manchmal erst beim 2ten oder 3tem mal drauf drücken. Delay(20) habe ich auf 10 gesetzt weil in diesem Fall das zeichnen des Fensters beim Resizen schneller geht.
Kann man den Code noch optimieren? Dann könnte man den ja als Tutorial Code Posten, denn nach Borderless Resize Window fragen die Leute ja immer wieder.
Edit:
Code angepasst

Code: Alles auswählen

; used PUREBASIC: 5.30
;
Enumeration
  #InfoText
  #InfoText_Font
  #Infobar
  #Infobar_Font
  #two_Mice_gfx
  #Image_Mice_gfx
  #SizeMe
  #Image_SizeMe
  #Gadget_exit
  #Exit_btn
EndEnumeration

;{ Included Images
DataSection
  Image_Image_1:
  ;Size = 17173 bytes
  Data.l $474E5089,$0A1A0A0D,$0D000000,$52444849,$D4000000,$DF000000,$00000308,$0DC7B900,$030000E9,$544C5000,$00000045,$22161415
  Data.l $272D201F,$2F303726,$181B1A1C,$303B1817,$444A5B2D,$6E525359,$515E6969,$30333D4E,$EABCB6BB,$DAD5B0C6,$C6C2C4E1,$ED8C8C90
  Data.l $364AC3D1,$79A5E62E,$967C797C,$6D8B848A,$B0BCDE5D,$D96287B7,$A9CAD8D7,$61636B94,$E56684CB,$CBCCA2BB,$BBB8BAD0,$E37485A6
  Data.l $AAAD92B5,$7E99D7AD,$EC363E54,$A2CCD2DC,$9D9DA092,$DA6F7DB7,$B6DB6B90,$687793A3,$85789ACB,$D1D45767,$BFC8DECF,$978195BA
  Data.l $7D899994,$8D9BB584,$75496194,$526F7773,$8AAEDD46,$E9A8A5A8,$5277BDC9,$CFD1E73F,$7EB1BDCF,$72B4817C,$5780C748,$C2596FAF
  Data.l $51982A58,$568AD62E,$72B9B6B5,$FAFB3B44,$F7F7F7FB,$FCF8FAF8,$F8F9FCFC,$F2F0F0FA,$F4F5F2F2,$ECEDF4F5,$F1F3F2EE,$EFF7F4F5
  Data.l $E8E7EFEE,$F4F7F7E9,$EED0DEF8,$E7F7F2EE,$D4E2F8DA,$F7E9EAEA,$E3E4D6E6,$F9FCFCE6,$F7DDEBF8,$ECF9E4EE,$E2E0E1E1,$ECC8DAF6
  Data.l $D6F7EAEC,$EDE8EABC,$F9EAF4FB,$05D1E7F0,$E0DCDD21,$E5CDDAF8,$FBFBE9E5,$C2DAF4F6,$F4F1FAFB,$D7DAAECA,$C9E0F8DD,$F5FEFDFE
  Data.l $F7F2FCFC,$F2F3EEF8,$EACFE1F3,$E6F8F2F2,$EDECEADF,$EEC3D7F9,$D1F7ECF0,$EEF5FCB8,$E9EDF6F7,$D5D5E4E6,$DBD8E0D7,$F1D5CED0
  Data.l $DCE3B3D0,$D7D4DCDE,$FCA3C6F5,$E6EEF5F8,$9CBFF3E7,$CCF0EBE3,$F3EDD0CA,$E9E4EAF6,$C1DAE2F9,$C5C8C9C3,$EDF0E6CC,$F5E2DFE8
  Data.l $E4F1B6C9,$F2EFF7D9,$F4C8D3F6,$05C7EAF1,$E7EAF91C,$F7AFA3A7,$ADF2B3D3,$CFE5F97B,$F194B8F0,$DCF9ECEB,$BBD0F1C5,$EFADD0F7
  Data.l $EBF288AE,$E8E2DAE1,$F29AC8F5,$D2F6CDD9,$DBD0D6BF,$F9BBADAB,$BEF6A8CB,$F3EFE78F,$F5DFE3E6,$BABED7DB,$D6CCC4C5,$ECC4B6B4
  Data.l $86E4A4C4,$86B7F25E,$D2B8AEB3,$989ACAC9,$A7CFF1A5,$DDABC0F3,$EBFAEEE8,$0C0D0BD8,$EF7399E9,$83E86EA4,$3B76E344,$E1255BDA
  Data.l $6CDA89A6,$507FDC40,$14F3F8F1,$ABF11111,$2F69E397,$B06695E6,$B5F01A07,$C0C2CFA8,$E087A0EE,$9DEFE8DB,$3421D862,$EADED3CC
  Data.l $F4F95293,$B4B7CCE1,$B5CECDD9,$F7ECAAA7,$96919AF9,$D17E8BC0,$DAFAEEDF,$9197BBB8,$B793898E,$BDF1D2BF,$8287ADBE,$99A2AAC8
  Data.l $1A22200F,$5B8EF11E,$369C99AC,$3CE13B34,$1B46D14D,$90040503,$73E65F5F,$2107DF56,$B65170C6,$3DA74662,$9690E643,$C6474FCC
  Data.l $1FBD4136,$716C7427,$D91E1283,$534F6357,$695F605D,$9F44398F,$3E5A7979,$796EDE45,$7E1A1266,$0A523130,$87E3D216,$000000A8
  Data.l $4E527447,$280B0053,$121C4636,$7E606F56,$FEFE6783,$FEB6E2FE,$A193FE78,$ECBEFAA8,$FCFE9BDB,$FCCDD3EA,$FC91FDC3,$FEFEB1FB
  Data.l $8FE1C3F0,$CED5F7D9,$A7BEC2FE,$FCE1F0A7,$C6D8FD94,$FCFEDDC2,$CDF0E9CA,$E0E3742B,$7D3F0000,$54414449,$9ADCDA78,$75D3546B
  Data.l $0637C718,$304EA202,$162683CC,$66969224,$56993D1D,$BFEDAA74,$E6C1D571,$363985D8,$76306C60,$A10B0603,$58C58C06,$CA6C5C80
  Data.l $29A5386D,$16C2941B,$5352D266,$1A501DAB,$9D696822,$1DA840F2,$D39D45ED,$5F741FF3,$F3E8B92F,$F6D87382,$CFBECF82,$BFBE7DF3
  Data.l $3CCC1FDF,$7077AC2F,$6E1FA058,$AA61E601,$BD9C9480,$DCDE6F97,$E1F7CABC,$CD2DC2E1,$DAED7ED9,$A50D63B6,$1FFCC33B,$2455AC16
  Data.l $D8D74DC5,$957C63BE,$E35A244A,$043CC58F,$705D4205,$77DEA99D,$A03781AC,$82F26512,$02B1061F,$85AEE262,$720B1F9F,$8C245143
  Data.l $3E0FE581,$E72C3615,$EF64E478,$03655058,$2448579F,$81859923,$BC07983E,$D7497B70,$36333B1F,$03674416,$41422C55,$7BCF0318
  Data.l $0AEC1E61,$411A4DA8,$26744CA1,$A9E3C78B,$68920444,$E61C79E0,$206C2E41,$1BB23B39,$54E9F2A0,$80606B26,$10252A27,$1F2BED32
  Data.l $285C2A68,$FBAA3C72,$8E12D8FC,$B364CA9D,$5142FC58,$32218326,$8B54183C,$ECBE3DFC,$78B43B57,$65401CE2,$2676A9D0,$2AAF81AB
  Data.l $11328914,$0786D35E,$437D03C0,$9605433C,$F78F2F6A,$2805EF9D,$4A099D3A,$112278F1,$83F06242,$BDF33002,$1EC12170,$5A5AF75F
  Data.l $50023A9B,$28C5ABE7,$0AA01B14,$240901A1,$2FBD7312,$82D77E66,$779EA5B0,$6D4C7F8F,$8BADE472,$4E8D1428,$F3E2A987,$A04CAA40
  Data.l $9D9E1912,$17EEC6E7,$1BF3C8BD,$D9B5C9CB,$397250D3,$06854A9D,$62875704,$47A0BC20,$C40C75E7,$82D429FE,$43F8FF05,$1252367D
  Data.l $50A1452E,$A3928026,$57C037FD,$66960341,$F56D0822,$ACBCCC32,$433F5305,$DB774D56,$D71B8DC6,$E5C5FF79,$2F92D48F,$78BADC4C
  Data.l $89C4A006,$553A1520,$99A55630,$A069120C,$203A7E60,$215B9176,$F75F3CAF,$49BB7E6F,$6F290264,$B78FEE39,$A4EA91D7,$A851B783
  Data.l $618E26FC,$5358AA6A,$A9460C50,$331BC221,$CFDBCB1F,$CA0D73FD,$20281DE6,$42224420,$18017D8A,$39A1B0DD,$A797D175,$50D384A0
  Data.l $0AB02A6E,$ACBC1648,$D8EB69F9,$5ECBF460,$820005B8,$2AAAAF5F,$129B19DA,$3F4520CD,$5F812537,$506FE92C,$42807289,$006B3037
  Data.l $10845D5C,$CECFF944,$E0C3FECB,$50DD60B6,$08A42FBE,$C8AECADE,$09567416,$373B3988,$97DDDCE3,$DD93A843,$70E2829C,$94FF1232
  Data.l $094AA00A,$F5730624,$4C3FECFC,$EE3022F0,$A9217ECD,$D9D9E9C9,$AC585FE9,$3115C5BA,$D05BD139,$11210BEE,$2823656A,$C5282F54
  Data.l $50D1A449,$10565828,$84114B6B,$CFCEE2A0,$C2E0C3FE,$74EB30BC,$87E9B5D9,$BA9D758B,$8B55AB62,$9325D4EF,$C041BD43,$70A3021C
  Data.l $3A8035E7,$36E5CBDD,$40895481,$2A969D45,$12249333,$FB3F3E3E,$8C1C130F,$3BCA4B0D,$0A746D6A,$E12777D2,$C6875275,$0D8A2BA9
  Data.l $4359F009,$D1852022,$B177D500,$0D0054D7,$03FC3628,$3F12218A,$CFFB4F31,$187FA96B,$713BAB45,$745C5AC2,$A7593E34,$82B42870
  Data.l $E2BC8A8A,$12045DB0,$43732185,$2806AF9D,$772C58B1,$01FF8153,$5D3AD815,$17FBB73D,$A17030BB,$93D60FB7,$F1212154,$E975585F
  Data.l $148F4787,$99DE93BF,$642850E7,$5DE2E2E6,$0C39A945,$BA850106,$7CFC3178,$04285701,$0057B728,$B5AC54D5,$CCC56C77,$9027F965
  Data.l $AE361272,$160FFDF3,$A76A81F8,$ED54A9D3,$26FC3D49,$204AAE31,$6614CBD5,$5F08BE33,$24C8CB14,$23C2A1B9,$26A850BB,$82869AA0
  Data.l $FB00CB58,$331178EB,$529DE587,$B7EDF7BB,$814928CA,$985AC5FF,$482D9710,$9C7C5E88,$B0484390,$BD0A25E0,$1B31A142,$10538A8B
  Data.l $FB75CA50,$5735C456,$29894949,$06E4A81F,$51DA2C38,$0815482A,$ED2E65B3,$EE58416F,$2E23EBA6,$37A6C8D7,$35FF03B3,$935B10DC
  Data.l $46C8E3D2,$8E22B5AB,$962A2A44,$6D5A14CA,$B46CD99E,$4809A3E0,$D76DC46C,$3A2791E2,$1C4CB2BA,$4065480E,$DDDB3037,$5B72147F
  Data.l $94CE5CCF,$734E26F7,$F86B7956,$11915163,$8E5ADF6B,$D74857FB,$9D68C514,$35AB78C3,$4ABB2739,$650A4C0B,$AC33469E,$40C082FB
  Data.l $EF8EB82E,$E670388D,$3EF37540,$0EE5480E,$2B58EE4B,$BBCA64A2,$B8A4F2E6,$CC4190E8,$6F28E82D,$1E3DD93D,$34297119,$43EFE7C0
  Data.l $C7C1AA15,$B3462D18,$7A48F466,$AD6EC55E,$29932656,$A58D1AF4,$98910922,$3C563A8F,$3569C8F5,$9F9F94D7,$055A84DF,$86CB9E8D
  Data.l $A872AC05,$4E69CCAE,$3CAD4ADA,$DFC8C9C6,$ED6F2EAF,$709F1EEB,$8BF7FDBD,$26BC5F7E,$B169C93D,$CB5A14D9,$2EF67C11,$52815699
  Data.l $5D1A3469,$964483B1,$F77572EE,$375476B5,$215CB973,$2A392AEC,$AF00DB55,$31D031D0,$38F523A7,$6713469B,$C2849864,$6F1703AC
  Data.l $151E3A7C,$E75FF6F1,$9B0255A6,$D4E2CF31,$A066F468,$32B4D9D2,$166054B7,$509E9D78,$B1E9731B,$AA677D1B,$DC0B9BAB,$341A6250
  Data.l $9B2E6E60,$E78912AF,$B5E1ECF4,$C8374D92,$BECE62E5,$F502C27D,$4E3773E9,$860E444D,$4CFAFA04,$2359948D,$B61D1E48,$54A17669
  Data.l $14522C27,$36CCA009,$6849C5B3,$EC7C1DA8,$D503BECB,$941282A6,$A1A2850A,$FB2A7550,$B17D1CAC,$9C7F383E,$82B780C7,$E5C9A54D
  Data.l $C9BE4E1C,$3ACE6A64,$AB7DD7D0,$79307A1F,$AF80604D,$56BC42EF,$1403C7A1,$0FD1A548,$80155A8D,$A5478CA4,$BB75E0D2,$D74EAA58
  Data.l $ACD6BEC9,$128012E6,$DB51414E,$3D0FD3C0,$812EE33B,$B85DF2F5,$F65AC76E,$504F1F0E,$BA54589B,$21919681,$37C3E614,$F8BEA2DE
  Data.l $89FEA9E9,$8843E3C8,$C690E14C,$8B0AA512,$5286D875,$2B36B5E9,$8F8AA41E,$D852C987,$9562966C,$AFABB0E8,$5D5D55AF,$ED366DC0
  Data.l $4D7AB343,$FA3FE40D,$7F33AD8A,$26CCFB49,$46D58F36,$F38B5DCD,$78DBE8E4,$4E9D2A6C,$F273144B,$25CD4DF3,$EED6EA59,$91FDB3FE
  Data.l $09218283,$12244A51,$C3AD4693,$A50A0D46,$34EBC21F,$32F114E0,$1F5B02A0,$5D24A54D,$5D3D6F0F,$650052DE,$86AFFD42,$5CACE769
  Data.l $D3392305,$C996BDE5,$ACADCB6C,$F2F7AFA4,$8DBAFF74,$1A2A02C7,$A6E3912D,$51D3D25A,$6CEA77DE,$5188F8FF,$441D488A,$14758C42
  Data.l $F42B3285,$62D9B37A,$90E54581,$B75B04ED,$529D46D9,$DF5725F2,$08741F7B,$0CF9A0A1,$0DF5EE06,$CEE366CB,$953CFB0F,$5953535A
  Data.l $E7E3D899,$15054D71,$A8B959F2,$508E1C56,$67553268,$3F9476F5,$ECF67FD2,$52DEC8F8,$1C962C87,$6CA00473,$69520540,$54A33A35
  Data.l $578F88EF,$907AB42A,$1F88464A,$7E9F8574,$A4A0B7A2,$95FAC964,$75BE3ECF,$7BD29E96,$F6A25505,$65EBA876,$2CB14D8F,$67C75788
  Data.l $0D52E6E6,$DF7C3172,$1D595905,$F7AEAEEA,$9189AB40,$40E1C414,$A32851A2,$10500CCD,$58169D66,$4A31D154,$1AB40299,$6262A815
  Data.l $B88F2F8A,$E45B2EB6,$F2F38DEB,$D9C1AB81,$746DAF29,$D4D698B9,$E1E79AFE,$B0ADB65D,$E766C790,$1874E932,$60B7212B,$DD5A967F
  Data.l $D4F27ED1,$D713B3D9,$25071215,$4014ADC9,$AB428601,$0AA408B1,$AC7C5245,$58D7ACC2,$E54A45B2,$9794E49E,$F83C3D66,$3989A4AC
  Data.l $FD272D89,$BBEDBF3C,$F1E2A79E,$2E664C59,$81989695,$E5548152,$687DE55D,$10925E07,$5330D129,$3366E9E0,$5294FB1A,$A00213A7
  Data.l $ED4A0A4C,$7F11A881,$6D597770,$3CA7ACE8,$B9340C88,$E57EA390,$DC4DBE7F,$3C7503D3,$99B162A0,$E7C8B76E,$AB516FEE,$9C0FCABB
  Data.l $441C0F03,$3752194A,$07A34D94,$21FA1481,$16A01823,$3DDAB490,$368B618A,$6C966F56,$196BF9F6,$F2B370E2,$C1BB006C,$0B88E620
  Data.l $87FE035A,$A7818379,$F00DD552,$98981EDD,$B416E1C8,$7BCBDBA8,$F8FFDFCB,$084DF193,$01465082,$0E9608CA,$2B183254,$75087E0B
  Data.l $AF4CA940,$1C9339B7,$F15A5E6F,$CCD2FB9C,$D84B603B,$8AAAD0D2,$38C02D90,$194A05C3,$CB8070C4,$7FE8B15F,$5F89AD02,$140152A8
  Data.l $2BAE898B,$94F60377,$9EBA3BAB,$2A388F1A,$96899091,$9BD3F729,$00C022C1,$D43416F1,$F515A14A,$93EDE1B6,$7EEE77E3,$D62F86F3
  Data.l $6A484B7B,$C6E2C57A,$42128B0F,$EF2B4167,$F4D806D5,$41F6B96D,$B7EFADCF,$50A3CEC4,$6C82D078,$540A9526,$B750B068,$B972313F
  Data.l $A1191778,$9FE31110,$491107ED,$E715B5AB,$B5639345,$C862A952,$BEA77116,$BEAD2D3E,$A10D9BFE,$5787C132,$4CE89EAF,$10B83B8F
  Data.l $7D85E333,$DD8600D4,$64C0D6D6,$1C7B7886,$BF0308AA,$6D3794B4,$B89A5417,$692DCB89,$D45CEF7F,$1C50F648,$E6E29E05,$9B67EDA1
  Data.l $8B003F6A,$B1B57C59,$95A8962A,$77BF6D0C,$93AFCEF7,$DBAC50F7,$5F139665,$1C3E2E37,$CD707093,$241F77CC,$B6C1FE06,$86BD3A5C
  Data.l $F52DE7C9,$B5CD48F2,$5E2A88AB,$14B20F21,$03954D9B,$EB757ED5,$2357FEB9,$75C98CAB,$E2CCA914,$840A929C,$E3423202,$5FABC6FD
  Data.l $EB31C92B,$1BDDA4EF,$038513AB,$15DDDA54,$185C4E47,$595BBE3C,$998FE656,$7CF05AF1,$20D31D6E,$D03F69EC,$F1AB6F62,$119FD8F3
  Data.l $A8A93AF6,$CC15D610,$CD254355,$B2BC24D0,$93FDE5BF,$A51ABE9F,$112BA5B3,$280169C4,$F45A1488,$56232BD0,$2FF3F77D,$74A87EDF
  Data.l $D933BDDD,$DC349126,$773EA143,$BE5C8F19,$9ECC4EF0,$B0B375B2,$6DE8FCB3,$70ED2BD4,$D73EEDA6,$7A0766C5,$8CB707FE,$013C0736
  Data.l $D1B15374,$CF94D575,$6F69692D,$8FC9F1BD,$F1298DC7,$74E8DB24,$803981FB,$FFEED845,$BFB7D1F0,$19DFD644,$2592958B,$834ABFDB
  Data.l $ACA9FFAA,$213931AA,$59EDF529,$76E21B38,$3E57ECF0,$D33BEBE8,$FA7E1BDB,$2F0EC0D0,$6F5A1F8F,$200B83AF,$54A3E2A0,$84878160
  Data.l $969E92DC,$357E3E0F,$32726F6A,$34E9C861,$529FD3BA,$6084AB16,$D9FFBBA1,$7FD5BFB7,$1241263F,$7449C424,$46AA00A4,$A424D560
  Data.l $66630726,$D9CBB0BC,$F48FFDCC,$39D796AD,$EDA0D454,$67BFB976,$154CC4A9,$A1BA9540,$9A4AD498,$D05F939C,$DEF2D3D3,$044757A9
  Data.l $A312D1E9,$D1D3CA65,$161E94A3,$BFCFF0F0,$4FBF7DA5,$24515122,$869FBEC7,$3AB52B5A,$530BBE77,$97E5E33B,$7D39EECB,$52A79126
  Data.l $E36B6C1E,$E5B4E9B3,$1952CF18,$5E0170F8,$080AF6EA,$A2C1D34C,$FECBFDA5,$80A34E89,$140270AC,$4A129F58,$B51F8431,$4E81A544
  Data.l $4C912912,$EB434C9C,$DE9FFAAB,$8F3B3895,$3B059DEE,$10315DF7,$55097AB4,$C5C164A5,$A67A1B55,$8C79E1DA,$D7B66C9F,$04489401
  Data.l $25E68EBE,$DB6482A0,$780D03D3,$18E48BED,$63677A62,$2974E2E3,$5A64A91C,$1273A8E7,$84120898,$DD8D212C,$2A8A8699,$148F1893
  Data.l $3B719E6D,$81962607,$ED86C893,$A9DBB743,$F2414854,$A59EFEB5,$A989BC7A,$AD84CD2A,$F9F3E3C4,$F824F84C,$F68B043A,$6C4ECF2F
  Data.l $E2934732,$DDD09EAE,$F909DFBF,$69D16CC8,$6AFABEC6,$22212552,$B031C952,$EFD4373E,$507F9CD4,$C71C759A,$3A0A87E5,$D9572B12
  Data.l $D96DA49A,$594961FA,$D1FD63F6,$0F3C610F,$E2871EBF,$35188E93,$A0A45B62,$D040A512,$4CC19536,$566CE29B,$434A4EBA,$DC72E42B
  Data.l $C54979D5,$E6B76388,$1BB66BB8,$76773B24,$4B974DB3,$5B05F5B7,$56D9EDB5,$47C1DC5D,$F3C0FF3D,$F3FBC5EE,$CF9FBFBC,$E2FDFBE7
  Data.l $24D38BBE,$5FA3DAB3,$B9B92ED9,$B70C04BC,$5F93C16B,$661B5256,$FDE9AD02,$54A61C64,$D796749F,$6F1661AD,$01501D7E,$80C0CAA9
  Data.l $EBB54C33,$0F0F9F8B,$58F5A40C,$9382E6E7,$09A29B21,$A7F5BEB4,$9F6A16DB,$7D300E7B,$22C37A70,$E1D4EF93,$7F623E3E,$14EDEA38
  Data.l $8075E6E9,$AC8C1CA5,$5A5BABAA,$B552805A,$BC7C41DB,$92452B14,$59D75D96,$AE6E60A1,$8BFAFCDB,$012A5EA0,$F5A6D5BD,$7C761F1D
  Data.l $0E5DC77E,$03038FEB,$5F998E03,$C990C143,$CD68703B,$35BE3034,$8E26C055,$5215069C,$04EA045B,$71B76FA5,$2DC7D475,$940F47A4
  Data.l $A1028397,$EBBC04A5,$77D7A1C0,$B75DEE75,$76B6A5AE,$99808D2B,$6F6EB7AB,$71459B0F,$548AB1F8,$3A3A9B4B,$37B31D1E,$58600B0E
  Data.l $12C143B9,$16E3EC68,$F2DBE7B0,$EB42D4CB,$B7D6AAA1,$2DB64FA7,$9D8EF942,$686A6E3C,$299D45A7,$DD03FEF9,$B525E52D,$EB9DE5B5
  Data.l $7D93DBDF,$D37C910B,$EC3FD9BD,$5BB2B95D,$EA3EC028,$4AFA5F86,$36E796F7,$002A0316,$F5D9D655,$1375D77C,$4545C383,$C1802760
  Data.l $CAAC7986,$03D3584A,$86D4E1BC,$EFD72385,$F2F4585B,$4EC74E88,$8928D6FC,$4B847D7A,$83EEBFBE,$656EC1E7,$C759777B,$896EBB47
  Data.l $8912ACCC,$12BCDDF7,$0449446C,$0A560648,$744FC8E2,$0CD96DD7,$0F17F62A,$769494B4,$413E3D75,$646E61A9,$237C4316,$38CA346A
  Data.l $50AC1E2C,$4816D580,$1537CC73,$9420BA21,$768C635F,$E9B841C7,$464FD2FA,$2EEF2ADE,$CF7EBEDF,$B5FCB767,$4AA44697,$A17E86F4
  Data.l $C04E9B98,$6764AB16,$2FCDC6DD,$A8A8A81C,$1EACED2D,$3236841B,$52F53515,$6DA0C68D,$951887AE,$D6AAE28C,$7F3C8885,$80984500
  Data.l $7D6D1650,$225D746E,$D96D81F9,$5CBC8C77,$E9BDDED6,$B96ECFC3,$B9F0EEC8,$911AB55B,$970B8210,$CE4C2A60,$B103A8AB,$7D301DBB
  Data.l $AA60696F,$BDE56AB7,$AF7972BD,$51B26CCE,$11516828,$40BA9A80,$4C227E05,$CD29C7C7,$7759D1CD,$1AF0E071,$DB74CC2E,$FD7DDF77
  Data.l $BAC56746,$0F6D8EEA,$B12E9290,$BF510CB9,$28A80A46,$2298702B,$5D76B83F,$D7597B7B,$9D1C6F0F,$D220D790,$DBD7AD5E,$FDCFA168
  Data.l $83050A1A,$D64AC6A1,$BFEE9DE8,$277CF943,$D9B8D301,$4D8A8D4B,$E7BB1EE0,$5A6FDB9E,$F7729A96,$7497CFBB,$6F76E4EF,$092F73DA
  Data.l $6721D9E3,$7E9AB58A,$9C3CD608,$486FF988,$FCFBEC0F,$8FCB6DF3,$441A984E,$6BD78D1A,$CE43D073,$3DF049C9,$B262A339,$B84E790E
  Data.l $6245E241,$A7583C0A,$D3A71CCE,$74593A2D,$B5BC4A84,$605EC0F3,$EA29A0E2,$DE5159DE,$9BC6E7B5,$1C4FD8F0,$F4352F8D,$D5D2780B
  Data.l $1127AFD8,$15D4A449,$C9A44ECF,$C6D9DA41,$D07EE3E9,$AE5CB86B,$9AE350C9,$C6AE51D1,$5502E67F,$2016605B,$35B0BF81,$6E34A28B
  Data.l $E75F7879,$F0F68ADE,$7AA5BCD0,$9EBB7BD3,$7F115E24,$91A45F29,$FE4E6072,$159F9A55,$BCAF7966,$58B0EED7,$80732CC7,$9C9AE9C9
  Data.l $C2E16F63,$713AC6B0,$606CCCFC,$B9DCF676,$7D38D130,$4A314E86,$A1D1AD07,$DDF43C22,$795E9B9B,$EF02D409,$E9ECF9ED,$A075ABD4
  Data.l $41A89929,$8504F08E,$52D62E57,$5FB1C27B,$B2669C3A,$4E9D38CC,$1667E540,$D19E21B3,$A7E1363C,$E86667D3,$301FBF74,$32CC27D1
  Data.l $E12DCFB0,$BA95A745,$DFA7D561,$9DFF7AEE,$FD76CFEC,$1E35D0F4,$A655225B,$D0784831,$A4AE4B33,$53596AE6,$F60B2878,$E8867A6C
  Data.l $150049AE,$A8D555B4,$DFBF10B9,$40B0063C,$16FC9184,$6FD82A33,$D0B1941D,$2BBCF4E8,$64747FAE,$7D5FA7D5,$C953CDF9,$F0335CD7
  Data.l $635C88B9,$A9431584,$0BD7EC38,$09481C8D,$48550FB6,$107F41DA,$1A193548,$AA10EEE2,$50A14254,$EDD9B3A4,$14631016,$95924C9D
  Data.l $9FBF905F,$415289C5,$ABACC841,$91E37968,$0F3C3127,$22960EC3,$60AA1D1A,$E76197C9,$2A2F7A69,$2E6D01A8,$75ED03B2,$39779FCC
  Data.l $56948327,$D5122A11,$5245EB37,$326CC6B9,$61F2759B,$4212C65A,$29BB3822,$DAD688CA,$EBB77E4B,$B808FBD6,$0ACC7A7F,$9850EA95
  Data.l $609B6285,$14A350CA,$A42A5441,$38EE41A1,$72EB3EE7,$C376673A,$F070DEA8,$14D990E0,$68491221,$CA0BA4E4,$94886F46,$2C2FFC9C
  Data.l $94CA4708,$5618506A,$EF3013E5,$72CCD8DC,$5F5F4F69,$32D7B0C3,$779F76EF,$6C66BA4E,$D1AE6292,$EBD7ACD8,$D45451FB,$E78B1298
  Data.l $7AA99314,$86CF8883,$B258890B,$8D3D9967,$8686B4E6,$3E7DA961,$3A0816D0,$39CE0641,$AF5EBA6C,$C0C0FF77,$65D6838F,$C4193109
  Data.l $4095A042,$61254A39,$6CCEA43A,$7D2488B5,$80F9C1A2,$6C367DDB,$17E26016,$E73AFD0A,$83AC58B0,$7A3D18D6,$17C84099,$520811C9
  Data.l $20996264,$A36BD691,$220DBDDB,$480A185B,$81730AE5,$3C1D8E08,$C6A7ED28,$7C152DEC,$428E54BA,$2CBA057C,$D7B90B09,$41EBAE32
  Data.l $2A0073CD,$2E6115E2,$8507D857,$31592DFC,$13A6050B,$55CA2D5A,$13D20956,$F7F39031,$5472AC3B,$03681337,$460D9D52,$8597C0A8
  Data.l $A92AB305,$15FD7C31,$D6D06A97,$5E0A95F3,$484B1E0E,$4F2CC3AB,$00A7BBA3,$78003B95,$7E9D3840,$A2CB9F36,$981430C5,$46A468D1
  Data.l $A26BCC01,$A5CAB111,$4BC19B71,$3E9D4C0F,$2FCEA809,$99FC8542,$415A5459,$4A91DF4C,$01CB9148,$24CAC415,$0B772EE1,$EBC87DBF
  Data.l $4DF6F80F,$4A2C0A9F,$42E15605,$31313E22,$701299B6,$C23D5205,$EC866181,$EE0C89F2,$EF47BB61,$F2386C08,$9CA905F1,$42414A21
  Data.l $BA52441C,$20842F48,$439142B6,$76856CB8,$C0D60C78,$D39C7D86,$ACDF3E6D,$F972E82B,$48BF58D1,$9A7818B9,$2A146F48,$16466C95
  Data.l $54A97719,$CF1FA194,$59AE986C,$80963300,$979CE82B,$3CB162D2,$9E4208C2,$46A88456,$F19E4A95,$58954FD2,$9C0CF762,$4E505B68
  Data.l $02FA4EFB,$31D0572E,$2710919A,$A394CC41,$8D55A06A,$E12E50E2,$A3CAC592,$ADF6EE3B,$E903E23C,$CBCD7417,$1EE2E332,$A8C82479
  Data.l $0C5EBEA1,$3157D34E,$7C3717A9,$FEF7DF05,$5E9B6EE6,$C36A7A79,$52D060D9,$81423719,$6ED46A58,$8268EE15,$34A60A04,$FCA2E925
  Data.l $B8089DEB,$4C77D37D,$CD779DB5,$7970C4D4,$79166184,$1110BD7A,$60AC30C0,$7FF1D2A9,$9475ED6F,$DF36EE73,$7040A9B1,$9299887E
  Data.l $46414F10,$E12B3340,$8F1E6128,$FF11A3C5,$350D8CB6,$C1BB719E,$90F9CDC6,$ABB632BD,$14048C23,$A223501B,$18A98412,$7A7F2999
  Data.l $F523C93B,$E60982CF,$53C2C86C,$2BE21292,$C6A879F0,$04489128,$AC66CC10,$73DCFE41,$690C7A24,$676767C7,$AA8AADE7,$A35938DC
  Data.l $47320AFE,$882235AB,$72E7CB9A,$CE654CD9,$6A98291F,$1CD248F6,$7C390EE3,$DB562D28,$261DABDD,$2CC00C81,$1B3E6A84,$4358B150
  Data.l $B83A2B91,$568F66D5,$E0F2B502,$72F8BE9A,$2B570B89,$28541A39,$30B9AA11,$1560CD9B,$86241FA9,$1E6CCFDD,$DFAFAFEA,$71E9230D
  Data.l $20E17C97,$B85CA843,$43E7CC55,$5AC0063C,$92999453,$75D8A644,$10BF5D26,$BF8EAF92,$404C5BE4,$55BF549E,$61F3E6AC,$60C45D98
  Data.l $F27B2A30,$3B763C73,$39336285,$B2D3C456,$0A02717B,$E611600C,$5819C270,$0684CC5C,$219EF47A,$18E1C5BB,$03868F8F,$7A82C833
  Data.l $48151983,$FB508BC4,$21FEE24D,$42C69E10,$93E62802,$F0DE3109,$8B01295E,$873326F4,$D4008623,$6D298116,$A61F5AA7,$89885832
  Data.l $3DD19E2B,$FD17A313,$798911AF,$9131BAAD,$B887C380,$4066866C,$F9B361C2,$217EFEC6,$41B57525,$E35092A5,$D8B8F1A7,$33166501
  Data.l $40E1CF97,$0A498845,$088E268A,$A1646C61,$A55B1E72,$D3E2A992,$594B71D6,$5F0E31B6,$069B87CC,$41BB084C,$44E93267,$88AB1602
  Data.l $885447C1,$2124B34C,$279F031E,$1C394877,$506D2B01,$9A0DD62A,$1F6BC850,$F0616ED3,$204A9560,$53E7C693,$87109A05,$A1E62F99
  Data.l $C9A88D83,$BFE9069E,$EEF47A3F,$14EB77EC,$4731624D,$28538B26,$CEDDAE5C,$14ECAB17,$12A6D58D,$F6677F7F,$BED76B75,$4EBCB235
  Data.l $55AB56A1,$4BEE8C68,$6901DB5D,$B26D8416,$3CCD5A0C,$B73BD1FD,$6F6E9475,$C6E37969,$FA9BBBE5,$63EBEA6A,$525C294A,$C04F1E22
  Data.l $0251FEE3,$3B93233E,$A61ED61C,$B6C8F0E1,$3FDBB58E,$7DA96B2E,$6E72D579,$8C162A18,$244F0922,$A46464A7,$A8D0E4E7,$D4595959
  Data.l $31120C9C,$074D7711,$4DC63AF4,$C3C1D632,$2D5E7B23,$F6ED657D,$F6DA92D2,$6F2D56B7,$273713ED,$F2EF9FFF,$F050A97F,$6A7C82A4
  Data.l $5C0FACA6,$1ECF0E37,$88060AD8,$4E5E5951,$1FEAF906,$5AB44D33,$00E78C74,$5FEB3BD3,$4AC55702,$6ACBAB4B,$EAB27EF7,$343B43FA
  Data.l $63C9FFC4,$BDB9EF53,$93959290,$EF77FF8A,$4D196104,$85AB07D4,$A850A162,$6AC58B56,$4EE77735,$940EB72E,$F8A64C0A,$0589646A
  Data.l $5568CE26,$7B5EF738,$97A5EBBE,$D7AB4BAA,$D8300F82,$4F48CEFB,$2DB3FFCD,$C4FA949A,$C93FEBAB,$30D9BECE,$8C90559C,$C948C7FB
  Data.l $A51259E9,$88208240,$2D062850,$207BA812,$ECD8386E,$064C5FC5,$4DCD4443,$460E5E21,$F3B79DFC,$0CB36A00,$67B9F8E3,$153DA89D
  Data.l $7B81D5D7,$F9DCFB9F,$4BEF9246,$23F691F2,$57C90DB1,$2484190C,$090A4345,$04430561,$B2C80A99,$AB410C88,$B509D705,$515682A2
  Data.l $7AAE54A4,$9E7AAF52,$EE3DCEF3,$FBEFFF3C,$91DD7B81,$928131F3,$78FCB8F3,$CF3CFBC6,$2E4FBEFB,$17E18A8E,$6D57BB6C,$4BEDC529
  Data.l $0D732AA8,$359CBFB1,$5F8CAD27,$2C2A5FB9,$B59CC4EF,$5617F759,$355B196C,$07A1BE5B,$DBFE5893,$2CB3F324,$3112B366,$0BB73AA1
  Data.l $A2B48802,$DEACE50E,$06303060,$E087A4BD,$71C0304B,$018E53A1,$584EEFD7,$A2CD511C,$F21DC7A6,$0826A107,$FBBEEEA0,$75F775CE
  Data.l $D27ABC14,$D3C8A991,$BF582E8F,$D9FFDC89,$ECF63ED8,$783959AA,$C3FEB038,$635F3120,$8172623C,$23220EC8,$18314314,$31233C22
  Data.l $60B0A078,$656B0819,$F7B5C77F,$924E3689,$9F6E09EF,$E0741B6F,$CA6129E6,$DBF691C4,$DB5BAED6,$8296915C,$4BB70A65,$759B5CDE
  Data.l $F0F0C35B,$B1C19E19,$2CCFB3E9,$F7DC3C09,$1DFB586F,$6875727C,$0B222868,$9B32128A,$00D15AC3,$24000A26,$12206796,$954B152B
  Data.l $3D300312,$0FDA6383,$6A2F6B83,$AD19D77A,$ED89B2C5,$ADAD3B7B,$A0501B22,$2647E622,$D695AE98,$1E62A7B5,$62F989D2,$5075EAC7
  Data.l $AEC14155,$C7E9A9F6,$F27747E7,$0F23B11D,$869FFBD8,$78051988,$D5888012,$320074E9,$30878900,$B982068C,$0B376E82,$1A355955
  Data.l $0DD60F1E,$C77469AD,$A1C8791F,$84721E87,$68D95AC1,$3EDFDA0A,$91CAADBB,$C172994B,$F5993774,$B7A35F79,$53FDB2F3,$36F48A70
  Data.l $A9BD077D,$FD3389D5,$1E7B5383,$A8DEDF4F,$17A36A0F,$BF37FA1F,$AA70071C,$3D30114D,$8A2930FC,$4481C810,$5113C4F5,$B7563499
  Data.l $DE644F06,$48D7E73C,$B12DDB92,$1250171C,$F39FAD09,$704A1D4A,$ADBA7E76,$D3BB29B4,$4C0FAD43,$F584EFAB,$09CE5289,$FB7E8FCB
  Data.l $B6748976,$66415642,$B5A7B667,$54067A7D,$EF5161D5,$6F75FD8A,$EE63BF67,$B2232732,$CD982429,$410FBAB8,$78249068,$42A48A91
  Data.l $CACE3841,$34692D11,$C5095F2C,$2F1CDC41,$6A46AC88,$164A1B8E,$E07E9ECE,$D542ECA1,$B853E0A5,$E8064A82,$E582A57A,$660753AF
  Data.l $0BE5E9EA,$60F0BEDC,$96F742B6,$8C899999,$B61EDE84,$D05BAE32,$29F3FC6B,$13058795,$6C13AD04,$2A7A8AE2,$CD5897C4,$40281412
  Data.l $A57C1803,$054599DF,$C35E5672,$ED924D81,$D4C65CCC,$40878558,$4D536765,$8C66A851,$F9737AE4,$9EE3CD0D,$97A62CA9,$A50F70EA
  Data.l $D1DB37B7,$E6A800FA,$1B4C1877,$EBA09AFC,$8C463FE2,$3DD08F43,$388E4A8C,$710D1993,$896110F0,$7142BF30,$71C34E7E,$A04F142A
  Data.l $5E7E12F0,$CA746624,$5450750B,$A7B6775B,$0459CC90,$075A8113,$C922A2A8,$CB5EE97B,$839E24BE,$0A94C58B,$D3D7A2A1,$DB775475
  Data.l $C644F8F8,$16973A35,$E8F95F13,$8EFCFBE5,$6CDAA6A9,$3CB00932,$68899C33,$0EFD1288,$7EF77D4A,$5782A970,$E0278781,$28734C54
  Data.l $3D319B38,$BB2380FD,$18B851C9,$335429D1,$EC32CD06,$BFB5CB19,$AE2A2EFD,$28045F5C,$282B575C,$477015C0,$F8D8FD57,$43F3F3F8
  Data.l $8946953B,$23BA700D,$EA024BD4,$04379C89,$808A4424,$02601E93,$F504BB14,$2C83F37B,$C7C6A921,$8144FC41,$48C5903C,$FA7EF758
  Data.l $4F2AA99E,$20E1C793,$53F4428A,$45F5A4A1,$FCE8AE1A,$177D66E5,$04454915,$1AD5570A,$7701700A,$63D77D63,$80B8E353,$A9398F76
  Data.l $2C8478E7,$44DD9D23,$E8F54ECF,$4088F122,$142A7498,$36516084,$24F1CF12,$723F03CE,$EB0D6E4B,$96450E26,$45E38E2D,$22DA16BB
  Data.l $F348FAB0,$EF670B6B,$4C23CB49,$CAA0BD85,$449BB82D,$8BB8B5F4,$B80D9EBE,$D97FD84F,$5417AC50,$1BBAA039,$C0E1C2B1,$99C19BE0
  Data.l $9D3F5BAD,$3C0829DD,$65806ACB,$13148B39,$13D89F7B,$BB61ED94,$8D41BCD1,$8820C179,$69E125D8,$6E50A038,$C49BA298,$1044C43B
  Data.l $B5E86C21,$E44FA8AE,$2AD59408,$F3637B36,$3C0F5353,$5C718B94,$A280C34D,$54293E63,$B9659791,$999603AC,$DC8A004F,$898B5E95
  Data.l $83AB7725,$5ABB4A15,$9D6F8CB7,$0A0D1F48,$9D538676,$29F870C5,$B8775DD7,$4E48114E,$89813504,$6FEC4F2C,$850A18A8,$48858407
  Data.l $3D03432C,$64D94528,$70F499B1,$B4301A2A,$6211E062,$A6C28E7D,$6E534742,$38B50AAE,$E95BD811,$B81FD6E5,$E30D286C,$2ABD1405
  Data.l $A51CA14D,$8EAF03AD,$EF9D6F8F,$E48B29D9,$1720934D,$4F737C38,$92D04875,$0A7F0118,$8D450106,$7D15154F,$20C85749,$904C8440
  Data.l $6D959588,$A4C5A32E,$84911121,$3E28AB0F,$67B1373C,$73B3AF2A,$1B49E578,$DB36690B,$2845A600,$365D2E8C,$9C2B7AD4,$2CAAF54A
  Data.l $11699140,$4D4FF5A5,$AAE700C1,$780DE59B,$945C06E3,$0DFFBC3E,$010ABFD2,$47C08209,$29A41554,$E3C02A9E,$2464A4F1,$889303EF
  Data.l $34AB18FF,$263234E4,$401FC119,$AB0AC47E,$4C2CF6C8,$F6EB49EC,$417BB51C,$A1DD4285,$87861F9A,$07CDE193,$9DFA332F,$C3739EBA
  Data.l $8C08E8A9,$D9B935AC,$AD2AEA80,$7C7F6BCF,$2C7A6B72,$BC310F68,$5B591241,$D8A82C4B,$53326043,$50A8827F,$DF9E04AC,$0E109142
  Data.l $A8AA5BBB,$086DA2AC,$569484BE,$39FBD46B,$D5BD2AAA,$8FF3C3F9,$76673AAF,$AAAAC2F7,$ECC67552,$746277DD,$7F9412EE,$375650F9
  Data.l $2EAED6BD,$0F18B955,$F20F31B8,$D6E4C4C0,$4544BBB9,$A32233CB,$80DDAE6C,$3D849042,$A5C8B48A,$F201BDFF,$30C50AAC,$9422D2D0
  Data.l $396117DD,$2CF070B0,$0AA89EBB,$BCF5C59E,$ECE67195,$F9B9F2F6,$3287AAF6,$30298B17,$ADEBCA01,$79975AB4,$657305E6,$5A6373EE
  Data.l $0ABD44B2,$E500DDE3,$54052D28,$5550B3C5,$B9B34EED,$AEAC10D1,$8E1CC479,$E4A476C8,$53516A14,$7E1A0034,$285427C9,$B4980886
  Data.l $72B1405A,$015AC2D4,$130806A5,$86649743,$E2D8F60F,$F3EDEAE1,$C2803ECF,$26AD4097,$1FA91D11,$EB280514,$669DCB31,$AF05EEB2
  Data.l $50262A46,$4E0A01B7,$A948D8E5,$9F27C706,$2D54DB7F,$8FD58877,$8AA2E23E,$4B4F7122,$FE1728A1,$B3062345,$040A4124,$E88D6935
  Data.l $14C98394,$C3AE2D75,$4E33F2E0,$A1628A19,$1010294A,$CE17479B,$E828AB6E,$7E085025,$80CD5354,$414FB65A,$82FD5EAE,$D145035B
  Data.l $153A96AC,$AAAA2A56,$A127E7B1,$FCC27BAA,$3A3DFD1B,$4C4B46A4,$3451EDAA,$629A8B2A,$1033BC48,$1D9303C3,$4DE45271,$20700B31
  Data.l $0593B98B,$2C4A1C88,$B346BFFC,$67F4EDF3,$49330BDB,$4B5005DB,$BCE90FC1,$EE5D6FDB,$F2439C0D,$5F584AD9,$01F8D2D1,$540DDA32
  Data.l $557979DD,$F6671588,$32C3B86C,$4CD07872,$8174CC98,$12BF5822,$3D27AAFD,$B4928444,$11A86C46,$09EC6553,$8126AF27,$F186887E
  Data.l $813505EB,$B8BAB372,$E7BE9732,$DCE1AE81,$67A39242,$459CA851,$DCBBCE28,$0768EFE4,$50492AA0,$0AAA8FBF,$0E43DB55,$B1006AA8
  Data.l $FA64EB62,$9B5DFD76,$90F6B56B,$A96AC39A,$051B28AE,$F29D71A2,$2245A450,$39154C3B,$90260C91,$8580AA70,$E134EC63,$59252BE5
  Data.l $F8F19ED8,$BDF953F4,$AA059DB9,$05FBADF5,$5A6DCACA,$A1DBBEEE,$95B02F79,$6DFF9A5E,$D747FE42,$393D405F,$D8FF5030,$9FCF93B3
  Data.l $DFB47A19,$04FD4765,$708AA828,$602A3451,$1A089F03,$7DDD24FA,$B9310CBB,$AA632D04,$3530328D,$FD1F822B,$BD7E72C6,$62FFA189
  Data.l $7C604537,$F5352F53,$8BA36536,$D586A800,$E88D4A04,$E5F8EE5E,$380EC936,$DB80CDED,$7525334B,$A0264CAA,$7F60BABA,$135579F5
  Data.l $48FD9DCF,$9B2CCFBF,$13305914,$28C953FB,$791A551A,$3712D06E,$B005870A,$851911CB,$72C045BE,$8E45135B,$B28E1085,$798D231E
  Data.l $32316452,$063515AD,$B1923C39,$B73EADA7,$B730BB37,$2CCE80B7,$A283EC45,$49FB908A,$58EA8C6E,$FE914A66,$280ADB8C,$C1400A44
  Data.l $3BB37AFE,$AD8DA9A1,$4DA45824,$A3D6FA7E,$84B1E922,$57E90804,$5415F11A,$C81F824B,$9210822B,$2B97264D,$0208A802,$4C21631F
  Data.l $D8171A1A,$C6F42040,$2CF0C5E1,$2A0B4C83,$1745D05E,$02AE9F1E,$DEC42A12,$A60138C5,$F7AD5C62,$C7450206,$7B3DBB2E,$B9CBC793
  Data.l $FE518B2B,$8A9247DE,$8EABDEAC,$641600C2,$88DD7980,$DCB59F15,$03417765,$502EC521,$8015412E,$84788D99,$04284242,$059103A3
  Data.l $16592802,$A9F2608C,$4CE2257D,$AEED5745,$AFD8BA79,$1E65EBF1,$8D158301,$4E9FBF0F,$4885141B,$E92CD567,$472A2836,$1F56E285
  Data.l $93EBFCB4,$C944924F,$A3939C5B,$CECD6542,$5754785D,$C87AC6E9,$A216DB53,$963A0B66,$32142A14,$A42829E2,$8AF0544E,$8134B302
  Data.l $900164D8,$22A0088D,$6C645161,$4CE43E35,$D609F0C8,$967F6F6B,$5F8010DE,$EB3B45F9,$F0628BC7,$633D85D1,$1E859979,$ACBB6D0F
  Data.l $C5E88A59,$65EC6F18,$BA9298BD,$B4F4395C,$44B73937,$FE90CA47,$CFBBEACB,$71DB9D98,$39C84AE1,$BDBE572B,$2C566E3B,$0F03A826
  Data.l $2E3B4439,$C3C8BA78,$362A1405,$9240432A,$F5856F51,$49C6B3BC,$222B0BF2,$F15A5F99,$CE378FED,$4AE00414,$E3985D7E,$36E87690
  Data.l $49EFA4B4,$AA25CA6B,$12C15402,$9FD87AD4,$9CE6CBD7,$8F1D829F,$83219EF3,$D3D35072,$DB2B2A95,$76CE75D1,$6B9AFC57,$AEA338CE
  Data.l $8C6625A4,$E0284DC7,$707E888D,$1110851D,$8E22D71A,$893D5713,$E02286D8,$19E9CF85,$85D6B45D,$479F91A6,$BD7013BE,$1FB7C1F5
  Data.l $0A3F1D6D,$46FDFB3F,$A218C50A,$5E7B530B,$A87A6E19,$A689B0A9,$E35280B3,$6584B144,$527DDAEA,$59703FB0,$348C97BE,$50A3F842
  Data.l $ED83159D,$D0BACE67,$89F3315F,$F10B4FCD,$986E82A4,$2E28AB41,$0442A218,$58083654,$98840F28,$1CA48868,$5B54C6BC,$CEA6466B
  Data.l $E3B9D911,$B82ECC2B,$57F9E661,$147E2F24,$75E1A500,$7B1915C1,$1F869AC6,$89A9A87A,$0A052D42,$8C0999F2,$301482F5,$78ADF961
  Data.l $E6BF4693,$54E0EBB5,$B6BB990D,$8EFA9690,$8DB2E2A4,$84649424,$09A25880,$89B5B522,$B369D458,$90CB2628,$35A0496D,$2303E375
  Data.l $2F82344D,$12AD1511,$02CCC3CF,$E1BEED77,$C92E8FB3,$EE7F1E98,$198900B0,$60564882,$C21CF543,$43EE6F44,$845A6085,$5B28C2CA
  Data.l $14AF0A04,$642A5304,$2467B4DF,$8049A49E,$A1AB267A,$0DBBA0A1,$D9F4BFAD,$48D894D7,$60744299,$C16AC574,$705973E3,$6B8138AB
  Data.l $C5A731C5,$188C80A2,$C38109A2,$2D07A618,$092021F5,$441B3F1A,$8733CF35,$C4D9FFBF,$2D81AEC0,$5DCF9333,$4D4D2015,$91639EA3
  Data.l $5766EBA3,$F665558D,$B51E4F42,$0A6AA7E9,$5C59C49F,$D826229C,$AA5446DF,$A68912A8,$294F419E,$52685413,$791EEFCC,$2E210924
  Data.l $12A0B825,$B0166CC5,$D16C9B06,$F32A0258,$3AC59459,$1B486458,$258CE8C3,$FB4F029C,$7667287D,$8DC3FA3E,$306BADD3,$F27C6EF3
  Data.l $6F00E1E3,$2C99CB45,$2F81BC5D,$7EAD333B,$79500CF8,$9FA94554,$D9B6B16D,$13154DEB,$CDFDAFEC,$C4F5A417,$789D48A5,$E770E67F
  Data.l $B7C6A800,$1BF6FF3E,$2C497525,$F9F468A6,$109D666C,$D0450452,$BE2C1112,$8B453504,$5A804E02,$D458D19C,$2B3965A6,$7A609B5D
  Data.l $373C37FD,$73DAB9D6,$73D57E18,$29A11AAB,$C5019186,$B6A948F3,$4350F99F,$06A53401,$E52835F4,$3735F891,$49098EA7,$8ABBF5C5
  Data.l $D74BF18B,$4CCCA851,$B637B774,$4E4F8CCF,$CA4A536E,$86D822EB,$14F8A782,$0661C5B2,$B3A49993,$50B562C8,$AC5F1519,$BA751136
  Data.l $B01F48B4,$C067610A,$E984EECD,$D365B73D,$3B5E476A,$61DCF514,$8620269C,$BC72F6B1,$210A20C1,$AF2B55FB,$D2661472,$EAE31102
  Data.l $71515429,$8370992A,$2C19F069,$0B2A1453,$FCFCB27D,$622EECC2,$64F1F335,$1962DCAC,$D4565BB2,$4D3304F8,$18CE4C87,$5C3D9051
  Data.l $B401312C,$94D0C3C5,$6433321C,$92C026A3,$DA5B98EE,$3723F4F0,$983938DC,$5A53D6B3,$F8F51441,$0B9E019D,$F102B45B,$2ED87D28
  Data.l $38CE4B24,$9E63DB69,$93C7526C,$91CD3A36,$53CB119A,$EDA40728,$137A2A2A,$0A1247E6,$60627540,$2DEEC6FB,$CD2B1353,$2CFA3B75
  Data.l $D464F143,$48CCE8A9,$B33ACCFC,$B9BB57CB,$91FFBFBF,$3BAEF398,$D5225E18,$48105A37,$21E39143,$750655E8,$7D6F3543,$6B78E1FE
  Data.l $360D79B0,$9EFA1051,$9D8FD77B,$64BA115F,$46D253D1,$973E1DE2,$56C3BEF5,$7B6AFB3D,$59FDE769,$B05340CF,$0795A690,$CD50F6A5
  Data.l $9AEB0365,$B34B5CDF,$0933FBA4,$D68FAA14,$56DB07EE,$46EAEA8D,$A4F175A3,$04D0B360,$81B9591D,$3DAF29D7,$D6F2DFDA,$1E2B73FB
  Data.l $44CA83ED,$9204AF91,$20450684,$5B1EF3B0,$1F67C2ED,$FF96373E,$BB26B082,$666C6AAB,$CD6973EB,$8D3827C8,$EBCCCFB3,$64968DF5
  Data.l $FE194963,$FAEAD200,$7B6DB697,$57F681F5,$A9E6C830,$70BC2EC3,$EF8F8A65,$FE40FE9C,$A8F466A6,$7E7E5408,$6EEA8536,$DAAEED6D
  Data.l $812C6B1D,$A23B24BF,$CDED4136,$9D937622,$F335D34E,$9E9CDE9F,$C8FEF0B1,$E8DF47E6,$DF347649,$BE1421B3,$D9C2E867,$E8F87FB7
  Data.l $8A99C9C6,$6B4DC1F5,$DAAB4BB2,$70F8F4C0,$6AC95820,$C0AD5738,$88A1E51B,$B62D17CE,$36548806,$BBD4719F,$D5755D57,$C34D4D51
  Data.l $14B2F143,$F7D9DF1F,$394D81FA,$43F3226F,$7004C3EC,$A2B69540,$EBB5D2FD,$3617DDB0,$9D47465A,$648F9F49,$50E088E3,$18286C0C
  Data.l $F695EFB8,$7C29B6C1,$3F0DC3F8,$13CEF5BC,$F4D7379B,$7C66CDF5,$5F97E5F1,$97F2FCBE,$CE2CDEDB,$C9E994D9,$F7C622AB,$0817137C
  Data.l $AB6EAC06,$8613612E,$5F7AECCA,$50D5674C,$8CFAC40F,$567644EF,$49E96C3F,$BDDEC5F1,$BCEB4D6E,$752E19AD,$8F3EB53F,$A013EE83
  Data.l $AFB470FE,$28EC6D9A,$125251DF,$7B69D8B3,$60BB6D56,$8715E913,$4C177F27,$4FDA4B14,$B7C13264,$2F7E7D1F,$FB762219,$BE7F2FBD
  Data.l $DD93C1B2,$4C02B1B4,$851FA7CF,$92C0312A,$CC5F606D,$D10D1116,$EEA34E84,$5556736F,$CDABEC10,$29A3F7C8,$6E03BFB6,$D6206C18
  Data.l $9F3ADA87,$95A394BA,$C1E39748,$BB9AF499,$4AFACB1A,$9FB4136A,$3C4825A4,$F51F77A3,$76694540,$CCEB9201,$0FF9C1D6,$83EEF83E
  Data.l $FDBEBF17,$01BE6FF5,$BFB727D4,$BEA6B197,$B196CB6A,$6D89F199,$A1B2389B,$4A9CDB43,$273585AD,$A768CD6A,$0FA38A83,$312DCBBA
  Data.l $AE5D9D3A,$C53E3BAB,$4D0FD327,$2343E077,$F9F8C19F,$3828AA4E,$5E777754,$26706397,$CE0390E3,$76CB2432,$ED69F0AC,$B25D0A32
  Data.l $EC0C1948,$0706DB35,$D93D5A2B,$9C385818,$9047C57F,$0B6E312F,$B128C27A,$AED07FAF,$B5D8535F,$DEFAB0F2,$D30ACE46,$0EA238E3
  Data.l $D4B4E126,$CB1C7424,$B87BEDD1,$FAD68419,$72C2F458,$253AE2C4,$8E0857C5,$61BF357E,$C23E566D,$D8E3C784,$F4B5ABB5,$6B574849
  Data.l $9287F5DB,$35AF6301,$D45747C6,$46E1B1D9,$060BA575,$6B1B49AE,$D2B1ED3B,$6D93CC52,$B632DEED,$E81FC2ED,$317BB10C,$9FDEEB6C
  Data.l $1775DFB6,$1CF0D7EF,$00200DCA,$21B52389,$8F23DAFF,$25A2193A,$922A7F62,$C2ED20FA,$7FA90990,$633A4F6A,$A79558D4,$7CCCB6E1
  Data.l $9AA73F0C,$7EEEEBCA,$E0F1D4B2,$1C8260D9,$63634474,$592191E2,$15076046,$DA6C086F,$D63D3336,$B07065B6,$EA62F10A,$FBE886A9
  Data.l $187663DF,$7EB6C304,$436D07D0,$ABCD5A46,$30369D6F,$E8975125,$03223EC3,$F92D10CD,$A14D0239,$68DDFB48,$B5339407,$57914D47
  Data.l $B19FE40C,$8ACC7EFA,$02323D24,$FAD79035,$CCBFD5E0,$89745058,$C47A245A,$1F2874FE,$8F8FF582,$4F4CCCCF,$4D4D8F4F,$F975EAAC
  Data.l $EF0BA26A,$90698CBD,$FDFD7F2F,$0D4ECD42,$9139F113,$0FB792BF,$A328DDE1,$33BD61F4,$971F43A1,$5062C79C,$C841E3DD,$500C45C0
  Data.l $D38B6414,$B8DA97D6,$49F8258E,$9C03434F,$F8C1428A,$8FBBBA06,$F61CC5FB,$A108F03F,$3F414FAF,$8B0F48D9,$995F1A05,$7C75BAD8
  Data.l $ED267C7C,$3DED3BB1,$75E515CE,$FF7D1F73,$2D1FF7FD,$EE1D376C,$D11ADD62,$35E9B3E6,$4D404624,$68D0DC12,$2D6B270F,$3A50111A
  Data.l $46863E7A,$78AFD540,$3768D1E8,$2BB69CD9,$D5314DF7,$17E58FD5,$C1302810,$BA062AF8,$E3ADFD4F,$0FA473EE,$DB2085A5,$415378CC
  Data.l $B0E8A05D,$789F1F67,$75AEB4F6,$D8850CA8,$6737328A,$A2C68E8F,$593FBF61,$48B3D12E,$41E71E82,$BA1C46C8,$D8343AEC,$944491E3
  Data.l $BA068B0F,$9C43D384,$62808F54,$AA20A848,$4BAEFA72,$43D1EDF5,$A087C84F,$81A80CEF,$F6E3BC81,$C5A9C3FE,$558CAFCB,$0666A2BB
  Data.l $C18D1E1B,$86FAE540,$E450FBE1,$7904D876,$EB5EA8C5,$2AF6618C,$971E920A,$7AB1C42F,$D2B4C4D2,$043D7B9D,$0F8F633E,$DA6662C5
  Data.l $429B276E,$72CF16D0,$5B4811B4,$461550F1,$4B16BD26,$69D15BAD,$02ECE798,$C9F5A395,$FE1381EE,$5703123C,$458E0E81,$8F59BF69
  Data.l $A69E1C4D,$C088DAB0,$D876E627,$143E7D9C,$4A1F36C4,$66CDFEE3,$D8F4E786,$0C68362E,$D8C42774,$94778F11,$14C49794,$815CED06
  Data.l $D46C121C,$25A9A1EB,$412BA228,$736BD406,$E8AD5E29,$4F53DF49,$7E9085DA,$97F4D402,$87547972,$9150451D,$EC20DF8D,$A87D88CA
  Data.l $608B1A96,$D4192BE0,$0417C1F1,$FD13CD5B,$D9027D35,$352BA381,$1D1D0AFE,$D1B2F11D,$CC6AD7B2,$16C04A14,$5D118742,$A4B6960D
  Data.l $833A99E9,$364D9468,$DCF6659F,$3D201B54,$21C07BEE,$F7B01C87,$557F7F5E,$6DE22ECD,$441B741A,$60E0C01D,$946AC42F,$49C0C850
  Data.l $1EE08F64,$05BC3CF2,$5A1308D3,$5C176160,$5143B467,$E5A3E575,$731AB18D,$3AF75718,$823C4AEC,$B248D3DA,$E1108663,$76C317A1
  Data.l $D960020B,$13FDFFEE,$41A57110,$BA27DD8B,$364D83AD,$B5318E88,$B5C0AC8C,$96A75AC2,$AC26CAD1,$4B532637,$13FF6D4B,$53A87D9B
  Data.l $4488608C,$7747CACA,$5C470CD8,$570743E9,$50EC68D7,$0BB28022,$06258F48,$FB1078E8,$65229A33,$F9F6E74E,$DF22FFFF,$0ED87631
  Data.l $9E0160EA,$15AEF885,$9196890C,$1696B991,$53E808DC,$679A3B44,$47969A96,$FE9AB162,$27451A96,$4ACA8644,$979477CA,$F0705C75
  Data.l $1F1EFBDE,$041FC991,$160498C6,$AF59ACFC,$A152DB9E,$AF9D64E4,$FAEDB627,$60EA9DFF,$C396527B,$A9B1ECA8,$A1059213,$02323931
  Data.l $3CD8AD4D,$32D2DFD2,$2973E352,$682DCDBE,$4F390E18,$2BBAE63E,$F5C0B08F,$72CF5170,$49C4C1CA,$E2CA160F,$25428146,$70EAEAEB
  Data.l $2E4457B9,$194D5129,$592842B4,$EDF1ECE7,$820576DE,$072AFFD4,$7222EBC7,$7E43B652,$7C4AEEAE,$B8A3AEDA,$B1CB6C3D,$90C22D2A
  Data.l $4D8D8189,$A030E281,$D45BA6E8,$01D1CA08,$A8E516E5,$6C2C450B,$815076A3,$48AD2852,$42917B37,$B495D769,$B4AD0940,$6521B41D
  Data.l $64297685,$F3738B63,$326A3108,$C6A31213,$BEF80FF8,$B1B7382D,$F1243A31,$8163232D,$BDF9F7F4,$FBDEFBE3,$7974E3BE,$C287476D
  Data.l $D3396832,$D639D9D7,$8162C677,$02CA7F48,$05925782,$AA3304EA,$FDE1C71E,$5821134D,$4EF09AC2,$27268A4E,$1AC16ADB,$9DE6614A
  Data.l $442A2454,$FB48D255,$37A6AC20,$7C01C254,$B9469F63,$1D876767,$FB4BF684,$912CC099,$9DAB56A8,$0D8ED49C,$7DD2C05A,$B40E5EF4
  Data.l $B19F4DE1,$FA594D4C,$E4E5F4CE,$DCF75380,$93FC2746,$F290DD93,$4505CDC8,$0A805003,$73225C75,$5259DA01,$A0422CC8,$15259692
  Data.l $9BDA3B29,$A54BE248,$2114E390,$7B6EEEEA,$7D577C62,$40B60436,$3EFCB5F9,$AB3A3164,$C1B20BEB,$78DD0F49,$43756ABF,$5E675765
  Data.l $7692801B,$E1BBBBF3,$36EFCE92,$3C90AB01,$DC375657,$E4A5C678,$64EDA596,$5F48767B,$045FBF0F,$3DDDA47F,$C1A6C2FC,$2C82FAA9
  Data.l $A311F500,$BCB272B6,$D9020E90,$BFA6A8C6,$1D364EFB,$E9A731B7,$99E64C4D,$08B9B9B3,$461F3754,$0B0BD355,$2AC42610,$546E133A
  Data.l $9366FCAE,$64DCCD99,$5CB5CEEA,$607ABBE2,$F84DE5B0,$D791D3D2,$ABA17835,$39A4F900,$3CF4E52D,$036698E4,$4ACAECBC,$01782BA8
  Data.l $A1339F73,$C4990F83,$110AD3A9,$19782008,$F31160D5,$CAA004FC,$A61BAA1B,$F73B777F,$CAA58D2B,$D94EE278,$2BE8420B,$1F0F697C
  Data.l $C9BFA1B4,$EB196E32,$395006CC,$32008F10,$1A018A04,$FECEACC2,$FBA8BDE8,$E49A864E,$4F8C340F,$2A00B531,$CAF40A80,$507EB94F
  Data.l $FB777F67,$D1A53A28,$111B412C,$F8088877,$DB3EF6A7,$C2F674D4,$7EBE85E0,$143E5F69,$41E7E47E,$87681BA8,$495D2E40,$8C7BFE53
  Data.l $FAF2FB90,$82A96ED9,$2CCE3E39,$0F5F00EC,$FB4B1836,$86A028B5,$04217694,$DFBECCC0,$B0759717,$BF71B471,$DC4B48D9,$5B083339
  Data.l $BC5EC32C,$AA4C7670,$47CD9FE0,$7F7ED3B7,$E4AE351B,$9A3EBBFB,$1A7DDF72,$D35B00FB,$8C34522D,$F615178F,$A488F94B,$049FC8FD
  Data.l $EE173DF7,$7EBBCA1A,$92725D5F,$8E994E9D,$E25092C2,$9BB277C3,$97C63499,$FBA7DA8A,$1EB11720,$13003041,$AACFC02A,$EF677CAF
  Data.l $38058E83,$061A0777,$4CE1FBC7,$7A7BF3E0,$51FBBA7A,$094B4699,$2F868A58,$CBF8FEFA,$2F8B13E3,$A532653B,$2E38B8B2,$20ED0763
  Data.l $9CBC07BE,$040F4B01,$577C81E5,$CA022C20,$3EAEAECF,$E1C0FA19,$1D93DD78,$1783ABF4,$C12607CA,$E0280200,$51BA2E55,$F0DD3C29
  Data.l $7F1FF4C5,$76D4DAAD,$056AD88D,$E52CA35C,$549B9D81,$2B527D81,$AA5AD01A,$0A37AC4F,$FA540A20,$5BEA8A31,$B28C0F70,$8914AC5F
  Data.l $55DEDCE0,$542295A8,$A64AEEFC,$64474216,$FEBBE8FE,$BF9D5D58,$C3F39B68,$AD64CB22,$FFF8CEAD,$7E3FBCC4,$CC493AEF,$42AD0A8B
  Data.l $651FABBA,$806FE050,$0F83A853,$D37A043C,$0A7E0F0B,$767093DC,$4CCDF7F7,$3D5422E5,$C2E10260,$4E000A1C,$7C08A803,$F71E9FC6
  Data.l $C016E7BC,$6C9D88D2,$8C6CD29E,$F37ED8CB,$2D7F4F8E,$A8B9FD36,$FE385250,$43DA35B6,$598FE6D7,$BB859CE0,$D6F38878,$DF51324A
  Data.l $FEB0A31B,$C292CDB9,$1D448B4F,$4B19BEFC,$048F889E,$81BABEB0,$3F4ABF09,$0A1E545D,$B2DA1E69,$63DE7E77,$35EBD39B,$68C53262
  Data.l $6E65E62C,$9E8F79BB,$A500563D,$32AABD1E,$5D692C5E,$B595A9C0,$0A2CBAC7,$9C4E9F38,$48DBC540,$B6A810F8,$27928C63,$46ED3642
  Data.l $4C8E97EB,$F9999D8E,$D5588152,$0680B904,$74E8D408,$71113566,$1757B9F2,$D7BCD600,$3D8B9485,$EC59C50A,$A9EF36ED,$8E47AF9C
  Data.l $959BDC7F,$87D4F273,$01A9B165,$5F2BC458,$66CEFA28,$748501C3,$5FCA002A,$9EA00591,$82B5ECDD,$DBF4415A,$D3353633,$06EC98A4
  Data.l $5F54D803,$5EE0A80D,$B0357E19,$1234632E,$52DF72C1,$EC34684F,$CB231AD6,$9DBE1F19,$BBBE1832,$2C3903F9,$B48D540E,$B828E417
  Data.l $FF38A9C9,$8536B7B8,$6D150BA5,$FC84A7AF,$B2AB4098,$443EF64B,$10B3E6B3,$5D8F4C7E,$4ED66418,$5A907BF2,$1402FD41,$974FAD40
  Data.l $82F53EC4,$5F9B67D9,$41B45F9D,$302C582E,$CEAD39CA,$DA36FC68,$6503C489,$4639CBEF,$18749425,$9CCD2DA1,$8C7B8D1C,$6E96A2F0
  Data.l $43E904E9,$4C358669,$AA016510,$1EA7A2EC,$9F298826,$3F984114,$E72F4E38,$94202C07,$22F33099,$C86A7F6E,$EE3FC3DE,$8BAE00F3
  Data.l $E71AD4B7,$256019A8,$2779A76F,$9A9737C6,$146B6859,$8D94ED9B,$A97164EA,$1D44A784,$68504D53,$23E5408E,$2818512B,$E77FCD9F
  Data.l $604A86A1,$1480ED9F,$99D9F4D3,$DDFD2D33,$A880247C,$F437281E,$A8E2768E,$AEC42C83,$D7EBC5D5,$44A542EC,$A34BAAC2,$616A9F6E
  Data.l $FE93B9E3,$D593684A,$24D09E2A,$4F518588,$A85F57F5,$52171C87,$0C8D9428,$B4960354,$9EC3E340,$7BAB3C0D,$6987D3C6,$579BD2A5
  Data.l $BA665A6E,$E5005214,$12595547,$86E7D772,$2D9666BE,$5D75D9FB,$B8A9662D,$F46DBAC3,$B3F1709C,$C6976582,$AC564607,$76F4FBD1
  Data.l $278681FD,$03DF2BC6,$5D4FF946,$BCF40A04,$539693E4,$DD2F9D79,$97D464F5,$D3636253,$9888C2A3,$916F8E3B,$95CAEBB4,$7E99C1AE
  Data.l $2AAC3FED,$086B47B9,$2E1DCF21,$99E49CBE,$3B52ED07,$845BB038,$A76DB29C,$65E9E3D6,$3977AF3E,$EF523232,$FAF4F9F3,$3D999FC8
  Data.l $31659F53,$B92E4DFC,$938398C8,$696DCCCD,$337D5939,$C50F8EE5,$A9CD2467,$827109F5,$FE044E61,$92A55ADF,$9E9CDF76,$506EFAEE
  Data.l $82AD052B,$C5C42F1C,$685E8DF8,$A55C6BEA,$869E0BCF,$AC30D237,$7EEC901D,$C1818B24,$A1B04891,$DEE8131A,$58A13966,$B4B0BC58
  Data.l $5006A734,$BBDDE40B,$61CACB3E,$169E5030,$DBA80919,$E927042C,$0EF934D2,$BC03C450,$40641866,$E82C2721,$C1EE0EAA,$6BD566DE
  Data.l $E1C8D12A,$C27BD31B,$59809577,$50470587,$F8DB883F,$F7D2928D,$90973B0F,$39597431,$4E2F1FEF,$847D843E,$84CE7B1D,$129FCC84
  Data.l $61058109,$D59ECBE6,$57426467,$6A8A1C12,$E7E16B9B,$0C11B05A,$4604F9FF,$C072F602,$D213A788,$225A261B,$E75F8A95,$71572C53
  Data.l $DEC7E212,$C16E9502,$2BC141FA,$048255B7,$1F0FC12B,$58F8983C,$9F116562,$EAA8063F,$60B21BEF,$5507D1F0,$AEBFCBAD,$EC5DBAAE
  Data.l $24857CD2,$8B582C36,$3E78E7B1,$2722C543,$51149604,$E2DF3A29,$E5146FEA,$2DE2F7B2,$AE4B1BEF,$B3B2DB9F,$0792FCF3,$45A76090
  Data.l $DEFCB1ED,$56E42BC2,$0BF7C267,$0B7598F1,$300D52A3,$9461217A,$628721FF,$247DA0FC,$6759889D,$519970D5,$8CC2A649,$AB3F3CF1
  Data.l $341FEB3A,$A1491DFC,$C31832FC,$EAAC9745,$9638AAB8,$20C59C14,$67640E35,$1571FBBD,$6FEB0525,$2DD46978,$7CDAAFCF,$D78F5E73
  Data.l $0EBBB2E6,$C02BE48C,$3E21B790,$106696A1,$579BDEBE,$519CCD9A,$212C4ADE,$5E779970,$316A84A7,$1500CC98,$236DB9D5,$AA91DCA5
  Data.l $8E9A6BFD,$C3573949,$A2238D6A,$3E4CC291,$F07A811F,$42905378,$06D5954E,$A74B868E,$82F2E028,$1E3C634B,$A55F79CF,$E4E8F968
  Data.l $BF7869FB,$6C09D0B1,$2C993D1E,$6754C084,$FFB7DC8D,$A81D2E54,$88A9F11C,$D2EC7B9E,$F22B9EA9,$6BBCB80A,$380A88AE,$C3060B23
  Data.l $F428DE79,$153872BE,$1583E5FE,$ECE9791C,$71E8D1AB,$28022908,$01C4C9AE,$AB9288BC,$B1CEB1FC,$BC9BBDFA,$EA31027C,$B4B844A0
  Data.l $53517F38,$4650303C,$1062CA0E,$5065A163,$F1F556D4,$F9864F3B,$FF4C858D,$F6264FAB,$93A8D221,$94B4B776,$446E6AA3,$06C7E9A7
  Data.l $4DF57D4E,$4E252CE3,$06CF27AF,$DDAA600E,$1DC07060,$DD5D4AFE,$CD3573B9,$8CCB8A88,$D673E6C6,$D4E3FC18,$D0930203,$CFA2C340
  Data.l $6EECCAB9,$DA6B1CEA,$481B797C,$F1120BE1,$EBC5F9C5,$97050AE2,$FB8C1C95,$E61B8D4E,$12CD5928,$8A154315,$6AD3B0CC,$A38940F3
  Data.l $4B9B57E7,$867A5F6F,$F91665AC,$0151D3CB,$D758E331,$43618DCC,$228E8252,$9E07C61F,$7561D320,$50F3AE00,$FBABC4ED,$A1827487
  Data.l $522D2B15,$DBB0986F,$E0398063,$F9BBD174,$622A94B0,$0A485073,$BC6A36F7,$A3D5178B,$9477052A,$0CB2DD46,$A6C96062,$61C0532C
  Data.l $30E44719,$EE931711,$5D80F65C,$5B632CBD,$E6B773F5,$8D38E99F,$6099BAEA,$9872F2FE,$1CBF3353,$68F48C6E,$D38766AA,$A6AC6B09
  Data.l $560C184D,$AD01C3AB,$C13F023E,$4EF879E6,$44221428,$45B5B9EA,$93FDE1FC,$1E40887C,$4E0229B2,$B72E83E4,$3A5AC97B,$038D6DC0
  Data.l $2245B633,$4E2CECBC,$D8D9943B,$473568E8,$27C31E11,$AF5ED468,$7F453F69,$AB1BC8EB,$9F1D49AB,$7428B1A1,$3DA8BDB8,$CBF33333
  Data.l $B9C6D98D,$FA9CF745,$EDF6EE08,$E65A11E4,$02032004,$F0307E20,$8842002D,$FA3B5DAE,$ABD8DAF8,$F5007ADA,$B87BBDF0,$FB9B04A8
  Data.l $F8EEA6BA,$1E286700,$915E75B7,$51E22475,$8C1093E8,$624310C6,$DB7A3413,$49E5DB32,$FF9F52C4,$0F440BB9,$D4941530,$F87E665B
  Data.l $0497F06E,$1BFAE187,$B1DE266F,$B703082B,$E8D4A41F,$08E87B98,$2BBAD222,$24852038,$5256E860,$DCD7C9E0,$AB9B3D36,$88D1D790
  Data.l $C12BD75B,$03361C6E,$6F833E9C,$5FAF4179,$6D7927D0,$0980E26F,$96AF5733,$6E9D16D7,$C20CB4E8,$2E6FAF5E,$72FD1EBC,$17113862
  Data.l $3F88A9D4,$BFCC3CAC,$5FA5BA1A,$F17F4179,$6F21DAA2,$DE4BAAAF,$26169DF2,$831D31A5,$D3E7DB09,$8D76EDAB,$E91D523E,$D8131379
  Data.l $03A225F8,$CECE8A9B,$4B32BAC0,$CC5893F7,$4A96F8A3,$C86AF4A3,$3B74B716,$5B575FAF,$1AD43F8B,$9B0887D9,$3F5DC07D,$A5D5F440
  Data.l $199A5B22,$1E04B4B9,$3735DCED,$8507A031,$A20490E5,$B6AB1DE7,$DF338CCC,$A4B4788D,$B97EE341,$60A06B74,$E96E8E8A,$C9C85DBA
  Data.l $29D8B156,$891C4DD8,$FE2A68D8,$931DAF5F,$E70E3E71,$9B64CE57,$2CF6EDDB,$131BB406,$84A2D225,$56415E71,$BBDF4CFD,$0347A439
  Data.l $8DD3A2B5,$E71AB692,$76BC673D,$F7964ECD,$E298D40E,$C96C9BF1,$971F3E6F,$C4489196,$05E61BAE,$2C5AF453,$7AF2E99A,$FDAEA56E
  Data.l $F90B5F37,$BD013462,$89E542FA,$8FB51F87,$67F77441,$85B0ADA6,$4B2DD4A6,$4BAB546D,$6554106D,$9BD95AA9,$77E1D4DC,$6469686B
  Data.l $6FF3C2E7,$E6915227,$6309F7E3,$171FD4D7,$3255F7BA,$57E87D71,$488C6065,$DCAEE756,$87981113,$13DF8443,$9E9E9111,$821A151E
  Data.l $9C3857FF,$99E3AD68,$8956D400,$B488ED10,$678E084F,$D10C508D,$30827E0F,$963C51D3,$643B1D14,$CCCBECBD,$882DA5A4,$FDB788E3
  Data.l $EDC270AF,$BEC7878D,$9DA0BCFD,$5397D5D1,$9390F610,$C3B328D9,$D9F255A5,$FD8A8AD9,$F6236307,$89138584,$7DC4F0C4,$6D8F0126
  Data.l $58A60E8A,$0B16AED1,$2A9D2F1B,$36E26476,$905764F1,$4D4D82FB,$F1E79D30,$1341C1A0,$8F78DD47,$A9FB48E3,$F54E7782,$C6A89E75
  Data.l $440E8C3F,$B9F60C3B,$BB32D725,$AEF514B8,$503342CC,$82D41D73,$02755AF2,$4C18BF10,$ECA0FB30,$7B9B2B62,$8CDBCB92,$2B03C4D1
  Data.l $2AFE3087,$CA0D4CAC,$B0D04C4B,$14C8C9F7,$CECA9FB7,$6F78EBEB,$061F347D,$6FDDC38B,$A6912009,$92D9B25E,$AD602320,$C7419491
  Data.l $81CB6A02,$560A9626,$36C752AB,$50422801,$55A65211,$60CF9AD8,$1C9B6899,$E9C72F91,$A7C1BC03,$93C245A6,$3B7CEE90,$0C90CCFF
  Data.l $E11D9B8F,$C7E5A7CA,$59F8C45F,$9AF11E17,$9E332E20,$96B771B8,$A71493D7,$63A02AE4,$A72D302B,$6C8C1118,$990DE51A,$90836284
  Data.l $72CE0846,$F7EC855A,$86D84A4F,$25044D90,$0D747D45,$1A170137,$241D6FF3,$625313E0,$5B76D653,$357568E2,$236EF214,$14E015E7
  Data.l $58DE3C21,$2726292A,$08C213E8,$CB7A62F7,$F65CBB6D,$4BA5FB75,$818C1897,$B9AE1191,$B161C38C,$4B03FD5A,$58830E1C,$1705A623
  Data.l $568513A3,$8AB64547,$CCD9886D,$6FDBD239,$0597FEE3,$24A784C6,$2B2B78CB,$206234BC,$AD1958B8,$6A6B89F3,$7B611128,$39CA6E22
  Data.l $98B9B31C,$AA244CFC,$B093BCEC,$E536DD47,$BD149727,$A80FB69F,$9832F2B8,$830CD1EA,$2364D015,$C241DA70,$4C863427,$BC09706C
  Data.l $C583814C,$6D332E38,$219E0A02,$AAA1B886,$E0EA575B,$CF1B4639,$C448A2E9,$236B0CF0,$6260B94B,$AA68CD99,$4E7ABC13,$EF4BFC31
  Data.l $ADDC7489,$6F45D4B5,$607F228D,$86292540,$039D661F,$EA8E556A,$45219004,$13403498,$BB20F891,$35D88760,$616CE38C,$1AE7A6CC
  Data.l $88B52366,$B9CC4F15,$4FD09C16,$E882366D,$119F55C0,$C1D6FE06,$5C0943E0,$B59EA021,$CE44AE11,$B89C5EF3,$6F31BE4B,$2AA5C5BA
  Data.l $06B9A709,$D40AD588,$4C0A3A38,$4D300472,$F56AD5D8,$39208CF5,$AAF54085,$A094C2D8,$B41A4EDC,$7C977870,$0467BD70,$294E464C
  Data.l $5B35C6F4,$C055CE13,$6811AA98,$3C87CA3D,$797DE2A0,$B773D7A3,$637B8987,$D4A28869,$70042F81,$00B1FD50,$5AB22108,$6F6BA211
  Data.l $8E14391D,$C623D20F,$8DB10E67,$1D10CA00,$CDBE5554,$C1905DE3,$66FD8278,$0CC48D60,$EC786AD8,$F4A8D498,$B264D8F4,$AD0595AE
  Data.l $4B2E2A6B,$FE26F990,$6B751D1E,$09B6424C,$0F1E248E,$3903617D,$84C3561C,$F8F00E7A,$4D06F267,$4F10CD44,$1AB66BD2,$66C3050E
  Data.l $0D8167B7,$CB901E1D,$5C542953,$132959B3,$0489A2D3,$E2C791BF,$0C1444F0,$8892A4A6,$4DA08C1B,$5B3605BC,$ACC2142C,$0A123581
  Data.l $A3B5D001,$DE47A419,$2F3D403D,$A43EA9E0,$C1882788,$2F5F91BC,$3B51004B,$24AB9E94,$43509E2C,$DEC708CB,$E7DEADE3,$99A5CEEA
  Data.l $7E580200,$908B0032,$760A05C8,$D0AC751F,$25546090,$61F78997,$56C91A83,$B4AAE466,$1D4D495C,$97D9AC5B,$3BC2DD41,$6BB51EC6
  Data.l $EB4C9802,$DD0CFC80,$3672BE96,$714558B9,$EA091C4E,$85444105,$6DC03AA6,$1096D24E,$3D40CA21,$F576402F,$2A0CD1D2,$1136D0E2
  Data.l $A324369E,$89D68D70,$CB3B60B9,$2E8E8770,$E2A64BC1,$C392FCB7,$78CA04DF,$F818D219,$2768BD6D,$BF679C64,$C593312A,$960A05C8
  Data.l $071410B0,$FDB2635F,$C8CB2544,$B260164A,$7276DFFD,$C9889FDD,$95B2996C,$8EDBD56C,$67F72FFC,$58203C6C,$5615B706,$E92DA471
  Data.l $E76FBC7F,$39910A2E,$6CF64081,$FEA348F1,$554A8006,$9D398ADD,$000000C6,$4E454900,$6042AE44
  Data.b $82
  
  Image_SizeMe:
  ;{Size = 422 bytes
  Data.l $474E5089,$0A1A0A0D,$0D000000,$52444849,$19000000,$19000000,$00000208,$228C3C01,$000000A2,$59487009,$0E000073,$0E0000C3
  Data.l $6FC701C3,$000064A8,$44495801,$9C785441,$4EC154B5,$ED1040C2,$D33D2161,$0EF93720,$688C23E0,$4068F462,$035F8212,$478C1131
  Data.l $FC62898D,$D241BC24,$1E17837B,$774EDAEC,$C0D1D967,$A67749A4,$9BCDE76F,$25AAAED9,$54D7E8F5,$D538CC44,$FEBD656A,$DB560E31
  Data.l $551EF92F,$5F5CDF42,$6DBEBCBD,$70957857,$B3585E4C,$B769DA79,$2E8F360C,$0C78DF16,$22A0CDD6,$38A14AC7,$5BBDFB8E,$CB2CFD45
  Data.l $228793C6,$CDF0EF84,$5F878D46,$7CF8D46C,$9408CBC1,$2EA41961,$F9EEAB97,$CF906999,$49248FD0,$3E33A71E,$3F73169F,$6CFAEA1A
  Data.l $1702CA5E,$B2979E20,$BD12BC30,$081C44FB,$FF34E384,$4E346AFC,$20BC1C70,$408E8D54,$D04CBEE3,$69A59E85,$B29F74CA,$41B55DE4
  Data.l $385BC594,$2E41B165,$65CEA30B,$2CB9D461,$A7FC3A8C,$115884F4,$989681E9,$CC47C468,$F2E9EB85,$613E8BA2,$7FBC168D,$F51DCDCC
  Data.l $BB835C8F,$19E9ECFE,$7F768F0D,$9AE2DC1A,$16A1ABF8,$0E4F56CC,$1E3AB80B,$A22AE5CE,$3B74A9E7,$14F97306,$E5CE16B9,$25CE1453
  Data.l $A39D2451,$8E749144,$39D24512,$C12466FA,$02CE006C,$A69CA02B,$0000245D,$45490000,$42AE444E
  Data.b $60,$82  
  ;}
EndDataSection
Define event.i,DmausX.i,DmausY.i,BackupMausX.i,BackupMausY.i,Drag.i,Resize.i
UsePNGImageDecoder()

; Define Exit Button
CreateImage(#Exit_btn,30,30)
  StartDrawing(ImageOutput(#Exit_btn))
  FillArea(1,1,-1,RGB(218, 93, 93))
  Line(6,23,18,-18,$FFFFFF)
  Line(6,6,18,18,$FFFFFF)
StopDrawing()

#AW_HOR_POSITIVE = $1 ;Animates the window from left To right. This flag can be used with roll Or slide animation.
#AW_HOR_NEGATIVE = $2 ;Animates the window from right To left. This flag can be used with roll Or slide animation.
#AW_VER_POSITIVE = $4 ;Animates the window from top To bottom. This flag can be used with roll Or slide animation.
#AW_VER_NEGATIVE = $8 ;Animates the window from bottom To top. This flag can be used with roll Or slide animation.
#AW_CENTER = $10      ;Makes the window appear To collapse inward If AW_HIDE is used Or expand outward If the AW_HIDE is not used.
#AW_HIDE = $10000     ;Hides the window. By default, the window is shown.
#AW_ACTIVATE = $20000 ;Activates the window.
#AW_SLIDE = $40000    ;Uses slide animation. By default, roll animation is used.
#AW_BLEND = $80000    ;Uses a fade effect. This flag can be used only If hwnd is a top-level window.

Procedure close_dialog()
If OpenWindow(1, 732, 301, 380, 100, "", #PB_Window_WindowCentered|#PB_Window_BorderLess| #PB_Window_Invisible)
  SetWindowColor(1,RGB(57, 57, 57))
  ; SET WINDOW ALWAYS ON TOP
    SetWindowPos_(WindowID(1),#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE) 

     ;INFOFIELD
      TextGadget(#InfoText, 1, 1, 378, 98,"program is closing in 3 seconds",#SS_CENTERIMAGE|#SS_CENTER) ;x;y;lenght;height
      SetGadgetFont(#InfoText, LoadFont(#InfoText_Font, "Microsoft Sans Serif", 16, #PB_Font_HighQuality))
      SetGadgetColor(#InfoText, #PB_Gadget_BackColor, RGB(28, 28, 28))  ;Background COLOR
      SetGadgetColor(#InfoText, #PB_Gadget_FrontColor, RGB(218, 93, 93));TEXT COLOR

EndIf
  HideWindow(1,#False)
  
  ; create timer
    Endtimer=AddDate(Date(),#PB_Date_Second,3.0);choose seconds
    
    Repeat
  
      EventID=WindowEvent()
      
      If Date()>Endtimer
       
        CloseWindow(1)
        UpdateWindow_(WindowID(0))
        End
      EndIf
        
    Until Quit
      
  EndProcedure
  
;check mouse coordinates
Procedure MausOver(Mx,My,x,y,w,h)
    If Mx>x And Mx< x+w And My>y And My<y+h
      ProcedureReturn #True
    EndIf
  EndProcedure 
  
 ;Id=WindowID,my/mx MausX/MausY,w/h Minmale Breite/Höhe
  Procedure WindowsBind(id,mx,my,w,h) 
    If w>mx And h<my
      ResizeWindow(id,#PB_Ignore,#PB_Ignore, w, my)
    EndIf   
    If h>my And w<mx
      ResizeWindow(id,#PB_Ignore,#PB_Ignore,mx,h)
    EndIf
    If w<mx And h<my
      ResizeWindow(id,#PB_Ignore,#PB_Ignore, mx, my)
    EndIf     
    If w>mx And h>my
      ResizeWindow(id,#PB_Ignore,#PB_Ignore, w,h)
    EndIf 
  EndProcedure 
  
  
OpenWindow(0,(GetSystemMetrics_(#SM_CXSCREEN)-1)/1,(GetSystemMetrics_(#SM_CYSCREEN)-1)/1, 600, 400, "",#PB_Window_BorderLess|#PB_Window_ScreenCentered|#WS_VISIBLE|  #PB_Window_Invisible)
SetWindowColor(0, $151312)
OldGadgetList = UseGadgetList(WindowID(0))

  TextGadget(#Infobar,WindowWidth(0)-599, 1, 567, 30, "  Close Window via Popup with Timer",#SS_CENTERIMAGE)
  SetGadgetFont(#Infobar, LoadFont(#Infobar_Font, "Microsoft Sans Serif", 10, #PB_Font_HighQuality))
  SetGadgetColor(#Infobar , #PB_Gadget_BackColor, RGB(214, 137, 137)) ;TEXT Background Color
  SetGadgetColor(#Infobar , #PB_Gadget_FrontColor, RGB(248, 248, 248));TEXT Color
  
; just a nice pic :)
  ImageGadget(#two_Mice_gfx, 360, 176, 212, 223, CatchImage(#Image_Mice_gfx, ?Image_Image_1))
  
; size button
  ImageGadget(#SizeMe, 575, 375, 25, 25, CatchImage(#Image_SizeMe, ?Image_SizeMe))
  
; exit button
  ImageGadget(#Gadget_exit,WindowWidth(0)-31,1,30,30,ImageID(#Exit_btn))  
  
; use tool start up effect
  AnimateWindow_(WindowID(0),200,#AW_CENTER)
  HideWindow(0,#False) 

;Main
  Repeat
  Event = WindowEvent()
  EventGadget = EventGadget()

 ;absolute coordinates mouse
  DmausX=DesktopMouseX()
  DmausY=DesktopMouseY()
   
    If Event = 0
      
      ;move window
      If drag=#True
        ResizeWindow(0, DmausX-BackupMausX, DmausY-BackupMausY, #PB_Ignore , #PB_Ignore )
      EndIf
      
      ;resize window and gadgets     
      If Resize=#True
        WindowsBind(0,DmausX-BackupMausX,DmausY-BackupMausY,400,300)     
        ResizeGadget(#two_Mice_gfx,WindowWidth(0)-240,WindowHeight(0)-224,#PB_Ignore,#PB_Ignore)
        ResizeGadget(#Infobar,#PB_Ignore,#PB_Ignore,WindowWidth(0)-33,#PB_Ignore)
        ResizeGadget(#SizeMe,WindowWidth(0)-25,WindowHeight(0)-25,#PB_Ignore,#PB_Ignore)
        ResizeGadget(#Gadget_exit,WindowWidth(0)-31,#PB_Ignore,#PB_Ignore,#PB_Ignore)
      EndIf 
      
      ;interrupt WindowEvent
      Delay(10)
      
    EndIf
    
  Select Event
    Case #PB_Event_Gadget           

      ;-drag window with mouse
         Case #WM_LBUTTONDOWN    
          BackupMausX=DmausX-WindowX(0)
          BackupMausY=DmausY-WindowY(0)     
          SendMessage_(WindowID(0), #WM_NCLBUTTONDOWN, #HTCAPTION, 0)

         ;Close Button
          If MausOver(DmausX,DmausY,WindowX(0)+WindowWidth(0,#PB_Window_FrameCoordinate)-31,WindowY(0),30,30)
             close_dialog(); Call POPUP Timer-Procedure
             UseGadgetList(OldGadgetList);use this, if you wanna do something while runtime in the background window when popup is shown
          EndIf
          
         ;our Resize Button
          If MausOver(DmausX,DmausY,WindowX(0)+WindowWidth(0)-20,WindowY(0)+WindowHeight(0)-20,WindowWidth(0),WindowHeight(0))
            ;save Mouse coordinates in relation to Windows
             BackupMausX=DmausX-WindowWidth(0)
             BackupMausY=DmausY-WindowHeight(0)           
             Resize=#True
          EndIf
          
         ;Close Button
          If MausOver(DmausX,DmausY,WindowX(0)+WindowWidth(0,#PB_Window_FrameCoordinate)-31,WindowY(0),30,30)
             close_dialog(); Call POPUP Timer-Procedure
             UseGadgetList(OldGadgetList);use this, if you wanna do something while runtime in the background window when popup is shown 
          EndIf
          
        Case #WM_LBUTTONUP
          ;Drag=#False :
          Resize=#False   
          
  EndSelect
      
Until Event = #PB_Event_CloseWindow:End

Re: Fenstergröße ändern trotz #PB_Window_Borderless

Verfasst: 29.04.2016 18:20
von man-in-black
Moinsen

Habe mir q&d ein paar Eventnummern ausgeben lassen und das Skalieren des Fensters daran aufgezogen.
Auf die Schnelle weiß ich leider nicht, wie zuverlässig die Nummern sind und ob in PB bereits Konstanten dazu vorliegen...
Ergo: Vorsicht!
Achso, der Code ist nicht gerade der schönste. Hatte gerade keine Lust auf Konstanten etc. . ;)

Code: Alles auswählen

CreateImage(0,20,20)
  StartDrawing(ImageOutput(0))
  FillArea(1,1,-1,$FFFFFF)
  Line(0,20,20,-20,0)
StopDrawing()

Global resize = #False
Global oMx 
Global oMy
Global Mx 
Global My

Procedure startresize()
  resize = #True
  
  oMx = DesktopMouseX()
  oMy = DesktopMouseY()
  
EndProcedure  

Procedure resize()
  
  Mx = DesktopMouseX()
  My = DesktopMouseY()
  
  ResizeWindow(0,#PB_Ignore,#PB_Ignore,WindowWidth(0)+Mx-oMx,WindowHeight(0)+My-oMy)
  ResizeGadget(0,WindowWidth(0)-20,WindowHeight(0)-20,#PB_Ignore,#PB_Ignore)
  ResizeGadget(1,WindowWidth(0)-20,#PB_Ignore,#PB_Ignore,#PB_Ignore)
  
  oMx = Mx
  oMy = My
  
EndProcedure  

Procedure close()
  End
EndProcedure  

OpenWindow(0,0,0,200,200,"Borderless",#PB_Window_ScreenCentered|#PB_Window_BorderLess)

ImageGadget(0,180,180,20,20,ImageID(0))
BindGadgetEvent(0,@startresize(),#PB_EventType_LeftClick)

ButtonGadget(1,180,0,20,20,"X")
BindGadgetEvent(1,@close())

Repeat
  
  Event = WaitWindowEvent()
  
  
  If event = 512 And resize = #True ;leftbutton_hold
    Repeat 
      If event <> 15                ;window repaint event?
        resize()
      EndIf
        event = WindowEvent()
    Until event = 514               ;leftbutton_up
    resize = #False
  EndIf

  
ForEver
MFG
MIB

Re: Fenstergröße ändern trotz #PB_Window_Borderless

Verfasst: 29.04.2016 19:44
von silbersurfer
Jo man-in-black dafür ist sehr schlank und mit WaitWindowEvent
und mit BindGadgetEvent auch viel eleganter......

Geschick gemacht mit der Repeat schleife :allright:
nur dachte Ich das es nicht klug ist zwei oder mehr Event abfragen
in einer Schleife zu haben, aber wie Ich sehe geht es sehr gut in diesen Beispiel
mit dem event 15 bin ich mir auch nicht sicher aber mit #WM_LBUTTONDOWN / UP funtz
er auch wunderbar

Code: Alles auswählen

  If event = #WM_LBUTTONDOWN  And resize = #True ;leftbutton_hold
    Repeat
      If event <> 15                ;window repaint event?
        resize()
      EndIf
        event = WindowEvent()
    Until event = #WM_LBUTTONUP              ;leftbutton_up
    resize = #False
  EndIf
also bei mir läuft er ohne Probleme mit den Event Nummern
@udg
Kann man den Code noch optimieren? Dann könnte man den ja als Tutorial Code Posten, denn nach Borderless Resize Window fragen die Leute ja immer wieder.
Sicher das war ja nur schnell zusammen Geschrieben wie du sehen kannst hat man-in-black da schon einiges Optimiert
Ich habe schnell noch mal meine Fehler Bereinigt
1. war in der WindowsBaund ein Fehler

Code: Alles auswählen

 ;Id=WindowID,my/mx MausX/MausY,w/h Minmale Breite/Höhe 
  Procedure WindowsBaund(id,mx,my,w,h)  
    If w>mx And h<my
      ResizeWindow(id,#PB_Ignore,#PB_Ignore, w, my)
    EndIf   
    If h>my And w<mx
      ResizeWindow(id,#PB_Ignore,#PB_Ignore,mx,h)
    EndIf 
    If w<mx And h<my
      ResizeWindow(id,#PB_Ignore,#PB_Ignore, mx, my)
    EndIf     
    If w>mx And h>my
      ResizeWindow(id,#PB_Ignore,#PB_Ignore, w,h)
    EndIf  
  EndProcedure
2. hatte Ich dort die Mausabfrage falsch ausgewertet, muß so sein

Code: Alles auswählen

      ;Close Button
          If MausOver(DmausX,DmausY,WindowX(0)+WindowWidth(0,#PB_Window_FrameCoordinate)-31,WindowY(0),30,30)
             close_dialog(); Call POPUP Timer-Procedure
             UseGadgetList(OldGadgetList);use this, if you wanna do something while runtime in the background window when popup is shown  
          EndIf
und noch etwas angepasst

Code: Alles auswählen

   ;resize window and gadgets     
      If Resize=#True  
        WindowsBind(0,DmausX-BackupMausX,DmausY-BackupMausY,400,300)     
        ResizeGadget(#picture,WindowWidth(0)-240,WindowHeight(0)-224,#PB_Ignore,#PB_Ignore)
        ResizeGadget(#Btn_Exit,WindowWidth(0)-31,1,#PB_Ignore,#PB_Ignore)
        ResizeGadget(#SizeMe,WindowWidth(0)-25,WindowHeight(0)-25,#PB_Ignore,#PB_Ignore) 
        ResizeGadget(#Infobar,#PB_Ignore,#PB_Ignore,WindowWidth(0)-33,#PB_Ignore) 
      EndIf
Probiere es Mal aus udg

Re: Fenstergröße ändern trotz #PB_Window_Borderless

Verfasst: 30.04.2016 00:39
von man-in-black
Als kleinen Nachtrag/Nebeninfo: 15 und 13115 sind beides Repaint Events (#WM_PAINT,#PB_Event_Repaint).
[...] nur dachte Ich das es nicht klug ist zwei oder mehr Event abfragen
in einer Schleife zu haben [...]
Da mir meine Eventabarbeitung selbst etwas komisch vorkam, werde ichs im Folgenden korrigieren (schlechtes Gewissen^^).
Das Fenster wird erst "resized", wenn alle Events abgearbeitet sind (primär "repaint"), da es ansonsten zum Eventstau kommt.
Zwei WindowEvents() in einer Schleife machen schon Sinn, wenn man wie z.B. in meinem Code
für längere Zeit in den Unterschleifen verweilt. Man muss nur aufpassen,
dass keine Events verloren gehen/ nicht beachtet werden. BindEvent hilft dabei ungemein.

Code: Alles auswählen

Enumeration
  #Image1
EndEnumeration  

Enumeration
  #Window1
EndEnumeration

Enumeration
  #Gadget1
  #Gadget2
EndEnumeration

CreateImage(#Image1,20,20)
  StartDrawing(ImageOutput(#Image1))
  FillArea(1,1,-1,$FFFFFF)
  Line(0,20,20,-20,0)
StopDrawing()

Global resize = #False
Global oMx 
Global oMy
Global Mx 
Global My
Define event

Procedure startresize()
  resize = #True
  
  oMx = DesktopMouseX()
  oMy = DesktopMouseY()
EndProcedure  

Procedure resize()
  Mx = DesktopMouseX()
  My = DesktopMouseY()

  ResizeWindow(#Window1,#PB_Ignore,#PB_Ignore,WindowWidth(#Window1)+Mx-oMx,WindowHeight(#Window1)+My-oMy)
  ResizeGadget(#Gadget1,WindowWidth(#Window1)-20,WindowHeight(#Window1)-20,#PB_Ignore,#PB_Ignore)
  ResizeGadget(#Gadget2,WindowWidth(#Window1)-20,#PB_Ignore,#PB_Ignore,#PB_Ignore)
  
  oMx = Mx
  oMy = My
EndProcedure  

Procedure close()
  End
EndProcedure  

OpenWindow(#Window1,0,0,200,200,"Borderless",#PB_Window_ScreenCentered|#PB_Window_BorderLess)

ImageGadget(#Gadget1,180,180,20,20,ImageID(#Image1))
BindGadgetEvent(#Gadget1,@startresize(),#PB_EventType_LeftClick)

ButtonGadget(#Gadget2,180,0,20,20,"X")
BindGadgetEvent(#Gadget2,@close())

Repeat
  
  Event = WaitWindowEvent()
  
  If event = #WM_LBUTTONDOWN And resize = #True 
    Repeat                     
      resize()
      Repeat                               ;Zeit für Neuzeichnen etc.
        event = WindowEvent()
      Until event = 0 Or event = #WM_LBUTTONUP
    Until event = #WM_LBUTTONUP                
    resize = #False
  EndIf
  
ForEver
Ansonsten ist ghostys Frage wohl zu 120% beantwortet und kann zu den Akten gelegt werden. :D

@udg: Verzichte bei Beispielcodes bitte auf unnötigen Code (Mäusebild). Es scrollt und kopiert sich schlecht ...

MFG
MIB

Re: Fenstergröße ändern trotz #PB_Window_Borderless

Verfasst: 30.04.2016 12:01
von silbersurfer
Ansonsten ist ghostys Frage wohl zu 120% beantwortet und kann zu den Akten gelegt werden. :D
Ja das denke Ich auch, und Danke für die Info der Events

Re: Fenstergröße ändern trotz #PB_Window_Borderless

Verfasst: 30.04.2016 13:38
von udg
Wow , sehr nice. nun werde ich das Ganze mal in ein Test Programmchen basteln.

Danke Euch und ich werde die Mäuse bei Beispielcodes weglassen :D
Frage ist was der Threadersteller für eine Meinung hat?

Grüße

Re: Fenstergröße ändern trotz #PB_Window_Borderless

Verfasst: 04.05.2016 11:09
von Ghosty1967
Sorry, war ziemlich eingespannt in letzter Zeit!
WOW! Ich bin begeistert. Auf die schnelle mal durchgelesen scheinen alle meine Fragen beantwortet
zu sein. Ich werde mich jetzt am langen WE mal hinsetzen und rumprobieren.

Vielen, vielen, Dank an euch alle!

Re: Fenstergröße ändern trotz #PB_Window_Borderless

Verfasst: 04.05.2016 14:56
von silbersurfer
eine Sache habe Ich noch, vieleicht weiss Jemand da ja weiter !

Alles klappt sehr gut bis auf die WindowBaund sache, denn wenn Ich das Manuel regel, kann dadurch die Maus
ausserhalb des Fenster liegen was dazu führt das die Event´s für das Fenster nicht mehr abgefragt werden

gibt es auch die möglichkeit die Mausbutton allgemein abzufragen
zb MausUp MausDown

Gruss Silbersurfer
Alle Zeiten sind UTC+02:00
Seite 2 von 4

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de