/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/Form1.pas
30 строк
706 B
Slav76
добавленна возможность отладки в *.inc файлах
24 окт 2015, 05:32
24 окт 2015, 05:32
1e0c04e
Код
Авторство
О чём код?
{$reference System.Windows.Forms.dll} {$reference System.Drawing.dll} uses System, System.Drawing, System.Windows.Forms; type TestForm = class(Form) procedure Form1_Load(sender: Object; e: EventArgs); {$region FormDesigner} private {$resource Form1.TestForm.resources} {$include Form1.TestForm.inc} {$endregion FormDesigner} public constructor; begin InitializeComponent; end; end; procedure TestForm.Form1_Load(sender: Object; e: EventArgs); begin Close; end; begin System.Windows.Forms.Application.EnableVisualStyles(); System.Windows.Forms.Application.SetCompatibleTextRenderingDefault(false); System.Windows.Forms.Application.Run(new TestForm) end.