Das ist ne gute Idee.
Ich mach das so, aber es funzt nicht so richtig:
Delphi-Quellcode:
Bitmap:= ResizeBitmap(Bitmap, 16,16);
Bitmap.Width:=16;
Bitmap.Height:=16;
Bitmap.Canvas.Pixels[1,Bitmap.Height]:=
RGB(255,0,255);
ChangeIcon.Glyph.Assign(Bitmap);