| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по изображению
[BAD]Angel © (2003-07-31 13:40:00)
Люди, подскажите можно ли сделать следующее:
Есть несколько картинок BMP размер самой большой ~1030х646, далее идет штуки 4 маленькие... как мне наложить маленькие на большую и сохранить все это дело в файл? (не хотелось бы терять качество посредством Stretch)
[BAD]Angel (2003-08-02 12:39:00) [1]
Мужики, а это идея!!!
СПАСИБО, а я совсем и забыл про TextOut
Ну Вы выручили :))
Photus (2003-08-01 17:40:00) [2]
2BOA_KAA:
>Это с какого перепуга???
Да с такого, что на канве формы Лейблы не рисуются. Это отдельные компоненты, они кладутся на форму и рисуют сами себя, а не форма их рисует.
pasha676 (2003-08-01 15:46:00) [3]
Мда. Клиника.
Ты лабелы кладешь или рисунки лабелов. Если лабелы - то может имеет смысл TextOut - ом просто на канвасе картинки писать?
BOA_KAA (2003-08-01 15:26:00) [4]
> Тогда ведь Лейблы не сохранятся
Это с какого перепуга???
Photus (2003-08-01 11:46:00) [5]
2BOA_KAA:
Тогда ведь Лейблы не сохранятся.
BOA_KAA (2003-07-31 18:46:00) [6]
Вычислить координаты этого венегрета и, как ни странно, CopyRect
Например так,
bmp.Canvas.CopyRect(Rect(0,0,Width,height),Form1.Canvas,Rect(0,0,Width,height));
bmp.SaveToFile("e:\my.bmp");</code.
[BAD]Angel (2003-07-31 18:30:00) [7]
Разобрался с CopyRect, но это совсем не то!
ПИШУ ПОДРОБНЕЕ:
Есть большая картинка я ее пихаю на форму и уменьшаю (Stretch)
Сверху нее я кладу еще одну картинку + четыре Label"a, так вот как мне сохранить в файл этот венигред из картинок и Лейблов да и еще размера большой картинки (1030x646)??? Вот в чем трабла... Вы меня просто не поняли!
[BAD]Angel (2003-07-31 17:01:00) [8]
Нет, не тот.
Про Ф1, прикиньте, я знаю.
Хорошо, значит тут Image2 присваивается картинка из Image1 с размерами 50 на 50 и отступом 10 от верхнего левого края... Да?
Но ведь я же говорю, что у меня на форме Картинка уменьшена, не в натуральном размере (если ставить натуральный, то не хватит разрешение экрана), и что из этого примера получится?
Photus (2003-07-31 16:32:00) [9]
2[BAD]Angel:
Извините, не тот ли вы [BAD]Angel, с которым я недавно на другом форуме общался?
А вообще совет такой: когда непонятно какая процедура как работает иногда достаточно набрать название этой функции в Editore, "встать" на это название текстовым курсором и нажать F1. Если с английским проблем нет, то во всём сами разберётесь.
[lamer]Barmaglot (2003-07-31 16:06:00) [10]
А справку посмотреть? Глядишь в следующий раз меньше вопросов задавать будешь...
Неужели за 2 часа не возникло ни одной мысли как это сделать?
procedure TForm1.Button1Click(Sender: TObject);
var
Dest, Source: TRect;
begin
Dest:=Rect(10,10,50,50);
Source:=Rect(10,10,50,50);
Image2.Picture.Bitmap.Canvas.CopyRect(Dest,Image1.Picture.Bitmap.Canvas, Source);
end;
[BAD]Angel (2003-07-31 15:50:00) [11]
Да, и объясните работу CopyRect ПЛЗ!
[BAD]Angel (2003-07-31 15:21:00) [12]
А как быть с размерами? Ведь мое изображение больше экрана?
Какой Rect писать?
NAlexey (2003-07-31 15:09:00) [13]
CopyRect копирует от туда откуда укажешь. Укажешь скопировать такойто рект из такого то битмапа в такой то и всех делов.
[BAD]Angel (2003-07-31 14:45:00) [14]
Люди... помогите ПЛЗ!
[BAD]Angel (2003-07-31 14:16:00) [15]
Поясню вопрос:
Есть большая картинка...
Пихаю ее на форму Image1.LoadFromFile(...);
Потом поверх этой картинки таким же способом загружаю остальные... Но размер этого всего на форме уменьшен Image1.Stretch:=true;
Но в файл мне надо сохранить реальный размер этого винегреда!
Вот...
Может у меня подход не правильный! Подскажите ПЛЗ!
[BAD]Angel (2003-07-31 14:09:00) [16]
CopyRect как я знаю он копирует с экрана или я ошибаюсь?
Ведь у меня картинка на экран не помещается по размеру...
Smithson (2003-07-31 14:02:00) [17]
BMP.LoadFromFile(большую);
BMP.Picture.Canvas.CopyRect...
| |
