Pytania dotyczą TImage.

0

Dawno lub nie pisałem podobny post, jak zwykle odesłąno mnie do zasobów. Przeszukałem cały serwis i znalazłem tylko tematy podobne, które niodpwiadają w pełni na moje pytania. A więc jeszcze raz:

Pytanie 1:
Jak przekonwertować obraz w Imagu do skali szarości (w serwisie jest tylko jak zrobić to z bitmapą, ne chodzi mi o to).

Pytanie 2:
Znalazłem gdzieś jak wkleić obtaz ze schowka do imaga, ale jak skopiować zawartość imaga do schowka?

Pytanie 3:
Jak obrócić obraz w imagu o liczbę stopni wpisanych w edicie.

Pytanie 4:
Czy można regulować jakośc obrazy w image?

Pytanie 5:
Jak odczytać rozmiar obrazu w image?

to na razie tyle. Dzięki za wszystkie odpowiedzi.

P.S.

Jeżeli już macie mnie gdzieś odesłąć to podajcie chociaż url'a.
[cya]

0
  1. TImage.Picture.Bitmap

  2. Poszukaj na forum
  3. ??
  4. Ustaw autosize w TImage i sprawdzj jakie wymiary ma komponent.
0

Jeszcze raz odsyłam do mojej biblioteki Grafika.pas
http://www.andrew.b7.pl/Grafika.pas
Jest tam procedura Desaturate i kilka innych które mogą ci sie przydać..
Pozdrawiam.

0

odczytac width i height :

wi:=image.picture.width;
he:=image.picture.height;

obrócić mozna :

  1. tworze dynamicznie komponent TRotImg
  2. wklejam mu rysunek z image
  3. obracam trotimg
  4. kopiuje z trotimg do image obraz

zgłoś sie kiedy na gg to ci pare funkcyjek podam

0

Spróbuj skanować obraz i zmienać R,G,B

0

Ha, a jak go obrócić jak nie można zainstalować TRotImg ?

0
procedure ConvertBitmapToGrayscale2(const Bmp: TBitmap);
  {From: Pascal Enz, [email protected] } 
type 
  TRGBArray = array[0..32767] of TRGBTriple; 
  PRGBArray = ^TRGBArray;
var 
  x, y, Gray: Integer; 
  Row: PRGBArray;
begin
  Bmp.PixelFormat := pf24Bit;
  for y := 0 to Bmp.Height - 1 do
  begin
    Row := Bmp.ScanLine[y];
    for x := 0 to Bmp.Width - 1 do 
    begin
      Gray           := (Row[x].rgbtRed + Row[x].rgbtGreen + Row[x].rgbtBlue) div 3;
      Row[x].rgbtRed := Gray; 
      Row[x].rgbtGreen := Gray; 
      Row[x].rgbtBlue := Gray; 
    end; 
  end; 
end;

ps. co do wklejania do schowka to proponuje zagladnac do demosow delphiego, jest tam taki edytor graficzny, ma on to i owo ;)

1 użytkowników online, w tym zalogowanych: 0, gości: 1