|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Random Grauwert für Image/Canvas
8. Mär 2012, 17:13
Delphi-Quellcode:
Function RandomGray:TColor;
var
byte:Integer;
begin
byte := random(256);
Result := RGB(byte,byte,byte);
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|