/[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 3093 by torben, Tue Aug 16 21:06:46 2016 UTC revision 3094 by torben, Fri Aug 19 14:35:39 2016 UTC
# Line 4  interface Line 4  interface
4    
5  uses  uses
6    ParentForm,    ParentForm,
7    PakkeshopLabels,    LabelData,
8    Configuration,    Configuration,
9    StBarc;    StBarc;
10    
# Line 20  type Line 20  type
20    
21      procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');      procedure SendTilPrinter(kontrolKoreliste, RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : string = '');
22    
23      procedure PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel);      procedure PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
24      procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TPakkeshopLabel);      procedure PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);
25      procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TPakkeshopLabel);      procedure PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);
26    
27    
28      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;      procedure PrintDaodirekteLabel( RuteNummer, Kommentar, BoghandlerNavn : String) ;
# Line 52  uses Line 52  uses
52    WinSpool,    WinSpool,
53    Windows,    Windows,
54    SysUtils, //Format    SysUtils, //Format
55    Math, // DegToRad() bruges i PrintPakkeshopLabel    Math, // DegToRad() bruges i PrinTLabelData
56    Forms,    Forms,
57    IdHTTP,    IdHTTP,
58    Graphics    Graphics
# Line 314  begin Line 314  begin
314  end;  end;
315    
316    
317  procedure TLabelPrint.PrintFuldPakkeLabel( PakkeshopLabel : TPakkeshopLabel);  procedure TLabelPrint.PrintFuldPakkeLabel( PakkeshopLabel : TLabelData);
318  begin  begin
319    if (Config.LabelStor = 1) then    if (Config.LabelStor = 1) then
320    begin    begin
# Line 330  begin Line 330  begin
330  end;  end;
331    
332  // Bruges til label der passer til 60x100  // Bruges til label der passer til 60x100
333  procedure TLabelPrint.PrintFuldPakkeLabelLille( PakkeshopLabel : TPakkeshopLabel);  procedure TLabelPrint.PrintFuldPakkeLabelLille( PakkeshopLabel : TLabelData);
334  var  var
335    XForm, XFormOld: TXForm; //Bruges til rotate X-formation    XForm, XFormOld: TXForm; //Bruges til rotate X-formation
336    Angle: integer;    Angle: integer;
# Line 454  end; Line 454  end;
454    
455    
456  // Bruges til label der passer til 100x150  // Bruges til label der passer til 100x150
457  procedure TLabelPrint.PrintFuldPakkeLabelStor( PakkeshopLabel : TPakkeshopLabel);  procedure TLabelPrint.PrintFuldPakkeLabelStor( PakkeshopLabel : TLabelData);
458  var  var
459    XForm, XFormOld: TXForm; //Bruges til rotate X-formation    XForm, XFormOld: TXForm; //Bruges til rotate X-formation
460    Angle: integer;    Angle: integer;
Legend:
Removed from v.3093  
changed lines
  Added in v.3094
  ViewVC Help
Powered by ViewVC 1.1.20