Un bug dans Delphi 6 ?

Question

Je viens d'ecrire le code suivant sous delphi 6 pro et j'obtient un drole de resultat ! Avant que la feuille devienne progressivement transparente elle devient noir ! Gros bug ou ca vient de chez moi ?

ceci dans une form avec un bouton !

procedure TfMain.bAlphaBlendClick(Sender: TObject);
var i: integer;
begin
if balphablend.Caption = 'Transparent' then
        begin
        fmain.AlphaBlend := true;
        for i := 254 downto 150 do fMain.AlphaBlendValue := i;
        balphablend.Caption := 'Opaque';
        end
else
        begin
        for i := 151 to 255 do fMain.AlphaBlendValue := i;
        fmain.AlphaBlend := false;
        balphablend.Caption := 'Transparent'
        end;

end;

cs_Gysmo · Answer

J'ai essayé ceci: 
Code: 
procedure TForm1.Button1Click(Sender: TObject); 
var i: integer; 
begin 
if Button1.Caption = 'Transparent' then 
begin 
i:=255; 
for i := 255 downto 150 do Form1.AlphaBlendValue := i; 
Button1.Caption := 'Opaque'; 
end 
else 
begin 
i:=151; 
for i := 151 to 255 do Form1.AlphaBlendValue := i; 
Button1.Caption := 'Transparent' 
end; 
end; 

Et ca marche tres bien!! 
AlphaBlend est toujours a True. 
Le caption du bouton est 'Transparent' a la creation. 

Voila babaille.

cs_Kane · Answer

Oui comme ca ca marche mais aussi la feuille est bien moins rapide si l'on desactive pas l'alpha !!

donc.. un bug !

cs_Gysmo · Answer

Effectivement, le probleme vient du changement d'AlphaBlend de true a false et viceversa.
Je serais amené apensé ke soit windows ki doit mal digéré le changement de la propriete ou ke tout simplement la form doit passer passer par la couleur de default (noir) pour se reinitialisé. Je sais pas.

Ben si tu trouve ke de gardé toujours alphablend a true ralenti ta fiche ben, ta ka la mettre en noir!

Babaille.

Un bug dans Delphi 6 ?

3 réponses

Votre réponse

Discussions similaires