چاپ یک نمودار درختی؟

[SYNDROME]

با سلام
دوستان بنده یک نمودار درختی ایجاد کرده ام.
حالا می خواهم این نمودار را چاپ کنم.
چکار باید انجام دهم؟
با تشکر فراوان

[Will_Smith]

منظورت TreeView هست؟
قبلا توی سایت دیدم خودم هم استفاده کردم

[SYNDROME]

با سلام

منظورت TreeView هست؟
قبلا توی سایت دیدم خودم هم استفاده کردم
بله.
اگر امکان دارد لینک نحوه چاپ این نمودار درختی(TreeView) یا توضیحات را قرار دهید.
با تشکر فراوان.

[Will_Smith]

چاپ TreeView رو جستجو کن

[m-khorsandi]

to print the TTreeView and TListView (http://www.delphi3000.com/articles/article_3966.asp?SK=)
Treeview printing issue (http://groups.google.com/group/borland.public.delphi.vcl.components.using/browse_thread/thread/2847d51d7af41feb/43b379d01119d2ec%2343b379d01119d2ec)

[SYNDROME]

با سلام
با تشکر از همه دوستان.
آقا محمد گل دستت درد نکنه ولی این گزینه از TreeViewعکس می گیرد.
یک لینک در سایت است که دوستمان انگاری به جواب رسید ولی زمان که دستورات را کپی می کنم از DumpTreeviewToTextfile ایراد می گیرد.اگر لطف کنید بنده را راهنمایی کنید ممنون می شوم.
http://barnamenevis.org/forum/showthread.php?t=57512&highlight=TreeView
با تشکر

[Mahyaa]

میخواهید فقط از Caption نودها Print بگیرید ؟

اون لینکی که گذاشتید ، فقط فراخوانی اون تابعی رو داره که کار ذخیره عنوان نودها رو در یک فایل تکست انجام میده توی این لینک تابعش هم هست . که البته کار خاصی هم انجام نمیده فقط تمام نود ها رو میخونه و عنوانش رو با در نظر گرفتن Level ، توی فایل مینویسه .

البته همونطور که گفتم فقط Caption نود ها رو در نظر میگیره .

http://delphi.newswhat.com/geoxml/forumhistorythread?groupname=borland.public.delphi .language.delphi.general&messageid=410a6f93@newsgroups.borland.com

[Will_Smith]

اون تابع هم این هست که فراموش کرده بودن بزارن


Function DumpTreeViewToTextFile(Var F:TextFile;
tree:TTreeview):integer;
var
node:TTreeNode;
begin
Node:=Ft_list.T_list.Items.GetFirstNode;
While node<>nil do
begin
Writeln(F,stringofchar(' ',2*node.Level),node.Text);
node:=node.GetNext;
end;

end;

[Will_Smith]

این هم برای اینکه چاپ در پرینتر انجام بشه


procedure TFt_list.Button5Click(Sender: TObject);
Var
F: Textfile;
Begin
try
AssignPrn( F );
Rewrite(F);
try
DumpTreeviewToTextfile( F, T_list );
finally
closefile(F);
end;
except
end;
End;

[m-khorsandi]

با سلام
با تشکر از همه دوستان.
آقا محمد گل دستت درد نکنه ولی این گزینه از TreeViewعکس می گیرد.
یک لینک در سایت است که دوستمان انگاری به جواب رسید ولی زمان که دستورات را کپی می کنم از DumpTreeviewToTextfile ایراد می گیرد.اگر لطف کنید بنده را راهنمایی کنید ممنون می شوم.
http://barnamenevis.org/forum/showthread.php?t=57512&highlight=TreeView
با تشکر

بعد از اینکه محتویات TreeView رو به عکس تبدیل کردی، خیلی راحت میتونی چاپش کنی.

[Will_Smith]

با کدی که گذاشتم هم میتونی چاپ در فایل داشته باشی هم در پرینتر

[SYNDROME]

با سلام
با تشکر از همه دوستان
با ترکیب روشهای آقا محمد و دوستان دیگر کارم راه افتاد .
موفق و پایدار باشید