Forum: Sonstige Fragen zu Delphi
Delphi
by Schwedenbitter,
4. Mai 2009
Ich habe jetzt genügend herum experimentiert und kann PlgBlt als Übeltäter bezeichnen.
Ich habe mehrere Bilder erzeugt/erzeugen lassen. Ab einer bestimmten Größe klappt PlgBlt nicht mehr. In meinem Fall sind das Bilder mit den Maßen 8,3 x 11,7 Zoll (= DIN A4). Bis exakt 293 dpi (= 2432 x 3428) klappt es prima. Ab den nächstgrößeren Pixeln geht nichts mehr. Es wird nur noch der erste Schritt...
Forum: Sonstige Fragen zu Delphi
Delphi
by Schwedenbitter,
20. Apr 2009
Für die Drehung um 180° habe ich leider noch keine Lösunmg gefunden, die 100%ig funktioniert. Aber ich habe ein weiteres Problem:
Mein Programm war nur die Übrung für etwas größeres :lol:.
Ich scanne mehrere Bilder mit einem Scanner ein und möchte die dann drehen und strecken bzw. stauchen. Ich habe nun den Code an mein bestehendes Programm angepasst und nun funktioniert er nicht mehr.
Ich...
Forum: Sonstige Fragen zu Delphi
Delphi
by Schwedenbitter,
3. Apr 2009
Es geht leider nur fast :wall: :
Generellt dreht er das Bild so tatsächlich um 180'. Aber es gibt dann einen Rand um das Bild, der nicht gedreht wird (obere Zeile und linke Spalte). Da immer die Minimalwerte genommen werden (0 und 0), kann ich mir das nicht erklären.
Außerdem stimmt das mit dem Quadrat auch nur fast. Denn wenn ich das Bild um 180' drehe, hat es meiner Meinung nach dieselben...
Forum: Sonstige Fragen zu Delphi
Delphi
by Schwedenbitter,
3. Apr 2009
Danke. Das werde ich mir mal bei Gelegenheit ansehen!
Jetzt eine weitere Frage: Warum wird das Bild mit diesem Code nicht um 180' gedreht?
Points:=Point(help.Height,help.Width);
Points:=Point(help.Height,0);
Points:=Point(0,help.Width);
Ich bin wieder nach demselben Muster wie beim Drehen nach links bzw. rechts vorgegangen. Die erste Ecke nach ... usw. Und trotzdem klappt es nicht. Ich...
Forum: Sonstige Fragen zu Delphi
Delphi
by Schwedenbitter,
2. Apr 2009
Das hatte ich dem (englischen) Hilfetext bereits entnommen. :gruebel:
Jetzt habe ich es endlich verstanden! Also so:
Points:=Point(0,tmpBitmap.Width);
Points:=Point(0,0);
Points:=Point(tmpBitmap.Height,tmpBitmap.Width);
Gruß und Dank, Alex
Nachfrage:
Forum: Sonstige Fragen zu Delphi
Delphi
by Schwedenbitter,
2. Apr 2009
Hallo,
ich weiß, dass das Thema schon alt ist. Ich will aber kein neues aufmachen, weil die Frage im Thema den Nagel auf den Kopf trifft.Ich drehe meine Bilder jetzt mit dieser Procedure. Unabhängig von der Farbe nach dem Drehen habe ich noch eine Frage:
Wie drehe ich das Bild gegen den Uhrzeigersinn?
Gruß, Alex
Forum: Sonstige Fragen zu Delphi
Delphi
by Schwedenbitter,
5. Sep 2008
Ich schreibe hier, weil der Thread noch relativ kurz und übersichtlich scheint:
Alle Drehalgorhytmen haben - wenn ich das richtig sehe - gemeinsam, dass sie die Pixel über Scanlines ansprechen, die wiederum aus mehrdimensionale Arrays zusammengesetz sind. Egal welchen Code ich mir hier ansehe, werden die Bilder vor dem Drehen unabhängig von ihrer bisherigen Bittiefe auf 24 oder gar 32 bit...