Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

почему портится изображение Bmp2 при изменении Bmp1


Страницы:   1 2

TeNY ©   (2004-10-16 09:51:00) 

почему портится изображение Bmp2 при изменении Bmp1
Bmp2 :=  Bmp1 ;
Bmp1.Width  :=  Bmp1.Width div x;
Bmp1.Height :=  Bmp1.Height div x;


Мирон   (2004-10-17 01:06:00) [21]

TeNY ©   (16.10.04 20:06) [7]
забавно а у меня оба обрезались...
:(


Чувак, покажи веськусок кода, где у тебя используются эти битмапы! А то как-то неважно в последнее время с чтением мыслей.


Mihey_temporary   (2004-10-16 22:57:00) [22]


> TeNY ©   (16.10.04 20:06) [7]
> забавно а у меня оба обрезались...
> :(


А не мог бы ты ещё раз повторить это дело, убедиться, что оба обрезались, сохранить всё дело в папочку, запаковать и выложить в Интернет, чтобы можно было скачать и посмотреть?


TeNY   (2004-10-16 21:20:00) [23]

Удалено модератором


Fenik   (2004-10-16 20:54:00) [24]

Блин, TeNY, купи уже какую-нить книжку по Делфи.
Пользы больше будет, чем от хучи вопросов в форуме.


Defunct   (2004-10-16 20:50:00) [25]

TeNY

Вот этот код точно скопирует содержимое Bmp1 в Bmp2, при этом Bmp1 вы будете потом вольны изменять.

Bmp2 := TBitmap.Create;
Bmp2.Width := Bmp1.Width;
Bmp2.Height := Bmp1.Height;
Bmp2.Canvas.Draw(0,0, Bmp1);


а здесь уже можете менять Bmp1:

Bmp1.Width  :=  Bmp1.Width div x;
Bmp1.Height :=  Bmp1.Height div x;


TeNY   (2004-10-16 20:06:00) [26]

забавно а у меня оба обрезались...
:(


Мирон   (2004-10-16 15:15:00) [27]

procedure TForm1.FormPaint(Sender: TObject);
var
   B1, B2: TBitmap;
begin
   B1 := TBitmap.Create;
   B2 := TBitmap.Create;
   try
       B1.Width := 100;
       B1.Height := 100;
       B1.Canvas.LineTo(100, 100);
       B2.Assign(B1);
       B1.Width := B1.Width div 2;
       B1.Height := B1.Height div 2;
       Canvas.Draw(0, 0, B1);
       Canvas.Draw(150, 0, B2);
   finally
       B1.Free;
       B2.Free;
   end;
end;


Мирон   (2004-10-16 15:15:00) [28]

TeNY ©   (16.10.04 13:55) [4]

Не может быть.


TeNY   (2004-10-16 13:55:00) [29]


> Мирон ©   (16.10.04 10:15) [2]
> BMP2.Assign(BMP1);

что assig что := один хрен исходное изображение меняет параметры


TeNY   (2004-10-16 12:54:00) [30]


> begin...end ©   (16.10.04 09:57) [1]
> В смысле - портится? Изменяется так же, как и Bmp1? Так
> это неудивительно.

А как без измениния сделать?


Мирон   (2004-10-16 10:15:00) [31]

BMP2.Assign(BMP1);


begin...end   (2004-10-16 09:57:00) [32]

В смысле - портится? Изменяется так же, как и Bmp1? Так это неудивительно.


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо