Конференция "Media" » Процедура переключения между шестью TImage для коррекции [D7]
 
  • kotkkn © (03.12.11 11:21) [0]
    Добрый день! Есть форма, на ней лежат 6 шт. Image. Есть TrackBar-ы отвечающие за коррекцию по цветам, яркость и контрастность. При загрузке картинок регулируются все 6 штук одновременно! :-) Как разделить процесс для поочередного изменения параметров изображения? Пробовал ImageClick - результат нулевой.
  • Jeer © (03.12.11 12:46) [1]
    - radiobutton около каждого img;
    - var selImg: integer и установка по клику в 1..6;
    - другие фантазии;
  • kotkkn © (03.12.11 13:16) [2]
    Сейчас попробую, спасибо!
  • kotkkn © (03.12.11 13:38) [3]
    Извините, если возможно, пример кода, если честно, я новичок в Делфи. Спасибо заранее.
  • kotkkn © (03.12.11 14:02) [4]
    procedure TForm1.selImageClick(Sender: TObject);
    var
    selImage : integer;
    ImageTag :=[0..5]
    if  Image7.Tag:=0 then
    begin
    Image7.Enabled:= True;
    end;

    и т.д.

    Правильно?
  • Jeer © (03.12.11 15:06) [5]
    Вы пошли бы и начали с книжек, тут у Вас полная хрень.

    ***
    Вводим переменную
    var selImg: integer;

    На клике  imgX присваиваем selImg := x, где x - условный номер img.
    Далее, при изменении TrackBar-ов изучаем содержимое selImg и работаем с соответствующим ему img.

    Или такой вариант:
    Можно ввести переменную
    var SelImg: TImage;
    и при клике на каком-либо изображении TImage копировать указатель
    selImg := Sender as TImage;

    В дальнейшем для обработки использовать SelImage.
 
Конференция "Media" » Процедура переключения между шестью TImage для коррекции [D7]
Есть новые Нет новых   [134430   +2][b:0][p:0]