GradientFill et paramètres

Version imprimable

bonjour
je cherche à utiliser GradientFill dans une Timage
avec ce code
Code:

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

Ce code ne devrait même pas compiler :koi:. GradientFill attend un pointer sur un array de TTriVertex.

Ensuite les positions comme écrites dessine un rectangle de 0/0, 10/800 avec un remplissage de droite à gauche. (Le 2ème vertex est plus à gauche que le 1er)

Enfin les composantes sont sur 16 bits (Color16). Passer 100 à Green ne fera pas une grande différence de couleur.

Code:

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
procedure degrader_new;
var
 handle_image :hdc;
 tab_vertex   :array[1..2] of TTriVertex;
 rectangle    :TGradientRect;
begin
  tab_vertex[1].X:=10;           //Offset X = 10
  tab_vertex[1].Y:=10;           //Offset Y = 10
  tab_vertex[1].Red:=0;
  tab_vertex[1].Green:=0;
  tab_vertex[1].Blue:=0;
  tab_vertex[1].Alpha:=0;
 
  tab_vertex[2].X:=20;           //Largeur = 10
  tab_vertex[2].Y:=100;          //Hauteur = 90
  tab_vertex[2].Red:=0;
  tab_vertex[2].Green:=25500;    //Vert foncé
  tab_vertex[2].Blue:= 0;
  tab_vertex[2].Alpha:= 0;
 
  rectangle.UpperLeft := 0;
  rectangle.LowerRight := 1;
 
  handle_image := Form1.Image1.Canvas.Handle;
 
  //Dégradé gauche-droite (noir à vert foncé)
  GradientFill(handle_image, @tab_vertex, 2, @rectangle, 1, GRADIENT_FILL_RECT_H);
end;

19/03/2009, 05h47
potili2
merci pour ces éclaircissements ((c'est la première fois que je touche à ce genre de choses)
il y avait un autre problème du à une erreur de windows.pas (trouve sur un site anglais) il faut donc redéfinir la fonction
Code:

1 2 3 function GradientFill(DC : hDC; pVertex : Pointer; dwNumVertex : DWORD; pMesh : Pointer; dwNumMesh, dwMode: DWORD) : DWord; stdcall; external 'msimg32.dll';
comme ça, c'est bon.
Jean Pierre