Выравнивание Panel!

@Junior Joe · Регистрация: 11.10.2013

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

Добрый вечер! Нужна помощь!
Проблема как бы проста, но не как додуматься не могу, как ее решить?!
Запускается форма на весь экран, С помощью вот этого кода!!!

Delphi

 
 Form1.FormStyle:=fsStayOnTop;
 Form1.Width:=Screen.Width;
 Form1.Height:=Screen.Height;

Дальше, есть у меня на форме картинка монитора и panel, panel должна попадать внутрь монитора, как бы он играет у меня роль экрана!!! Вот так вот кажется легко, но как сделать не понимаю! Новичок я в delphi!

@cotseec · 20.02.2014, 19:01

если панель должна лежать внизу формы и занимать 4/5 формы по высоте, в FormShow

Delphi

...
   sPanel1.Align := alBottom;
   sPanel1.Height := Height - (Height div 5);
....

либо устанавливаете якоря для панели (Anchors) в дизайн тайме либо прямо указываете

Delphi

...
   sPanel1.Top := Height div 5;
   sPanel1.Left := 0;
   sPanel1.Width := Width;
   sPanel1.Height := Height - sPanel1.Top;
...

@Junior Joe · 20.02.2014, 19:37 **[ТС]**

cotseec, Можете это сделать в проекте и скинуть пожалуйста! В проекте Снайпер, Очень прошу я мучался и нечего не придумал и не понял вас!

Добавлено через 2 минуты
cotseec, пожалуйста*)))

@cotseec · 20.02.2014, 19:41

Не по теме:

сделать то могу, но интереса для: есть обработчик OnShow (в приложенном проекте он описан), в него требуется дописать 4 (четыре строчки) или 2 (две) строчки, в зависимости от требований, которые можно скопировать с #2, сколько времени необходимо для этих операций?

@Junior Joe · 20.02.2014, 19:55 **[ТС]**

cotseec, Не понял?!)

Добавлено через 10 минут
cotseec, Помоги я уже мучаюсь 3 день пожалуйста, очень надо!

@cotseec · 20.02.2014, 19:59

Junior Joe, в чем помочь? нажать Ctrl+C и Ctrl+V?

@Junior Joe · 20.02.2014, 20:03 **[ТС]**

cotseec, Я так делал, не помогло, не первый и не второй код! А судь кода я не понял поэтому прошу помощи?

@cotseec · 20.02.2014, 20:09

Не по теме:

Junior Joe, значит неправильный код или некорректно составлен вопрос

перенесите в OnCreate

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
  Top := 0;
  Left := 0;
  FormStyle:=fsStayOnTop;
  Width:=Screen.Width;
  Height:=Screen.Height;
 
  Panel1.Align := alBottom;
  Panel1.Height := Height - (Height div 5);
end;

картинка

@Junior Joe · 20.02.2014, 20:20 **[ТС]**

cotseec, Ты походу не открывал проект Снайпер! У меня монитор стоит по центру! в Image1 стоит функция allclient? и еще center true!

Добавлено через 3 минуты
cotseec, монитор как бы стоит на месте и по центру нужно внутрь попасть как в картинке обводненном красной линией №2

Добавлено через 2 минуты
cotseec, открой проект и посмотри пожалуйста, ты все поймешь сразу!

@cotseec · 20.02.2014, 20:31

открывал

картинка

форма с картинкой, альфаконтрол ставить не намерен
если в Image1 находится картинка монитора, то высчитай толщину рамки монитора на картинке (Image1.Stretch = false) и размер панели устанавливай как ширина формы минус две толщины рамки монитора

@Junior Joe · 20.02.2014, 20:35 **[ТС]**

cotseec, сейчас переделаю без alpha controls

@Junior Joe · 20.02.2014, 20:42 **[ТС]**

Вот Скидываю. без alpha

@Junior Joe · 20.02.2014, 20:42 **[ТС]**

cotseec, скинул

@cotseec · 20.02.2014, 22:52

как-то так: Снайпер).zip

но все это отдает проблемой X, Y, Z, что в итоге хочется?

@Junior Joe · 21.02.2014, 18:04 **[ТС]**

cotseec, А как то по проще не получиться?) Спасибо!

@cotseec · 21.02.2014, 18:06

может, можно и проще - сразу разместить панель как надо и задать якоря, я не пробовал

@Junior Joe 25 / 25 / 0 Регистрация: 11.10.2013 Сообщений: 86
	21.02.2014, 18:04 [ТС]	15
	cotseec, А как то по проще не получиться?) Спасибо! 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	21.02.2014, 18:06	16
	может, можно и проще - сразу разместить панель как надо и задать якоря, я не пробовал 1

@Junior Joe 25 / 25 / 0 Регистрация: 11.10.2013 Сообщений: 86
	20.02.2014, 19:37 [ТС]	3
	cotseec, Можете это сделать в проекте и скинуть пожалуйста! В проекте Снайпер, Очень прошу я мучался и нечего не придумал и не понял вас! Добавлено через 2 минуты cotseec, пожалуйста*))) 0

@cotseec
	20.02.2014, 19:41 #4
	Не по теме: сделать то могу, но интереса для: есть обработчик OnShow (в приложенном проекте он описан), в него требуется дописать 4 (четыре строчки) или 2 (две) строчки, в зависимости от требований, которые можно скопировать с #2, сколько времени необходимо для этих операций? 0

@Junior Joe 25 / 25 / 0 Регистрация: 11.10.2013 Сообщений: 86
	20.02.2014, 19:55 [ТС]	5
	cotseec, Не понял?!) Добавлено через 10 минут cotseec, Помоги я уже мучаюсь 3 день пожалуйста, очень надо! 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	20.02.2014, 19:59	6
	Junior Joe, в чем помочь? нажать Ctrl+C и Ctrl+V? 1

@Junior Joe 25 / 25 / 0 Регистрация: 11.10.2013 Сообщений: 86
	20.02.2014, 20:03 [ТС]	7
	cotseec, Я так делал, не помогло, не первый и не второй код! А судь кода я не понял поэтому прошу помощи? 0

@Junior Joe 25 / 25 / 0 Регистрация: 11.10.2013 Сообщений: 86
	20.02.2014, 20:20 [ТС]	9
	cotseec, Ты походу не открывал проект Снайпер! У меня монитор стоит по центру! в Image1 стоит функция allclient? и еще center true! Добавлено через 3 минуты cotseec, монитор как бы стоит на месте и по центру нужно внутрь попасть как в картинке обводненном красной линией №2 Добавлено через 2 минуты cotseec, открой проект и посмотри пожалуйста, ты все поймешь сразу! 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	20.02.2014, 20:31	10
	открывал картинка форма с картинкой, альфаконтрол ставить не намерен если в Image1 находится картинка монитора, то высчитай толщину рамки монитора на картинке (Image1.Stretch = false) и размер панели устанавливай как ширина формы минус две толщины рамки монитора 1

@Junior Joe 25 / 25 / 0 Регистрация: 11.10.2013 Сообщений: 86
	20.02.2014, 20:35 [ТС]	11
	cotseec, сейчас переделаю без alpha controls 0

@Junior Joe 25 / 25 / 0 Регистрация: 11.10.2013 Сообщений: 86
	20.02.2014, 20:42 [ТС]	13
	cotseec, скинул 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	20.02.2014, 22:52	14
	Сообщение было отмечено Junior Joe как решение Решение как-то так: Снайпер).zip но все это отдает проблемой X, Y, Z, что в итоге хочется? 1

Выравнивание Panel!

Решение