[lazarus] bug in forms.pp

Darek Mazur darekm at emadar.com
Mon Nov 17 17:01:30 EST 2003

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


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


More information about the Lazarus mailing list