Cd Cover erstellen wie ?

patrick dee · Beiträge: 311 Win 98SE, WinXP D3,D6

hi,

frage wie kann man ein kleines prog. basteln damit man sich selber cd cover ausdrucken kann. so mit vorderseite rückseite und die beschriftung an der seite nicht zu vergessen. habe bei torry schon mal geschaut aber nix gefunden. oder hat einer von euch so etwas schon mal gemacht ?

hoffe hier etwas hilfe zu finden oder tips wie so etwa geht.

ciao

patrick

_________________
Glauben heißt nichts wissen ...

dTrace · Beiträge: 31 Delphi 5 Enterprise

Hmm...
zeichne mit den Funktionen von Tcanvas die CD, Vorderseite- und Rückseite der Hülle nach. Schreibe dann die Funktion, womit du den Inhalt der gezeichneten CD mit Grafiken und Text füllen kannst...

dtrace

fcg · Beiträge: 360 WinXP D3 Prof, D6 Pers

hi

ich würde ersteinmal mit

markieren

Delphi-Quelltext

1:	canvas.rectangle(0,0,340,450);

ein Rechteck als Begrenzung zeichnen (Werte sind zufall).

Dann evtl mit

markieren

Delphi-Quelltext

1:	canvas.textout(100,50'Titel');

nen Tiel hinzaubern und dann evtl noch ein Bildausschnitt mit

markieren

Delphi-Quelltext

1:	canvas.copyrect(...)

oder so...

fcg

_________________
.: Wer für alles offen ist, kann nicht ganz dicht sein! :.

tommie-lie · Beiträge: 4373 Ubuntu 7.10 "Gutsy Gibbon"

Das Problem wird nur sein, den Canvas auf jedem Drucker in der gleichen Größe auszudrucken, denn bei Pixeln hängt das von der Größe ab. Da müsste man an die Auflösung vom Drucker kommen und umrechnen, damit's keine bösen Überraschungen gibt.

_________________
Your computer is designed to become slower and more unreliable over time, so you have to upgrade. But if you'd like some false hope, I can tell you how to defragment your disk. - Dilbert

dTrace · Beiträge: 31 Delphi 5 Enterprise

Wenn man die genaue grösse der CD usw. angiebt und auf dem Drucker Canvas ausgiebt, dann sollte die CD etc. eigentlich genau so ausgedruckt werden...oder nicht! Ich habe es selber nicht ausprobiert...aber eigentlich müsste es doch gehen!!!

Wenn es nicht klappen sollte, dann kann man folgendes probieren:

erstelle einen Screenshot von dem Formular-Inhalt bzw. nur einen bestimmten Bereich von dem Formular
diesen Screenshot als BMP speichern
diese BMP Datei drucken

fertig.

Gruss: dTrace

Moderiert von Tino: List-Tag eingefügt.

PheliX · Beiträge: 59

Hi!

Ich hab mal ne function geschrieben die dir die Pixelzahl einer bestimmten cm Zahl zurückgibt:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

function getpix(cm:real):integer;
var ppi:Integer;
i:real;
begin
ppi:=  GetDeviceCaps(printer.Handle,LOGPIXELSX);
i:= (ppi * cm) / 2.54;
result:= round(i+0.5);
end;

Vielleicht kannst dus ja gebrauchen!

Moderiert von Tino: Code- durch Delphi-Tags ersetzt.

tommie-lie · Beiträge: 4373 Ubuntu 7.10 "Gutsy Gibbon"

dTrace hat folgendes geschrieben:

Wenn man die genaue grösse der CD usw. angiebt und auf dem Drucker Canvas ausgiebt, dann sollte die CD etc. eigentlich genau so ausgedruckt werden...oder nicht! Ich habe es selber nicht ausprobiert...aber eigentlich müsste es doch gehen!!!

Eher nicht.
Begründung:
Drucker haben nicht alle die gleiche Auflösung. Druckst du bei 300dpi ist das Bildwesentlich größer, als bei 1200dpi, weil mehr Punkte (nicht Pixel!) pro Zoll gedruckt werden. Um auf 300dpi und 1200dpi das gleiche Bild zu erhalten, müsste man das Bild um den Faktor 4 strecken.

PheliX' Funktion ist da ganz brauchbar ;-)

_________________
Your computer is designed to become slower and more unreliable over time, so you have to upgrade. But if you'd like some false hope, I can tell you how to defragment your disk. - Dilbert

PheliX · Beiträge: 59

Vielen DAnk!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme