Вниз
Скачать: CL | DM;

jpeg   Найти похожие ветки 

← →
StiTch ©   (2008-05-23 17:12) [0]

Как и где открыть jpeg файл??Чтобы по нажатию на кнопку появлялась следующая картинка без диал. окна...


← →
TIF ©   (2008-05-23 17:15) [1]

Инет тебе в помощь :)

Есть компонентик. с иконкой такой ещё красивой: TImage

А у него есть ещё свойство...

И в него можно как и в Memo загружать файлы... Только не тектовые, а файлы-картинки...

Наброски есть, дальше сам


← →
StiTch ©   (2008-05-23 17:18) [2]

Да вот ищу  и не могу найти...как сделать чтобы при нажатии на конопку в TImage менялись картинки??


← →
Германн ©   (2008-05-23 17:21) [3]


> StiTch ©   (23.05.08 17:18) [2]
>
> Да вот ищу  и не могу найти...как сделать чтобы при нажатии
> на конопку в TImage менялись картинки??
>

Такого компонента нет. (((


← →
StiTch ©   (2008-05-23 17:22) [4]

а как тогда сделать просмотр картинок??


← →
TIF ©   (2008-05-23 17:22) [5]

Image1.Picture.

Написать точку и ждать. пока появится список всех возмодностей, которые можно сделать с имеджем :) А дальше - по логике


← →
StiTch ©   (2008-05-23 17:24) [6]

а если у меня много картинок с именами 1,2,3,4...как сделать чтобы каждый раз при нажатии появлялась следующая???


← →
TIF ©   (2008-05-23 17:28) [7]

Странные имена... Где это такие имена? Если это имена файлов, то где расширение jpg?

Как сделать? Сделать кнопочку "Следующая картинка". И при её нажатии менять картинку :)


← →
Stas ©   (2008-05-23 17:29) [8]

>StiTch ©   (23.05.08 17:12)  
Интересно ты всех просто так задалбываешь вопросами, или сел писать программу и незнаешь как?


← →
Ega23 ©   (2008-05-23 17:30) [9]

А в анкете - высшее образование заявлено.
Это к вопросу о ВО.


← →
TIF ©   (2008-05-23 17:32) [10]

Кстати. У мня есть учебник для новичков


← →
Ega23 ©   (2008-05-23 17:34) [11]


uses JPEG;

procedure TForm1.ChangeImage(const FileName: string);
var
 jpg : TJPEGImage;
begin
 if not FileExists(FileName) then Exit;

 jpg := TJPEGImage.Create;
 try
   try
     jpg.LoadFromFile(FileName);
     Image1.Picture.Assign(jpg);
   except
     ShowMessage("Error Loading JPEG image");
   end;
 finally
   jpg.Free;
 end;

end;


← →
Рамиль ©   (2008-05-23 17:44) [12]


> Ega23 ©   (23.05.08 17:34) [11]

Эта.. Просили же следующюю картинку. А ты чего написал?:)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.008 c
2-1211218538
ser_ega
2008-05-19 21:35
2008.06.15
QRDBText прозрачный фон...


2-1211100033
TCrash
2008-05-18 12:40
2008.06.15
Контрол, вызывающий Акцию


6-1188888728
Alexey_k
2007-09-04 10:52
2008.06.15
Indy и подсчёт траффика


15-1209596280
PEAKTOP
2008-05-01 02:58
2008.06.15
Delphi 7/Project/Options = AV. Может кто знает ?


15-1209629962
Алексин
2008-05-01 12:19
2008.06.15
Wi-Fi в квартире




   Наверх