avant de me jeter sur le compo, je passe voir la source originnelle et paf ... (non, pas paf le chien ...) pas de commentaires: Honte à toi ^^
Je note pas, j' attends de voir si tu nous expliques un peu comment ça marche car c' est pas si simple que ça.
A+
Je viens de tester : Ca fonctionne nikel et le rendu est excellent. Coté code rien à redire : peut etre le niveau débutant est un peu light. Sinon moi aussi j'attend la version composant. Allez un 9/10 à code de ce bémol (composant je parle)
Salut,
Eh bein... Il y a de l'émulation sur delphifr en ce moment! C'est super! :)
Si tu reprends ton source, Cirec, je te suggère un petit truc sympa pour une ombre 'automatique' :
uses GraphUtil; // pour GetShadowColor, à partir de D6.
procedure Tfrm_Main.DoDrawText;
...
if cb_Shadow.Checked then
begin
//pb_Display.Canvas.Brush.Color := sh_Shadow.Brush.Color;
pb_Display.Canvas.Brush.Color := GetShadowColor(frm_Main.Color);
...
Vite fait, bien fait...j'ai une erreur :
"Erreur à la création de la fiche.Lors de la lecture de pb_Display.ExplicitLeft : la propriété ExplicitLeft n'existe pas"
En passant outre, ça compile et ça marche, mais le dessin du texte commence en dehors de la fenêtre. J'ai donc utilisé Demo.ex_, mais le résultat est le même.
En rajoutant un blanc devant, ça recentre, mais le souligné déborde toujours... peut-on le supprimer.
Et le rendu est sublime. Bravo !
Maintenant, je demande une procédure toute faire qui demande un Handle, un texte, une fonte et les paramètres de couleur/texture et qui fait tout le boulot !
Et le tout dans une unité séparée !
Comme ça, je copie ton unité et j'ai pas besoin d'adapter tout le code.
Voila voila, t'auras un 10/10 après ça !
PS: maintenant que t'es un pro de GDI, saurais-tu si on peut écrire selon une ligne inclinée, voire une courbe du type sinusoïde ?
- Messages postés
-
2106
- Date d'inscription
- mardi 10 décembre 2002
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2014
5avant de me jeter sur le compo, je passe voir la source originnelle et paf ... (non, pas paf le chien ...) pas de commentaires: Honte à toi ^^
Je note pas, j' attends de voir si tu nous expliques un peu comment ça marche car c' est pas si simple que ça.
A+
... mais j'attends aussi impatiemment une version en unité indépendante en vue du 10/10.
Superbe rendu en tout cas !
- Messages postés
-
400
- Date d'inscription
- samedi 6 août 2005
- Statut
- Membre
- Dernière intervention
- 11 février 2016
1- Messages postés
-
400
- Date d'inscription
- samedi 6 août 2005
- Statut
- Membre
- Dernière intervention
- 11 février 2016
1- Messages postés
-
4720
- Date d'inscription
- dimanche 26 février 2006
- Statut
- Modérateur
- Dernière intervention
- 31 juillet 2021
14avec quelques propriétés supplémentaires
çà pourrait faire un bon compo TCirecLabel
un peu sur le style des TfcLabel ou TcxLabel