Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Графика, звук, видео
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Галим
0 / 0 / 0
Регистрация: 22.02.2011
Сообщений: 7
1

Рисунки местами меняться должны

22.02.2011, 21:11. Просмотров 1017. Ответов 3
Метки нет (Все метки)

Помогите создать пожалуйста приложение, содержащее два компонента TImage, в каждый загрузите по изображению. Поместите на форму кнопку. Напишите обработчик события нажатия кнопки таким образом, чтобы изображения, загруженные в компоненты TImage, менялись местами. В качестве буфера для хранения промежуточного результата используйте переменную типа TBitMap.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2011, 21:11
Ответы с готовыми решениями:

Изображение должно меняться при наведении
Здравствуйте, прошу вас помочь сделать так чтобы при наведении на изображение, допустим на Image1...

рисунки в делфи
ребята помогите пожалуйста, надо нарисовать простенький рисунок в делфи домик, солнце

Delphi 7 - рисунки
Помогите пожалуйста, мне для курсовой нужны рисунки. Относительно простое (мотоцикл, машина, дом,...

Сравнить jpeg рисунки
надо сравнивать jpeg рисунки и узнать сколька правилных ответов напишите код плз pixels ...

Можно ли в компоненты Tmemo или Trichedit вставлять рисунки и ..
Можно ли в delphi 5 в компоненты Tmemo или Trichedit вставлять рисунки,затем убирать их писать...

3
anonimus
2154 / 1244 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
22.02.2011, 22:42 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.BitBtn1Click(Sender: TObject);
var bit:TBitMap; rec:trect;
begin
rec:=Image2.ClientRect;
bit:=TBitMap.Create;
bit.Width:=Image2.Width;
bit.Height:=Image2.Height;
bit.Canvas.CopyRect(rec,Image2.Canvas,rec);
 
Image2.Canvas.CopyRect(Image1.ClientRect,Image1.Canvas,Image1.ClientRect);
Image1.Canvas.CopyRect(rec,bit.Canvas,rec);
bit.Free;
end;
2
ArtGrek
425 / 53 / 15
Регистрация: 31.12.2010
Сообщений: 191
22.02.2011, 23:34 3
можно сократить
Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
var
  myBitMap: TBitMap;
begin
  myBitMap := TBitmap.Create;
  myBitMap.Assign(Image1.Picture.Graphic);
  Image1.Picture.Bitmap.Assign(Image2.Picture.Graphic);
  Image2.Picture.Assign(myBitMap);
end;
P.S. Image1.Stretch := True; Image2.Stretch := True;
2
Галим
0 / 0 / 0
Регистрация: 22.02.2011
Сообщений: 7
23.02.2011, 02:24  [ТС] 4
Спасибо большое)))
точ то нужно)))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.02.2011, 02:24

Как средствами Delphi извлечь рисунки из документа MSWORD
Привет! Как средствами Delphi извлечь рисунки из документа MSWORD- *.jpg, *.wmf. Или у кого есть...

Изобразить 10 квадратов с различными цветами. Цвета должны меняться
Помогите пожалуйста с программой. Разработать программу для вывода изображения на экран....

Следует дать конкретную постановку, т.е. указать, какие классы должны быть реализованы, какие должны быть в ни
Задание: Перечень классов: квитанция, накладная, документ, чек; Порядок выполнения работы...


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

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

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