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

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

Вставка из Clipboard

LDV ©   (2009-04-30 13:30:00) 

В броузере копирую файл изображения в буфер. При вставке в свою программу бывает что картинка как-бы сдвигается, в некоторых углах изображения появляются черные пиксели. Кто с таким сталкивался или знает как такого избежать дайте совет. Вот код вставки изображения из буфера:

Есть догадки что проблема в методе Assign.


procedure TFileCell.PasteBitmapFromBuffer(const TempPath: string);
var
 Bitmap: TBitmap;
begin
 Bitmap := TBitmap.Create;
 try
   Clipboard.Open;
   try
     Bitmap.Assign(Clipboard);
   finally
     Clipboard.Close;
   end;
   TFileCellImage(Self).SetLocalBitmap(Bitmap, TempPath +
     const_default_LocalBitmapName);
 finally
   Bitmap.Free;
 end;
end;


---

LDV   (2009-04-30 13:56:00) [1]

> а где же отображение?


для теста например
 Image1.Picture.Bitmap.Assign(Bitmap);

---

clickmaker   (2009-04-30 13:47:00) [2]

> SetLocalBitmap(тут обычное сохранение в FileStream

а где же отображение?

---

LDV   (2009-04-30 13:46:00) [3]

точно нет SetLocalBitmap(тут обычное сохранение в FileStream). В Assign как я посмотрел учитывается размеры дисплея, качество цветопередачи и проч. Из-за этого как мне кажется и возникает проблема. Мне нужно чтобы Paste работало как в Paint.

---

clickmaker   (2009-04-30 13:38:00) [4]

> Есть догадки что проблема в методе Assign

а может, в SetLocalBitmap?

---

Наверх