Pytania dotyczą TImage. :: 4programmers.net

Rejestracja:prawie 22 lata
Ostatnio:ponad 19 lat
Postów:185

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]

Szymek

2003-06-12 09:17

Szymek2003-06-12 09:17

Rejestracja:prawie 23 lata
Ostatnio:prawie 3 lata

TImage.Picture.Bitmap
Poszukaj na forum
??
Ustaw autosize w TImage i sprawdzj jakie wymiary ma komponent.

AndRew

2003-06-12 12:12

AndRew2003-06-12 12:12

Rejestracja:ponad 22 lata
Ostatnio:ponad 18 lat
Postów:1153

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.

Drajwer

2003-06-12 16:26

Drajwer2003-06-12 16:26

Rejestracja:ponad 22 lata
Ostatnio:ponad 6 lat
Postów:683

odczytac width i height :

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

obrócić mozna :

tworze dynamicznie komponent TRotImg
wklejam mu rysunek z image
obracam trotimg
kopiuje z trotimg do image obraz

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

psychoszayber

2003-06-12 20:23

psychoszayber2003-06-12 20:23

Rejestracja:około 22 lata
Ostatnio:prawie 21 lat

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

prabab

2004-03-24 13:11

prabab2004-03-24 13:11

Rejestracja:około 22 lata
Ostatnio:około 19 lat

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

wesoledi

2004-03-24 16:35

wesoledi2004-03-24 16:35

Rejestracja:ponad 22 lata
Ostatnio:ponad 5 lat

Kopiuj

procedure ConvertBitmapToGrayscale2(const Bmp: TBitmap);
  {From: Pascal Enz, pascal.enz@datacomm.ch } 
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;