Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Flips,
15. Sep 2008
Jaja schon klar, war ja auch nur ein schnell hingeschludertes Beispiel ;-)
Natürlich müsste man auch noch den G und B Wert prüfen!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Flips,
15. Sep 2008
Der Code kann auch gar nicht ordentlich funktionieren,
in die innere Schleife muss noch ein inc(p)!
Mit einer Schleife gehts auch, was folglich auch schneller sein sollte (nur als Beispiel):
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
p:^TRGBTriple;