Changer le texte la taille et la position du boutton menu démarrer
Description
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
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bien 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
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
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bien 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
Conclusion :
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
Codes Sources
A voir également
- Changer le texte la taille et la position du boutton menu démarrer
- Taille minimale code barre - Forum Delphi / Pascal
- Roulettechat texte - Forum PHP
- Menu c - Forum C
- Position lettre alphabet - Forum Visual Basic
- Position aléatoire ✓ - Forum Javascript / DHTML
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.