اخواني الاعزاء اعضاء المنتدى

كيف اقوم باستخدام ثلاث انواع من الا يقونات بالشجرة ؟

وما هو تنسيق وحجم الايقونات المناسب لتظهر بالشجرة بالشكل المطلوب؟

وجزاكم الله خير.

اخي العصفور
السلام عليكم ورحمة الله وبركاتة:-
1- هل تقصد ايقونات الشجرة في Developer6i or Developer9i and 10g
2- هل ترغب تغيير الايقونة عند الضغط بالماوس ام تريد ان تكون ثابتة parent_node بايقونة
current_node بايقونة اخرى0
وكلها سهلة انشاء الله
بالتوفيق0000

شكرا اخي محمد للرد..

اما الدفلوبر المستخدم هو 6i

اما ما اريده هو ان تتغير شكل الايقونة عند النقر عليها مع العلم انها مرتبطة ب Record Group

مثلا ان تكون ايقونة العنصر الاب عبارة عن كتاب وعند النقر عليه تظهر ايقونة كتاب مفتوح اما الابناء الذين ليس لهم فروع
يظهروا على شكل ورقة مثلا...

وشكرا لك اخي العزيز

اخي اليك الاجابة
عندما يقلع الفورم عي في Tirgger WHEN-NEW-FORM-INSTANCE اكتب التالي
 

declare
htree ITEM;
num_selected NUMBER;
current_node FTREE.NODE;
parent_node ftree.node;
rg_emps RECORDGROUP;
v_ignore NUMBER;
begin
htree := Find_Item('SUBJECT.SUB_TREE');
rg_emps := Find_Group('emps');
IF NOT Id_Null(rg_emps) THEN
DELETE_GROUP(rg_emps);
else
rg_emps := Create_Group_From_Query('rg_emps','select 1,LEVEL,TITLE,
''C:ICON.ICO'',' ||
'to_char(SUB_ID)from SUBJECTS start with SUB_ID_P IS null
connect by prior SUB_ID = SUB_ID_P');
v_ignore := Populate_Group(rg_emps);
Ftree.Set_Tree_Property(htree, Ftree.RECORD_GROUP, rg_emps);
htree := Find_Item('SUBJECT.SUB_TREE');
num_selected := Ftree.Get_Tree_Node_Parent(htree,ftree.NODE_COUNT );
FOR j IN 1..num_selected LOOP
parent_node := Ftree.Get_Tree_Node_Parent(htree, j);
if parent_node > 1 then
Ftree.Set_Tree_Node_Property(htree,parent_node, Ftree.NODE_STATE, Ftree.COLLAPSED_NODE);
end if;
end loop;
END IF;
Tirgger WHEN-TREE-NODE-SELECTED اكتب التالي
DECLARE
htree ITEM;
current_node FTREE.NODE;
num_selected number;
BEGIN
htree := Find_Item('SUBJECT.SUB_TREE');
current_node := Ftree.Get_Tree_Selection(htree, 1);
Ftree.Set_Tree_Node_Property(htree, current_node, Ftree.NODE_ICON, 'C:\ICON.ICO');
num_selected := Ftree.Get_Tree_Property(htree, Ftree.node_COUNT);
FOR j IN 1..num_selected LOOP
if j <> current_node then
Ftree.Set_Tree_Node_Property(htree, j, Ftree.NODE_ICON, 'C:\Icon_icn.ICO');
end if;
END LOOP;
null;
END;

بالتوفيق ،،،

تم تعديل 22 فبراير 201511 سنة بواسطة Ahmad.Hasan

اشكرك اخي العزيز واعتذر عن التاخر بالرد ...

وجزاك الله الف خير ::::

مشكووووووووووووووووووووووور

الأخوة الأعزاء المشاركين و الأعضاء أرجو كتابة عبارة إن شاء الله كما هي ضاهرة في هذه المشاركة أي إن شاء منفصلتين و ليس إنشاء

thanks 4u......................mo