ASQUI - UTILITAIRE ASCII.

DelphiCool
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009
- 18 août 2002 à 23:04
cs_FreDelph
Messages postés
31
Date d'inscription
mercredi 16 avril 2003
Statut
Membre
Dernière intervention
13 novembre 2006
- 6 avril 2005 à 13:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/12100-asqui-utilitaire-ascii

cs_FreDelph
Messages postés
31
Date d'inscription
mercredi 16 avril 2003
Statut
Membre
Dernière intervention
13 novembre 2006

6 avril 2005 à 13:53
Désolé pour le dérangement, je n'ai plus de pb en doublant && ...

Par curiosité mettez deux Panel et un bouton avec le code ci-dessous :

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Caption:='&';
Panel2.Caption:='&&';
end;
cs_FreDelph
Messages postés
31
Date d'inscription
mercredi 16 avril 2003
Statut
Membre
Dernière intervention
13 novembre 2006

1 avril 2005 à 11:36
J'ai un problème avec le caractère & que je n'arrive pas à faire afficher dans un panel caption.
Votre utilitaire ascii ne l'affiche pas non plus. Pourquoi et quelle est la solution ?
Merci
DelphiCool
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009

18 août 2002 à 23:04
c'est fait

bien pour la fonte, c'est à votre choix
mais courrier new est regulié, jel'aime bien :-)
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
31
18 août 2002 à 22:10
On pourrait pas afficher une police de caractères quelconque ?

D'autre part, pourquoi ne pas partager le code de CarClick, DecClick et HexClick ?
Chaque procédure effectue la même tâche :
ClipBoard.SetTextBuf(PChar(hex.Caption ));
beep;
En écrivant une seule procédure Click pour les trois, cela donnerait :
ClipBoard.SetTextBuf(PChar((Sender as TLabel).Caption ));
beep;