Tag leute,
Ich habe eine programm wo ich einige pages von einen PageControll abdrücken muss.
Dass problem; nur der inhalt von den TEdits von den page den mann gerade auf den screen hast wird abgedruckt, bei den anderen pages wird alles, nur nicht den inhalt der TEdits abgedrückt.
Wenn ich aber es mit behilfe des printpreview component mache, funktioniert es.
Dies ist den code für den printpreview:
Delphi-Quelltext
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:
|
for I:=0 to (PageControl1.PageCount-1) do
begin
if (I<>5) then
begin
vBmp.Assign(nil);
vBmp.Width := PageControl1.Width;
vBmp.Height := PageControl1.Height;
Preview1.Paper.SetPage(I+OffsetPage+1);
PageControl1.Pages[I].Visible:=True; PageControl1.Pages[I].PaintTo(vBmp.Canvas, 0, 0);
Preview1.Paper.StretchDraw(Rect(10,10,Trunc(vBmp.Width/3.5),Trunc(vBmp.Height/3.2)),vBmp);
end;
if (I=5) then
begin
for J:=0 to (PageControl2.PageCount-1) do
begin
vBmp.Assign(nil);
vBmp.Width := PageControl1.Width;
vBmp.Height := PageControl1.Height;
OffsetPage:=J;
Preview1.Paper.SetPage(I+OffsetPage+1);
PageControl2.ActivePage.PageIndex:=J;
PageControl1.Pages[5].PaintTo(vBmp.Canvas,0,0);
Preview1.Paper.StretchDraw(Rect(10,10,Trunc(vBmp.Width/3.5),Trunc(vBmp.Height/3.2)),vBmp);
end;
end;
end; |
Moderiert von 
Peter Lustig: Code- durch Delphi-Tags ersetztCause even though I know things won't get any better, they can certainly never get much worse!
