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:

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? :lol:

[dfried]

Zitat:

Zitat von CPP-Programmer

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

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 :wall:

[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?