Discussion :

[jujuesteban]

à tous

Voilà j'ai récupérer ce code sur ******* mais je n'arrive pas à l'utiliser ...
voilà si vous pouviez m'expliquer un peu :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
function SetImgAngle(angle:integer; source:TBitmap):TBitmap;
var
n:integer;
Largeur,ecart:integer;
pi2:extended;
z:extended;
col_prov,lig_prov:integer;
i,j:integer;
couleur:DWord;
xx,yy,x,y:integer;
//Pour accelerer les chose: variable d'optimization
cz,sz:extended;
czpi,szpi:extended;
begin
n:=source.Width;
Largeur:= source.Width div 2;
result:=TBitmap.create;
result.Height:=300;result.Width:=300;//a changer;
ecart:= trunc((Sqrt(2*Sqr(n)) - n)/2);
pi2:= pi / 2;
z:= 0.01745 * angle;
x:=source.Width div 2;y:=source.Height div 2;
cz:=Cos(z);sz:=Sin(z);
czpi:=Cos(z + pi2);
szpi:=Sin(z + pi2);
for i:= -ecart to n + ecart do begin
    col_prov:= trunc(Largeur + ((i - Largeur) * cz));
    lig_prov:= trunc(Largeur + ((i - Largeur) * sz));
    for j:= -ecart to n + ecart do begin
 
        xx:=trunc(col_prov + ((j - Largeur) * czpi));
        yy:=trunc(lig_prov + ((j - Largeur) * szpi));
        Couleur:=source.Canvas.Pixels [xx,yy];
 
        if (Couleur <> -1) and (Couleur <> $FFFFFF) then begin
            xx:=i + (X - Largeur);
            yy:=j + (Y - Largeur);
            result.Canvas.Pixels[xx,yy]:=Couleur
        end;
    end;
end;
end;

pour le lancer:
2 images + un scrollbar (par exemple):
image2.picture.Bitmap:=SetImgAngle(scrollbar1.Position,image1.Picture.Bitmap)

C'est pour le lancer que j'ai un problème l'histoire du scrollbar j'ai un peu de mal j'ai essayer comme ceci mais en vain ... j'ai un gros carré noir qui s'affiche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  img : TBitmap;
begin
     img :=Tbitmap.Create;
     img.LoadFromFile('c:\fleche.bmp');
     form1.canvas.Draw(50,50,setImgAngle(30,img));
 
end;

d'avance

[remixtech]

Heu ,

Je suis pas trop sur d'avoir tout compris,mais je me lance

La scrollbar n'est en faite qu'un moyen,pour modifier l'angle de rotation, l'auteur aurait du utiliser une TrackBar, c'est plus parlant ...

Alors pour ta procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject); 
var 
  img: TBitmap; 
begin 
     img :=Tbitmap.Create; 
 
     img.LoadFromFile('c:\fleche.bmp'); 
 
    image1.picture.bitmap  := setImgAngle(20,img);
 
end;

essais comme cela pour voir si le code est fonctionel ...

[jujuesteban]

image1.picture.bitmap := setImgAngle(20,img);

euhhh je crois que c'est pas image1 mais img mais le plus génant c'est qu'il n'y a pas de clause picture sur les Tbitmap ... il y a bien une clause picture mais uniquement pour les TImage ...
C'est bien mon problème car je dois utiliser un Tbitmap ...
tout de même pour ton aide
si vous avez des n'hésitez pas

[Jean44]

J'écrirais l'appel de fonction plutôt ainsi, sinon tu perds la référence du pointeur TBitmap créé dans SetImgAngle, et tu provoques ainsi une fuite de tas (espace mémoire perdu). De même, dans Button1Click il faut libérer les TBitmap, sinon tu les perds dès la sortie de la procédure.

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
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  img   : TBitmap;
  img2 : TBitmap;
begin 
     try
       img :=Tbitmap.Create; 
       img.LoadFromFile('c:\fleche.bmp'); 
       img2 := SetImgAngle( 30, img);
       form1.canvas.Draw(50,50, img2); 
     finally
       img.Free;
       img2.Free;
     end;
end;

[remixtech]

La procédure demande bien un
function SetImgAngle(angle:integer; source:TBitmap):TBitmap;
et en sors un tbitmap

En faite place un Timage sur ta form , juste pour essayer le code,

image1.picture.bitmap := setImgAngle(20,img);

Tu vois si il y'a qqch qui s'affiche dans le Timage...

Si il n'y a rien je pense que cela vient du code ...

Sinon va voir ici , le code marche ->
http://www.swissdelphicenter.ch/en/showcode.php?id=1540

Voila ;-)

Ps : Excusez moi pour les .free , je l'ai oublie toujours quand je mets des codes sur le forum

[rbag]

C'est bien le code qui ne marche pas... Ici un code beaucoup plus rapide (utilisation de scanline):

http://homepages.borland.com/efg2lab/ImageProcessing/RotateScanline.htm

[jujuesteban]

à tous pour votre aide
Là je commence à lire la méthode scanline qui a priori devrait mieux fonctionner que celle-ci rbag

@ bientôt

[jujuesteban]

En faite place un Timage sur ta form , juste pour essayer le code,
image1.picture.bitmap := setImgAngle(20,img);
Tu vois si il y'a qqch qui s'affiche dans le Timage...
Si il n'y a rien je pense que cela vient du code ...

remixtech il n'y avait pas de problèmes de code de ce côté là mais voilà d'une part le rendu est long avec cette méthode et en plus cela fonctionne pas terrible alors :
utlitiser ScanLine http://homepages.borland.com/efg2lab/ImageProcessing/RotateScanline.htm