/[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 3127 by torben, Wed Oct 19 08:39:31 2016 UTC revision 3128 by torben, Thu Oct 20 06:02:09 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();
23    
24      // PrintLabelData bliver brugt til PrinterTest      // PrintLabelData bliver brugt til PrinterTest
25      // og blicer derfor nødt til at være Public      // og blicer derfor nødt til at være Public
# Line 291  begin Line 291  begin
291    
292  end;  end;
293    
294  procedure TLabelPrint.PrintTestLabel( Linie1, Linie2, Linie3 : String);  procedure TLabelPrint.PrintTestLabel();
295  var  var
296    LabelData : TLabelData;    LabelData : TLabelData;
297  begin  begin
298    LabelData := TLabelData.Create(nil);    LabelData := TLabelData.Create(nil);
299    LabelData.LabelType := 'simpel';    LabelData.LabelType := 'simpel';
300    LabelData.SimpelLinie1 := Linie1;    LabelData.SimpelLinie1 := 'Test Label';
301    LabelData.SimpelLinie2 := Linie2;    LabelData.SimpelLinie2 := 'Test Label';
302    LabelData.SimpelLinie3 := Linie3;    LabelData.SimpelLinie3 := 'Test Label';
303    
304    PrintLabelData(Labeldata);    PrintLabelData(Labeldata);
305    
Legend:
Removed from v.3127  
changed lines
  Added in v.3128
  ViewVC Help
Powered by ViewVC 1.1.20