Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
oeh1
0 / 0 / 0
Регистрация: 06.09.2014
Сообщений: 5
1

Вращение Canvas в Image

14.10.2015, 10:30. Просмотров 556. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста с поворотом Canvas в Image, и если это возможно убрать фон у image.
Я находил код но он при повороте размывал Canvas.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
procedure TForm1.Button9Click(Sender: TObject);
var M:TXFORM;
    a:double;
    HDC:THandle;
    B: TBitMap;
begin
   B := TBitMap.Create;
   //B.LoadFromFile('logo.bmp');
   B.Assign(Image2.Picture.Bitmap);
   Image2.Picture:= nil;
   hDc := image2.Canvas.Handle;
   SetGraphicsMode(hDc, GM_ADVANCED);
   M.eM11 := 0;
   M.eM12 := 1;
   M.eM21 := 1;
   M.eM22 := 0;
   M.eDx := -B.Width div 2;
   M.eDy := -B.Height div 2;
   SetWorldTransform(hDc, M);
   a := PI/4;
   fillChar(M, sizeOf(M), 0);
   M.eM11 := Cos(a);
   M.eM12 := Sin(a);
   M.eM21 := -Sin(a);
   M.eM22 := Cos(a);
   M.eDx := 0;
   M.eDy := 0;
   ModifyWorldTransform(hDc, M, MWT_RIGHTMULTIPLY);
   M.eM11 := 0;
   M.eM12 := 1;
   M.eM21 := 1;
   M.eM22 := 0;
   M.eDx := B.Width div 2;
   M.eDy := B.Height div 2;
   ModifyWorldTransform(hDc, M, MWT_RIGHTMULTIPLY);
   Image2.Canvas.Draw(0, 0, b);
// или BitBlt(hDc, 0, 0, image1.Width, image1.Height, B.Canvas.Handle, 0, 0, SRCCOPY);
   B.Free;
end;
Вращение Canvas в Image

Танк.rar
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.10.2015, 10:30
Ответы с готовыми решениями:

Можно ли одной процедурой рисовать на Image.Canvas и Printer.Canvas
Здравствуйте, пожалуйста, подскажите можно ли одной процедурой рисовать на Image.Canvas и...

Как добиться одинакового размера шрифта при выводе на Image.Canvas и Printer.Canvas
Здравствуйте! Подскажите, пожалуйста, как добиться одинакового размера шрифта при выводе на...

Движение и вращение мячика в Image
Задание: написать программу движение мячика под углом 45градусов(не принципиально) по объекту image...

Заливка Image.Canvas
Здравствуйте. У меня есть Image, я могу заполнить строчку Image1.Canvas.Pixels:=RGB. А как сделать...

Поменять Canvas на Image
Помогите пожалуйста с задачей тир. Замените пожалуйста Сanvas на Image. Картинка должна бегать по...

1
oeh1
0 / 0 / 0
Регистрация: 06.09.2014
Сообщений: 5
14.10.2015, 10:41  [ТС] 2
так он виглидит после поворота и чем дальше тем хуже.
Вращение Canvas в Image
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.10.2015, 10:41

image canvas рисование прямоугольника
procedure Timg_brd.FormCreate(Sender: TObject); begin image:=Tbitmap.Create;...

Надо что бы при нажатии на какой либо Image с картинкой, картинка перекидывалась в пусто Image, а Image на который нажали исчезал.
Имеется 4 Image в 3 из них находятся картинки, а 4 пустой. Надо что бы при нажатии на какой либо...

Image 1 под Image 2 и Image 3 как заставить его работать как кнопку?
Имеется несколько Image, все они расположены друг на друге, Image используемый как кнопка перестаёт...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru