ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment changer la couleur des barres titre dans un application   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes

Comment changer la couleur des barres titre dans un application
# 0000000249
ajouté le 06/10/2005 22:20:13 et modifié le 29/03/2006
consulté 7206 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Description

Vu que la couleur des barres titre sont géré par Windows, le code suivant change tous les barres titre.

Code source :
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
  Top = 114
  Left = 197
  DoCreate = .T.
  Caption = "Form1"
  l = 6956042
  ADD OBJECT command1 AS commandbutton WITH ;
    AutoSize = .T., ;
    Top = 24, ;
    Left = 96, ;
    Height = 27, ;
    Width = 208, ;
    Caption = "Changer la couleur de la barre titre", ;
    Name = "Command1"
  ADD OBJECT command2 AS commandbutton WITH ;
    AutoSize = .T., ;
    Top = 78, ;
    Left = 110, ;
    Height = 27, ;
    Width = 181, ;
    Caption = "Remettre la couleur original", ;
    Name = "Command2"
  PROCEDURE changerlacouleurdelabarredetitre
    LPARAMETERS NewColor
    #DEFINE COLOR_ACTIVECAPTION  2
    Local lRet
    lRet = SetSysColors(1, COLOR_ACTIVECAPTION, NewColor)
    ChangeTitleBarColor = lRet > 0
  ENDPROC
  PROCEDURE trouverlacouleur
    GetTitleBarColor1 = GetSysColor(COLOR_ACTIVECAPTION)
    Return GetTitleBarColor1
  ENDPROC
  PROCEDURE Load
    DECLARE INTEGER GetSysColor IN user32 INTEGER nIndex
    DECLARE INTEGER SetSysColors IN user32;
        INTEGER nChanges,;
        INTEGER @ lpSysColor,;
        INTEGER @ lpColorValues

  ENDPROC
  PROCEDURE command1.Click
    thisform.l = thisform.trouverlacouleur()
    thisform.changerlacouleurdelabarredetitre(RGB(255, 0, 0))
  ENDPROC
  PROCEDURE command2.Click
    thisform.changerlacouleurdelabarredetitre(thisform.l)
  ENDPROC

ENDDEFINE

Commentaires
le 09/10/2005, Francis Faure a écrit :
c'est futé !
bravo


Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3