Méthodes TForm.print et TComboBox

Version imprimable

06/06/2016, 20h54
BDE78

Méthodes TForm.print et TComboBox

Bonjour,

Je programme en delphi7, et lorsque j'utilise la méthode "print" de "TForm", les contenus (propriété "text") des TcomboBox de la feuille ne s'impriment pas si le "style" du TComboBox est défini à "csDropDown", alors qu'ils s'impriment si il s'agit de "csDropDownList" !

Cela est-il normal ?

Merci d'avance pour vos réponses.

BDE78
07/06/2016, 09h28
ShaiLeTroll
Exactement le même comportement sur XE2 en VCL avec Thème Système !

Même problème avec la méthode PaintTo
Code:

1 2 3 4 5 Img1.Picture.Bitmap.Height := 1000; Img1.Picture.Bitmap.Width := 1000; cbx1.PaintTo(Img1.Picture.Bitmap.Canvas, 0, 0); cbx2.PaintTo(Img1.Picture.Bitmap.Canvas, 0, 50);
Code:

1 2 3 Img1.Picture.Bitmap.Height := 1000; Img1.Picture.Bitmap.Width := 1000; cbx1.Parent.PaintTo(Img1.Picture.Bitmap.Canvas, -cbx1.Left, -cbx1.Top);
J'ai essayé au Self.PaintTo, même résultat !
Curieux même que cela fonctionne correctement, le texte ne doit pas être dessiné par le WM_PAINT mais par Windows
A la lecture du Code, dès que BevelKind est à bkNone (le cas par défaut), la méthode WMPaint ne fait rien et laisse donc Windows se débrouiller !
07/06/2016, 19h40
BDE78

Bonjour,

Merci pour la réponse.
Donc, pas de solution miracle !

J'imagine donc devoir être obligé de "tricher" :
- passer provisoirement le style du "combobox" à "csDropDownList",
- définir l'item à afficher comme l'ancien "text",
- lancer la méthode "print",
- re-affecter les bonnes valeurs au "combobox"...

Vais-je au devant de problèmes de "timing" : la méthode "print" aura-t-elle le temps d'imprimer avant la ré-affectation des valeurs au "combobox" ?

Cordialement
BDE78
08/06/2016, 09h42
ShaiLeTroll

La méthode Print utilise un GetFormImage qui utilise PaintTo, une fois dans le Canvas,
même si l'impression est asynchrone après le EndDoc, une fois que la méthode Print rend la main,
Windows à tout en mémoire pour imprimer et donc tu peux faire ce que tu veux ensuite
08/06/2016, 13h06
BDE78

Bonjour, et merci pour la réponse.

Je vais tester, et faire un retour...

BDE78
11/06/2016, 19h25
BDE78

Bonjour,

J'ai écris et testé un petit bout de code, et ça marche... mais je n'ai pas trouvé le moyen de le publier sur ce forum, à la manière "ShaiLeTroll" !

Merci d'avance de votre aide...

BDE78
13/06/2016, 09h08
ShaiLeTroll

c'est l'icone # ou [code][/code]

Bonjour,

Voici le code qui résoud mon problème d'impression des "TCombobox" avec style à "csDropDown" :

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
29
30
31
32
33
34
35
36
37
38
 
procedure F_form.ImprimerClick(Sender: TObject);
var i : integer;
begin
 
  // Modification des ComboBoxs "csDropDown" à "csDropDownList" avec énumération des contrôles...
  with F_form do
    for i := 0 to ComponentCount - 1 do
      if Components[i] is TComboBox then
        with TComboBox(Components[i]) do
          if Style = csDropDown then
            begin
            Items.Add(Text);
            Style := csDropDownList;
            ItemIndex := Items.Count - 1;
            Tag := 1;
            end
          else
            Tag := 0;
 
  // impression
  F_form.Print;
 
  // Rétablissement des ComboBoxs modifiés à "csDropDown" avec énumération des contrôles...
  with F_form do
    for i := 0 to ComponentCount - 1 do
      if Components[i] is TComboBox then
        with TComboBox(Components[i]) do
          if Tag = 1 then
            begin
            Style := csDropDown;
            ItemIndex := -1;
            Text := Items[Items.Count - 1];
            Items.delete(Items.Count - 1);
            Tag := 0;
            end;
 
end;

Comme déjà évoqué, je triche en passant provisoirement le style des "TComboBox" à "csDropDownList" :
Un "Item" est ajouté avec le contenu "text", et j'utilise "tag" comme marqueur des "TComboBox" modifiés,
avant de rétablir les propriétés initiales.

Merci encore pour vos conseils.

BDE78