|
Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: Zufallsfarben
1. Jul 2005, 21:44
Delphi-Quellcode:
function RandomColor():TColor;
begin
Result := RGB(Random(256),Random(256),Random(256));
end;
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
|