/[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 3129 by torben, Thu Oct 20 06:03:56 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 291  begin Line 287  begin
287    
288  end;  end;
289    
290  procedure TLabelPrint.PrintTestLabel( Linie1, Linie2, Linie3 : String);  procedure TLabelPrint.PrintTestLabel();
291  var  var
292    LabelData : TLabelData;    LabelData : TLabelData;
293  begin  begin
294    LabelData := TLabelData.Create(nil);    LabelData := TLabelData.Create(nil);
295    LabelData.LabelType := 'simpel';    LabelData.LabelType := 'simpel';
296    LabelData.SimpelLinie1 := Linie1;    LabelData.SimpelLinie1 := 'Test Label';
297    LabelData.SimpelLinie2 := Linie2;    LabelData.SimpelLinie2 := 'Test Label';
298    LabelData.SimpelLinie3 := Linie3;    LabelData.SimpelLinie3 := 'Test Label';
299    
300    PrintLabelData(Labeldata);    PrintLabelData(Labeldata);
301    
Legend:
Removed from v.3125  
changed lines
  Added in v.3129
  ViewVC Help
Powered by ViewVC 1.1.20