عنصر ProgressPar من اليمين لليسار

السلام عليكم

أخي الكريم يمكنك استعمال تقنية المرآة إذا أردت

يعني في حدث الـ Oncreat للفورم ضع الكود التالي:

SetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_ID) or $400000);

وجرب هذا الكود في زر ما

var i: integer;
begin
  for i := 0 to 100 do
  begin
	ProgressBar1.Position := i;
	sleep(10);
  end;

هذا الكود منقول عن موقع orwah.net من منتديات الدلفي بتصرف

وبالتوفيق إن شاء الله ;)

أرجو من أحد أن يشرحلي الكود السابق

وهذا الرقم ($400000) ماذا يعني

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

السلام عليكم

أخي الكريم إن التابع

Setwindowlong

والتابع

getwindowlong

هي توابع API تستخدم للوصول إلى معلومات النظام الخاصة بأي نافذة, وهذا ما يحدده البارامتر الأول للتابع أي الـ Handle

أما البارامتر

GWL_EXSTYLE

يستخدم للقراءة أو الكتابة من أو إلى معلومات شكل النافذة التي تتضمن معلومات مثل عرض الحواف أو شريط العنوان أو جهة التقدم.....

أما بالنسبة إلى القيمة الجديدة التي نسبناها إلى المتحول السابق في لاحظ مايلي:

لو استخدمت التابع:

GetWindowLong(ProgressBar1.Handle,GWL_EXSTYLE)

لأعاد لك الرقم التالي:

131072

هذا الرقم يتألف من 6 مراتب, وفي الواقع إن كل مرتبة تمثل خاصية ما فمثلاً لو غيرت الرقم 2 إلى 3 باستخدام التابع

setwindowlong

لقام بتغير حافة الـ ProgressBar إلى شكل آخر, وكذلك الأمر بالنسبة لباقي الأرقام

والرقم الذي يغير جهة تقدم الـ ProgressBar هو أول رقم من اليسار, فعندما تستبدله برقم بين 4 و 7 فإنه يغير جهة تقدم الـ ProgressBar

فيمكنك استعمال الرقم التالي:

431072

لتغيير جهة التقدم بدون تغيير شكل العنصر, فسيبقى شكله كما كان و لكن تتغير جهة تقدمه

أتمنى أن أكون قد أفدكم أخي الكريم

تقبلو تحياتي

وبالتوفيق ;)

Like Delphi كتب:

SetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_ID) or $400000);

تعقيب بسيط و تصحيح للكود اللذي أرفقه الأخ Like Delphi

//  Constante declared in windows.pas
//  {$EXTERNALSYM WS_EX_LAYOUTRTL}
//  WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring
//  Creates a window whose horizontal origin is on the right edge.
//  Increasing horizontal values advance to the left.

  SetWindowLong(ProgressB.Handle,GWL_EXSTYLE, GetWindowLong(ProgressB.Handle, GWL_EXSTYLE) or WS_EX_LAYOUTRTL);

العدد $00400000 هو ميزة النافذة (أعني بالنافذة كل مكون رسومي graphical control) لرسمها من اليمين لليسار أو العكس, كالمرآة.

أول شيئ نقوم بقراءة خواص المتحكم اللذي نريد تغييرعليها ب الدالة GetWindowLong نمرر لها المقبض handle للمتحكم progressbar وكذلك نوع مجموعة الخواص GWL_EXSTYLE.

نقوم بتطبيق التعديل بواسطة التعليمة or التي تمكننا من عمل قناع للبت 23 في المجموعة GWL_EXSTYLE.

تم نستدعي الدالة المكافئة للكتابة SetWindowLong.

شكراً لكم أخوتي في الله لأن الهدف أن أفهم الكود وليس لأحصل على كود جاهز

شي فهمته وأرجو التأكيد عليه وهو أنني يمكن أن أستخدم هذا الكود لأي عنصر

جزاكم الله خيراً

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