Трабла с Radiogroup

[Seran4ek]

Опять интересуюсь у вас, знающие форумчане)
у меня есть Radiogroup с 4мя Итемами. Так же имеется 4 линии и ТрекБар. Проверяется условие, на Checked одного из 4х Итемов, и в зависимости от этого двигается одна из линий.
но вот проблема. пусть я выбрал первый итем. подвинул одну линию(двигаю трекбаром). потом выбираю 2 Итем и тут координаты 1й линии(которые с трек бара считываются) перекидываются сразу на 2ю линию, а 1я возращается на ноль. А мне нужно чтобы она осталась там же.
Проблема в том, что выполняется только 1 условие.
как мне обойти эту проблему?

[raxp]

сделайте массив типа record:

type mas = record
 x,y: integer;
 value: integer; // положение тракбара
 // ну и другие параметры каждой линии
end;

var mas1: array[0..3] of mas;

заполните массивчик, постройте что нужно, по событию checked радиогруппа выбирайте какую запись меняете и выставляйте перед этим положение trackbar.position:= mas1[radiogroup.itemindex].value, а по событию trackbar.onchange меняйте соответствующую запись и ее параметры, потом прорисовка... все должно быть ясно из этого
зы: вашу прошлую тему с этой проблемой видел

[Seran4ek]

видите ли, у меня сперва линии находятся на определенных координатах

 DrawLine(-5-L/10,1+TB_Pos/10,-1-TB_Pos/10,5+L/10,1+TB_Pos/10,-1-TB_Pos/10);
  DrawLine(-5-L/10,-1-TB_Pos/10,-1-TB_Pos/10,5+L/10,-1-TB_Pos/10,-1-TB_Pos/10);
  DrawLine(-5-L/10,1+TB_Pos/10,1+TB_Pos/10,5+L/10,1+TB_Pos/10,1+TB_Pos/10);
  DrawLine(-5-L/10,-1-TB_Pos/10,1+TB_Pos/10,5+L/10,-1-TB_Pos/10,1+TB_Pos/10);

L=это для увеличения уменьшения длинны (по оси ИКС), а вот TB_Pos это какраз так надбавка к Y и Z которая эти линии раздвигает.
при проверке РадиоГрупп я использовал массив P[0..3] где P[i] это надбавка для iй линии.

значит мне в record нужно хранить только одно значение?(надбавка)

[raxp]

-5-L/10,1+TB_Pos/10,-1-TB_Pos/10,5+L/10,1+TB_Pos/10,-1-TB_Pos/10

не вижу, чтоб тут вы работали с каждой линией отдельно... храните фактические координаты и смещение соответствующей линии в соответствующей записи, тогда не будет вот этой мешанины:

DrawLine(-5-L/10,1+TB_Pos/10,-1-TB_Pos/10,5+L/10,1+TB_Pos/10,-1-TB_Pos/10);
  DrawLine(-5-L/10,-1-TB_Pos/10,-1-TB_Pos/10,5+L/10,-1-TB_Pos/10,-1-TB_Pos/10);
  DrawLine(-5-L/10,1+TB_Pos/10,1+TB_Pos/10,5+L/10,1+TB_Pos/10,1+TB_Pos/10);
  DrawLine(-5-L/10,-1-TB_Pos/10,1+TB_Pos/10,5+L/10,-1-TB_Pos/10,1+TB_Pos/10);

[Seran4ek]

вот код полностью)

