Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TImage отобразил JPEG-файл с какой-то полоской, Её в оригинале нет. Как возникла она ? 
:(
    Опции темы
malor
  Дата 28.6.2011, 08:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 632
Регистрация: 17.11.2006

Репутация: нет
Всего: нет



На компоненте TImage на картинке появляется горизонтальная полоса неизвестного происхождения.
Код
procedure TMainForm.FormCreate(Sender: TObject);
begin
  ImageDesktop.Picture.Bitmap := GetJPGDesktopImage();
end;

Function JPEG_to_BMP(jpg: TJPEGImage): TBitMap;
begin
  Result := TBitmap.Create;
  Result.Assign(jpg);
end;

function GetJPGDesktopImage(): TBitMap;
var jpg: TJPEGImage;
    bmp: TBitMap;
begin
  jpg := TJPEGImage.Create;
  //bmp := TBitMap.Create;
  jpg.LoadFromFile(pathImageDesktop);

  Result := JPEG_to_BMP(jpg);
end;


Оригинал (файл на HDD):
user posted image

Как видится в TImage:
user posted image
Почему такое?

Delphi XE
PM MAIL   Вверх
Snowy
Дата 28.6.2011, 09:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484



А к чему такие сложности?
Почему просто не сделать
Код
procedure TMainForm.FormCreate(Sender: TObject);
begin
  ImageDesktop.Picture.LoadFromFile(pathImageDesktop);
end;
а остальной мусор выкинуть?
Что касается полоски - вероятно на форме лежит что-то ещё, кроме TImage
PM MAIL   Вверх
malor
  Дата 28.6.2011, 10:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 632
Регистрация: 17.11.2006

Репутация: нет
Всего: нет



s>>А к чему такие сложности?

Да, действительно )

s>>Что касается полоски - вероятно на форме лежит что-то ещё, кроме TImage

StatusBar
 завалялся неоприходованный...
PM MAIL   Вверх
Snowy
Дата 28.6.2011, 10:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484



Ну вот это и есть твоя полоска...
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »


 




[ Время генерации скрипта: 0.0607 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.