Note: You must be registered in order to post a reply.To register, click here. Registration is FREE!
for i:= 0 to ColorPalette1.ColorCount-1 do begin if ColorPalette1.Color[i] = MyColor then begin ColorPalette1.SelectedIndex:= i; Break; end; end;