دخول

a.atalla · 26-07-2010, 10:21 AM

السلام عليكم ورحمة الله وبركاته

في برنامج أهلا فيدورا أردت أضافة أيقونات الي قائمة تثبيت البرامج (استخدم Tchecklistbox)
لكني فوجئت بأن ذلك غير ممكن الا عن طريق تخصيصه ownerdraw checklistbox وانا لا اعرف كيف افعل ذلك

لذا استخدمت TlistView ووضعت الايقونات

ولكني لم أجد الـ Event اللذ استخدمته للـ TcheckListBox وهو

OnItemClick
بحثت قليلا فوجدت ListViewChange ولكنه للأسف يعمل عند تغيير selected او checked لاي من العناصر في listview

فهل منكم من عنده حل لهذه المعضلة Sad

**shagrouni** · 26-07-2010, 10:42 AM

وعليكم السلام

بالنسبة ل TTreeView يمكن استغلال الحدث OnMouseDown للحصول على بند الشجرة مثل التالي:

كود :
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Node: TTreeNode;
begin
  Node := TTreeView(Sender).GetNodeAt(X, Y);
end;

بالنسبة ل TListView يمكم مراجعة الكود في الرابط التالي ومرفق ايضا:

كود :
http://www.shagrouni.com/english/software/xlist.html

بالتوفيق.

a.atalla · 27-07-2010, 04:02 AM

هنا حل رائع ليجعل TListView يرفع حدث (raise an event) عند تغير حالة الـ Checkbox لكني فشلت في تطبيقه علي لازاروس

كود :
http://delphi.about.com/od/delphitips2007/qt/listviewchecked.htm

كود :
uses CommCtrl;
 
 procedure TForm1.FormCreate(Sender: TObject) ;
 begin
   OriginalListViewWindowProc := ListView1.WindowProc;
   ListView1.WindowProc := ListViewWindowProcEx;
 end;
 
 procedure TForm1.ListViewWindowProcEx(var Message: TMessage) ;
 var
   listItem : TListItem;
 begin
   if Message.Msg = CN_NOTIFY then
   begin
     if PNMHdr(Message.LParam)^.Code = LVN_ITEMCHANGED then
     begin
       with PNMListView(Message.LParam)^ do
       begin
         if (uChanged and LVIF_STATE) <> 0 then
         begin
           if ((uNewState and LVIS_STATEIMAGEMASK) shr 12) <> ((uOldState and LVIS_STATEIMAGEMASK) shr 12) then
           begin
             listItem := listView1.Items[iItem];
             memo1.Lines.Add(Format('%s checked:%s', [listItem.Caption, BoolToStr(listItem.Checked, True)])) ;
           end;
         end;
       end;
     end;
   end;
   //original ListView message handling
   OriginalListViewWindowProc(Message) ;
 end;
 
 procedure TForm1.GetCheckedButtonClick(Sender: TObject) ;
 var
   li : TListItem;
 begin
   memo1.Lines.Clear;
   memo1.Lines.Add('Checked Items:') ;
   for li in listView1.Items do
   begin
     if li.Checked then
     begin
       memo1.Lines.Add(Format('%s %s %s', [li.Caption, li.SubItems[0], li.SubItems[1]])) ;
     end;
   end;
 end;

الخطأ هو

كود :
unit1.pas(17,57) Error: Identifier not found "TMessage"

**shagrouni** · 27-07-2010, 05:18 AM

ربما الوحدة Messages ليست مدرجة في قسم uses

ملاحظة:
آسف، لم أنتبه في مشاركتي السابقة و خلطت بين TlistView و TTreeView.

a.atalla · 27-07-2010, 09:37 PM

معك حق تجاوزت هذا الخطأ باضافة الوحدة messages لاصطدم بالكثير من الاخطاء الاخري

هل من فكرة أخري أكثر جمالا لقائمة تثبيت التطبيقات هذه

هذه الواجهة الجديدة للبرنامج -أكثر جمالا Smile

-

أرغب في تحسين شكل هذه القائمة من checkboxes هل من أفكار ؟؟

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة