[AlphaControls] [D7] [Win32] Problème avec AlphaSkins

Version imprimable

28/01/2016, 16h25
Charly910

[AlphaControls] [D7] [Win32] Problème avec AlphaSkins

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
29/01/2016, 09h31
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
01/02/2016, 08h57
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
10/02/2016, 19h52
Charly910

1 pièce(s) jointe(s)

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
11/02/2016, 08h18
Lung

1 pièce(s) jointe(s)

Citation:

Envoyé par Charly910

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 :

Pièce jointe 200518
11/02/2016, 08h29
SergioMaster

Aucun pb constaté sous W10
11/02/2016, 09h06
Charly910

1 pièce(s) jointe(s)

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

A+
Charly

Pièce jointe 200523
11/02/2016, 11h13
SergioMaster

Sous vista pas de souci non plus (je n'ai pas d'autres OS windows sous la main)
11/02/2016, 12h40
Lung

J'ai un Windows 7 pro sur une VM : pas de problème non plus.
12/02/2016, 09h27
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

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:

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

14/02/2016, 15h40
Cirec

1 pièce(s) jointe(s)

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 :oops:

Et donc ... voici le résultat :)

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

Pièce jointe 200816
15/02/2016, 08h08
SergioMaster

Bonjour,

Citation:

Envoyé par Cirec

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)
15/02/2016, 13h39
Charly910

1 pièce(s) jointe(s)

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
Pièce jointe 200877
15/02/2016, 16h59
Charly910

1 pièce(s) jointe(s)

Voici la démo avec le skin embarqué
A+
Charly
Pièce jointe 200900
16/02/2016, 07h56
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 :aie: sur w10
16/02/2016, 08h11
Lung

Citation:

Envoyé par SergioMaster

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

Pareil sur Windows 8 et 7 pro.
17/02/2016, 11h49
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
19/02/2016, 17h36
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 :P

A+
Charly