[lazarus] bug in forms.pp

[Mattias Gaertner]

On Mon, 17 Nov 2003 23:10:31 +0100
"Darek Mazur" <darekm at emadar.com> wrote:

> 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()

That would bite with some initialization sections.


> because in function is  initialize variable PIXELSPERINCH
> 
> now tScreen.PIXELSPERINCH has value 0
> 
> I notice that in tForm.pixelsperinch is dummy

I have implemented them via GetDeviceCaps. Is this function a workaround in
the gtk intf or already implemented?


> Darek
> 
> PS. I have 2 small petition
> 1. please rebuilt MAKEFILE in LCL\interfaces

Done


> 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

I will leave this for Micha.


Mattias