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

fixed Printer.Refresh double printer list (from Darek)

Browse Source 
git-svn-id: trunk@8420 -
This commit is contained in:
jesus 2006-01-03 08:42:02 +00:00
parent ad4cc7ea32
commit cac3bd154d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/printers.pas
View File

@ -344,7 +344,6 @@ begin
// it wont be filled on getting printers // it wont be filled on getting printers
// due to only one initialization // due to only one initialization
GetPrinters; GetPrinters;
DoEnumPrinters(fPrinters);
fPrinterIndex:=-1; fPrinterIndex:=-1;
@ -578,6 +577,7 @@ end;
procedure TPrinter.DoResetPrintersList; procedure TPrinter.DoResetPrintersList;
begin begin
//Override this methode //Override this methode
fPrintersValid:=false;
end; end;
procedure TPrinter.DoResetFontsList; procedure TPrinter.DoResetFontsList;