Проблема с bitmap (Delphi 7)

[alxd]

Столкнулся с совершенно неожиданной проблемой.
Нужно перенести изображение из буфера на bitmap. Делаю так

var
  pic: TPicture;
  clip: TClipboard;
  bitmap: TBitmap;
begin
  clip := TClipboard.Create;
  if clip.HasFormat(CF_PICTURE) then begin
    pic := TPicture.Create;
    pic.Assign(clip);
    // Сохраню для наглядности из TPicture
    pic.SaveToFile('C:\FromTPic.bmp');
    bitmap := TBitmap.Create;
    bitmap.Width := pic.Width;
    bitmap.Height := pic.Height;
    bitmap.Canvas.Draw(0,0,pic.Graphic);
    // Сохраню для наглядности из TBitmap
    bitmap.SaveToFile('C:\FromTBit.bmp');
    Image1.Picture := pic;
  end else
    ShowMessage('Нет изображения в буфере обмена!');

И в результате на изображении, полученном из bitmap видны дефекты.

Вопрос. Почему и как этого избежать?

P.S. Исходники и файл xls из которого копирую изображение в буфер прилагаются

[Stilet]

Никогда такого не видел, но судя по всему дефекты эти связаны с тем как оффис работает.

[alxd]

Сообщение от Stilet

...но судя по всему дефекты эти связаны с тем как оффис работает.

Может быть, но факт остается фактом.

Может перенос изображения на bitmap надо способом отличным моего делать?

  bitmap := TBitmap.Create;
  bitmap.Width := pic.Width;
  bitmap.Height := pic.Height;
  bitmap.Canvas.Draw(0,0,pic.Graphic);

[Stilet]

Я вообще пользуюсь функцией BitBlt для "переноса" изображений. Попробуй ее.

[alxd]

А примерчик можно?

[alxd]

Попробовал сделать так

resul := BitBlt(bitmap.Canvas.Handle, 0,0, pic.Height, pic.Width, pic.Bitmap.Canvas.Handle, 0, 0,SRCCOPY);

result = -1
Но весь холст bitmap теперь белый

[Stilet]

Сам примерчик то дать не сложно:http://www.programmersforum.ru/showthread.php?t=7482

Но ты объясни зачем тебе Btmap раз Picture нормально работает?

Но весь холст bitmap теперь белый

Не морочь голову с Битмапом. pic.SaveToFile('C:\FromTPic.bmp'); и делов то

[alxd]

Я потом bitmap активно использую, обрезаю, поворачиваю. Все написано и все работает. Загвоздка только вот в этом. Причем этот глюк проявляется только на маленьких изображениях типа 100x150 или около того

Сообщение от Stilet

Не морочь голову с Битмапом. pic.SaveToFile('C:\FromTPic.bmp'); и делов то

Да была мысль такая, с последующей загрузкой в битмап, только как-то не по-человечески это

[Stilet]

Ты проверь ради интереса, это только в оффисе так клипбоард глюкает или вообще.

[alxd]

Проверил. Только в офисе. А у меня как раз с ним вся работа и идет