Thema: Delphi color := random(color);

Einzelnen Beitrag anzeigen

SvenD
(Gast)

n/a Beiträge
 
#1

color := random(color);

  Alt 14. Mär 2007, 20:48
Hi..
ich bin gerade dabei mir sone Art Bildschirmschoner zu machen, jedoch nicht mit einer Form1 sondern in der Konsole-Form von Delphi..

naja meine Frage:
Wie kann ich wenn ich eine Farbe brauche eine Zufallsfarbe benutzen?

Delphi-Quellcode:
     Parent := self;
     top := 250;
     left := 0;
     font.Height :=50 ;
     font.Style := [fsbold];
     font.color := clwhite;
     font.Name := 'Comic Sans MS';
     color := [color=#ff0000]random(color)[/color];
Ich habe es mit einer neuen Prozedur ausprobiert die mir eine Farbe ermischt:
Delphi-Quellcode:
procedure mycolor;
begin
 cRed:=Random(256);
 cGreen:=Random(256);
 cBlue:=Random(256);

 CC:=RGB(cRed, cGreen, cBlue);
end;
Jedoch auch wenn ich die variable CC bei Color einbinde habe ich immer schwarz als Farbe



Also was tun??

mfg Sven
  Mit Zitat antworten Zitat