Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

Поворот изображения   Найти похожие ветки 

 
Игорь Г.   (2003-08-08 00:21) [0]

Подскажите пожалуйста, как перевернуть изображение в компоненте TImage на 90 градусов? Или как перевернуть TBitmap или jpeg?


 
MBo ©   (2003-08-08 06:45) [1]

С помощью ScanLine или
http://www.delphimaster.ru/articles/pixels/index.html


 
Zev   (2003-08-08 07:43) [2]

http://www.bcbdev.ru/cbuilder/articles/bmprotation/bmprotation.htm


 
Fenik ©   (2003-08-08 11:23) [3]

procedure Rotate90(Bitmap: TBitmap);
var x, y, W, H: Integer;
   Dest: pRGBTriple;
   VertArray: array of pByteArray;
   Bmp: TBitmap;
begin
 Bitmap.PixelFormat := pf24Bit;
 Bmp := TBitmap.Create;
 try
   Bmp.Assign(Bitmap);
   W := Bitmap.Width - 1;
   H := Bitmap.Height - 1;
   Bitmap.Width := H + 1;
   Bitmap.Height := W + 1;
   SetLength(VertArray, H + 1);
   for y := 0 to H do VertArray[y] := Bmp.ScanLine[H-y];
   for x := 0 to W do begin
     Dest := Bitmap.ScanLine[x];
     for y := 0 to H do begin
       with Dest^ do begin
         rgbtBlue := VertArray[y, x*3];
         rgbtGreen := VertArray[y, x*3+1];
         rgbtRed := VertArray[y, x*3+2];
       end;
       Inc(Dest);
     end;
   end
 finally
   Bmp.Free;
 end;
end;


 
Fenik ©   (2003-11-23 13:31) [4]

>Fenik ©  (08.08.03 11:23)

Что это за глюк форума?



Страницы: 1 вся ветка

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
7-1072073900
наблюдатель
2003-12-22 09:18
2004.03.28
Icon


14-1078208828
NeyroSpace
2004-03-02 09:27
2004.03.28
Помогите найти стихи для поздравлений...


14-1078214953
_none_
2004-03-02 11:09
2004.03.28
високосный год?


1-1078728474
rxman
2004-03-08 09:47
2004.03.28
Примеры к Indy...


11-1057512455
Ajax
2003-07-06 21:27
2004.03.28
Смена языка интерфейса