Printpreview with XE2

[Jens01]

I checked PrintPreview with a trialversion of Delphi XE2.
After changing this methods in preview.pas it works :

Code: Select all

procedure TIntegerList.LoadFromStream(Stream: TStream);
var
  Size: Integer;
begin
  Clear;
  Stream.ReadBuffer(Size, SizeOf(Integer));
  Count := Size;
  Stream.ReadBuffer(Pointer(List)^{List^}, Count * SizeOf(Integer));
end;

procedure TIntegerList.SaveToStream(Stream: TStream);
var
  Size: Integer;
begin
  Size := Count;
  Stream.WriteBuffer(Size, SizeOf(Integer));
  Stream.WriteBuffer(Pointer(List)^{List^}, Count * SizeOf(Integer));
end;

[Kambiz]

Thank you for the information.

[Jens01]

But only for 32-Bit Windows

[Kambiz]

I don't have XE to check it out, but I guess by changing SizeOf(Integer) to SizeOf(Pointer) it will work on 64-bit too.

[Jens01]

64-Bit:
I changed it but there come some exception. Perhaps it is a problem with the DLLs, e.g. gdiplus.dll