CHANGER LE TEXTE LA TAILLE ET LA POSITION DU BOUTTON MENU DÉMARRER

---

Auteur : cirec

Ecrire un message privé
Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note

ce petit prog sans prétention aucune explique comment récuperer le Handle du Boutton Démarrer
celui du Tray et la zone de notification des applications.
En plus il y a un example complet sur comment recuperer le texte d'un Boutton
Le changer, et comment en changer sa taille et sa position

Le tout et purement pédagogique et a coté fun quand on voit sa barre des Tâches Inversée

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bie n sûr aucun changement n'est Definitif
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!

En Sortant le Prog remet tout en place

si toutes fois ce n'était pas le cas au prochain rafraîchissement
tout revient à la normale(AUCUN CHANGEMENT N'EST PERMANENT)
Pour provoquer un Rafraîchissement Faire un contextuel sur la bare des Tâches
Cliquer sur Propriétés et Refermer en Cliquant sur OK

La seul Condition c'est d'avoir la bare des tâches soit en haut ou en bas
ca ne fonctionne pas si elle se trouve a gauche ou a droite



Sinon C'est Libre de droit et ce n'est pas garanti

Dans la procedure TForm1.ChangeMenuDemarrerClick(Sender: TObject)
Il y a au début ce que je pensait être le code pour recuperer la Fonte utilisée par:
    Btn_Font.Handle:= SendMessage(Hdl_Btn,WM_GETFONT,0,0);
{************************************************ ****************************}
// Normalement je devrais pouvoir récuperer la Font utilisé par le boutton Démarrer
// mais il m'indique Trebuchet MS alor que la Franklin Gothic Medium correspond mieux
  Btn_Font := TFont.Create; // on Crée un canvas Temporaire
    Btn_Font.Handle:= SendMessage(Hdl_Btn,WM_GETFONT,0,0);// Ceci devrait me donner la Font Utilisé par le Boutton Démarrer
      Btn_Canv := TCanvas.Create;    // on Cree un Canvas
        Btn_DC := GetWindowDC(Hdl_Btn); // on Recupère le DC qui permet en l'affectant a notre canvas d'eviter le message d' erreur suivant
          Btn_Canv.Handle := Btn_DC;  //Le Canvas ne permet pas de Dessiner
        Btn_Canv.Font.Assign(Btn_Font);// on l'assigne
      Label1.Font.Assign(Btn_Font);  // ici de même
    Label1.Caption := Btn_Canv.Font.Name; // on affiche sons nom
  Label2.Caption := IntToStr(Btn_Canv.Font.Height);// sa taille

{***************************************** ***********************************}


Il Récupère donc la Font mais ce n'est pas la bonne en effet il me retourne a priorit la Font
du Menu Démarrer et non celle du Boutton Démarrer
j'ai donc adapté la suite c'est forcément moins élégent mais bon

Voila si quelqu'un sait pourquoi Merci

pas d'autre problème connu

Télécharger le zip