Ĺadny brzuch
Jak obrocic canvasa o 90, 180, 270 stopni :?
CO TU SZUKASZ:?
var bmp2: TBitmap; x, y: integer; linia: PByteArray; begin bmp2:=TBitmap.Create; bmp2.PixelFormat:=pf24bit; bmp2.Width:=Image.Picture.Bitmap.Width; bmp2.Height:=Image.Picture.Bitmap.Height; for y:=0 to bmp2.Height-1 do begin linia:=Image.Picture.Bitmap.ScanLine[y]; for x:=0 to bmp2.Width-1 do bmp2.Canvas.Pixels[(bmp2.Width-1)-x,y]:=RGB(linia[x*3+2], linia[x*3+1], linia[x*3]); end; Image.Picture.Bitmap.Assign(bmp2); bmp2.Free;
Odbicie w poziomie
var bmp2: TBitmap; x, y: integer; linia: PByteArray; begin bmp2:=TBitmap.Create; bmp2.PixelFormat:=pf24bit; bmp2.Width:=Image.Picture.Bitmap.Width; bmp2.Height:=Image.Picture.Bitmap.Height; for y:=0 to bmp2.Height-1 do begin linia:=Image.Picture.Bitmap.ScanLine[y]; for x:=0 to bmp2.Width-1 do bmp2.Canvas.Pixels[x,(bmp2.height-1)-y]:=RGB(linia[x*3+2], linia[x*3+1], linia[x*3]); end; Image.Picture.Bitmap.Assign(bmp2); bmp2.Free;
pionie
//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na wyżej wymienionej stronie
callto://beldzio_software
Nie wiem czemu, ale mi to nie dziala:cry:
CO TU SZUKASZ:?
cytat:piotroh napisał:
Nie wiem czemu, ale mi to nie dziala:cry:
CO TU SZUKASZ:?
napisz co CI wyrzuca kompilator
PS Image to komponent TImage
//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
callto://beldzio_software
Dla obrazow JPG nie dziala, ale dla innych dziala:lol:Bo w JPG image znika(czy jak mozna to nazwac). Sroki za klopot:oops:
CO TU SZUKASZ:?
cytat:piotroh napisał:
Dla obrazow JPG nie dziala, ale dla innych dziala:lol:Bo w JPG image znika(czy jak mozna to nazwac). Sroki za klopot:oops:
CO TU SZUKASZ:?
zapomniałem dodać, że to działa na bitmapach, ale jpg możesz przerysować na canvas, albo skonwertować do bmp
//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
callto://beldzio_software
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
CO TU SZUKASZ:?
var bmp2: TBitmap; x, y: integer; linia: PByteArray; begin bmp2:=TBitmap.Create; bmp2.PixelFormat:=pf24bit; bmp2.Width:=Image.Picture.Bitmap.Width; bmp2.Height:=Image.Picture.Bitmap.Height; for y:=0 to bmp2.Height-1 do begin linia:=Image.Picture.Bitmap.ScanLine[y]; for x:=0 to bmp2.Width-1 do bmp2.Canvas.Pixels[(bmp2.Width-1)-x,y]:=RGB(linia[x*3+2], linia[x*3+1], linia[x*3]); end; Image.Picture.Bitmap.Assign(bmp2); bmp2.Free;
Odbicie w poziomie
var bmp2: TBitmap; x, y: integer; linia: PByteArray; begin bmp2:=TBitmap.Create; bmp2.PixelFormat:=pf24bit; bmp2.Width:=Image.Picture.Bitmap.Width; bmp2.Height:=Image.Picture.Bitmap.Height; for y:=0 to bmp2.Height-1 do begin linia:=Image.Picture.Bitmap.ScanLine[y]; for x:=0 to bmp2.Width-1 do bmp2.Canvas.Pixels[x,(bmp2.height-1)-y]:=RGB(linia[x*3+2], linia[x*3+1], linia[x*3]); end; Image.Picture.Bitmap.Assign(bmp2); bmp2.Free;
pionie
//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na wyżej wymienionej stronie
callto://beldzio_software
Nie wiem czemu, ale mi to nie dziala:cry:
CO TU SZUKASZ:?
cytat:piotroh napisał:
Nie wiem czemu, ale mi to nie dziala:cry:
CO TU SZUKASZ:?
napisz co CI wyrzuca kompilator
PS Image to komponent TImage
//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
callto://beldzio_software
Dla obrazow JPG nie dziala, ale dla innych dziala:lol:Bo w JPG image znika(czy jak mozna to nazwac). Sroki za klopot:oops:
CO TU SZUKASZ:?
cytat:piotroh napisał:
Dla obrazow JPG nie dziala, ale dla innych dziala:lol:Bo w JPG image znika(czy jak mozna to nazwac). Sroki za klopot:oops:
CO TU SZUKASZ:?
zapomniałem dodać, że to działa na bitmapach, ale jpg możesz przerysować na canvas, albo skonwertować do bmp
//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
callto://beldzio_software