[AndrAlex]

Всем привет!
Я программирую на lazarus - delphi только на линуксе да и инструментов поменьше...
ну и вот, нужно сделать так чтобы при нажатии на 3,4 чекбоксы менялась картинка - тимадж. Причем 3,4 чекбоксы зависят от 1,2... то есть нажал на 1 чекбокс, 3 выделился и изменил картинку... если нажал на 2 то опять же выделился 3 чекбокс и поменял картинку(картинки еств. везде разные).
Скриншот:

[newbiecoder]

Сообщение от AndrAlex

Всем привет!
Я программирую на lazarus - delphi только на линуксе да и инструментов поменьше...
ну и вот, нужно сделать так чтобы при нажатии на 3,4 чекбоксы менялась картинка - тимадж. Причем 3,4 чекбоксы зависят от 1,2... то есть нажал на 1 чекбокс, 3 выделился и изменил картинку... если нажал на 2 то опять же выделился 3 чекбокс и поменял картинку(картинки еств. везде разные).
Скриншот:

типа:

Код:

if (checkbox1.checked:=True) and (checkbox2.checked:=True) then
image1.picture:=путь к картинке?

правильно тебя понял?

[AndrAlex]

ну почти...
типа

Код:

if Radiobutton1.checked then
Edit1.text:='1.3'
Image1.picture:='/home/andralex/Картинки/ABSTRACT-CrunchyBranch_1680x1050.png';
if Radiobutton2.checked then
Edit1.text:='2.5';
Image1.picture:='/home/andralex/Картинки/ABSTRACT-Crunch_1280x1050.png';

вот...
а как правильно писать адрес и будит ли прога работать правильно на другом компе где этих картинок нет?

[newbiecoder]

не так а вместо

Код:

Image1.picture:='/home/andralex/Картинки/ABSTRACT-Crunch_1280x1050.png';

пиши

Код:

Image1.Picture.LoadFromFile(имя_файла);

пнятненько? на другом компе соответственно будет ошибка!
Поетому советую использовать opendialog=)

[Andrevv]

пнятненько? на другом компе соответственно будет ошибка!
Поетому советую использовать opendialog=)

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

[newbiecoder]

Сообщение от Andrevv

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

ага, можно и дальше и дальше в программу и поиск присобачить пусть весь комп обшарит, но опять же картинки должны быть именно с этим именем...

[Andrevv]

ага, можно и дальше и дальше в программу и поиск присобачить пусть весь комп обшарит, но опять же картинки должны быть именно с этим именем...

Есть специальная функция которая возвращает строковую переменную со значением, например: Name='C:\Temp\'. Далее присваиваем:

Код:

Name:=Name+'Картинка.jpg';
Image1.Picture.LoadFromFile(Name);

и все

[k@Z@k]

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

Код:

{$I file.lrs}

чтение из ресурса происходит так

Код:

LoadBitmapFromLazarusResource(ResourceName: String): TBitmap;

и вообще читай ресурсы для lazarus

[newbiecoder]

Сообщение от Andrevv

Есть специальная функция которая возвращает строковую переменную со значением, например: Name='C:\Temp\'. Далее присваиваем:

Код:

Name:=Name+'Картинка.jpg';
Image1.Picture.LoadFromFile(Name);

и все

а зачем лишняя переменная, вбиваешь сразу в

Код:

Image1.Picture.LoadFromFile(Name);

только путь в кавычках(')

[Andrevv]

а зачем лишняя переменная, вбиваешь сразу в
Код:

Код:

Image1.Picture.LoadFromFile(Name);

Ну тогда уж

Код:

Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Картинка.jpg');

[newbiecoder]

Сообщение от Andrevv

Ну тогда уж

Код:

Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Картинка.jpg');

Может твой способ работает для других форматов, но с bmp и ico прекрасно работает Image1.Picture.LoadFromFile('D:\тратта\atata.bmp')
Но это vcl в Lcl незнаю, на моей убунте так и не нашел лазарус файлы фрипаскаля)

[Andrevv]

Сообщение от newbiecoder

Может твой способ работает для других форматов, но с bmp и ico прекрасно работает Image1.Picture.LoadFromFile('D:\тратта\atata.bmp')

У меня то же самое, но используется когда заранее не известен полный путь к файлу

[AndrAlex]

Товарищи!
Конечно вы облегчили мне задачу, но! Хотелось бы чтоб прога работала на всех компах... то есть картинки загрузить в свою прогу и потом их использовать...

[Interface]

А почему нельзя сделать так?
Добавить на форму сколько нужно Image со всеми картинками, (Visible:=False) и потом написать так:

Код:

If CheckBox1.Checked = true then Image1.Picture.Graphic := Image2.Picture.Graphic;

Может это и не правильно, но я так обычно делаю ... Если что скажите как лучше

[newbiecoder]

Сообщение от Interface

А почему нельзя сделать так?
Добавить на форму сколько нужно Image со всеми картинками, (Visible:=False) и потом написать так:

Код:

If CheckBox1.Checked = true then Image1.Picture.Graphic := Image2.Picture.Graphic;

Может это и не правильно, но я так обычно делаю ... Если что скажите как лучше

нерационально однако)
можно создать отдельную папку и кинуть туда картинки которые тебе нужны её то без труда найдешь