Barcode (ohne Komponente) und Text auf Label drucken

[Computerbabalulu]

Hallo zusammen.

Ich möchte einen Barcode und Text auf ein Label Drucken.
Hierzu möchte ich aber keine Barcodekomponente oder ähnliches verwenden.
Ich habe auf meinem System eine TTF Schrift installiert, die den entsprechenden Barcode
darstellt.

Mein Problem ist, dass ich neben dem Barcode auch noch "normalen" Text auf das Label Drucken
möchte. Wenn ich nun z.B. bei einer RichEdit Kompo den Font auf meine Barcode Schrift
einstelle, kann ich das natürlich Problemlos drucken. Aber wie bekomme ich zusätzlich noch
einen Text mit auf den Ausdruck? Ich kann ja den Font nicht Zeilenweise ändern?
Wenn ich versuche Barcode und Text nacheinander zu drucken, wird der Text auf das nächste
Label gedruckt.

Gruß

Frank

[mkinzler]

-In dem du das Zeichen selber übernimmst
-Ne andere Komponente nimmst, bei der du den Font innerhalb der Ausgabe wechseln kannst.

[HalloDu]

Ich dachte immer das man innerhalb eines RichEdites durchaus den Font wechseln, kann weil der ja auf dem Richtext-Format basiert, welches das kann.

Oder irre ich mich da?

Mfg HalloDu

[Computerbabalulu]

Hallo mkinzler,

so etwas in der art hab ich mir natürlich auch schon gedacht.
Aber ich kenne keine Kompo in der ich den Font Zeilenweise ändern kann.
Wie meinst du das mit Zeichen selber bestimmen?
Kannst du mir villeicht ein Beispiel geben?


Gruß Frank

[Computerbabalulu]

Hallo HalloDu,

^^lol^^, toller Name!

Wenn das geht, dann verrate mir bitte wie?

Gruß Frank

[mkinzler]

HalloDu hat recht in RichText müßte ein Fontwechsel auch gehen. Ich hatte eher an eine HTML-Kompo gedacht.

[Computerbabalulu]

Hallo

Also ich bekomme es aktuell nicht hin den Font im Richedit Zeilenweise zu ändern.
Es wird immer das ganze Richedit geändert?!

Gruß

[mkinzler]

Du darfst den Font auch nicht über die Komponente, sondern mußt ihn über Steuerzeichen im Text ändern.

[HalloDu]

Ich habs mal kurz nachgeschlagen:
So ändert man z.B. die Schriftgröße des markierten Bereiches:
 Richedit1.SelAttributes.Size := 45 oder die Farbe:
 Richedit1.SelAttributes.Color := clRed oder die SchriftArt
 Richedit1.SelAttributes.Name := 'Arial' Man müsste halt den Bereich selektieren und dann die Attribute ändern. Hoffe das hat dir geholfen.

[Computerbabalulu]

Hallo, HalloDu.

Ich werde es mal kurz testen....
Vorerst danke!

Gruß Frank