[Bibliothek] Barcode für Delphi (Zint)

[0815achim]

Danke!

Jetzt gehts ohne Probleme.

Gruß... 0815achim

[matashen]

Hallo,

ich hab die alte Zint Compo durch die neue ersetzt. Leider hab ich bei der Ausgabe auf ein TImage über den wmfrenderer den gleichen Effekt den ich auch bei der OriginalKompo hatte.

Wenn ich foregroundcolor mittels einer Colorbox setzen will dann bleibt mein Image weis und zeigt nichts mehr an.

Delphi-Quellcode:

    InitRenderTarget(rt);
    rt.ForegroundColor:=barcodefarbe.color;
   rt.backgroundcolor:=colorbox1.Color;
    try
      Symbol.Render(rt);
      imgResult.Picture.Graphic:=wmf;
    finally

Nachdems auch schon im alten Zint das Problem gab, evtl ist das mit rüber portiert worden.

Evtl kann das mal jemand testen, reproduzieren.

meine Umgebung: Win7 32Bit
Delphi XE2 Enterprise

[MarcoWarm]

Hi matashen,

ich kann es leider nicht bestätigen. Ich habe mal Farbauswahlboxen in die VCL Demo reingebaut. Wäre schön, wenn du die Demo mal bei dir builden könntest.

Gruß
Marco

[0815achim]

@matashen

Du darfst nich Colorbox1.Color nehmen sondern Colorbox1.Selected.
Dann geht's

Gruß... 0815achim

Hoppla!
Sehe gerade das es in der Demo von Marco bereits richtig drin steht.

[matashen]

Ach ja, danke.

Ab und zu steht man einfach sowas von daneben

[Carsten2]

Fehler, die ich gefunden habe:
zint.pas
in function hibc:

Code:

  //for i := 1 to _length do
  for i := 0 to _length-1 do //geändert
    Inc(counter, posn(TECHNETIUM, source[i])) ;

in function ZBarcode_Encode:

Code:

  if (symbol.input_mode = GS1_MODE) then
  begin
    //for i := 1 to _length do
    for i := 0 to _length-1 do //geändert
    begin

zint_aztec.pas
in function aztec_runes:

Code:

  //strcpy(binary_string, '');
  for i := 0 to 28-1 do binary_string[i]:=#0;//geändert

Code:

if (ecc_codewords[4 - i] and v) <> 0 then binary_string[j] := '1' else
  //binary_string[j + 1] := '0';
  binary_string[j] := '0';//geändert

wer veröffentlicht weitere? Danke!