/[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 3095 by torben, Sun Aug 21 20:51:45 2016 UTC revision 3103 by torben, Tue Aug 23 06:58:31 2016 UTC
# Line 22  type Line 22  type
22    
23      procedure PrintSimpelLabel( LabelData : TLabelData) ;      procedure PrintSimpelLabel( LabelData : TLabelData) ;
24    
25    
26      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
     procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);  
     procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);  
27    
28    
29      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;
30    
     procedure PrintZPL( ZplData : string);  
31    
32      function GetPrinterCount() : Integer;      function GetPrinterCount() : Integer;
33    
# Line 39  type Line 37  type
37      var Config: TConfiguration;      var Config: TConfiguration;
38    
39    
40        procedure PrintZPL( ZplData : string);
41    
42        procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);
43        procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);
44    
45    
46      function SavePChar(p: PChar): PChar;      function SavePChar(p: PChar): PChar;
47      function GetCurrentPrinterHandle(): THandle;      function GetCurrentPrinterHandle(): THandle;
48    
# Line 165  begin Line 169  begin
169  //            'Test'  skal vise alarmlinie, samt opdatere listbox1  //            'Test'  skal vise alarmlinie, samt opdatere listbox1
170  //            'Timer' skal kun vise alarmlinie  //            'Timer' skal kun vise alarmlinie
171    
172    if (PrinterNavn = 'Ingen') and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then  //  if (PrinterNavn = 'Ingen') and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then
173    begin  //  begin
174    //
175      parentForm.LogMessage( 'Der er fravalgt printer i dette program' );  //    parentForm.LogMessage( 'Der er fravalgt printer i dette program' );
176    end  //  end
177    else if (Printer.Printers.Count = 0) and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then  //  else
178      if (Printer.Printers.Count = 0) and ( (tjektype = 'Opstart') or (tjektype = 'Test') ) then
179    begin    begin
180      parentForm.LogMessage( 'Der er ikke installeret en printer på denne PC' );      parentForm.LogMessage( 'Der er ikke installeret en printer på denne PC' );
181    end    end
# Line 371  begin Line 376  begin
376        BeginDoc();        BeginDoc();
377    
378    
379        Canvas.Font.Size := 16;        Canvas.Font.Size := 15;
380        Canvas.TextOut(15,10, 'Code: ' + PakkeshopLabel.Tjekkode + '     '  + PakkeshopLabel.Overskrift);        Canvas.TextOut(15,10, 'Code: ' + PakkeshopLabel.Tjekkode + '     '  + PakkeshopLabel.Overskrift);
381    
382    
383    
384        Canvas.TextOut(25, 90, PakkeshopLabel.Navn );        Canvas.TextOut(25, 90, PakkeshopLabel.Navn );
385        Canvas.TextOut(25, 135, PakkeshopLabel.Vejnavn );        Canvas.TextOut(25, 140, PakkeshopLabel.Vejnavn );
386        Canvas.TextOut(25, 180, PakkeshopLabel.Postnr );        Canvas.TextOut(25, 190, PakkeshopLabel.Postnr );
387    
388    
389        Canvas.Font.Size := 9;        Canvas.Font.Size := 9;
Legend:
Removed from v.3095  
changed lines
  Added in v.3103
  ViewVC Help
Powered by ViewVC 1.1.20