Text schräg auf Canvas ausgeben

[Reinhard Kern]

Zitat von Schwedenbitter:

Zitat von worker:

Für Punkt 2: probiere bsClear (BrushStyle)

Das habe ich gemacht. Aber der folgende Code bringt mir trotzdem nur die Schrift auf das Bild und verdeckt trotz bsClear den Text

Hallo,

das soll er ja auch. Für sowas wie Kopie oder ein Wasserzeichen nimmt man daher "hohlen" Text, bei dem nur die Konturlinien gedruckt werden. Oder man nimmt fette Schrift und druckt sie hellgrau.

Gruss Reinhard

PS es ist auch noch die Frage, was Vordergrund ist - ich würde mal das Wasserzeichen zuerst drucken.

[Schwedenbitter]

Zitat von Reinhard Kern:

Für sowas wie Kopie oder ein Wasserzeichen nimmt man daher "hohlen" Text, bei dem nur die Konturlinien gedruckt werden.

Wie geht das mit dem "hohlen" Text?

Zitat von Reinhard Kern:

Oder man nimmt fette Schrift und druckt sie hellgrau.

Genau das macht mein obiger Code. Aber mich stört eben, dass das grau den darunter liegenden Text verdeckt.

Zitat von Reinhard Kern:

PS es ist auch noch die Frage, was Vordergrund ist - ich würde mal das Wasserzeichen zuerst drucken.

Genau das ist mein weiteres Problem. Ich verschmelze ja bereits 2 Bilder miteinander. Einen Text und einen Kopfbogen. Das funktioniert und ich mache das so:

Delphi-Quellcode:

...
QBMP:=TBitmap.Create;                    // Quellbitmap
ZBMP:=TBitmap.Create;                    // Zielbitmap
Try
   QBMP.LoadFromFile('Kopfbogen.bmp');   // Kopfbogen laden
   ZBMP.Canvas.Brush.Style:=bsClear;     // Durchsichtig malen
   ZBMP.LoadFromFile('Seite 0001.bmp');  // Text laden
   ZBMP.Canvas.BrushCopy(Rect(0, 0, ZBMP.Width, ZBMP.Height),
                         QBMP,
                         Rect(0, 0, QBMP.Width, QBMP.Height),
                         QBMP.Canvas.Pixels[0, 0]);
   ZBMP.PixelFormat:=pf8bit;             // 256 Farben
   ZBMP.SaveToFile('Fertiges Bild.bmp'); // Bild speichern
Finally
   QBMP.Free;
   ZBMP.Free;
End;
...

Wenn ich das so auch mit dem Wasserzeichen versuche, dann bekomme ich entweder das Wasserzeichen drüber (mit den unerwünschten Effekten) oder ich vertausche einfach QBMP und ZBMP und dann bekomme ich nur den Text; ganz ohne Wasserzeichen. Was ich aber in Anbetracht von bsClear nicht verstehe.

Was mache ich denn nun verkehrt?

[Reinhard Kern]

Zitat von Schwedenbitter:

Wie geht das mit dem "hohlen" Text?

Hi,

am einfachsten sucht man sich einen Font ohne Füllung (gibt nicht so viele, aber z.B. Swiss 721 Bold Outline), man kann aber auch "Kopie" in Coreldraw schreiben und schwarzen Rand/keine Füllung wählen und dann als Vektor- oder Pixel-Bild abspeichern.

Von der Logik her müsste man das Wasserzeichen als erstes, somit ganz im Hintergrund drucken usw.

Gruss Reinhard

PS: bsclear ist falsch - es geht nicht um den Brush Style, sondern um den Windows Background Mode, der muss transparent sein.

[Hawkeye219]

Hallo,

vielleicht kann auch auf den Einsatz von CorelDraw verzichtet werden: DrawOutlinedText

Gruß Hawkeye

[Schwedenbitter]

Zitat von Reinhard Kern:

Von der Logik her müsste man das Wasserzeichen als erstes, somit ganz im Hintergrund drucken usw.

Ja! Problem erkannt! Aber wie mache ich das?

Zitat von Reinhard Kern:

PS: bsclear ist falsch - es geht nicht um den Brush Style, sondern um den Windows Background Mode, der muss transparent sein.

Wie mache ich das ? Wie setze ich den Windows Background Mode?

Ich weiß die Antworten sehr zu schätzen. Aber dass ich nicht weiß, wie man ganz in den Hintergrund druckt bzw. den Windows Background Mode setzt, zeigt schon, dass ich es nicht schaffe. Ich würde mich daher freuen, wenn Ihr - die Wissenden - mir neben dem Nennen von Stichwörtern auch zumindest kurze Hinweise (Quellcode-Schnipsel) gebt, wie es funktioniert.
Das erleichtert übrigens auch mitlesenden Hilfesuchenden mit möglicherweise denselben und zumindest ähnlichen Problemen, eine Lösung zu finden.

Danke, Alex

[Reinhard Kern]

Zitat von Schwedenbitter:

... Ich würde mich daher freuen, wenn Ihr - die Wissenden - mir neben dem Nennen von Stichwörtern auch zumindest kurze Hinweise (Quellcode-Schnipsel) gebt, wie es funktioniert.

Hallo Alex,

damit habe ich leider ein Problem: da ich schon sehr lange unter Windows programmiere, schon bevor es Delphi gab, habe ich viele Probleme, darunter die Druckerei, direkt mit dem Win32-API gelöst und nicht als VCL-Komponenten. Meine Lösungen sind daher hier nicht veröffentlichbar, aber es findet sich hoffentlich jemand, der Entsprechendes auf VCL-Basis geschrieben hat, das Problem ist ja nicht selten.

Gruss Reinhard