Alpha 0%

[CPP-Programmer]

Doch leider schon. Aber ist auch nicht sooo schlimm. Nur noch eine frage. Wie mach ich es das es von alpha 0 bis alpa 100 in 3sec abgespielt wird o. so ä.?

[3_of_8]

Ich meinte, wenn eine Farbe drin nicht vorkommt, nimm die einfach. Probiers mal mit clFuchsia.

Für das "Verblassen" schreibst du:

Delphi-Quellcode:

start:=GetTickCount;
repeat AlphaBlendValue:=3000*255 div (GetTickCount-start+1) until GetTickCount>=start+3000;

Die Variable start muss ein Cardinal sein. Deklarier sie einfach.

"Entblassen" geht so:

Delphi-Quellcode:

start:=GetTickCount;
repeat AlphaBlendValue:=255-(3000*255 div (GetTickCount-start+1)) until GetTickCount>=start+3000;

[CPP-Programmer]

Zitat von 3_of_8:

Die Variable start muss ein Cardinal sein. Deklarier sie einfach.

Ich hab ja schon einiges jetzt gelernt. Aber was ist ein Cardinal? Sind das nicht die im Vatikanstaat?

[dfried]

Zitat von CPP-Programmer:

Ich hab ja schon einiges jetzt gelernt. Aber was ist ein Cardinal? Sind das nicht die im Vatikanstaat?

Steh am besten mal mit dem Cursor drauf und drück F1!
Cardinal ist ein Datentyp.

[CPP-Programmer]

Ahhh gut danke. Vielleicht noch kurz was dazwischen, was ist daran falsch

Delphi-Quellcode:

var eingabetext: textfile; 
begin
write(eingabetext, edit1);
rewrite(eingabetext, 'c:\data.txt');
close(eingabetext);
end;

und stimmt das dann so:

Delphi-Quellcode:

procedure Tform1.createform(sender: Tobject);
var start: cardinal;
begin
start:=GetTickCount;
repeat AlphaBlendValue:=255-(3000*255 div (GetTickCount-start+1)) until GetTickCount>=start+3000;
end;

[Rastaman]

//Edit: Vergesst es, peil grad gar nix mehr, zu lange nix mehr mit typi und untypisierten Dateien gemacht

[3_of_8]

So ists richtig:

Delphi-Quellcode:

var eingabetext: textfile;
    str: String;
begin
assignfile(eingabetext,'C:\data.txt');
rewrite(eingabetext);
str:=edit1.text;
write(eingabetext, str);
closefile(eingabetext);
end;

[CPP-Programmer]

Ah gut. Und das andere? Hab ich das richtig gemacht?

[3_of_8]

LOL, das ist exakt mein Code. Copy & Paste, viel kann man da nicht falsch machen. Naja egal.

Probiers mal aus, dann siehst du schon, ob ein Fehler drin ist.

EDIT: Ich seh grade, da ist ein mathematischer Fehler von mir drin:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var start: cardinal;
begin
start:=GetTickCount;
repeat AlphaBlendValue:=255-(255*(GetTickCount-start+1) div 3000) until GetTickCount>=start+3000;
end;

Aber ich würde das eher nicht in FormCreate aufrufen, weils dann auch nicht geht.

[CPP-Programmer]

Ja. Bei mir gehts auch nicht mit formcreate. Wie denn dann?