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

Вниз

Перевернуть компонент Image1   Найти похожие ветки 

 
erudit   (2005-12-26 22:07) [0]

Привет! Хочу спросить, можно ли как-нибудь перевернуть изображение в Image1, ну, градусов не на СОРОК (шутка), а на 90? Вроде простой компонент, а мозгов нет (пока).


 
0bsid ©   (2005-12-29 11:45) [1]

нашёл в доках с delphiworld.narod.ru

procedure RotateRight(BitMap: tImage);
var
 FirstC, LastC, c, r: integer;

 procedure FixPixels(c, r: integer);
 var
   SavePix, SavePix2: tColor;
   i, NewC, NewR: integer;
 begin
   SavePix := Bitmap.Canvas.Pixels[c, r];
   for i := 1 to 4 do
   begin
     newc := BitMap.Height - r + 1;
     newr := c;
     SavePix2 := BitMap.Canvas.Pixels[newc, newr];
     Bitmap.Canvas.Pixels[newc, newr] := SavePix;
     SavePix := SavePix2;
     c := Newc;
     r := NewR;
   end;
 end;

begin
 if BitMap.Width <> BitMap.Height then
   exit;
 BitMap.Visible := false;
 with Bitmap.Canvas do
 begin
   firstc := 0;
   lastc := BitMap.Width;
   for r := 0 to BitMap.Height div 2 do
   begin
     for c := firstc to lastc do
     begin
       FixPixels(c, r);
     end;
     inc(FirstC);
     Dec(LastC);
   end;
 end;
 BitMap.Visible := true;
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.026 c
3-1132729810
syte_ser78
2005-11-23 10:10
2006.01.22
Помогите с написанием запроса


2-1136534695
Zhekson
2006-01-06 11:04
2006.01.22
Фильтрация и перебор записей


9-1123615017
Zeromancer
2005-08-09 23:16
2006.01.22
Сглаживание краев спрайта в DelphiX


14-1135464116
Shastox
2005-12-25 01:41
2006.01.22
Acc to MP3


2-1135838204
mss
2005-12-29 09:36
2006.01.22
Ошибка в Interbase