title image


Smiley Re: image-color-problem - es ist ist zum verrueckt werden...........
also bei mir funzt es.



Beispiel ohne Verfälschung:



procedure TForm2.Button1Click(Sender: TObject);

var

jp: TJpegImage;

bm: TBitmap;

begin

jp := TJpegImage.create;

jp.loadfromfile('d:\bilder\klavier.jpg');

jp.DIBNeeded;

bm := TBitmap.create;

bm.assign(jp);

bm.pixelformat := pf24bit;

// --- z.B. ---

bm.canvas.pen.color := $336699;

bm.canvas.pen.width := 5;

bm.canvas.moveto(0, 0);

bm.canvas.lineto(bm.width, bm.height);

bm.canvas.pen.color := $70F3CF; ;

bm.canvas.moveto(bm.width, 0);

bm.canvas.lineto(0, bm.height);

// --------------

jp.assign(bm);

jp.JPEGNeeded;

jp.savetofile('c:\test.jpg');

jp.free;

bm.free;

end;





Gruß DBR
Eine Stunde denken spart zehn Stunden programmieren!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: