28/03/2024
Windev et les Api WindowsNb de visiteurs en ligne : 3
>> Introduction << >> Codes et Forum << >> Download <<


Rubrique : 2 - Fenêtres       Sujet : Diviser une fenêtre en 2 parties avec une 'déchirure'
Auteur Message
 °¨¨ JL ¨¨° Posté le : 23/06/2000 12:00:00


region1 est un entier long
region2 est un entier long
region3 est un entier long
pt1 est un tableau de 40 entiers longs

x1 est un entier = {fenencours()}..largeur
y1 est un entier = {fenencours()}..hauteur / 2
pasx est un entier = x1 / 9
d1 est un entier = 5
d2 est un entier = -100

pt1[1]= x1
pt1[2]= y1 - d1
pt1[3]= x1 - pasx
pt1[4]= y1 - d2
pt1[5]= x1 - (pasx * 2)
pt1[6]= y1 - d1
pt1[7]= x1 - (pasx * 3)
pt1[8]= y1 - d2
pt1[9]= x1 - (pasx * 4)
pt1[10]= y1 - d1
pt1[11]= x1 - (pasx * 5)
pt1[12]= y1 - d2
pt1[13]= x1 - (pasx * 6)
pt1[14]= y1 - d1
pt1[15]= x1 - (pasx * 7)
pt1[16]= y1 - d2
pt1[17]= x1 - (pasx * 8)
pt1[18]= y1 - d1
pt1[19]= x1 - (pasx * 9)
pt1[20]= y1 - d2
pt1[21]= 0
pt1[22]= y1 + d1
pt1[23]= pasx
pt1[24]= y1 + d2
pt1[25]= pasx * 2
pt1[26]= y1 + d1
pt1[27]= pasx * 3
pt1[28]= y1 + d2
pt1[29]= pasx * 4
pt1[30]= y1 + d1
pt1[31]= pasx * 5
pt1[32]= y1 + d2
pt1[33]= pasx * 6
pt1[34]= y1 + d1
pt1[35]= pasx * 7
pt1[36]= y1 + d2
pt1[37]= pasx * 8
pt1[38]= y1 + d1
pt1[39]= x1
pt1[40]= y1 + d2

region1=appeldll32("gdi32","CreateRectRgn",0,0,{fenencours()}..largeur,{fenencours()}..hauteur)
region2=appeldll32("gdi32","CreateRectRgn",0,0,{fenencours()}..largeur,{fenencours()}..hauteur)
region3=appeldll32("gdi32","CreatePolygonRgn",&pt1,20,1)

appeldll32("gdi32","CombineRgn",region1,region2,region3,4)
appeldll32("gdi32","DeleteObject",region2)
appeldll32("gdi32","DeleteObject",region3)

appeldll32("user32","SetWindowRgn",handle(),region1,1)
appeldll32("gdi32","DeleteObject",region1)