Съезд столбцов при копировании в буфер

[Kronos913]

Delphi 7
Использую процедуру

ClipBoard.Assign(bmp)

Где

var
  bmp:TBitMap;

По какой-то непонятной причине три правые крайние столбца перемещаются налево еще и с сдвигом вниз на 1 пиксель

Откуда такая проблема и как ее исправить?

[Kronos913]

К слову говоря, такой код даёт ту же самую проблему

procedure JpgToBufer(const Im:String);
var
  AFormat: Word;
  AData : THandle;
  APalette : HPALETTE;
begin
  with TJPEGImage.Create do
  try
    LoadFromFile(Im);
    SaveToClipboardFormat(AFormat, AData, APalette);
    ClipBoard.SetAsHandle(AFormat, AData);
  finally
    Free;
  end;
end;

[Kronos913]

Еще интереснее: при копировании в paint или telegram смещение происходит
А при копировании в фотошоп - всё ок

[Kronos913]

Кто-то что-то знает, как с этим бороться?

[northener]

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

Еще интереснее: при копировании в paint или telegram смещение происходит
А при копировании в фотошоп - всё ок

А где именно код копирования куда-то? Всё что пока представлено это т.н. Paste по аглицки. А где код Copy?

[Kronos913]

Я из своей программы копирую изображение в буфер кодом из 0 и 1 постов

Из буфера обычным Ctrl+V вставляю в Paint, или клиент Telegram - и изображение вставляется со смещением пикселей

[Vapaamies]

Возможно, там фигня какая-то с 24 и 32 битами на пиксель. Перемещение именно трех «столбцов» (пикселей?) наводит на мысль. У Borland по жизни с цветностью плохо было. Так и остались 16-цветными, код не менялся с Windows 3.x по сути. У вас же Delphi 7?

[Kronos913]

Да, Delphi7
То есть, попробовать перекодировать BitMap на 32 бита?

[Kronos913]

Попробовал так сделать. Не помогло, все равно идёт сдвиг.

      bmp.PixelFormat := pf32bit;
      lipBoard.Assign(bmp);

[Kronos913]

Есть ли хоть какое-то решение проблемы? И из-за чего она могла возникнуть

Прикрепил два изображения - оригинал и то что скопировалось в итоге из программы