TEXTE GRAPHIQUE AVEC CONTOUR, OMBRE ET TEXTURE EN API VERSION COMPOSANT DrawState, texture, ombre, fxLabel, Source N°47063

Information sur la source

Catégorie :Composants Classé sous : DrawState, texture, ombre, fxLabel Niveau : Débutant Date de création : 19/06/2008 Date de mise à jour : 22/06/2008 18:54:00 Vu / téléchargé: 1 529 / 136

Auteur : cirec

Ecrire un message privé

Note :

10,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Comme demandé ... voici la version composant

On prend les mêmes et on recommence ... avec quelques petits changements Mais je vous laisse découvrir

je vous la livre brute (je peaufinerai un peut plus tard ... promis)

pour ceux qui voudraient tester le problème décrit sur le forum
il faut activer la ligne :
{.$Define UseGraphUtil}
en début d'unité fxLabels.pas, en retirant le point, avant de compiler et d'installer (Merci à Caribensila pour la procédure GetShadowColor (pour l'idée et pour celle de remplacement))

pour ceux qui voudraient compiler sans installer copier l'unité fxLabels.pas dans le répertoire de la démo et compilez le en ligne de commande "dcc32.exe fxDemo.dpr"

Sinon il y a l'exe pour les autres ^^

Conclusion

Si vous avez des idées pour améliorer le composant ... il est tout jeune

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Compo
- fxLabelD7pkg.dpk624 octets
- fxLabelD7pkg.res1 644 octets
- fxLabels.dcr2 168 octets
- fxLabels.pas 9 609 octets
- ImgEffects.pas 5 535 octets
fxDemo.dpr 192 octets
fxDemo.ex_483 840 octets
fxDemo.res876 octets
UMain.dfm243 436 octets
UMain.pas 1 081 octets

Télécharger le zip

Historique

22 juin 2008 18:54:00 :: Ajout d'un AntiAliasing

Sources du même auteur

Toutes les sources de cirec

Sources de la même categorie

Toutes les sources de la catégorie Composants

Sources en rapport avec celle ci

Commentaires

Commentaire de Caribensila le 19/06/2008 21:03:24

('faut rendre à César...) :)

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.
Commentaire de cirec le 19/06/2008 21:22:53 administrateur CS

c'est vrai ... si il passe par ici ... Merci.

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 ?
Commentaire de Caribensila le 19/06/2008 21:49:48

J'ai pas encore testé à cause du foot (y'a Mauricio qui joue!!!).
Mais si César passe par ici, il ne va pas reconnaître sa fonction, c'est sûr! lol
Commentaire de cirec le 19/06/2008 22:45:26 administrateur CS

ben ça ma permis de trouver un bug donc voici la correction

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 ^^)
Commentaire de jackalunion le 22/06/2008 01:51:37

10/10 Cirec
Commentaire de MAURICIO le 30/06/2008 17:23:40

Salut à tous,

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+

Ajouter un commentaire

Discussions en rapport avec ce code source

Créer une ombre sous une forme par BXDS

application de texture dans un ttabsheet par teuzmanie

Télécharger dans l'ombre... par Encore1ben

Debutant en openGL (texture d'un cube) par Lennemi

opengl et MIPMAP par Vin-s

Comment mettre une ombre sous une form? par game50

Textures avec GLScene par leobaillard

Glscene retrecir par Nicolas___

probleme texture par damienlann