Delphi XE4 и формы - Общие вопросы Delphi - Страница 2

Streletz · 29.07.2014, 12:16

Ну теперь совсем другое дело.

К сожалению, с помощью средств только одного TImage проблему не решить.
Можно поступить следующим образом. В TImage достаточно разместить одноцветную картинку. Затем выставить нужную высоту для него (свойство Height) и установить свойство Align alTop. Белый цвет можно назначить форме (свойство Color). В этом случае, при изменении размера формы ширина "цветной" полосы останется прежней.
Попробовал сам реализовать такой дизайн данным способом. У меня получился абсолютно одинаковый внешний вид формы и на XP и на 7 (см.скрины). Разумеется, с поправкой на внешний вид по умолчанию для окон и стандартных компонентов в обеих ОС.

Цитата:

Сообщение от Александр_Фролово

под Win7 форма адекватна,под XP не пойми что выходит

Исходя из того, что видно на скринах, можно сделать предположение о том, что в XP форма почему-то изменяет свой размер и становиться больше, чем расположенный на ней TImage.
В любом случае, такие вещи самопроизвольно не происходят и ОС здесь не причём (см.скрины). Что-то заставляет форму вести себя подобным образом.
Возможно, разгадка находится в коде формы. Проверьте его внимательно. В 1ю очередь обработчики событий формы.

Пепел Феникса · 29.07.2014, 12:26

может DPI разный?
там помоему еще от версии Дельфы зависит.

DIONISKA · 29.07.2014, 12:34

Может проще прикомпилировать бэкграунд к ресурсам и тем-же StretchBlt рисовать при OnPaint и OnResize формы?

Toxa · 29.07.2014, 14:02

а можно исходники глянуть?

Vapaamies · 29.07.2014, 20:13

Чему равно свойство AutoScroll у форм?

саша40 · 29.07.2014, 22:09

Тут компоненты просто по разному нарисованы. Видимо это из-за того, что в разных версиях Windows одни и те же компоненты отрисовываются по разному(получаются разного вида). Кординальный метод решения такого момента: Рисовать компоненты самим. Делать из Битмапов свои кнопки, списки и прочее.

Stilet · 29.07.2014, 22:17

Цитата:

Делать из Битмапов свои кнопки, списки и прочее.

Неудачное решение...

Toxa · 30.07.2014, 08:09

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

alextrof94 · 30.07.2014, 10:46

А ТС учитывает, что "Form.Width" - ширина окна ВМЕСТЕ С РАМКАМИ, которые в разных темах оформления (не только в разных ОС) отличаются? Для настройки размеров формы "пиксель в пиксель" надо использовать "Form.ClientWidth" (аналогично с Height). Я почти уверен, что дело именно в том, что ТС просто забыл, что где-то использует ручное задание ширины.

Toxa · 30.07.2014, 11:23

alextrof94
на скринах видно что разница не в рамках, размеры рамок разнятся не более чем в 20 пикселей, а размер картинки почти в 2 раза

29.07.2014, 12:26	#12
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	может DPI разный? там помоему еще от версии Дельфы зависит. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

29.07.2014, 14:02	#14
Toxa Форумчанин Подтвердите свой е-майл Регистрация: 01.12.2006 Сообщений: 514	а можно исходники глянуть? Пишу на Delphi за еду

29.07.2014, 20:13	#15
Vapaamies Просветитель Участник клуба Регистрация: 26.12.2012 Сообщений: 1,844	Чему равно свойство AutoScroll у форм? В разработке: воспроизводственный контур ИТ

29.07.2014, 22:09	#16
саша40 Участник клуба Регистрация: 12.09.2012 Сообщений: 1,030	Тут компоненты просто по разному нарисованы. Видимо это из-за того, что в разных версиях Windows одни и те же компоненты отрисовываются по разному(получаются разного вида). Кординальный метод решения такого момента: Рисовать компоненты самим. Делать из Битмапов свои кнопки, списки и прочее. Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования. Программист-это профессия, а программирование-это моё хобби.

30.07.2014, 08:09	#18
Toxa Форумчанин Подтвердите свой е-майл Регистрация: 01.12.2006 Сообщений: 514	ну не на столько же по разному. я вот щас попробовал сделать такой же проектик, запустил на семерке и на ХР, все отработало одинаово Пишу на Delphi за еду

29.07.2014, 12:34	#13
DIONISKA Форумчанин Регистрация: 07.11.2011 Сообщений: 178	Может проще прикомпилировать бэкграунд к ресурсам и тем-же StretchBlt рисовать при OnPaint и OnResize формы?

30.07.2014, 10:46	#19
alextrof94 Форумчанин Регистрация: 16.03.2013 Сообщений: 599	А ТС учитывает, что "Form.Width" - ширина окна ВМЕСТЕ С РАМКАМИ, которые в разных темах оформления (не только в разных ОС) отличаются? Для настройки размеров формы "пиксель в пиксель" надо использовать "Form.ClientWidth" (аналогично с Height). Я почти уверен, что дело именно в том, что ТС просто забыл, что где-то использует ручное задание ширины. alextrof94$gmail.com Последний раз редактировалось alextrof94; 30.07.2014 в 10:49.

30.07.2014, 11:23	#20
Toxa Форумчанин Подтвердите свой е-майл Регистрация: 01.12.2006 Сообщений: 514	alextrof94 на скринах видно что разница не в рамках, размеры рамок разнятся не более чем в 20 пикселей, а размер картинки почти в 2 раза Пишу на Delphi за еду

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Отслеживание утечек памяти в Delphi XE4	MainUnit.pas	Общие вопросы Delphi	21	19.08.2014 09:17
Delphi XE4 TXMLNodeList	BidiBom	Компоненты Delphi	2	14.04.2014 10:26
Анимация иконки в TrayIcon (Delphi XE4)	DiDfree	Компоненты Delphi	3	14.02.2014 02:36
Delphi XE4. Formatter	Larboss	Общие вопросы Delphi	8	26.11.2013 10:17
Delphi XE4	Simon1712	Общие вопросы Delphi	2	14.09.2013 04:40