Index

Date: Sat, 07 Oct 2006 14:57:42 +0200
From: tom  Steema SL
Subject: Re: How change smooth check box to True in Preview
Newsgroup: public.teetree1.delphi  

Hi Paulo,

You might use following code example:

procedure TreePreview(AOwner:TComponent; Tree:TCustomTree;
PrintPanel:Boolean=False);
var OldPrintTeePanel : Boolean;

begin
OldPrintTeePanel:=PrintTeePanel;
PrintTeePanel:=PrintPanel;
try
with TChartPreview.Create(AOwner) do
try
Caption := 'Hi there';
TeePreviewPanel1.Panel:=Tree;
TeePreviewPanel1.AsBitmap := True;
ShowModal;
finally
Free;
Tree.Invalidate;
end;
finally
PrintTeePanel:=OldPrintTeePanel;
end;
end;

begin
TreePreview(nil,Tree1);
end;

Regards,
tom.

> Sorry for my bad English.
>
> How can I change "smooth check box" to True,
> in Preview of Tree1 ? (the default is False, i.e.,
> unchecked).
>
> Thank you very much.
> Paulo
>
>