Выпуск № 1406 от 18.07.2009, 20:35
Администратор рассылки: Калашников О.А., Руководитель
В рассылке: подписчиков - 562, экспертов - 193
В номере: вопросов - 1, ответов - 2
Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке: оценить выпуск >>
Вопрос № 170409: Здравствуйте, Эксперты. У меня возникла следующая проблема. Есть компонент TImage.На нём находится ещё TImage2, о котором и пойдёт речь. В него загружаются различные картинки. Однако картинки все различной длины и высоты.Сейчас, когда я загружаю ...
Вопрос № 170409:
Здравствуйте, Эксперты. У меня возникла следующая проблема. Есть компонент TImage.На нём находится ещё TImage2, о котором и пойдёт речь. В него загружаются различные картинки. Однако картинки все различной длины и высоты.Сейчас, когда я загружаю картинку, то картинка удерживается сверху и слева. Мне же необходимо , чтобы картинка удерживалась слева и снизу.Прошу помочь с такой несложной проблемой =).
Отвечает Евгений/Genia007/, Студент :
Здравствуйте, Гардукевич Роман Эдуардович. Для картинок формата bmp, можно сделать так:
Код:
procedure TForm1.Button1Click(Sender: TObject); var G: TBitmap; begin if not OpenPictureDialog1.Execute then exit; G:= TBitmap.Create; G.LoadFromFile(OpenPictureDialog1.FileName);
Image1.Canvas.Draw(0, (image1.ClientHeight - G.Height), G); G.Free; end;
Для картинок других форматов нужно сделать перекодировку форматов.
----- Помогли тебе, помоги и ты.
Ответ отправил: Евгений/Genia007/, Студент
Ответ отправлен: 14.07.2009, 15:40
Оценка ответа: 4 Комментарий к оценке: Этот как вариант. Я предполагаю, что есть какой-то более простой способ держать Timage за край.
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 252162
на номер 1151 (Россия) |
Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает Striker Loner, 1-й класс :
Здравствуйте, Гардукевич Роман Эдуардович.
Как я понял это такой предпросмотр и картинка находиться на картинке СЛЕВА и СНИЗУ (BottomLeft) Для этого необходимо пересчитать координаты для Image2 : Image2.Top:=Image1.Top+Image1.Heigth-Image2.Heigth-DY; // DY - Величина отступа Image2 от нижней кромки
Аналогичным образом можно сделать и для размещения относительно правого края
Image2.Left:=Image1.Left+Image1.Width-Image2.Width-DX; // DX - Величина отступа Image2 от правой кромки
Ответ отправил: Striker Loner, 1-й класс
Ответ отправлен: 15.07.2009, 09:30
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 252189
на номер 1151 (Россия) |
Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке: оценить выпуск >>
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.