[fpc-pascal] Problem with FPC2.0.2 and windows

[Martin Schreiber]

On Sunday 08 January 2006 15.43, Hans Mårtensson wrote:

> Now, I'm not familiar with the development of the PFC,
> where and when can I download the corrected version of 2.0.2?

Copy the modified  definition in type section of your program file:

Program test;
// Program for testing dialogue boxes

{$APPTYPE GUI}

Uses windows;

Const
  AppName = 'Lydexperiment';
type
     DLGTEMPLATE = packed record //from rtl/win32/wininc/struct.inc
          style : DWORD;
          dwExtendedStyle : DWORD;
          cdit : WORD;
          x : smallint;
          y : smallint;
          cx : smallint;
          cy : smallint;
       end;

     DLGITEMTEMPLATE = packed record
          style : DWORD;
          dwExtendedStyle : DWORD;
          x : smallint;
          y : smallint;
          cx : smallint;
          cy : smallint;
          id : WORD;
       end;
var 
  AMessage: Msg; hWindow: HWnd;
  pbox2: pointer; box2var1, box2var2: longint;
.....

Martin