hallo,
ich habe jetzt folgendes problem:
ich habe die word2000 bibliothek eingebunden. entwickeln tu ich mit word2003.
jetzt haben wir das programm auf einem rechner laufen lassen, auf dem word2000 installiert ist.
alles, was ich da an bildern eingefügt habe, ist total verschoben...woran kann denn sowas liegen?
die auflösung kann nicht die ursache sein, ich habe das programm auf meinem rechner mit allen verfügbaren auflösungen getestet.
kann es daran liegen, dass evtl. "myword.centimeterstopoints" unterschiedlich interpretiert wird, wie ich es in den funktionen verwende?
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
| procedure tfauswertung.make_picture_2(bild : TPicture;t,l,w,h : extended);
var tempfilename : string;
_true,_false,_left,_top,_width,_height,_extend,_index : OleVariant;
_range : Olevariant;
begin
try
tempfilename:=extractfilepath(paramstr(0))+'gftsollist'+datetostr(date)+datetostr
(time)+'.jpg';
bild.SaveToFile(tempfilename);
if fileexists(tempfilename)
then
begin
_true := true;
_false := false;
_left :=myword.centimeterstopoints(l); _top:=myword.centimeterstopoints(t); _width:=(w);
_height:=(h);
_range:=myword.selection.range;
myword.ActiveDocument.Shapes.AddPicture
(tempfilename,_false,_true,_left,_top,_width,_height,_range).Select(_true);
end;
_extend := wdmove;
_index := wdstory;
myword.Selection.EndKey(_index,_extend);
myword.Selection.ParagraphFormat.Alignment:=wdalignparagraphleft;
if fileexists(tempfilename)
then deletefile(tempfilename);
except
end;
end; |
wär super, wen hier jemand ne idee hätte...vielen dank und schöne grüße,
Wile E.
