mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-27 18:53:48 +02:00
40f8498835
- revert 33020 #928292514b, 33082 #dd109fba91, 33086 #bd7b46c17a, part of 33089 and 33389. These changes made the hint behavior Delphi incompatible thus leading to a regression in third party control like VirtualTreeView that handles hints in CMHintShow - Retrieve parent hint recursively if hintcontrol.hint is empty' (delphi compatible) - Added sample project to test hints git-svn-id: trunk@38802 -
16 lines
203 B
ObjectPascal
16 lines
203 B
ObjectPascal
program Project1;
|
|
|
|
{$MODE Delphi}
|
|
|
|
uses
|
|
Forms, Interfaces,
|
|
Unit1 in 'Unit1.pas' {Form1};
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Application.CreateForm(TForm1, Form1);
|
|
Application.Run;
|
|
end.
|