paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 10:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32 printers: cleanup

Browse Source 
git-svn-id: trunk@15235 -
This commit is contained in:
vincents 2008-05-26 14:09:18 +00:00
parent 2bf1be0786
commit a3230ffdcd
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/printers/win32/winprndialogs.inc
View File

@ -11,8 +11,6 @@ var
DeviceMode : THandle;
DevNames : PDevNames;
St : PChar;
Extra,Size : Integer;
Fields : Dword;
begin
Result:=False;
if not Assigned(Printer) then Exit;
@ -86,8 +84,6 @@ var
DeviceMode : THandle;
DevNames : PDevNames;
St : PChar;
Extra,Size : Integer;
Fields : Dword;
begin
Result:=False;
if not Assigned(Printer) then Exit;
@ -159,8 +155,6 @@ var lpp : tagPD;
DeviceMode : THandle;
DevNames : PDevNames;
St : PChar;
Extra,Size : Integer;
Fields : Dword;
begin
Result:=False;
if not Assigned(Printer) then Exit;