Forum: Multimedia
Delphi
by Tanadirian,
20. Feb 2004
Um mal wieder zum Thema des Topics zurückzukommen:
Hab beim Zugreifen auf einzelne Pixel noch nen Bug? entdeckt. Ich konnte nur auf alle ungraden Pixel der X-Achse zugreifen! Erst nachdem ich das Bild mit PngObject.SaveToFile(Filename) gespeichert und mit PngObject.LoadFromFile(Filename) neu geladen hatte, konnte ich auch auf die geraden Pixel zugreifen.
Forum: Multimedia
Delphi
by Tanadirian,
20. Feb 2004
Hier die Lösung meines Problems
var
png: TPngObject;
farbe:TColor;
begin
png := TPngObject.Create;
try
farbe:=png.pixels; //Gibt mir die Farbe des Pixels
Forum: Multimedia
Delphi
by Tanadirian,
18. Feb 2004
pixelweise auslesen und dann vergößern indem ich pixel hinzufüge (sollen bei mouseover "herangeholt" werden)
Forum: Multimedia
Delphi
by Tanadirian,
18. Feb 2004
Hab die entsprechende Zeile rausgenommen und jetzt geht die Komponente. Nun hab ich aber schon ne neue Frage, kann ich auch einfach nur die pngimage.pas in mein Prog einbinden und dann direkt mit den png's arbeiten? Wenn ja, kennt sich jmd damit aus und kann mir ein paar Stichwörter dazu geben? Ich hab nicht die Zeit mir 5000+ Zeilen Code durchzulesen.
Schon im Voraus vielen Dank.
Forum: Multimedia
Delphi
by Tanadirian,
18. Feb 2004
program showcase2;
uses
Forms,
showcase2unit in 'showcase2unit.pas' {Form1},
pngextra in '..\pngextra.pas'; {<-- Hier kommt die Fehlermeldung}
{$R *.RES}
begin
Forum: Multimedia
Delphi
by Tanadirian,
16. Feb 2004
Hier ein Auszug aus der Delphihilfe:procedure TForm1.Button1Click(Sender: TObject);
// Dieses Beispiel zeigt die direkte Ausgabe in ein Bitmap
var
x,y : Integer;
BitMap : TBitMap;
P : PByteArray;
begin
BitMap := TBitMap.create;
try
Forum: Multimedia
Delphi
by Tanadirian,
16. Feb 2004
Hallo
Ich will mir auf nem Formular verschiedene Png-Bilder anzeigen lassen, bekomme das aber nicht hin :-(
Ich hab mir ein Bsp. aus der Delphihilfe rauskopiert aber das funzt nicht da bekomme ich die Fehlermeldung
tbitmap.pas(54): '.' erwartet, aber ';' gefunden
bei
var
BitMap1: TBitMap;