Как распечатать форму, которую в данный момент нельзя отобразить на экране. Например, есть форма, на которой лежит кнопка ПЕЧАТЬ. Нажатие по этой кнопке означает, что нужно распечатать содержимое формы (уже другой, которую не видно на экране). Как распечатать так, чтобы лишний раз не отображать форму номер 2 на экране. Если отображать, то так у меня получается, а вот без этого никак. Может можно как-то фокус что ли передать второй форме? Вообще, проблема состоит именно в том, как правильно перерисовать изображение формы на канву принтера. Этого я сделать как раз и не могу! Помогите!!

to Мастер

Цитата

Если отображать, то так у меня получается, а вот без этого никак.

Если не отображать, то у меня кнопки не рисуются (TButton и его наследники), а все остальное рисуется.
to All
Я тут пытался разобраться в этой штуке:
TCustomForm.Print - распечатывает клиентскую область формы, для этого использует TCustomForm.GetFormImagе
TCustomForm.GetFormImagе - возвращает изображение формы, для этого он создает канву и вызывает TWinControl.PaintTo, передавая ему handle контекста канвы
TWinControl.PaintTo - рисует на канве форму, а потом вызывает PaintTo для всех своих наследников; для рисования с помощью Perform передает сообщение WM_PAINT в WndProc
TButtonControl.WndProc на WM_PAINT не реагирует
TWinControl.WndProc на WM_PAINT не реагирует
TControl.WndProc на WM_PAINT не реагирует и вызывает Dispatch
обработчик WM_PAINT есть в TWinControl и, насколько я понимаю, рисование происходит здесь

Код

procedure TWinControl.WMPaint(var Message: TWMPaint); ... begin  if not FDoubleBuffered or (Message. DC <> 0) then  begin    if not (csCustomPaint in ControlState) and (ControlCount = 0) then       INHERITED    else      PaintHandler(Message);  end  else ...

Мне не совсем понятно, inherited - это вызов WMPaint ближайшего родителя TWinControl? Если так, то у всех родителей TWinControl нет WMPaint? Значит ли это, что обрабатывает событие Windows'овский обработчик, или где этот TButton вообще рисуется?

Вот обработчик двойного щелчка на форме (кнопка отображается в TImage):

Код

Form1.Hide; tBitmap_ := TBitmap.Create; // ---- GetFormImage try  tBitmap_.Width := Button1.Width;  tBitmap_.Height := Button1.Height;  tBitmap_.Canvas.Brush := Button1.Brush;  tBitmap_.Canvas.FillRect(Button1.ClientRect);  tBitmap_.Canvas.Lock;  try //   Button1.PaintTo(tBitmap_.Canvas.Handle, 0, 0); //   Perform(WM_Paint,tBitmap_.Canvas.Handle,0); // ---- PaintTo // ---- Perform   Message.Msg := WM_PAINT;   Message.WParam := tBitmap_.Canvas.Handle;   Message.LParam := 0;   Message.Result := 0;   if Self <> nil then Button1.WindowProc(Message); // ---- Perform // ---- PaintTo  finally   tBitmap_.Canvas.Unlock;  end; except  tBitmap_.Free;  raise; end; // ---- GetFormImage Image1.Picture.Bitmap := tBitmap_;    Form1.Show;

Если закомментировать в начале Hide, то не работает

Я так и не понял, что это все было в предыдущем сообщении. По-моему, никакого ответа на свой вопрос я даже и не увидел. Кто-нибудь подскажет. У меня там панельки (3 штуки) и их надо вырисоватьна канве принтера, а потом все это вывести на печать. Так вот без показа формы на экране ничего не получается... Беда...

В, принципе, ответа я не дал, но у меня все печатается, кроме TButton, а у тебя

Цитата

Если отображать, то так у меня получается, а вот без этого никак

Так ты скажи: у тебя ничего не печатается, или все же что-то печатается? Если что-то печатается, то скажи какие компоненты не печатаются. Можешь послать мне на email свой проект ([email protected]), посмотрю, что там у тебя.

MacTep а как ты хочешь напечатать то что не ненарисовано?! т.к. пока форма непоказывается то на ней соответсвенно ничего и не рисуется...
хотя возможно это и реально, например пр рисовании формы делать через GetDC, тогда (ИМХО) форма не будет отображаться на экране а будет рисоваться например в TImage.Bitmap находящегося на форме где кнопка печать... и уже Timage пускать на принтер, прада незнаю реально это или нет.

Посмотри функцию GetDIBits и другие связаные с ней - может чего и получится.

nJIaKca.spb, дело в том, что на канве принтера я уже рисую то, что мне надо, вот только не печатает от это и все. А не печатает потому, что форма на экране не отображается. А как только я ее покажу (Form1.Show), то сразу печатать начинает. А Delphi разве не видит то, что на скрытой форме расположено? Как ей это "показать", сказать, что там именно то-то и то-то есть?

