Was mir direkt auffällt:
Delphi-Quellcode:
Count := 0;
while FileExists(Tea.ViewFileName(FFileName, Count)) do Inc(Count);
for I := 0 to Count - 1 do
begin
MF.LoadFromFile(Tea.ViewFileName(FFileName, I));
Pdf.AddPage;
Pdf.VCLCanvas.Draw(0, 0, MF);
end;
Warum nicht:
Delphi-Quellcode:
Count := 0;
while FileExists(Tea.ViewFileName(FFileName, Count)) do
begin
MF.LoadFromFile(Tea.ViewFileName(FFileName, count));
Pdf.AddPage;
Pdf.VCLCanvas.Draw(0, 0, MF);
inc(count)
end;
Aber um auf Dein eigentlicher Problem zu kommen, hast Du mal im Debugger nachgeschaut was in
PEMRExtTextOut(R)^ drinsteht?
oder wenn es machbar ist hänge doch bitte so ein Metafile mal hier an