VPF::проблемы с Paste из буфера обмена

NieL

Дата 30.4.2009, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

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

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

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  B: TBitmap;
begin
  B := TBitmap.Create;
  try
    Clipboard.Open;
    try
      B.Assign(Clipboard);
      Image1.Picture.Bitmap.Assign(B);
    finally
      Clipboard.Close;
    end;
  finally
    B.Free;
  end;
end;

Christoph

Дата 30.4.2009, 18:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 1
Всего: 11

Код


uses clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Clipboard.HasFormat(CF_BITMAP) then
     Image1.Picture.LoadFromClipboardFormat(cf_BitMap,clipboard.GetAsHandle(cf_Bitmap),0);
end;

Хотя тоже таким способом замечаю, какие то черные квадратики, не знаю ...

Это сообщение отредактировал(а) Christoph - 30.4.2009, 18:34

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »