Entwickler-Ecke

Multimedia / Grafik - Inhalt von Tedits wird nicht abgedrückt


JeanvanHees - Mi 21.01.04 12:43
Titel: Inhalt von Tedits wird nicht abgedrückt
:wink2: 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;      // Redraw the Page canvas
            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 user profile iconPeter Lustig: Code- durch Delphi-Tags ersetzt