search

DelphiGeek / mustangpeakvirtualshelltools

Automatically exported from code.google.com/p/mustangpeakvirtualshelltools
0 stars 0 forks source link

Does not compile in XE2 64 bit. #2

Closed GoogleCodeExporter closed 9 years ago

GoogleCodeExporter commented 9 years ago 
Solution

In file VirtualScrollbars.pas change the definition of TWMPrint to

  TWMPrint = {$IFNDEF WIN64}packed{$ENDIF} record
    Msg: Cardinal;
    DC: HDC;
    Flags: LPARAM;
    Result: LRESULT;
  end;

Original issue reported on code.google.com by pyscripter on 26 Nov 2011 at 3:22

GoogleCodeExporter commented 9 years ago 
Actually the following is better (TWMPrint is defined in Winapi.Messages)

{$IFNDEF DELPHI_5_UP}
  // The next both message records are not declared in Delphi 5 and lower.
  TWMPrint = packed record
    Msg: Cardinal;
    DC: HDC;
    Flags: LPARAM;
    Result: LRESULT;
  end;

  TWMPrintClient = TWMPrint;
{$ENDIF}

Original comment by pyscripter on 27 Nov 2011 at 3:51

GoogleCodeExporter commented 9 years ago 
Fixed in version control.  It has been tested extensively by running most of 
the demos.

Original comment by pyscripter on 17 Dec 2011 at 1:17