Delphi Alpha 0% - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Alpha 0%

Ein Thema von CPP-Programmer · begonnen am 16. Jan 2006 · letzter Beitrag vom 18. Jan 2006

Vorheriger Beitrag

Nächster Beitrag

3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge

Turbo Delphi für Win32

#19

Re: Alpha 0%

17. Jan 2006, 18:20

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:

markieren

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.

Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett