Discussion :

[Bernard B]

Bonjour,
Je viens de tomber sur un pb bizarre avec XE2.
Dans cette function de l'unité GR32_image de la GR32 (qui fonctionne avec D2010) :

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
function TCustomImage32.GetBitmapRect: TRect;
var
  Size: TSize;
 
begin
  if Bitmap.Empty then
    with Result do
    begin
      Left := 0;
      Right := 0;
      Top := 0;
      Bottom := 0;
    end
  else
  begin
    Size := GetBitmapSize;
    with Size do
    begin
      Result := Rect(0, 0, Cx, Cy);
      if BitmapAlign = baCenter then
      begin
        OffsetRect(Result,(Width - Cx) div 2,(Height - Cy) div 2)
      end else if BitmapAlign = baCustom then
        OffsetRect(Result, Round(OffsetHorz), Round(OffsetVert));
    end;
  end;
end;

Bien que passant correctement dans la ligne :

Code :

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

OffsetRect(Result,(Width - Cx) div 2,(Height - Cy) div 2)

le résultat était anormal. En faisant du pas à pas dans la fonction il apparait que le résultat de (Width - Cx) div 2 ou de (Height - Cy) div 2 est toujours égal à 0, ce qui est pour le moins étrange car il aurait du être de l'ordre de 40 et 50, les variables ayant les bonnes valeurs.

La seule solution que j'ai trouvé, c'est de remplacer la ligne en question par :

Code :

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

OffsetRect(Result,(Self.Width - Cx) div 2,(Self.Height - Cy) div 2)

Y a-t-il un gros truc que je vois pas ?

[Andnotor]

Je n'ai pas XE2, mais La déclaration de TSize a peut-être évolué comme ceci (à contrôler):

Code :

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

1
2
3
4
5
  TSize = record
    case Integer of
      0: (cx, cy: Longint);
      1: (Width, Height: Longint);
  end;

ps: Ne te fie pas à ce qu'affiche la fenêtre d'info au survol. Elle n'aime pas beaucoup les with

[Bernard B]

C'est effectivement une possibilité. En pas à pas je pouvais connaitre la valeur de Cx mais pas celle de Cy ?

Par contre je ne vois pas en quoi le fait de faire référence à self change quelque chose.

Je me corrige moi même effectivement, cela se confirme, le résultat était toujours égal à 0. Comme Cx et Width ont la même valeur....

Merci pour tes lumières. je vais voir le TSize