Salut
Existe-t-il une API permettant de récuperer la couleur personnalisée du theme de Seven ? (celle qui entoure les fenetres)
Merci d'avance ^^
Salut
Existe-t-il une API permettant de récuperer la couleur personnalisée du theme de Seven ? (celle qui entoure les fenetres)
Merci d'avance ^^
Articles :
Création d'un système de chat en Pascal
Programmes :
Défi Pascal 2011 - Mon Tetris
Défi Pascal 2010 - Mon système de chat
Défi Delphi 2009 - Mon Sudoku Solver
Retrouvez mes différents projets sur ma page personnelle.
Touche F1 !!!!!
la constante clWindowFrame doit correspondre à ce que tu cherche.
Mes tutoriels
Avant de poster :
- F1
- FAQ
- Tutoriels
- Guide du développeur Delphi devant un problème
Merci, mais ce n'est pas ca apparemment ...
Chez moi, le theme est bleu foncé, et clWindowFrame est gris tres foncé ...
De plus, appuyer sur F1 quand on sait pas ce qu'on cherche n'aide pas vraiment ... Surtout que sur ma version, D2005 Perso, l'aide ne trouve aucune page contenant clWindowFrame ...
Enfin, merci quand meme ... Si tu as une autre idée ...
Articles :
Création d'un système de chat en Pascal
Programmes :
Défi Pascal 2011 - Mon Tetris
Défi Pascal 2010 - Mon système de chat
Défi Delphi 2009 - Mon Sudoku Solver
Retrouvez mes différents projets sur ma page personnelle.
Peut-être
ou par ThemeServices, mais ça n'a pas l'air d'être possible.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 GetSysColor(COLOR_ACTIVECAPTION);
Delphi 7/XE2/XE3
C#
Oracle 9i à 12c
SQL Server 2008 à 2014
Salut
ne fonctionne pas, meme en changeant la constante ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part GetSysColor(COLOR_ACTIVECAPTION);
Par contre, meme si l'unité Themes (que je ne connaissais pas) ne fait pas ce que je veux, elle contient plein de trucs super utiles ! Je vais continuer dans cette voie. Merci Linkin !
En attendant, si quelqu'un a la solution, qu'il me fasse signe ^^ !
Merci d'avance
Articles :
Création d'un système de chat en Pascal
Programmes :
Défi Pascal 2011 - Mon Tetris
Défi Pascal 2010 - Mon système de chat
Défi Delphi 2009 - Mon Sudoku Solver
Retrouvez mes différents projets sur ma page personnelle.
Je n'ai pas seven chez moi mais vista... J'ai cherché sur le net une fenêtre seven et j'ai capturé le code hexa avec une boîte à couleurs que j'avais faite ...
voilà le code de la couleur qui entoure une fenêtre seven: $FFEBD9
salut
Articles :
Création d'un système de chat en Pascal
Programmes :
Défi Pascal 2011 - Mon Tetris
Défi Pascal 2010 - Mon système de chat
Défi Delphi 2009 - Mon Sudoku Solver
Retrouvez mes différents projets sur ma page personnelle.
Ok, je croyais que tu voulais la couleur par défaut...Là, c'est une autre histoire.
excuse, si c'est pour un utilisateur qui a choisi une couleur personnalisée en effet...
et indirectement, un truc comme ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 color:=getpixel(getwindowdc(0),Form1.ClientOrigin.X+2,form1.ClientOrigin.y+2);
Ouais, j'y avais pensé ... Mais les captions des fenetres sont transparentes, et donc le résultat dépends de ce qu'il y a en dessous ... et le caption n'est pas de couleur uniforme ... En plus, je me dis qu'il y a forcément une API qui fait ca automatiquement ... Le truc c'est de la trouver ...
Et comme on dit, mieux vaut un qui sait que 10 qui cherchent ...
Merci de t'interresser a mon probleme ^^
Articles :
Création d'un système de chat en Pascal
Programmes :
Défi Pascal 2011 - Mon Tetris
Défi Pascal 2010 - Mon système de chat
Défi Delphi 2009 - Mon Sudoku Solver
Retrouvez mes différents projets sur ma page personnelle.
En plus, c'est plutôt :
clientorigin.x-2 et clientorigin.y-2 lol
oui, il doit y avoir une api...
à chercher
J'ai fait une découverte interressante ^^
http://www.developpez.net/forums/d95...a/#post5359695
Malheureusement, en ce qui concerne la couleur du theme de Seven, je n'ai toujours pas trouvé !
Articles :
Création d'un système de chat en Pascal
Programmes :
Défi Pascal 2011 - Mon Tetris
Défi Pascal 2010 - Mon système de chat
Défi Delphi 2009 - Mon Sudoku Solver
Retrouvez mes différents projets sur ma page personnelle.
J'avais mal vu ! J'ai trouvé cette API : c'est DwmGetColorizationColor
Cette fonction permet de la récuperer :
Merci a vous tous,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 function DwmGetColorizationColor(var pcrColorization: Longword; var pfOpaqueBlend: Boolean): Longword; stdcall; external 'dwmapi.dll'; function AeroColor: TColor; Var Col: Longword; Tmp: Boolean; begin DwmGetColorizationColor(Col, Tmp); Result := rgb(GetBValue(Col), GetGValue(Col), GetRValue(Col)); end;
Mick605
Articles :
Création d'un système de chat en Pascal
Programmes :
Défi Pascal 2011 - Mon Tetris
Défi Pascal 2010 - Mon système de chat
Défi Delphi 2009 - Mon Sudoku Solver
Retrouvez mes différents projets sur ma page personnelle.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager