paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 02:19:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

pinters: fixed compilation on win64

Browse Source 
git-svn-id: trunk@19466 -
This commit is contained in:
vincents 2009-04-17 09:57:10 +00:00
parent b8b3270862
commit 443073a7a2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/printers/win32/winutilprn.pas
View File

@ -34,7 +34,7 @@ interface
{$ENDIF} {$ENDIF}
uses uses
Types, Classes, SysUtils, LCLType, Printers; Windows, Types, Classes, SysUtils, LCLType, Printers;
const const
{$i winutilprnconst.inc} {$i winutilprnconst.inc}
@ -63,7 +63,7 @@ type
wDefault: Word; wDefault: Word;
end; end;
TFcntHook = function(Wnd: HWND; uiMsg: UINT; wParam: WPARAM; lParam: LPARAM): UINT stdcall; TFcntHook = function(Wnd: HWND; uiMsg: UINT; wParam: WPARAM; lParam: LPARAM): UINT_PTR; stdcall;
tagPSD= packed record tagPSD= packed record