Текущий архив: 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.015 c