Здравствуйте Sinclair, Вы писали:
А что такое TXForm ?
Дерево и в правду выдается либо маленьким , либо не все печатается.
Вы первый человек , который хоть что-то сообщил бедной замученной данным
вопросом девушке.
S>S>procedure TForm1.SpeedButton1Click(Sender: TObject);
S>var
S> xform: TXForm;
S> Ratio: Extended;
S>begin
S> xform.eM12:=0;
S> xform.eM21:=0;
S> xform.eDx:=0;
S> xform.eDy:=0;
S> Printer.BeginDoc; // This ensures that device capabilities are known
S> Ratio:= GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY)/Screen.PixelsPerInch;
S> xform.eM11:=Ratio;
S> xform.eM22:=Ratio;
S> if (SetGraphicsMode(Printer.Canvas.Handle, GM_ADVANCED)<>0)
S> then SpeedButton1.Caption:=SpeedButton1.Caption+'SGM :) ';
S> if SetWorldTransform(Printer.Canvas.Handle, xform)
S> then SpeedButton1.Caption:=SpeedButton1.Caption+'SWT :)';
S> TreeView1.PaintTo(Printer.Canvas.Handle,10,10);
S> Printer.EndDoc;
S>end;
