Discussion :

[Laurent G]

j'ai cherché sur le net et sur le forum mais je n'arrive pas à trouver comment modifier la largeur de la fléche d'un combobox
quelqu'un aurait il déjà fait cela
c'est pour une appli sur tablette qui tourne en windows 8.1 j'ai un combobox mais la zone de la fleche est un peu petite

Merci pour votre aide

[Paul TOTH]

j'ai cherché sur le net et sur le forum mais je n'arrive pas à trouver comment modifier la largeur de la fléche d'un combobox
quelqu'un aurait il déjà fait cela
c'est pour une appli sur tablette qui tourne en windows 8.1 j'ai un combobox mais la zone de la fleche est un peu petite

Merci pour votre aide

pour autant que je sache, c'est une flèche dessinée par Windows...sauf à partir sur un composant tiers, je ne fois pas de solution.

[Laurent G]

Merci pour la réponse, je vais partir sur un combobox perso

[Andnotor]

On peut modifier la largeur pour le système complet mais pas pour une seule application. La largeur du bouton du combo suit les réglages des boutons des scrollbars. La hauteur par contre est dépendante de la police utilisée et est calculée automatiquement.

On utilisera SystemParametersInfo(SPI_SETNONCLIENTMETRICS).

Voilà une unité qui fait cela:

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
83
unit GUITweak;
 
interface
 
uses Windows, SysUtils;
 
type
  TMetricData = (mdScrollWidth, 
                 mdScrollHeight,      
                 mdCaptionHeight,      //Hauteur de la barre de titre -> Boutons système
                 mdSmallCaptionHeight, //Hauteur de la petite barre de titre -> Boutons système
                 mdMenuHeight        
                );
 
function RestoreMetrics: Boolean;
function SetNonClientMetrics(aSize :integer; aMetricData :TMetricData) :boolean;
 
implementation
 
var
  MetricModified :boolean = FALSE;
  OldMetrics     :NONCLIENTMETRICS;
  CurrentMetrics :NONCLIENTMETRICS;
 
procedure SaveMetrics;
begin
  OldMetrics.cbSize := SizeOf(OldMetrics);
 
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(OldMetrics), @OldMetrics, SPIF_SENDCHANGE);
 
  CurrentMetrics := OldMetrics;
end;
 
function RestoreMetrics: Boolean;
begin
  if MetricModified then
  begin
    Result := SystemParametersInfo(SPI_SETNONCLIENTMETRICS, SizeOf(OldMetrics), @OldMetrics, SPIF_SENDCHANGE);
 
    if Result then
    begin
      MetricModified := FALSE;
      CurrentMetrics := OldMetrics;
    end;
  end;
end;
 
function SetNonClientMetrics(aSize :integer; aMetricData :TMetricData) :boolean;
 
  function Check(aOld :integer; var aCurrent :integer) :boolean;
  begin
    Result := ((aSize = 0)  and (aCurrent <> aOld)) or
              ((aSize <> 0) and (aSize <> aCurrent));
 
    if Result then
      if aSize = 0
      then aCurrent := aOld
      else aCurrent := aSize;
  end;
 
begin
  case aMetricData of
    mdScrollWidth        : Result := Check(OldMetrics.iScrollWidth, CurrentMetrics.iScrollWidth);
    mdScrollHeight       : Result := Check(OldMetrics.iScrollHeight, CurrentMetrics.iScrollHeight);
    mdCaptionHeight      : Result := Check(OldMetrics.iCaptionHeight, CurrentMetrics.iCaptionHeight);
    mdSmallCaptionHeight : Result := Check(OldMetrics.iSmCaptionHeight, CurrentMetrics.iSmCaptionHeight);
    mdMenuHeight         : Result := Check(OldMetrics.iMenuHeight, CurrentMetrics.iMenuHeight);
    else Result := FALSE;
  end;
 
  if Result then
    Result := SystemParametersInfo(SPI_SETNONCLIENTMETRICS, SizeOf(CurrentMetrics), @CurrentMetrics, SPIF_SENDCHANGE);
 
  MetricModified := MetricModified or Result;
end;
 
initialization
  SaveMetrics;
 
finalization
  RestoreMetrics;
 
end.

qu'on appellera simplement par SetNonClientMetrics(50, mdScrollWidth);. Les réglages d'origine sont restaurés lorsqu'on quitte notre application.

Il faut savoir que cette routine broadcast en synchrone le changement à toutes le fenêtre principales. Le retour de la procédure peut prendre du temps en fonction du nombre d'applications en cours (et de leur réponse respective). Sans SPIF_SENDCHANGE, les changements ne seront visibles qu'au rafraîchissement des différentes fenêtres.

A noter que le redimensionnement des scrollbars n'est pas un luxe en tactile

[ShaiLeTroll]

Même triste contast !
le TDateTimePicker fait tout seul le redimensionnement de son button calendrier
Si le Width du TDateTimePicker est plus grande que la taille du format long de date, exemple 'mardi 7 juillet 2015'
Automatiquement, le button devient plus grand (ajout d'une icone) sous Seven et avec les thèmes Delphi XE2 le bouton est plus large (deux fois plus large)

J'ai cherché comme faire sur un ComboBox, je trouvais l'idée excellente
Mais je n'ai réussi qu'à lire la taille

Code :

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

1
2
3
4
5
6
7
8
procedure TZooShaiVCLMainForm.btnComboBoxGetButtonSizeClick(Sender: TObject);
var
  info: TComboBoxInfo ;
begin
  info.cbSize := SizeOf(TComboBoxInfo);
  GetComboBoxInfo(cbxWithSizableButton.Handle, info);
  ShowMessage(Format('%d %d %d %d', [info.rcButton.Left, info.rcButton.Top, info.rcButton.Width, info.rcButton.Height]));
end;

Je me suis rabattu sur un TButtonedEdit avec un TImageList en 16x48 qui affiche une fenêtre créée en WS_EX_NOACTIVATE

Dans mon cas, ce n'est pas une tablette mais un écran tactile, à l'époque de XP, il était plus difficile de modifier le zoom de Windows
Avec Seven, c'est une simple option 100 à 150 mais cela change aussi tout le système,
très utile pour un utilisateur qui a besoin de confort visuel plus que bcp de lignes dans une grille

En Delphi, il existe ScaleBy qui permet de zoomer son application
Cela permet de conserver Windows en 100%
un écran avec une grille aura tendance à rester à 100% pour avoir plus de colonne et plus de ligne (en particulier des tableaux de bord et statistiques)
un écran de saisie avec 10 ou 20 champs et une petite grille pourra facilement être zoomé

Ainsi, je peux développer un écran en 800x600 et l'utilisateur qui travaille en 1600x900 ou 1920x1080 utilise un zoom à 125, 150 (cela peut être celui de Windows ou celui indépendant géré par l'application où j'ai prévu jusqu'à 200%)
Mais comme par hasard, l'un des seuls éléments qui ne bougent pas c'est le bouton du ComboBox qui reste tout petit et fait tache dans une application en zoom 150%