/[projects]/dao/DelphiScanner/LabelPrint.pas
ViewVC logotype

Diff of /dao/DelphiScanner/LabelPrint.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3098 by torben, Sun Aug 21 20:51:45 2016 UTC revision 3099 by torben, Mon Aug 22 18:27:30 2016 UTC
# Line 165  begin Line 165  begin
165  //            'Test'  skal vise alarmlinie, samt opdatere listbox1  //            'Test'  skal vise alarmlinie, samt opdatere listbox1
166  //            'Timer' skal kun vise alarmlinie  //            'Timer' skal kun vise alarmlinie
167    
168    if (PrinterNavn = 'Ingen') and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then  //  if (PrinterNavn = 'Ingen') and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then
169    begin  //  begin
170    //
171      parentForm.LogMessage( 'Der er fravalgt printer i dette program' );  //    parentForm.LogMessage( 'Der er fravalgt printer i dette program' );
172    end  //  end
173    else if (Printer.Printers.Count = 0) and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then  //  else
174      if (Printer.Printers.Count = 0) and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then
175    begin    begin
176      parentForm.LogMessage( 'Der er ikke installeret en printer på denne PC' );      parentForm.LogMessage( 'Der er ikke installeret en printer på denne PC' );
177    end    end
Legend:
Removed from v.3098  
changed lines
  Added in v.3099
  ViewVC Help
Powered by ViewVC 1.1.20