Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Çıktı boyutları
#1
Merhaba; 

Paintbox ve image kullanarak prtinter QR kodu çıktısı alıyorum, Width ve Height belirmeme rağmen a4 baktığımda QR kodu o kadar ufak kalıyor. Bu sorun neden kaynaklı olabilir?



var
  Wd, He: Integer;
begin
  if length(UrunKodu.Text) > 0 then
  begin
    if PrintDialog.Execute then
    begin
      Wd := 300;
      He := 300;
      Printer.BeginDoc;
      BitBlt(Printer.Canvas.Handle, 0, 0, Wd, He, PaintUrun.Canvas.Handle, 0,
        0, SRCCOPY);
      Printer.EndDoc;
    end;
  end;
end;


begin
  if length(UrunKodu.Text) > 0 then
  begin
    if PrintDialog.Execute then
    begin
      Printer.Title := UrunKodu.Text;
      Printer.BeginDoc;
      BitBlt(Printer.Canvas.Handle, 0, 0, ImageUrunDetay.Width,
        ImageUrunDetay.Height, ImageUrunDetay.Canvas.Handle, 0, 0, SRCCOPY);
      Printer.EndDoc;
    end;
  end;
end;
Cevapla
#2
Merhaba,

QRCode teknolojisinde scale meselesi biraz farklı işliyor. Bunu bazı editör sahibi yazılımlarda Text Font Size, Scale, Size, Capacity özellikleri ile yönetebilirsiniz. Kod ile yaparken muhtemelen bunu override ederek istediğiniz ölçeğe getirebilirsiniz. (Mevcutta 1 birimse, 1.5 veya 2 birim denemelisiniz)
{ talk is cheap show me the code. }
Cevapla
#3
Cevap için teşekkürler...
Cevapla

Konuyu Paylaş : facebook gplus twitter





Konuyu Okuyanlar: 1 Ziyaretçi