[lazarus] bug in forms.pp

[Darek Mazur]

I found bug in FORMS.PP


if procedure TApplication.Initialize;
is invoke CNSendMessage(LM_SCREENINIT, nil, @ScreenInfo);

if should be invoke early, for example in tScreen.create()
because in function is  initialize variable PIXELSPERINCH

now tScreen.PIXELSPERINCH has value 0

I notice that in tForm.pixelsperinch is dummy



Darek

PS. I have 2 small petition
1. please rebuilt MAKEFILE in LCL\interfaces
2. please add  of top //include in win32int.pp
in files 
{$I win32proc.inc}
{$I win32listsl.inc}
{$I win32callback.inc}
{$I win32object.inc}
{$I win32winapi.inc}

thats help me in my work