Смена картинок (Image1,Imag2,Image3) кнопкой

[DimOn4Ik]

Сейчас решаю лабароторную работу вот такое вот задание.

Задача 1.2. Поменяйте подписи на кнопках на такие: «Сме¬нить фотографию» и «Забрать фотографию», перепрограммировав кнопки. Выполните программу и убедитесь в правильности ее ра¬боты.
Подсказка. В тексте процедур, описывающих работу кнопок, можно воспользоваться командами вида:

if Image 1. Visible = True then ...
{Если видимость = True или равносильной командой} 
if Image 1.Visible then 	{Здесь условие истинное, }
{если видимость включена}

Не могу просто понять эту подсказу..помогите пожалуйста..

[Вавел из ГМТУ]

Ахах, я не могу понять задачу
Просто бред.. мне жалко студентов....

Ты правильно переписал подсказку?

if Image 1. Visible = True then ... ???

Ибо это тоже самое что и "if Image 1.Visible then".

Или же ты индексы забыл сменить при написании подсказки с 1 на 2..

PS: порабы мне научиться читать коментарии, а не пропускать их мимо глаз ))

[DimOn4Ik]

Всё правильно
Нам раздавали задания на листах А4 +в электронном варианте тоже самое..так я и скопировал с электронного варианта всё как написано.

[DimOn4Ik]

вот это с задачи 1.1 нужно сделать 1.2

[Вавел из ГМТУ]

Ну хорошо, допустим на форме есть три(в заголовке темы написанно имено три, хотя в условии про это нисказано) компонента Image и одна кнопка.
Надпись на кнопке - Сменить фотографию.
Image - я так понял в них нужно картинки загрузить.

Правильно?

При нажатии на кнопку что должно происходить?
Судя из подсказки при нажатии на кнопку идёт проверка "скрыта" или "показана" одна из картинок Image.

А что есть "Забрать фотографию" ?

=================================== ======

Может быть так?
"Имеется на форме картинка и кнопка с надписью "Сменить". При нажатии на кнопку картинка пропадает (Image1.Visible := False) а на кнопке появляется надпись "Забрать фотографию"."

На больше у мменя мыслей не хватает...

[DimOn4Ik]

сменить фотографию значит должен листать фотографии каким-то образом через if..

а кнопка “Забрать” должна скрывать рисунок тот который visible:=true;

[Вавел из ГМТУ]

Что касается "листать фотографии" то это так:

If Image1.Visible Then // Если 1 картина видна то...
  Begin
    Image1.Visible := False; // Скрываем 1-ую картинку.
    Image2.Visible := True;  // Показываем 2-ую картинку
  End
Else // Если 1 картина скрыта то...
  If Image2.Visible Then // Если 2-ая картина видна то...
    Begin
      Image2.Visible := False; // Скрываем 2-ую картинку.
      Image3.Visible := True; // Показываем 3-ую картинку.
    End
  Else // Если 2-ая картина скрыта то...
    Begin
      Image3.Visible := False; // Скрываем 3-ую картинку.
      Image1.Visible := True; // Показываем 1-ую картинку.
    End;

А для " должна скрывать рисунок тот который visible:=true":

If Image1.Visible Then Image1.Visible := False
Else
  If Image2.Visible Then Image2.Visible := False
  Else
    If Image3.Visible Then Image3.Visible := False;

[DimOn4Ik]

Огромное человеческое спасибо!

[Alex Cones]

Просто не понимаю я Ваших преподавателей. Зачем visible? А когда изображений 500 будет Вы тоже visible использовать будете?

Var
 A:Array[1..500] of TBitMap; {Глобально}
 I:Integer;
Begin
 For I:=1 to 500 do
  Begin
   A[I]:=TBitMAp.Create;
   A[I].LoadFromFile('D:\Folder\'+IntToStr(I)+'.bmp');
  End;

На батоне 1:
 Inc(J {J-Глобальная});
 if J=501 Then J:=1;
 Image1.Canvas.Draw(0,0,A[J]);

На батоне 2:
 Dec(J);
 if J=1 Then J:=501;
 Image1.Canvas.Draw(0,0,A[J]);

А через VISIBLE ИМХО это извращение.

[Олвин]

Конечно извращение! Зачем интересно такие задания дают? Чтобы приучать решать задачи неправильным подходом? Я в ужасе.