Discussion :

[Bruno13]

Bonjour à tous,

Je cherche à afficher une image réduite dans un Hint. J'ai à l'origine une image PNG que je réduis dans une image BMP.
J'obtiens l'erreur EConvertError "Impossible d'affecter TBitmap à TControlCanvas" dans mon vtGetHintSize. Et même si je vire la ligne qui pose probleme (en gras dans le code), j'obtiens la meme erreur dans le vtDrawHint.

Quelqu'un peut-il m'aider ? D'avance merci

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
procedure TChild.vtGetHintSize(Sender: TBaseVirtualTree;  Node: PVirtualNode; Column: TColumnIndex; var R: TRect);
var
  PR:   TPatClass;
  aBMP: TBitmap;
  aPNG: TPNGImage;
begin
  PR:=GetPointerFromTree(Sender, Node);
  if Assigned(PR) then
  begin
    case Column of
    0: if FileExists(Path+'\'+cPathPicture+'\'+PR.Number+'.png') then
    begin
      aBMP := TBitmap.Create;
      aPNG := TPNGImage.Create;
      try
        aPNG.LoadFromFile(Path+'\'+cPathPicture+'\'+PR.Number+'.png');
        aBMP.Width:=aPNG.Width div 10;
        aBMP.Height:=aPNG.Height div 10;
        R:=Rect(0,0,aBMP.Width,aBMP.Height);

        //Copie de l'image avec redimensionnement sur le canvas du TBitmap
        aBMP.Canvas.StretchDraw(R, aPNG);
        Canvas.Handle := THintWindow.Create(TVirtualDrawTree(Sender)).Canvas.Handle;
        Canvas.Assign(aBMP);

      finally
        aPNG.Free;
        aBMP.Free;
      end;

      InflateRect(R, +5, +5);
    end;
  end;
end; {* proc .vtGetHintSize *}

procedure TChild.vtDrawHint(Sender: TBaseVirtualTree;
  HintCanvas: TCanvas; Node: PVirtualNode; R: TRect; Column: TColumnIndex);
var
  PR:    TPatClass;
  aBMP: TBitMap;
  aPNG: TPNGImage;
begin
  PR:=GetPointerFromTree(Sender, Node);
  if Assigned(PR) then
  begin
    case Column of
      0: if FileExists(Path+'\'+cPathPicture+'\'+PR.Number+'.png') then
      begin
      aBMP := TBitmap.Create;
      aPNG := TPNGImage.Create;
      try
        aPNG.LoadFromFile(Path+'\'+cPathPicture+'\'+PR.Number+'.png');
        aBMP.Width:=aPNG.Width div 10;
        aBMP.Height:=aPNG.Height div 10;
        R:=Rect(0,0,aBMP.Width,aBMP.Height);

        //Copie de l'image avec redimensionnement sur le canvas du TBitmap
        aBMP.Canvas.StretchDraw(R, aPNG);
        HintCanvas.Assign(aBMP);
      finally
        aPNG.Free;
        aBMP.Free;
      end;
      InflateRect(R, +5, +5);
    end;
  end;
end; {* proc .vtDrawHint *}

[ShaiLeTroll]

J'ai aussi refait le Hint pour remplacer le texte par du HTML et aussi avoir un hint sur un composant en enabled à false, je laisse imaginer le mécanisme intrusif que cela peu amener ... et j'ai ajouté dans le hint des boutons images car j'ai fait ma propre classe mais pas dérivée de HintWindow (je conserve la standard pour le hint sur les menus et le debug puisque le hint standard affiche le code HTML du Hint HTML qui affiche le Formatage )

Donc, j'écrirais plutôt

Code :

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

THintWindow.Create(TVirtualDrawTree(Sender)).Canvas.CopyRect(Rect(0, 0, ..., ...,), aBMP.Canvas, Rect(0, 0, ..., ...,) );

[Bruno13]

Bonjour,

Pourrais-tu me donner un peu plus de détails car je ne sais pas ce que je dois faire avec ta ligne ?

Dois-je l'affecter comme ceci :

Code :

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

Canvas.Handle:= THintWindow.Create(TVirtualDrawTree(Sender)).Canvas.CopyRect(R, aBMP.Canvas, R );

Biensûr avec :

Code :

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

R:=Rect(0,0,aBMP.Width,aBMP.Height);

Mais le type attend un HDC donc est-ce que cette ligne est complête ?

Merci pour ton aide.
Dans l'attente de te lire

[ShaiLeTroll]

Je n'ai pas fait d'affectation mais un appel de la méthode CopyRect qui recopie le dessin contenu dans aBMP.Canvas vers le HintWindow.Canvas ... j'ignore si cela fonction, mais en tout cas entre BMP.Canvas vers Icon.Canvas cela va parfaitement ...

[Bruno13]

Désolé cela ne semble pas fonctionner mais il est fort probable que je n'ai pas tout saisie dans ce que tu me dis.

D'autres idées ?

[Gilbert Geyer]

Si cela peut te donner des idées voiçi un bout de code qui permet d'insérer un Bmp dans un Hint (mais sans modifier la police de caractères) :

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
HINT + Icone Bmp
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, shellapi;
 
type
  TForm1 = class(TForm)
  ...
  procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
  TMyHintWindow = class(THintWindow)
  private
    ABitmap: TBitmap;
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  HintWindowClass := TMyHintWindow;
  ShowHint := true;
  Hint := '    Une image dans une info-bulle..'
end;
 
constructor TMyHintWindow.Create(AOwner: TComponent);
begin
  inherited;
  ABitmap:= TBitmap.Create;
  try
    ABitmap.LoadFromFile('popo.bmp');
    ABitmap.Transparent := true;
  except
    FreeAndNil(ABitmap);
  end;
end;
 
destructor TMyHintWindow.Destroy;
begin
  ABitmap.Free;
  inherited;
end;
 
procedure TMyHintWindow.Paint;
var  DC: HDC;
     R: TRect;
begin
 
  if Assigned(ABitmap) then
     Canvas.Draw(1, 2, ABitmap);
 
  inherited;
 
  DC := GetWindowDC(Handle);
  try
    R := Rect(0, 0, Width, Height);
    DrawEdge(DC, R, EDGE_ETCHED , BF_RECT + BF_MONO);
  finally
    ReleaseDC(Handle, DC);
  end;
 
end;
 
end.