Forum: Multimedia
Delphi
by alienous,
25. Aug 2006
alles klar, scheint zu klappen, morgen werd ich mir die qualitätsunterschiede anschauen, hoffentlich war es das :hi:
@luke: wenns das war, schau ich mir deinen code an :wink:
Forum: Multimedia
Delphi
by alienous,
25. Aug 2006
hm ok da fällt mir auf, das ich wieder bitmap32 zurückbekomme, wie kannich das dann auf das printer.canvas malen ohne verluste?
Forum: Multimedia
Delphi
by alienous,
25. Aug 2006
also meinste das so in etwa:
SrcBild -> Bitmap32_1 -> resampledResizen-> Bitmap32_2 -> Bitmap32_2.canvas übergeben an printer.canvas
so in etwa? wobei Bitmap32_2 von den ausmaßen genau dem printer entspricht?
setze mich sofort drann, aber das resizen mit dem resampler macht mir probleme, evntl bräuchte ich da noch was hilfe.
Forum: Multimedia
Delphi
by alienous,
25. Aug 2006
ach leute, ich weiss jetz, wieso die bilder so verunstaltet wurden, ich hab an drawTo das canvas.handle übergeben, anstatt die Bitmap, mit bitmap erhalte ich ein schönes bild! kann die schlechtere druckqualität vielleicht damit zusammenhängen das ich dort das printer-canvas.handle übergebe? wie könnte ich das umgehen? ich glaub wir nähern uns dem ziehl! bitte nicht aufgeben luke :D
Forum: Multimedia
Delphi
by alienous,
25. Aug 2006
soo, habs jetz so ungefähr, liegt der fehler aber wirklich am fehlenden resampler? schaut euch mal das bild im anhang aus, wie das kindergesicht angezeigt wird nach dem code hier:
procedure BildDrucken(PCanvas : TCanvas; px1, py1, px2, py2 : Integer; pmotiv : tmotiv);
var gra,gra2 : Tbitmap32;
KRS: TKernelResampler;
begin
gra := Tbitmap32.Create;
gra2 :=...
Forum: Multimedia
Delphi
by alienous,
25. Aug 2006
habe jetz noch etwas mit
gra.ResamplerClassName := 'TLinearResampler';
experimentiert, und dabei die ausgabe in ein TImage32 auf der form geleitet, dabei werden die farben ziehmlich stark verfälscht, mit und ohne den resampler! wieso? liegt es eventuell am drawto?
wenn ich das bild direkt mit der kompo öffne, wird das bild korrekt angezeigt. :wall:
procedure BildDrucken(PCanvas :...
Forum: Multimedia
Delphi
by alienous,
24. Aug 2006
meinste das liegt am spiegeln? weiss gerade nicht wo du das siehst, wie würdest du es machen?
und da das programm später dazu genutzt wird, um fotos zu drucken, kann ich nicht die normalen imagekomponenten nutzen, da die allein schon von der qualität schlechter sind. eventuell sollen noch so gimmiks wie bildrand rein, dazu braucht man ja transparenz. hab mich vorher informiert hier im board...
Forum: Multimedia
Delphi
by alienous,
24. Aug 2006
ach sorry, hab mich da wohl verschrieben, das is meine methode
procedure BildDrucken(PCanvas : TCanvas; px1, py1, px2, py2 : Integer; pmotiv : tmotiv);
var gra : Tbitmap32;
begin
gra := Tbitmap32.Create;
gra.LoadFromFile('C:\motive\'+pmotiv.Bildname);
gra.Rotate270();
gra.DrawTo(pcanvas.Handle, Rect(px1,py1,px2,py2), gra.BoundsRect);
gra.Free;