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;