Технологии
Помогите разобраться - вопрос №89252
У меня например есть определенная папка с картинками и мне нужно чтобы при нажатие на кнопку открывалась картинка и я мог переключать между ними посредствои действий Вперед и Назад. Так вот у меня есть коды
var
path: string;
JpegIm: TJpegImage;
bm: TBitMap;
begin
bm := TBitMap.Create;
JpegIm := TJpegImage.Create;
JpegIm.LoadFromFile(path);
bm.Assign(JpegIm);
Image1.Picture.Bitmap := bm;
bm.Destroy;
JpegIm.Destroy;
end;
и
procedure TForm1.OpenJpeg(Path: string);
begin
OpenJpeg('D:\123\1.jpg');
Подскажите за чт отвечают эти коды, чтоб я мог их применить, а то незнаю куда
июнь 15, 2011 г.
-
Всего ответов: 0
Похожие вопросы