TEXTE GRAPHIQUE AVEC CONTOUR, OMBRE ET TEXTURE EN API VERSION COMPOSANT

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 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 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+