ďťż

Ł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
  •