| |
|
|
 |
Description:
UnionRect determined The Eckpunkte to a „Rahmen“, the two rechteckige reaches einschließt.
Deklaration:
DEf @UnionRect(3) !User32,UnionRect
Parameter:
1.Parameter: RECT Structure or 16byte large Memory-Variable, The The Eckpunkte the „Rahmens“ around the Rechtecke aufnimmt.=> -byte 0-3 = X-Koordinate the left oberen corner the Rahmens. -byte 4-7 = Y-Koordinate the left oberen corner the Rahmens. -byte 8-11 = X-Koordinate the rechten downstairs corner the Rahmens. -byte 12-15 = Y-Koordinate the rechten downstairs corner the Rahmens.
2.Parameter: RECT Structure or 16byte large Memory-Variable, The The Eckpunkte the first Rechtecks angibt.=> -byte 0-3 = X-Koordinate the left oberen corner the Rechtecks. -byte 4-7 = Y-Koordinate the left oberen corner the Rechtecks. -byte 8-11 = X-Koordinate the rechten downstairs corner the Rechtecks. -byte 12-15 = Y-Koordinate the rechten downstairs corner the Rechtecks.
3.Parameter: RECT Structure or 16byte large Memory-Variable, The The Eckpunkte the second Rechtecks angibt.=> -byte 0-3 = X-Koordinate the left oberen corner the Rechtecks. -byte 4-7 = Y-Koordinate the left oberen corner the Rechtecks. -byte 8-11 = X-Koordinate the rechten downstairs corner the Rechtecks. - byte 12-15 = Y-Koordinate the rechten downstairs corner the Rechtecks.
Return Value:
If one welt accounts go could 1, otherwise 0.
Examples:
CompileMarkSeparationDeclare Bild$,Ende%,Rect1#,Rect2#,RectU#
Declare x1&,y1&,x2&,y2&
DEf @UnionRect(3) !"User32","UnionRect"
CHDIR $WINPATH
Let Bild$=@FindFirst$("*.BMP")
Windowstyle 31
Windowtitle "Bereiche Vereinigen"
Window 0,0-640,440
While 0=0
CLS
Randomize
LET X1&=@RND(600)
LET X2&=@RND(600)
LET y1&=@RND(400)
LET y2&=@RND(400)
LoadSizedBmp Bild$, x1&,y1&-30,30;0
LoadSizedBmp Bild$, x2&,y2&-30,30;0
Dim Rect1#,16
Dim Rect2#,16
Dim RectU#,16
Long Rect1#,0=X1&
Long Rect1#,4=Y1&
Long Rect1#,8=X1&+30
Long Rect1#,12=y1&+30
Long Rect2#,0=X2&
Long Rect2#,4=Y2&
Long Rect2#,8=X2&+30
Long Rect2#,12=Y2&+30
@UnionRect(RectU#,Rect1#,Rect2#)
UseBrush 0,0
USEPEN 0,1,@RGB(32,0,0)
RectAngle @long(Rectu#,0),@long(Rectu#,4)-@long(Rectu#,8),@long(Rectu#,12)
Dispose Rect1#
Dispose Rect2#
Dispose RectU#
Waitinput
wend
[keywords:e92370f133] welt reaches umrahmen detect join fitting Rechtecke [/keywords:e92370f133] |
|
|
| |
|
|