Добавлено @ 22:15
<Spawn> что-то я про такое и не слышал и не видел нигде. В справке Delphi тоже вроде не нашел. Подскажи, что это такое и с чем это едят!?

Мастер, ты вообще ответы читаешь? У тебя что-нибудь печатается? Если ты не знаешь как печатать, то ты пробовал Form2.Print. Если знаешь, то как ты печатаешь (исходник).

У меня все нормально печатается. А точнее у меня все нормально отображается в Microsoft Document Imaging, а вот на принтер почему-то ничего не выводится. Я делаю так: рисую на канве принтера (создаю битмап), а потом просто все это дело вывожу на печать. В этой проге у меня все отображается на экране, а вот печатать не хочет. Как поступать - не знаю! Теперь доходчиво объяснил?

Код

j:=0;  RowUp:=StringGrid1.Selection.Top;  RowDown:=StringGrid1.Selection.Bottom;  {Открытие и закрытие формы для ее отобажения}  Form4.Visible:=True;  Form4.Visible:=False;  {создание картинки, которую будем выводит на принтер}  bm:=Tbitmap.Create;  bm.Width:=Form4.Panel1.Width+50;  {печать картинки}  with Printer do    begin     ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;     ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;     BeginDoc;        if RowDown-RowUp>2 then          begin            repeat              i:=0;              if j<>(RowDown-RowUp+1) then begin Convert(1,RowUp+j); inc(j); inc(i); end;              if j<>(RowDown-RowUp+1) then begin Convert(2,RowUp+j); inc(j); inc(i); end;              if j<>(RowDown-RowUp+1) then begin Convert(3,RowUp+j); inc(j); inc(i); end;              if i=1 then                begin                  bm.Height:=Form4.Panel1.Height+50;                  Form4.Panel1.PaintTo(bm.Canvas.Handle,50,30);                  Form4.Panel1.Repaint;                end;              if i=2 then                begin                  bm.Height:=Form4.Panel1.Height+Form4.Panel2.Height+60;                  Form4.Panel1.PaintTo(bm.Canvas.Handle,50,30);                  Form4.Panel1.Repaint;                  Form4.Panel2.PaintTo(bm.Canvas.Handle,50,371);                  Form4.Panel2.Repaint;                end;              if i=3 then                begin                  bm.Height:=Form4.Panel1.Height+Form4.Panel2.Height+Form4.Panel3.Height+70;                  Form4.Panel1.PaintTo(bm.Canvas.Handle,50,30);                  Form4.Panel1.Repaint;                  Form4.Panel2.PaintTo(bm.Canvas.Handle,50,371);                  Form4.Panel2.Repaint;                  Form4.Panel3.PaintTo(bm.Canvas.Handle,50,712);                  Form4.Panel3.Repaint;                end;              Canvas.StretchDraw(Rect(10,10,bm.Width*ScaleX,bm.Height*ScaleY),bm);              if j<>(RowDown-RowUp+1) then Printer.NewPage;            until (j=(RowDown-RowUp+1));          end        else          Canvas.StretchDraw(Rect(10,10,bm.Width*ScaleX,bm.Height*ScaleY),bm);     EndDoc;    end;  bm.Free;

Посмотрите... если что-то понятно! Как бороться с тем, что не печатает это дело на принтере?

Это не множко не так делается.
К примеру: печатаем видимую(не обезательно отображаемою на мониторе) область Form4

Код

procedure TForm1.Button1Click(Sender: TObject); var t:TMetafileCanvas;   v:TMetafile;   i,j:TRect;   X,Y,m:integer; begin if Printer.Printers.Count>0 then begin  v:=TMetafile.Create;  t:=TMetafileCanvas.Create(v,0);  Form4.PaintTo(t,0,0);  i:=t.ClipRect;  t.Free; //не перемещать эту строку  Printer.PrinterIndex:=-1;  //Принтер по умолчанию  j:=Printer.Canvas.ClipRect;  X:=j.BottomRight.X-j.TopLeft.X;  Y:=j.BottomRight.Y-j.TopLeft.Y;  X:=X div (i.BottomRight.X-i.TopLeft.X);  Y:=Y div (i.BottomRight.Y-i.TopLeft.Y);  if X<Y then m:=X else m:=Y;  if m>0 then   begin    i.BottomRight.X:=i.TopLeft.X+(i.BottomRight.X-i.TopLeft.X)*m;    i.BottomRight.Y:=i.TopLeft.Y+(i.BottomRight.Y-i.TopLeft.Y)*m;   end;  try   Printer.BeginDoc;   printer.Title:='Girder';   Printer.Canvas.StretchDraw(i,v);   Printer.EndDoc;  finally   v.Free;  end; end; end;

Это сообщение отредактировал(а) Girder - 30.6.2004, 16:44

Отличие в том, что мы вместо простого битмапа создаем специальный метафайл для канвы принтера? Я правильно понял! Очень похоже на мое! Благодарю за ответ. Очень помогло!