Скачать: CL | DM;

SaveToClipboardFormat   Найти похожие ветки 

← →
Valery779 ©   (2006-09-28 15:38) [0]

procedure TForm1.Button1Click(Sender: TObject);
var  W:variant;
APalette :HPalette;
AFormat:Word;
AData:THandle;
begin
  W:=CreateOleObject("Word.Application");
  W.Visible:=true;
  W.documents.Add(ExtractFileDir(Application.ExeName)+"\templ\file.doc",0);
  W.ActiveDocument.Select;
  Image1.Picture.SaveToClipboardFormat(AFormat,AData,APalette);
  W.Selection.Paste;
end;

-- File.doc существует, но процедура создает новый ???
-- буфер пустой, --> пятая команда не работает и на .bmp и на .jpg
   Нужно ли задавать AFormat,AData,APalette значения ???
Остряков прошу не беспокоится

---

← →
DevilDevil ©   (2006-09-28 16:53) [1]

procedure TForm1.Button1Click(Sender: TObject);
var  W:variant;
APalette :HPalette;
AFormat:Word;
AData:THandle;
begin
 W:=CreateOleObject("Word.Application");
 W.Visible:=true;
 W.documents.Add(ExtractFileDir(Application.ExeName)+"\templ\file.doc",0);
 W.ActiveDocument.Select;
 Image1.Picture.SaveToClipboardFormat(AFormat,AData,APalette);
 ClipBoard.SetAsHandle(MyFormat,AData); // нашёл в Хелпе
 W.Selection.Paste;
end;

Вот ей-богу, терпеть не могу умников, которые кричат: "гугл в помощь", "учи Английский", "а Хелп посмотреть не судьба?" ...  А вот теперь и сам начал... Только что нашёл в примере к SaveToClipboardFormat...

Не забудь заюзать Clipbrd

---

← →
Valery779 ©   (2006-09-28 17:35) [2]

DevilDevil:
Спасибо огромное!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c