Einzelnen Beitrag anzeigen

Schwedenbitter

Registriert seit: 22. Mär 2003
Ort: Finsterwalde
622 Beiträge
 
Turbo Delphi für Win32
 
#12

Re: Text schräg auf Canvas ausgeben

  Alt 2. Aug 2009, 01:12
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?
Alex Winzer
  Mit Zitat antworten Zitat