SaveText.Ru

Без имени
  1. Panel1.Color:=
  2.   ColorToRGB(RGBToColor(RedBar.Position,0,0));
  3.   Label1.Caption:=IntToStr(RedBar.Position);
  4.   Panel4.Color:=ColorToRGB(RGBToColor
  5.   (RedBar.Position,GreenBar.Position,BlueBar.Position));

Share with your friends:

Print