Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.07.2010, 17:21   #1
phphel
Форумчанин
 
Аватар для phphel
 
Регистрация: 12.07.2010
Сообщений: 249
По умолчанию Работа с изображениями в дельфи

Всем привет, есть два вопроса.

Первый, вот у меня есть программа, которая открывает изображение, и вставляет картинку в TImage, как программно подстроить картинку под масштабы TIMAGE?Тоесть тоже самое что параметр scretch Только по нормальному и программно.

Второй, кто знает как работать с изображениями формата .raw в дельфи?хотя бы просто открыть и показать.
Moonquake
phphel вне форума Ответить с цитированием
Старый 18.07.2010, 17:44   #2
DIgorevich
Погулять вышел
Участник клуба
 
Аватар для DIgorevich
 
Регистрация: 17.05.2010
Сообщений: 1,573
По умолчанию

В свойствах TImage помимо stretch=true надо ставить еще и proportional=true И все будет замечательно.
Никогда не знаешь, где тебе повезет... (Фрай)
DIgorevich вне форума Ответить с цитированием
Старый 18.07.2010, 17:49   #3
phphel
Форумчанин
 
Аватар для phphel
 
Регистрация: 12.07.2010
Сообщений: 249
По умолчанию

Цитата:
Сообщение от DIgorevich Посмотреть сообщение
В свойствах TImage помимо stretch=true надо ставить еще и proportional=true И все будет замечательно.
Поставил ,proportional=true но проблема не решилась, я так понимаю из-за того, что я вывожу изображение так
Код:
Image1.Canvas.StretchDraw(rect(0,0,Image1.Width,Image1.Height),Bitmap);
Moonquake
phphel вне форума Ответить с цитированием
Старый 18.07.2010, 18:56   #4
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Присвой так:
Image1.Picture.Bitmap := Bitmap;
А затем задай те свойства имиджу, stretch и proportional. Должно сработать.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Старый 18.07.2010, 19:12   #5
phphel
Форумчанин
 
Аватар для phphel
 
Регистрация: 12.07.2010
Сообщений: 249
По умолчанию

Вроде все получилось, изображение нормальное, а как сделать по центру?

тоесть у меня есть TPanel1, На нем TImage1, при масщтабировании картинка выравнивается по левому краю, а мне надо по центру

Видимо параметр center))
подскажите насчет .raw формата

Код:
array: array [0..5] of string = (
  'Elegant',
  'Legents',
  'Saphhire'
);
как мне к примеру зная номер элемента массива, к примеру 1, вывести 'Legents'?
Moonquake

Последний раз редактировалось Stilet; 19.07.2010 в 08:23.
phphel вне форума Ответить с цитированием
Старый 18.07.2010, 22:03   #6
Don Karleone
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 410
По умолчанию

Цитата:
Сообщение от phphel Посмотреть сообщение
array: array [0..5] of string = (
'Elegant',
'Legents',
'Saphhire'
);

как мне к примеру зная номер элемента массива, к примеру 1, вывести 'Legents'?
например Edit1.Text:=array[1];
И к стати слово array не может быть использовано в качестве имени массива (это зарезервированное слово)
ICQ: 593-013-807
Don Karleone вне форума Ответить с цитированием
Старый 18.07.2010, 22:17   #7
phphel
Форумчанин
 
Аватар для phphel
 
Регистрация: 12.07.2010
Сообщений: 249
По умолчанию

не верно выразился..

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

типа так ShowMessage(array['Legents']);
Moonquake
phphel вне форума Ответить с цитированием
Старый 18.07.2010, 23:25   #8
Don Karleone
Форумчанин
 
Регистрация: 05.04.2010
Сообщений: 410
По умолчанию

Index:=-1;
for i:=0 to 5 do
if mas[i] = 'Legents' then Idex:=i;

если Index останется равным -1 то элемент не найден, в противном случае переменная Index будет содержать индекс элемента массива т. е. индекс 'Legents'

P.S. mas: array [0..5] of string = ('Elegant','Legents','Saphhire','ещ е строка','и еще строка','и наконец еще одна строка')ж
ICQ: 593-013-807
Don Karleone вне форума Ответить с цитированием
Старый 18.07.2010, 23:51   #9
phphel
Форумчанин
 
Аватар для phphel
 
Регистрация: 12.07.2010
Сообщений: 249
По умолчанию

Да так можно, в принципе так и хотел сделать, просто казалось, что есть более простой способ.Спасибо

Вопрос с .raw форматом актуален, поделитесь кто нибудь любой инфой...

Кто нить насчет .raw поможет?
Moonquake

Последний раз редактировалось Stilet; 19.07.2010 в 08:23.
phphel вне форума Ответить с цитированием
Старый 19.07.2010, 03:32   #10
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Одна тема - один вопрос. Читайте правила форума.
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
работа с изображениями Нюська Компоненты Delphi 8 27.05.2009 23:17
работа с изображениями викталик Помощь студентам 0 03.05.2009 23:58
Работа с изображениями Алён@ Мультимедиа в Delphi 8 16.01.2009 10:48
работа с изображениями. borodaj Мультимедиа в Delphi 3 21.04.2007 19:21