/[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 3125 by torben, Wed Oct 19 08:39:31 2016 UTC revision 3131 by torben, Thu Oct 20 07:31:23 2016 UTC
# Line 19  type Line 19  type
19      procedure PrintLabel( Stregkode : String);      procedure PrintLabel( Stregkode : String);
20    
21    
22      procedure PrintTestLabel( Linie1, Linie2, Linie3 : String);      procedure PrintTestLabel();
   
     // PrintLabelData bliver brugt til PrinterTest  
     // og blicer derfor nødt til at være Public  
   
23    
24    
25      function GetPrinterCount() : Integer;      function GetPrinterCount() : Integer;
# Line 36  type Line 32  type
32      var Config: TConfiguration;      var Config: TConfiguration;
33    
34    
35    
36      procedure PrintZPL( ZplData : string);      procedure PrintZPL( ZplData : string);
37    
38      procedure PrintLabelData( LabelData : TLabelData);      procedure PrintLabelData( LabelData : TLabelData);
# Line 291  begin Line 288  begin
288    
289  end;  end;
290    
291  procedure TLabelPrint.PrintTestLabel( Linie1, Linie2, Linie3 : String);  procedure TLabelPrint.PrintTestLabel();
292  var  var
293    LabelData : TLabelData;    LabelData : TLabelData;
294  begin  begin
295    LabelData := TLabelData.Create(nil);    LabelData := TLabelData.Create(nil);
296    LabelData.LabelType := 'simpel';    LabelData.LabelType := 'simpel';
297    LabelData.SimpelLinie1 := Linie1;    LabelData.SimpelLinie1 := 'Test Label';
298    LabelData.SimpelLinie2 := Linie2;    LabelData.SimpelLinie2 := 'Test Label';
299    LabelData.SimpelLinie3 := Linie3;    LabelData.SimpelLinie3 := 'Test Label';
300    
301    PrintLabelData(Labeldata);    PrintLabelData(Labeldata);
302    
Legend:
Removed from v.3125  
changed lines
  Added in v.3131
  ViewVC Help
Powered by ViewVC 1.1.20