Taille d'une scrollbar d'un TStringGrid

Bonjour a tous,

J'ai besoin d'utiliser une application sur un PC de bureau mais aussi sur un écran 10" tactile. Donc nous j'ai rendu toute l'IHM redimensionnable dynamiquement et je pensais que le drivers de l'écran tactile simulerait la roulette de la souris pour faire défiler les lignes d'une TAdvstringGrid.
Ceci n'étant pas le cas je souhaite redimensionner la taille des scrollbars de ma grille pour quelle soit accessible avec un doigt sur un écran 10". Je sais le faire dans Windows, mais je voudrai le faire en dynamique.

Je suis donc à la recherche d'un moyen pour faire cela.. si quelqu'un a des idées , des exemples ...

merci d'avance.

Par SystemParametersInfo(SPI_SETNONCLIENTMETRICS) mais les barres de défilement du système complet sont ajustées.

Voici une petite unité qui fait cela.

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
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
84
unit GUITweak;
 
interface
 
uses Windows, SysUtils;
 
type
  TMetricData = (mdScrollWidth,        //Taille du slider
                 mdScrollHeight,       //Taille des boutons
                 mdCaptionHeight,      //Hauteur de la barre de titre -> Boutons système
                 mdSmallCaptionHeight, //Hauteur de la petite barre de titre -> Boutons système
                 mdMenuHeight          //Hauteur des menus
                );
 
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, 0);
 
  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
  begin
    Result := SystemParametersInfo(SPI_SETNONCLIENTMETRICS, SizeOf(CurrentMetrics), @CurrentMetrics, SPIF_SENDCHANGE);
    MetricModified := MetricModified or Result;
  end;
end;
 
initialization
  SaveMetrics;
 
finalization
  RestoreMetrics;
 
end.

Merci ,

je m'en suis sortie avec ton aide .