/[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 2789 by torben, Fri Sep 4 12:39:33 2015 UTC revision 2790 by torben, Fri Dec 4 14:07:48 2015 UTC
# Line 291  begin Line 291  begin
291    
292    
293        Canvas.Font.Size := 9;        Canvas.Font.Size := 9;
294        Canvas.TextOut(110, 240, 'Pakkeshop:');  
295    
296          // Skriv ikke 'Pakkeshop' overskrift hvis det er en shop2direkte
297          if (  (PakkeshopLabel.Shop2Direkte = '') OR (PakkeshopLabel.Shop2Direkte = '0')  ) then
298          begin
299            Canvas.TextOut(110, 240, 'Pakkeshop:');
300          end;
301    
302    
303        Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn);        Canvas.TextOut(110, 270, PakkeshopLabel.PakkeshopNavn);
304        Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr);        Canvas.TextOut(110, 300, PakkeshopLabel.PakkeshopAddr);
305        Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr);        Canvas.TextOut(110, 330, PakkeshopLabel.PakkeshopPostnr);
Legend:
Removed from v.2789  
changed lines
  Added in v.2790
  ViewVC Help
Powered by ViewVC 1.1.20