Discussion :

[ch16089]

La taille de certains contrôles dépend du style d'apparence des fenêtres Windows (par exemple la hauteur du ScrollBar d'un ListView), d'où la nécessité d'adapter la taille des objets suivant le stype d'apprence.

Comment détecter le style d'apparence des fenêtres Windows "Windows classique", "Windows XP" et "Windows Aéro" ?

[mick605]

Salut

Sur Vista/Seven, pour savor si le theme aéro est activé, je fais :

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
const
  DwmIsCompositionEnabledSig = 'DwmIsCompositionEnabled';
 
function CompositingEnabled: Boolean;
var
  DLLHandle: THandle;
  DwmIsCompositionEnabledProc: function(pfEnabled: PBoolean): HRESULT; stdcall;
  Enabled : boolean;
begin
  Result := False;
  DLLHandle := LoadLibrary(dwmapi);
 
  try
    @DwmIsCompositionEnabledProc := GetProcAddress(DLLHandle, DwmIsCompositionEnabledSig);
 
    if Assigned(DwmIsCompositionEnabledProc) then
      DwmIsCompositionEnabledProc(@Enabled);
 
    Result:=Enabled;
  finally
    FreeLibrary(DLLHandle);
  end;
end;

Le reste, je ne sais pas. Bonne chance

[Franck SORIANO]

Comment détecter le style d'apparence des fenêtres Windows "Windows classique", "Windows XP" et "Windows Aéro" ?

Tu te poses la mauvaise question. Tu veux connaitre la taille des éléments visuels des contrôles.
La fonction GetSystemMetrics sert à ça.
Elle te renverra la taille de l'élément demandé quel que soit l'OS et le thème visuel actif.