Подогнать размеры Формы под размер загруженной картинки

@rob777 · Регистрация: 08.12.2011

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

Добрый день! В зависимости от определенных условие в Image загружаются картинки различных размеров. Мне нужно сделать так, чтобы форма сама подгонялась под размеры этих картинок. Я пробовал так

Delphi

1 2	Form5.ClientHeight:=Image1.Height; Form5.ClientWidth:=Image1.Width;

но ничего не выходит... на Image стоит AutoSize. Что важно, что форма должна подгоняться под картинку,а не наоборот.

@Immo · 17.11.2013, 18:21

Image1.Picture.Height и Width соответственно

@rob777 · 17.11.2013, 18:29 **[ТС]**

не работает(

@Immo · 17.11.2013, 18:40

а так?

Delphi

1 2	Form5.Height:=Form5.Image1.picture.Height; Form5.Width:=Form5.Image1.Picture.Width;

Добавлено через 6 минут
и естественно размер будет меняться только после загрузки картинки, и если стоит алигн олклиент

@rob777 · 17.11.2013, 18:42 **[ТС]**

Именно в моем не работает. Хотя сейчас создал другой проект ,там работает. вот посмотрите исходники пожалуйста
[404]
по нажатию на кнопку он должен свернуть

@Immo · 17.11.2013, 19:02

у меня не открывается, а разбираться в коде щас нет времени, но судя по картинке она маленькая, попробуй включить на имедж stretch и proportional

Добавлено через 2 минуты
и алигн - олклиент, и все эти свойства на имедже

@rob777 · 17.11.2013, 19:07 **[ТС]**

У меня такая программа, что размер картинки трогать нельзя. А просто поставить Alig:alClient я не могу, так как размер Image будет менять в зависимости от размера картинки.Свою программу не скидываю, потому что она слишком большая. Это я так на скорую руку налепил

@NIKOLAYY · 17.11.2013, 20:54

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

размер картинки трогать нельзя. А просто поставить Alig:alClient я не могу

Тебе не Alig свойство нужно а AutoSize. Сравняй левый и верхний угол имаги с левым и верхним краем формы и этот ниже код отработает как тебе нужно на ура.

Delphi

1
2
3

  Image1.AutoSize:= True; //подогнать размер имаги под размер картинки
  Form1.ClientWidth:= Image1.Width; //ширина формы равна ширене имаги
  Form1.ClientHeight:= Image1.Height; //высота формы равна высоте имаги

@rob777 · 17.11.2013, 22:02 **[ТС]**

Не получается вообще никак...Если не сложно посмотри в исходниках, вот по нажатию на кнопку он должен выравнивать [404]

@NIKOLAYY · 17.11.2013, 22:17

исходники сюда ложи от туда не качаются.

@FIL · 17.11.2013, 22:25

Не по теме:

Где-то я этот код уже видел...:D

Delphi

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
//  Resize := False;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
//Image1.AutoSize:= True; //ïîäîãíàòü ðàçìåð èìàãè ïîä ðàçìåð êàðòèíêè
  Form1.ClientWidth:= Image1.Picture.Width; //øèðèíà ôîðìû ðàâíà øèðåíå èìàãè
  Form1.ClientHeight:= Image1.Picture.Height; //âûñîòà ôîðìû ðàâíà âûñîòå èìàãè
end;

@rob777 · 17.11.2013, 23:07 **[ТС]**

Вот

@rob777 · 17.11.2013, 23:32 **[ТС]**

Я и не говорил, что это мой код))он просто похож на мой, я по тому типу делал)

Добавлено через 2 минуты
Fil, не подходит... у вас это работает??

@FIL · 17.11.2013, 23:37

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

Fil, не подходит... у вас это работает??

Да, форма принимает размер картинки.

@NIKOLAYY · 17.11.2013, 23:42

Да там у тебя где-то запрет стоит менять размеры формы!
Сама форма и мышью даже неможет изменить размер! Если сам код писал то вспоминай, а так лучше собери свой проект.

@rob777 · 18.11.2013, 00:47 **[ТС]**

Да запрет был в строчке Resize := False;. Что-то я не заметил в комментарии Fil.Я уж думал с ума сойду). Всем спасибо!)

@BikrevDeniis · 20.11.2013, 15:39

эмм... не понимаю в чем проблема=)
Просто в свойстве самой формы AutoSize поменяй на true и все!

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	17.11.2013, 22:17	10
	исходники сюда ложи от туда не качаются. 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	17.11.2013, 23:37	14
	Сообщение от rob777 Fil, не подходит... у вас это работает?? Да, форма принимает размер картинки. 0

@rob777 1 / 1 / 1 Регистрация: 08.12.2011 Сообщений: 84
	18.11.2013, 00:47 [ТС]	16
	Да запрет был в строчке Resize := False;. Что-то я не заметил в комментарии Fil.Я уж думал с ума сойду). Всем спасибо!) 0

@Immo 692 / 509 / 238 Регистрация: 02.10.2012 Сообщений: 1,741
	17.11.2013, 18:21	2
	Image1.Picture.Height и Width соответственно 0

@rob777 1 / 1 / 1 Регистрация: 08.12.2011 Сообщений: 84
	17.11.2013, 18:29 [ТС]	3
	не работает( 0

@rob777 1 / 1 / 1 Регистрация: 08.12.2011 Сообщений: 84
	17.11.2013, 18:42 [ТС]	5
	Именно в моем не работает. Хотя сейчас создал другой проект ,там работает. вот посмотрите исходники пожалуйста [404] по нажатию на кнопку он должен свернуть 0

@Immo 692 / 509 / 238 Регистрация: 02.10.2012 Сообщений: 1,741
	17.11.2013, 19:02	6
	у меня не открывается, а разбираться в коде щас нет времени, но судя по картинке она маленькая, попробуй включить на имедж stretch и proportional Добавлено через 2 минуты и алигн - олклиент, и все эти свойства на имедже 0

@rob777 1 / 1 / 1 Регистрация: 08.12.2011 Сообщений: 84
	17.11.2013, 19:07 [ТС]	7
	У меня такая программа, что размер картинки трогать нельзя. А просто поставить Alig:alClient я не могу, так как размер Image будет менять в зависимости от размера картинки.Свою программу не скидываю, потому что она слишком большая. Это я так на скорую руку налепил 0

@rob777 1 / 1 / 1 Регистрация: 08.12.2011 Сообщений: 84
	17.11.2013, 22:02 [ТС]	9
	Не получается вообще никак...Если не сложно посмотри в исходниках, вот по нажатию на кнопку он должен выравнивать [404] 0

@rob777 1 / 1 / 1 Регистрация: 08.12.2011 Сообщений: 84
	17.11.2013, 23:32 [ТС]	13
	Я и не говорил, что это мой код))он просто похож на мой, я по тому типу делал) Добавлено через 2 минуты Fil, не подходит... у вас это работает?? 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	17.11.2013, 23:42	15
	Да там у тебя где-то запрет стоит менять размеры формы! Сама форма и мышью даже неможет изменить размер! Если сам код писал то вспоминай, а так лучше собери свой проект. 1

@BikrevDeniis 0 / 0 / 0 Регистрация: 16.04.2013 Сообщений: 16
	20.11.2013, 15:39	17
	эмм... не понимаю в чем проблема=) Просто в свойстве самой формы AutoSize поменяй на true и все! 0