Коррекция уменьшения размеров формы в Windows 7 (64-bit)

← →
SkAndriy (2014-01-09 08:55) [0]

доброе утро,

В среде Delphi XE4 z создал программу на Delph XE4 со свойством формы BorderStyle=bsSingle (это обязательное условие для меня!), которую тестировал на Windows 8 (64-bit). Здесь все отлично! Позже я создал инсталлятор с помощью Inno Setup и установил программу на работе в институте, где у меня Windows 7 (64-bit). Проблема заключается в том, что на ОС Windows 7 (64-bit) программа встала нормально, но размеры ее формы резко уменьшились. В интернете я нашел вот такое решение: http://qc.embarcadero.com/wc/qcmain.aspx?d=113544, то есть проблема в модуле VCL.Forms.pas

Дальнейшие мои действия были следующие:

1. создал копию модуля VCL.Forms.pas.
2. внес рекомендуемые http://qc.embarcadero.com/wc/qcmain.aspx?d=113544 в VCL.Forms.pas изменения и заменил им оригинальный файл в C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\source\vcl\
3. вновь скомпилировал свою программу, но проблема осталась

тогда я попробовал следующее:

1. в папку C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\source\vcl\ я вернул оригинальный (не измененный) VCL.Forms.pas
2. переместил измененный модуль VCL.Forms.pas в директорию своей программы и скомпилировал свой проект. В результате в папке ...\Win64\Debug\ моего проекта был создан VCL.Forms.dcu
3. я вновь собрал инсталлятор и попробовал установить программу на Windows 7 (64-bit), но, увы, проблема остается.

я посмотрел директории pas и dcu файлов VCL.Forms в Embarcadero (все это оригинальные файлы) и нашел их:

C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\source\vcl\Vcl.Forms.pas
C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\lib\win32\debug\Vcl.Forms.dcu
C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\lib\win32\release\Vcl.Forms.dcu
C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\lib\win64\debug\Vcl.Forms.dcu
C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\lib\win64\release\Vcl.Forms.dcu

может нужно изменить модуль VCL.Forms.pas на измененный VCL.Forms.pas и одновременно скомпилированным VCL.Forms.dcu в директории моей программы заменить оригинальный в C:\Program Files (x86)\Embarcadero\RAD Studio\11.0\lib\win64\debug\ или release\?

Нашел еще один вариант:

1. Оставить оригинальные файлы на их месте, а модуль VCL.Forms.pas для замены поместить в другой каталог, например C:\KOL\DCU
2. Открыв свой проект, зайти в меню: Project-Options-Directories and Conditionals-Debug configuration - 64-bit Windows platform-Include file search path и там прописать путь к файлам замены: C:\KOL\DCU

только здесь мне не понятно, где должен находиться сам модуль VCL.Forms.pas? В папке C:\KOL\DCU. где после компилирования моего проекта будет создан Vcl.Forms.dcu измененного мною модуля или все же VCL.Forms.pas нужно помещать в какую-то иную папку? Это не понятно для меня совершенно.

или как правильно перекомплировать измененный файл VCL.Forms.pas?

Очень буду Вам благодарен за помощь.
К сожалению, здесь моих знаний не хватает.
И если кто-то владеет такими профессиональными знаниями, очень прошу Вас кратко показать мне как это можно сделать пошагово.

спасибо за помощь

← →
SkAndriy (2014-01-09 15:50) [1]

Испытал последний вариант:

1. создал папку в c:\Users\Andriy\Documents\RAD Studio\vcl\win64\debug\
2. поместил в нее измененный файл VCL.Forms.pas
3. прописал путь в Project-Options-Directories and Conditionals-Debug configuration - 64-bit Windows platform-Include file search path
4. скомпилировал свой проект.

в результате никакого файла VCL.Forms..dcu рядом с VCL.Forms.pas нет.

может где-то измененный файл VCL.Forms.pas необходимо регистрировать?

где возможно у меня ошибка?

спасибо за помощь

← →
Jimmy (2014-01-15 19:45) [2]

А нет у Вас такого, что, например, в OnCreate формы Вы пишите Form1.Height:=500; вместо Form1.ClientHeight:=500? Тогда в зависимости от настроек Windows размер клиентской части может уменьшится. (Это лишь предположение.)

← →
RaZeR (2014-03-21 20:48) [3]