paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-22 19:19:26 +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; DeviceMode : THandle;
DevNames : PDevNames; DevNames : PDevNames;
St : PChar; St : PChar;
Extra,Size : Integer;
Fields : Dword;
begin begin
Result:=False; Result:=False;
if not Assigned(Printer) then Exit; if not Assigned(Printer) then Exit;
@ -86,8 +84,6 @@ var
DeviceMode : THandle; DeviceMode : THandle;
DevNames : PDevNames; DevNames : PDevNames;
St : PChar; St : PChar;
Extra,Size : Integer;
Fields : Dword;
begin begin
Result:=False; Result:=False;
if not Assigned(Printer) then Exit; if not Assigned(Printer) then Exit;
@ -159,8 +155,6 @@ var lpp : tagPD;
DeviceMode : THandle; DeviceMode : THandle;
DevNames : PDevNames; DevNames : PDevNames;
St : PChar; St : PChar;
Extra,Size : Integer;
Fields : Dword;
begin begin
Result:=False; Result:=False;
if not Assigned(Printer) then Exit; if not Assigned(Printer) then Exit;