djn z negjq nf

Тема в разделе "Разговорник", создана пользователем Кислый в0ждь, 12 окт 2008.

  1. Procedure TMainForm.selbands(channel:integer);
    var
    i:integer;
    begin
    curband:=channel;
    for i:= 0 to ComponentCount-1 do
    if (Components is TLABEL) and (TLABEL(Components).Tag in [channel])
    then (TLABEL(Components).font.color:= clred);

    end;

    имеем 24 компонента типа tlabel
    channel - номер элемента который необходимо перекрасить в красный цвет. все остальные компоненты с исключением channel необходимо в
    этой же вункции вернуть к значени белого цвета.

    бля как ?
     
  2. curband:=channel;
    for i:= 0 to ComponentCount-1 do
    if (Components is TLABEL) and (TLABEL(Components).Tag in [channel])
    then begin (TLABEL(Components).font.color:= clred);

    for i2:= 0 to ComponentCount-1 do
    if ((Components[i2] is TLABEL) <> (TLABEL(Components[i2]).Tag in [channel])) then (TLABEL(Components[i2]).font.color:= clwhite);



    end;


    end;



    все понял. но как то странно
     
  3. Делфи что ли?????
    гадость жуткая.......

    Давай лучше на C )))
     

Поделиться этой страницей