Discussion :

[Roland Chastain]

Bonjour !

Je voudrais afficher une image et pour cela je suis parti de l'exemple voeux2012 inclus dans FlashPascal 2. Dans cet exemple les dimensions de l'image sont identiques à celles de l'animation. Lorsque j'ai voulu placer l'image à l'intérieur d'un cadre plus grand, j'ai constaté que l'image ne s'affichait plus correctement. Voici mon 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
program BitmapData1;
 
uses
  Flash8;
 
{$FRAME_WIDTH 320}
{$FRAME_HEIGHT 320}
{$JPEG img 'dfd.jpg'}
 
var
  b: BitmapData;
begin
   b:=BitmapData.create(300,300);
   b:= loadBitmap('img');
  _root.beginBitmapFill(b);
  _root.moveto(10,10);
  _root.lineto(310,10);
  _root.lineto(310,310);
  _root.lineto(10,310);
  _root.lineto(10,10);
  _root.EndFill();
end.

L'image fait 300 sur 300, et j'ai simplement essayé d'ajouter une marge de 10 tout autour. Le résultat c'est que les bords gauche et supérieur de l'image passent à droite et en bas.

Y a-t-il une erreur dans mon code ?

[Archimède]

Salut, curieux... pourtant, si je fais ça, pas de soucis lol

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
 
program voeux2012;
 
uses
  Flash8;
 
{$FRAME_WIDTH 540}
{$FRAME_HEIGHT 386}
{$JPEG img 'voeux2012.jpg'}
{$BACKGROUND 0}
 
var
  b: BitmapData;
begin
   b:=BitmapData.create(520,366);
   b:= loadBitmap('img');
   with _root do
   begin
    beginBitmapFill(b);
    moveto(10,10);
    lineto(530, 10);
    lineto(530,376);
    lineto(10, 376);
    lineto(10,10);
   end;
end.

?

[Roland Chastain]

Merci Anthony pour ta réponse. Je viens d'essayer le code que tu as posté : si tu y fais attention, il y a bien le défaut que j'ai signalé, sauf que ça ne se voit pas parce que le bord est blanc.

[Archimède]

sauf que ça ne se voit pas parce que le bord est blanc.

Ben si justement Roland... As-tu ajouté :

Code :

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

{$BACKGROUND 0}

[Roland Chastain]

Je ne me suis pas expliqué assez clairement, mais vois ce qui se passe avec une marge de 100 :

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
program voeux2012;
 
uses
  Flash8;
 
{$FRAME_WIDTH 720}
{$FRAME_HEIGHT 566}
{$JPEG img 'voeux2012.jpg'}
{$BACKGROUND 0}
 
var
  b: BitmapData;
begin
   b:=BitmapData.create(520, 366);
   b:= loadBitmap('img');
   with _root do
   begin
    beginBitmapFill(b);
    moveto(100, 100);
    lineto(620, 100);
    lineto(620, 466);
    lineto(100, 466);
    lineto(100, 100);
   end;
end.

[Archimède]

Je vois maintenant...je réfléchis...
Sinon, pourquoi ne pas procéder comme ça :

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
 
program voeux2012;
 
uses
  Flash8;
 
{$FRAME_WIDTH 720}
{$FRAME_HEIGHT 566}
{$JPEG img 'voeux2012.jpg'}
{$BACKGROUND 0}
 
var
  b: BitmapData;
  mc:movieclip;
begin
   b:=BitmapData.create(520, 366);
   b:= loadBitmap('img');
   mc:=movieclip.create(_root,'mypicture',0);
   with mc do
   begin
    attachbitmap(b,0);
    _x:=100;
    _y:=100;
   end;
end.