| View previous topic :: View next topic |
| Author |
Message |
Kevin Grandmaster Cheater Supreme
Reputation: 0
Joined: 07 Mar 2007 Posts: 1139 Location: Spiderman-World
|
Posted: Sun Jul 29, 2007 3:32 am Post subject: Glowing Panels. |
|
|
Kaspersky can't tell me so i get it.
Could anyone try telling me how to get panels "Glowing", so they change color like the attach to process button on CE. [Delphi]
thanks.
|
|
| Back to top |
|
 |
DeletedUser14087 I post too much
Reputation: 2
Joined: 21 Jun 2006 Posts: 3069
|
Posted: Sun Jul 29, 2007 3:58 am Post subject: |
|
|
i cant tell you ?, i told you on msn i used DB's TThread class.
you think im trying to hide this from you ?, its not a secret...
plus why do you call yourself a programmer while you ask everything on this section ?, you're getting spoonfeed like a baby.
atleast i know how DB's did this code and i know how to change colors and how to use/modify it, not like you coming here without even trying!.
|
|
| Back to top |
|
 |
Kevin Grandmaster Cheater Supreme
Reputation: 0
Joined: 07 Mar 2007 Posts: 1139 Location: Spiderman-World
|
Posted: Sun Jul 29, 2007 4:00 am Post subject: |
|
|
| explain it then ? i don't get what it is.
|
|
| Back to top |
|
 |
Kevin Grandmaster Cheater Supreme
Reputation: 0
Joined: 07 Mar 2007 Posts: 1139 Location: Spiderman-World
|
Posted: Sun Jul 29, 2007 4:09 am Post subject: |
|
|
uhm kay.
Anyone else who is willing to explain ? Also you dont just start driving a car, you gotta learn it first. Same here, i gotta learn this before i get it. Simple but you can't understand it.
Edit: I start getting this looking at ce source.
|
|
| Back to top |
|
 |
Noz3001 I'm a spammer
Reputation: 26
Joined: 29 May 2006 Posts: 6220 Location: /dev/null
|
Posted: Sun Jul 29, 2007 4:19 am Post subject: |
|
|
| Oh my god Kaspersky, Programming isn't like hacking! You HAVE to ask or you will never know!
|
|
| Back to top |
|
 |
Kevin Grandmaster Cheater Supreme
Reputation: 0
Joined: 07 Mar 2007 Posts: 1139 Location: Spiderman-World
|
Posted: Sun Jul 29, 2007 4:36 am Post subject: |
|
|
yeah Noz.
Also could you explain me how to make them glow? i looked at ce source and found something which seemed to be it, but i couldn't make it work. (edit: +Rep if you can)
|
|
| Back to top |
|
 |
Symbol I'm a spammer
Reputation: 0
Joined: 18 Apr 2007 Posts: 5094 Location: Israel.
|
Posted: Sun Jul 29, 2007 5:21 am Post subject: |
|
|
| DB's Source wrote: | var ncol: TColor;
procedure TFlash.Col;
begin
mainform.panel7.Color:=ncol;
end;
procedure TFlash.Execute;
var red,green: byte;
decreasered: boolean;
begin
{$ifndef ceasinjecteddll}
decreasered:=true;
red:=254;
green:=0;
while not terminated do
begin
if decreasered then
begin
dec(red,2);
inc(green,2);
if green>=250 then decreasered:=false;
end
else
begin
inc(red,2);
dec(green,2);
if red>=254 then
decreasered:=true;
end;
ncol:=(green shl 8)+red;
synchronize(col); //sigh (withouth it works too, but at least with this I know for sure it works.
sleep(10);
end;
{$endif}
mainform.Panel7.Color:=clBtnFace;
end; |
do u mean this? O_o
i guess u can tell what the script does by urself...
|
|
| Back to top |
|
 |
Kevin Grandmaster Cheater Supreme
Reputation: 0
Joined: 07 Mar 2007 Posts: 1139 Location: Spiderman-World
|
Posted: Sun Jul 29, 2007 5:38 am Post subject: |
|
|
| Symbol wrote: | | DB's Source wrote: | var ncol: TColor;
procedure TFlash.Col;
begin
mainform.panel7.Color:=ncol;
end;
procedure TFlash.Execute;
var red,green: byte;
decreasered: boolean;
begin
{$ifndef ceasinjecteddll}
decreasered:=true;
red:=254;
green:=0;
while not terminated do
begin
if decreasered then
begin
dec(red,2);
inc(green,2);
if green>=250 then decreasered:=false;
end
else
begin
inc(red,2);
dec(green,2);
if red>=254 then
decreasered:=true;
end;
ncol:=(green shl +red;
synchronize(col); //sigh (withouth it works too, but at least with this I know for sure it works.
sleep(10);
end;
{$endif}
mainform.Panel7.Color:=clBtnFace;
end; |
do u mean this? O_o
i guess u can tell what the script does by urself... |
It wouldn't glow with just this, i had to use something on form create to make it glow. Its working now.
|
|
| Back to top |
|
 |
|