Текущий архив: 2003.11.20;
Скачать: CL | DM;
Вниз
SaveToClipBoardFormat Найти похожие ветки
← →
IrviS © (2003-11-11 16:17) [0]Всем привет!!!
Помогите разобраться. (Создаю на D7 под XP).
Копирую картинку из ресурса ЕХЕ в буфер обм. и вставляю в Ехсеl.
Данный код неработает под win98.
// Copy to CLBRD
APalette:=GetPalette;
bm:=TBitmap.Create;
try
bm.LoadFromResourceName(HInstance, "logo");
bm.SaveToClipBoardFormat(CF_PICTURE,HInstance, APalette);
ClipBoard.SetAsHandle(CF_PICTURE,HInstance);
finally
bm.Free;
end;
// Paste to Excel
Sheet.Range["D1", "I6"].Select;
Sheet.Paste;
← →
kavlad (2003-11-11 16:36) [1]>bm.SaveToClipBoardFormat(CF_PICTURE,HInstance, APalette);
Delphi syntax:
procedure SaveToClipboardFormat(var AFormat: Word; var AData: THandle; var APalette: HPALETTE); override;
Т.е. ты в HInstance запихиваешь хендл от клипборда.
← →
IrviS © (2003-11-11 16:56) [2]Это к чему ???
← →
MBo © (2003-11-11 17:17) [3]Clipboard.Assign(bm);
З.Ы.
ClipBoard.SetAsHandle в качестве второго параметра принимает дескриптор блока данных (GlobalLock etc), а ты передаешь Intstance своего процесса
Страницы: 1 вся ветка
Текущий архив: 2003.11.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.03 c
