Discussion :

[Charly910]

Bonjour à tous,

j'utilise la version Lite des AlphaControls (ou Alphaskins). Lorsque j'applique un skin (Windows10.asz par exemple) et que j’appelle la fonction SElectDirectory, la police de caractères du Treeview des répertoires et fichiers se met en très gras . Est ce un bug ? si oui, quelqu'un sait il comment revenir à la police normale de Windows ?

Merci
A+
Charly

[ShaiLeTroll]

Curieux, en XE2 sur Seven, sur un OnAdvancedCustomDraw d'un ListView, j'ai le même phénomène, je dessine une image et les colonnes suivantes de la ligne (SubItems) sont aussi en une vilaine grosse police (thème Windows et Thème Delphi)
Je retire le Draw Bitmap, et cela revient correcte !
pour le moment, j'ai pas trouvé mieux que dessiner que sur la dernière colonne
Si je trouve une solution a mon problème (j'aurais un peu de temps mercredi), je l'a proposerais, cela t'obligera peut-être a modifier le code AlphaSkins
Possible que l'origine soit la même, le TListView et le TTreeview sont tellement similaire comme contrôles Windows

[Charly910]

Merci Shai
par contre je n'ai pas le code des alphas controls, car j'utilise la version Lite !
C'est vrai que la police est très vilaine ! c'est dommage, car les skins sont vraiment super.
A+
Charly

[Charly910]

Bonjour,
j'ai posté sur le forum AlphaControls. Ils ne voient pas mon bug, j'ai envoyé cette petite demo jointe.

Si quelqu'un peut tester l'exe pour voir si la police du SelectoryDirectory est correcte ou bien en gras ...

je vous tiens au courant des réponses d'AlphaControls

Merci

A+
Charly

[Lung]

Si quelqu'un peut tester l'exe pour voir si la police du SelectoryDirectory est correcte ou bien en gras ...

Sous windows 8, j'obtiens ça :

[SergioMaster]

Aucun pb constaté sous W10

[Charly910]

Merci à tous les 2, sous W7 Family j'ai ceci :

A+
Charly

[SergioMaster]

Sous vista pas de souci non plus (je n'ai pas d'autres OS windows sous la main)

[Lung]

J'ai un Windows 7 pro sur une VM : pas de problème non plus.

[Charly910]

Aie, ça se corse !
Merci pour tous ces tests

Cela vient peut être de ma config de W7 Family pourtant je ne pense pas avoir quelque chose de spécial

A+
Charly

[Charly910]

Bonjour,

il faudrait peut être que je modifie la fonction SelectDirectory de l'unité FileCtlr pour forcer la police à non gras, mais vu la tête de la fonction cela dépasse largement mes compétences !

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
function SelectDirectory(const Caption: string; const Root: WideString;
  var Directory: string): Boolean;
var
  WindowList: Pointer;
  BrowseInfo: TBrowseInfo;
  Buffer: PChar;
  OldErrorMode: Cardinal;
  RootItemIDList, ItemIDList: PItemIDList;
  ShellMalloc: IMalloc;
  IDesktopFolder: IShellFolder;
  Eaten, Flags: LongWord;
begin
  Result := False;
  if not DirectoryExists(Directory) then
    Directory := '';
  FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
  if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil) then
  begin
    Buffer := ShellMalloc.Alloc(MAX_PATH);
    try
      RootItemIDList := nil;
      if Root <> '' then
      begin
        SHGetDesktopFolder(IDesktopFolder);
        IDesktopFolder.ParseDisplayName(Application.Handle, nil,
          POleStr(Root), Eaten, RootItemIDList, Flags);
      end;
      with BrowseInfo do
      begin
        hwndOwner := Application.Handle;
        pidlRoot := RootItemIDList;
        pszDisplayName := Buffer;
        lpszTitle := PChar(Caption);
        ulFlags := BIF_RETURNONLYFSDIRS;
        if Directory <> '' then
        begin
          lpfn := SelectDirCB;
          lParam := Integer(PChar(Directory));
        end;
      end;
      WindowList := DisableTaskWindows(0);
      OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
      try
        ItemIDList := ShBrowseForFolder(BrowseInfo);
      finally
        SetErrorMode(OldErrorMode);
        EnableTaskWindows(WindowList);
      end;
      Result :=  ItemIDList <> nil;
      if Result then
      begin
        ShGetPathFromIDList(ItemIDList, Buffer);
        ShellMalloc.Free(ItemIDList);
        Directory := Buffer;
      end;
    finally
      ShellMalloc.Free(Buffer);
    end;
  end;
end;

Est ce que ce serait une piste ?

A+
Charly

[Cirec]

Bonjour,

pour pouvoir tester correctement la démo de Charly910 (sans recompiler) il faut impérativement créer un répertoire nommé "Skins"
à la racine du "C" et y copier le fichier "Windows 10.asz" sinon la démo fonctionne sans Skin !!!

Si vous ne souhaitez pas faire cette manip. vous pouvez toujours télécharger la démo AlphaSkinLite
et dans la ComboBox "Avalaible Skins:" sélectionnez "Skins directory..." qui vous ouvre le même dialogue que celui de l'exemple de Charly910

Une dernière solution c'est d'embarquer le Skin dans l'application (AlphaSkin le permet) mais c'est a Charly de faire ça .. moi je n'ai pas installé AlphaSkin

Et donc ... voici le résultat

sous XP, Vista, seven la police est bien en gras :s

[SergioMaster]

Bonjour,

Pour pouvoir tester correctement la démo de Charly910 (sans recompiler) il faut impérativement créer un répertoire nommé "Skins"
à la racine du "C" et y copier le fichier "Windows 10.asz" sinon la démo fonctionne sans Skin !!!

Bien vu, je ne comprenais pas le pourquoi du AlphaSkins du titre, c'est le genre d'explication qui aurait du nous être fourni !
je retenterais un essai (en fonction de mon temps dispo)

[Charly910]

désolé de m'être mal expliqué !
voici le fichier Windows 10.asz zippé qu'il faut effectivement mettre dans c:\skins (comme dans la démo)

A+
Charly
Windows 10.zip

[Charly910]

Voici la démo avec le skin embarqué
A+
Charly
SelectDirectory avec Skin Windows10.zip

[SergioMaster]

Bonjour,

avec le alphaskin embarqué c'est mieux, moins de boulot à faire pour tester et effectivement la police de caractères du dialogue est en gras sur w10

[Lung]

et effectivement la police de caractères du dialogue est en gras sur w10

Pareil sur Windows 8 et 7 pro.

[Charly910]

Bonjour,
Merci beaucoup pour ces nouveaux tests.
Je n'ai pas de nouvelles du forum AlphaControls (après une première réponse du SAV !).
Cela m'ennuie, car le produit me semble très bien, mais ce petit bug me parait difficile à contourner

A+
Charly

[Charly910]

Bonjour,

le bug est réparé dans la version 10.26 des alphaControls que l'on peut télécharger ici :

http://www.alphaskins.com/

Merci à tous ceux qui ont pris le temps de tester

A+
Charly