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
| //GDI => Symbole Nucléaire :
//---------------------------
ret est un entier = 0
hdc est un entier = 0
X1 est un entier = 0
Y1 est un entier = 0
X2 est un entier = 0
Y2 est un entier = 0
X3 est un entier = 0
Y3 est un entier = 0
X4 est un entier = 0
Y4 est un entier = 0
hdc = AppelDLL32("user32", "GetDC", Handle(Image1))
//' Disque du haut
X1 = 5
Y1 = 5
X2 = 205
Y2 = 205
X3 = 165
Y3 = 5
X4 = 45
Y4 = 5
//Pie Me.hdc, 5, 5, 205, 205, 165, 5, 45, 5
ret = AppelDLL32("gdi32","Pie", hdc, X1, Y1, X2, Y2, X3, Y3, X4, Y4)
Trace(ret)
//' Disque du bas à gauche
X1 = 5
Y1 = 5
X2 = 205
Y2 = 205
X3 = 5
Y3 = 113
X4 = 50
Y4 = 205
//Pie Me.hdc, 5, 5, 205, 205, 5, 113, 50, 205
ret = AppelDLL32("gdi32","Pie", hdc, X1, Y1, X2, Y2, X3, Y3, X4, Y4)
Trace(ret)
//' Disque du bas à droite
X1 = 5
Y1 = 5
X2 = 205
Y2 = 205
X3 = 160
Y3 = 205
X4 = 205
Y4 = 113
//Pie Me.hdc, 5, 5, 205, 205, 160, 205, 205, 113
ret = AppelDLL32("gdi32","Pie", hdc, X1, Y1, X2, Y2, X3, Y3, X4, Y4)
Trace(ret)= |
Partager