Font maker-creer des fontes graphiques

0/5 (7 avis)

Vue 12 745 fois - Téléchargée 1 043 fois

Description

Permet de faire des fontes graphiques sous un format propriétaire.
Programme utilisant ce type de fonte : saisie graphique ;)

Conclusion :


Je l'ai fait il y a qq temps déjà, merci de me dire ce que vous en pensez !!!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
17
Date d'inscription
mercredi 9 avril 2003
Statut
Membre
Dernière intervention
29 octobre 2008

Salut,

malheureusement je ne programme plus sous Delphi, ni sous Windows d'ailleurs ;)
j'essayerais de retrouver l'executable sur un de mes DDur et de l'ajouter au zip

A bientôt
Messages postés
5
Date d'inscription
jeudi 7 juillet 2005
Statut
Membre
Dernière intervention
29 octobre 2008

Hello,
ne programmant pas en Delphi, mais présentant un intérêt pour ce programme, serait-il possible d'en obtenir une version compilée et tournant sous Windows?
Merci d'avance
Messages postés
17
Date d'inscription
mercredi 9 avril 2003
Statut
Membre
Dernière intervention
29 octobre 2008

Merci pour ces infos, je crois que je vais reprendre ce code (ou celui ou celle qui veut, le code est à leur entière disposition)...

sinon pour le pb de quitter par le clic sur la croix, remplacer la fonction "FormClose" par :

procedure TFormFont.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg('Quitter l''application ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
Action := caFree
else
Action := caNone;
end;
Alors, merci beaucoup Flaith.

Petites (mais alors vraiment petites, c'est bien parce qu'il faut dire qqch) remarques:

- Dans la procedure ImgBoxMouseMove
GetPixel(ImgBox.Canvas.Handle,X,Y); peut être remplacé par l'utilisation de la propriété Pixels du TCanvas. Ce qui donne ImgBox.Canvas.Pixels[X,Y];
IntToStr( (WhatColor And $0000FF) ); //Rouge peut être remplacé par GetRValue(WhatColor).
De même pour le vert et le bleu ( GetGValue() et GetBValue() )

- Tu peux remplacer ton TImage et ta TScrollBar par un TScrollBox (palette suppléments) et dedans, tu mets un TImage avec AutoSize := True; Left :=0; Top :=0;

Tu t'évites ainsi la gesiton du Scroll et tu peux maintenant supprimer la variable bArray que tu transformes en MonImage.Picture.Bitmap.

- Quand on clique sur Fermer (la croix) et que l'on répond Non à la question, cela ferme quand même.

@ la prochaine
Messages postés
17
Date d'inscription
mercredi 9 avril 2003
Statut
Membre
Dernière intervention
29 octobre 2008

Maj effectuée - la RxLib est enlevée, Merci à FLORENTH ;)
Afficher les 7 commentaires

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.