bonjour
je cherche à utiliser GradientFill dans une Timage
avec ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
procedure degrader_new;
var
 handle_image:hdc;
 gRect : Trect;
 tab_vertex :array[1..2] of _trivertex;
 gr_rectangle:pointer;
 rectangle:gradient_rect;
begin
        tab_vertex[1].X:=10;
        tab_vertex[1].Y:=0;
        tab_vertex[1].Red:=0;
        tab_vertex[1].Green:=0;
        tab_vertex[1].Blue:=0;
        tab_vertex[1].Alpha:=0;
        tab_vertex[2].X:=0;
        tab_vertex[2].Y:=800;
        tab_vertex[2].Red:=0;
        tab_vertex[2].Green:=100;
        tab_vertex[2].Blue:= 0;
        tab_vertex[2].Alpha:= 0;
        rectangle.UpperLeft := 0;
        rectangle.LowerRight := 1;
        gr_rectangle:= pointer(@rectangle);
        handle_image := Form1.Image1.Canvas.Handle;
        GradientFill(handle_image ,tab_vertex[1], 2 ,gr_rectangle , 1,GRADIENT_FILL_RECT_H);
end;
j'obtiens un beau dégradé du noir au marron, ce qui n'est pas ce que je lui demande, de plus, les coordonnées ne correspondent pas.
Manifestement il y a un problème de prise de paramètres.
si vous pouvez m'aider à trouver mon erreur.. merci.
Jean Pierre