if form1.CheckBox1.Checked=true then //если стоит 
//галочка"двигать  все линии сразу"
  begin
  DrawLine(-5-L/10,1+TB_Pos/10,-1-TB_Pos/10,5+L/10,1+TB_Pos/10,-1-TB_Pos/10);
  DrawLine(-5-L/10,-1-TB_Pos/10,-1-TB_Pos/10,5+L/10,-1-TB_Pos/10,-1-TB_Pos/10);
  DrawLine(-5-L/10,1+TB_Pos/10,1+TB_Pos/10,5+L/10,1+TB_Pos/10,1+TB_Pos/10);
  DrawLine(-5-L/10,-1-TB_Pos/10,1+TB_Pos/10,5+L/10,-1-TB_Pos/10,1+TB_Pos/10);

  form1.ProvodRG.Enabled:=false;

  end

  else
  begin
  form1.ProvodRG.Enabled:=true;
  if form1.ProvodRG.ItemIndex=0 then
    begin
    P[0]:=TB_Pos;
    DrawLine(-5,1+P[0]/10,-1-P[0]/10,5,1+P[0]/10,-1-P[0]/10);
    DrawLine(-5,-1-P[1]/10,-1-P[1]/10,5,-1-P[1]/10,-1-P[1]/10);
    DrawLine(-5,1+P[2]/10,1+P[2]/10,5,1+P[2]/10,1+P[2]/10);
    DrawLine(-5,-1-P[3]/10,1+P[3]/10,5,-1-P[3]/10,1+P[3]/10);
    end
  else if form1.ProvodRG.ItemIndex=1 then
    begin
    P[1]:=TB_Pos;
    DrawLine(-5,1+P[0]/10,-1-P[0]/10,5,1+P[0]/10,-1-P[0]/10);
    DrawLine(-5,-1-P[1]/10,-1-P[1]/10,5,-1-P[1]/10,-1-P[1]/10);
    DrawLine(-5,1+P[2]/10,1+P[2]/10,5,1+P[2]/10,1+P[2]/10);
    DrawLine(-5,-1-P[3]/10,1+P[3]/10,5,-1-P[3]/10,1+P[3]/10);
    end
  else if form1.ProvodRG.ItemIndex=2 then
    begin
    P[2]:=TB_Pos;
    DrawLine(-5,1+P[0]/10,-1-P[0]/10,5,1+P[0]/10,-1-P[0]/10);
    DrawLine(-5,-1-P[1]/10,-1-P[1]/10,5,-1-P[1]/10,-1-P[1]/10);
    DrawLine(-5,1+P[2]/10,1+P[2]/10,5,1+P[2]/10,1+P[2]/10);
    DrawLine(-5,-1-P[3]/10,1+P[3]/10,5,-1-P[3]/10,1+P[3]/10);
    end
    else if form1.ProvodRG.ItemIndex=3 then
    begin
    P[3]:=TB_Pos;
    DrawLine(-5,1+P[0]/10,-1-P[0]/10,5,1+P[0]/10,-1-P[0]/10);
    DrawLine(-5,-1-P[1]/10,-1-P[1]/10,5,-1-P[1]/10,-1-P[1]/10);
    DrawLine(-5,1+P[2]/10,1+P[2]/10,5,1+P[2]/10,1+P[2]/10);
    DrawLine(-5,-1-P[3]/10,1+P[3]/10,5,-1-P[3]/10,1+P[3]/10);
    end

  else if form1.ProvodRG.ItemIndex=-1 then
    begin
    DrawLine(-5,1,-1,5,1,-1);
    DrawLine(-5,-1,-1,5,-1,-1);
    DrawLine(-5,1,1,5,1,1);
    DrawLine(-5,-1,1,5,-1,1;

    end;

  end;

ProvodRG- радиогрупп
TB_Pos- пизиция трек бара.

[raxp]

полностью... а где вы после выбора чекета, но перед прорисовкой устанавливаете позицию тракбара в положение соотвествующее нужной линии?

[Seran4ek]

но в том то и дело, что я не знаю этого смещения для линии. начальное 0. сместил первую, переключил и смещение первой передалось 2й, а первая вернулась на место.
путанина такая Т_Т

[Seran4ek]

ура. половину проблемы решил.

P[0]:=mas1[0].p;
    P[2]:=mas1[2].p;
    P[3]:=mas1[3].p;
    P[1]:=TB_Pos;
    mas1[1].p:=P[1];

это для Чект 1го итема и перемещения первой линии. и так во всех Чектах, только

P[1]:=TB_Pos;

меняется. я вызываю сохраненные давнные для каждой линии.
но вот еще зацепка, значение Трекбар.позишн не меняется, и при поэтому считываемые новые данные

    P[1]:=TB_Pos;

сразу перекидывают на позишн. а если пытаться занулить то линии стоят на месте.