TEXTE GRAPHIQUE AVEC CONTOUR, OMBRE ET TEXTURE EN API VERSION COMPOSANT
Caribensila
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
-
19 juin 2008 à 21:03
cs_Jean-Pierre Messages postés 82 Date d'inscription jeudi 25 septembre 2003 Statut Membre Dernière intervention 20 avril 2010 - 26 déc. 2008 à 19:52
cs_Jean-Pierre Messages postés 82 Date d'inscription jeudi 25 septembre 2003 Statut Membre Dernière intervention 20 avril 2010 - 26 déc. 2008 à 19:52
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/47063-texte-graphique-avec-contour-ombre-et-texture-en-api-version-composant
https://codes-sources.commentcamarche.net/source/47063-texte-graphique-avec-contour-ombre-et-texture-en-api-version-composant
26 déc. 2008 à 19:52
Cirec, merci de ce beau cadeau, chapeau bas !
Il est vrai que la possibilité d'ajout d'une texture sublime cette création.
Je note : 12/10 na ;-)
@+
(D7 sous Vista Pr)
30 juin 2008 à 17:23
en même temps, GetShadowColor() n' a rien de spécial et Forman ne me contredira pas je pense.
Alors, toujours pas de commentaire qui expliquerait comment ça marche et ça, je trouve dommage...
Je mets 10/10 pour l' effort d' en avoir fait un compo!
@cari: On a bien joué mais on s' est fait jeté: 246 occasions pour le Portugal contre 3 pour l' Allemagne, résultat final 3-2 !
A+
26 juin 2008 à 19:29
Maintenant, il va falloir lui trouver une place dans les programmes...
Où penses-tu qu'on peut mettre un tel label sans faire old-fashionned ?
Mais dans tous les cas, 10/10, forcément.
22 juin 2008 à 01:51
19 juin 2008 à 22:45
function GetShadowColor(BaseColor: TColor): TColor;
var rgbtResult: TRGBQuad ABSOLUTE Result;
begin
Result := ColorToRGB(BaseColor);
with rgbtResult do
begin
if (rgbRed <= $34) and (rgbGreen <= $34) and (rgbBlue <= $34) then
begin
Result := clWhite;
Exit;
end;
if rgbRed > 63 then
rgbRed := rgbRed - 64 //Dec(rgbRed, 64)
else
rgbRed := 0;
if rgbGreen > 63 then
rgbGreen := rgbGreen - 64 //Dec(rgbGreen, 64)
else
rgbGreen := 0;
if rgbBlue > 63 then
rgbBlue := rgbBlue - 64 //Dec(rgbBlue, 64)
else
rgbBlue := 0;
end;
end;
celle-ci colle au maximum a l'originale (en apparence ^^)
19 juin 2008 à 21:49
Mais si César passe par ici, il ne va pas reconnaître sa fonction, c'est sûr! lol
19 juin 2008 à 21:22
en attendant j'ai un peut modifié cette fonction pour
1° coller au plus près avec la fonction original
surtout avec un fond noir.
2° pour l'accélérer un peut ^^
function GetShadowColor(BaseColor: TColor): TColor;
var rgbtResult: TRGBQuad ABSOLUTE Result;
begin
Result := ColorToRGB(BaseColor);
if Result = clBlack then
begin
Result := clWhite;
Exit;
end;
Dec(rgbtResult.rgbRed, 64);
Dec(rgbtResult.rgbGreen, 64);
Dec(rgbtResult.rgbBlue, 64);
end;
sinon ça fonctionne ?
19 juin 2008 à 21:03
Je tiens à préciser que la fonction de remplacement "GetShadowColor" n'est pas de moi!
Je l'ai trouvée qq part sur le Net et j'ignore qui l'a codée le premier, mais on lui dit merci.