Как под компонентом Image вывести надпись так, что при любом изменения размера компонента надпись оставалась под ним?

@Anasat · Регистрация: 25.10.2019

Author24 — интернет-сервис помощи студентам

Как под компонентом Image вывести надпись так, что при любом изменения размера компонента и его положения надпись оставалась под ним?(Label)

@Пытливый · 12.05.2020, 14:21

Тут несколько факторов, которые могут повлиять на корректность отображения. Лучше всего такую связанную пару компонентов поместить в отдельный контейнер TPanel и работать со свойствами компонентов Anchors

@Anasat · 12.05.2020, 14:47 **[ТС]**

а как их связать то? если ставлю на панель просто, то компонент перестает работать

@AzAtom · 12.05.2020, 14:55

Сообщение от Anasat

то компонент перестает работать

Как это перестаёт работать? Имеющийся Image нужно просто переместить на Panel, больше там ничего не поменяется.

Добавлено через 49 секунд

Сообщение от Anasat

вывести надпись так, что при любом изменения размера компонента и его положения

А кто меняет размер и положение этого Image?

Добавлено через 2 минуты
Delphi какой версии вообще?

Если размер и положение Image меняется программно (вручную), то точно так же надо поменять и положение Label:

Delphi

1	Label1.SetBounds(Image1.Left, Image1.Top + Image1.Height, Label1.Width, Label1.Width);

@Anasat · 12.05.2020, 15:17 **[ТС]**

да фиг знает с чего размер должен меняться)
Delphi 7

@AzAtom · 12.05.2020, 15:20

Anasat, из А) не следует, что размер Image должен меняться. Наоборот, изображение должно подстроится под размер Image. Последнее делается установкой свойства Stretch = true.

@AzAtom · 12.05.2020, 16:00

Могу предложить вот такую центровку с сохранением пропорций:

Delphi

procedure TForm1.FormResize(Sender: TObject);
var
  nw, nh: integer;
begin
  // Установка размера Image1 с сохранением пропорций
  // Image1 и Label1 находятся на Panel2
  nw := Panel2.Width ;
  nh := Round(nw*Image1.Picture.Graphic.Height/Image1.Picture.Graphic.Width);
  if nh > (Panel2.Height - Label1.Height) then begin
    nh := (Panel2.Height - Label1.Height);
    nw := Round(nh*Image1.Picture.Graphic.Width/Image1.Picture.Graphic.Height);
  end;
  Image1.SetBounds((Panel2.Width - nw) div 2, (Panel2.Height - nh - Label1.Height) div 2, nw, nh);
  Label1.SetBounds((Panel2.Width - Label1.Width) div 2, Image1.Top + Image1.Height, Label1.Width, Label1.Height);
end;

@AzAtom · 12.05.2020, 16:03

Label находится под Image и текст центрирован тоже.

@Anasat · 12.05.2020, 17:03 **[ТС]**

спасибо большое!

Как под компонентом Image вывести надпись так, что при любом изменения размера компонента надпись оставалась под ним?

Решение

Решение

@Anasat 0 / 0 / 0 Регистрация: 25.10.2019 Сообщений: 37
		1
	Как под компонентом Image вывести надпись так, что при любом изменения размера компонента надпись оставалась под ним? 12.05.2020, 14:01. Показов 3121. Ответов 8 Метки нет (Все метки) Как под компонентом Image вывести надпись так, что при любом изменения размера компонента и его положения надпись оставалась под ним?(Label) 0

@Пытливый 3760 / 2264 / 705 Регистрация: 29.05.2013 Сообщений: 9,616
	12.05.2020, 14:21	2
	Тут несколько факторов, которые могут повлиять на корректность отображения. Лучше всего такую связанную пару компонентов поместить в отдельный контейнер TPanel и работать со свойствами компонентов Anchors 0

@Anasat 0 / 0 / 0 Регистрация: 25.10.2019 Сообщений: 37
	12.05.2020, 14:47 [ТС]	3
	а как их связать то? если ставлю на панель просто, то компонент перестает работать 0

@Anasat 0 / 0 / 0 Регистрация: 25.10.2019 Сообщений: 37
	12.05.2020, 15:17 [ТС]	5
	да фиг знает с чего размер должен меняться) Delphi 7 Миниатюры 0

@AzAtom Модератор 3758 / 2262 / 783 Регистрация: 15.11.2015 Сообщений: 8,996
	12.05.2020, 15:20	6
	Anasat, из А) не следует, что размер Image должен меняться. Наоборот, изображение должно подстроится под размер Image. Последнее делается установкой свойства Stretch = true. 1

@AzAtom Модератор 3758 / 2262 / 783 Регистрация: 15.11.2015 Сообщений: 8,996
	12.05.2020, 16:03	8
	Label находится под Image и текст центрирован тоже. 0

@Anasat 0 / 0 / 0 Регистрация: 25.10.2019 Сообщений: 37
	12.05.2020, 17:03 [ТС]	9
	спасибо большое! 0