ich möchte in einem tbitmap eine farbe koplett durch eine andere farbe ersetzen (so wie bei paint mit dem eimer nur ohne grenzen).
ich hab das so gelöst:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
x,y: integer;
//lc: TColor (global)
begin
for y:=0 to image1.Height-1 do
for x:=0 to image1.Width-1 do
if image1.Canvas.Pixels[x,y] = lc then
image1.Canvas.Pixels[x,y]:=colorbox1.Selected;
lc:=colorbox1.Selected;
end;
gibt es da ne schnellere möglichkeit?