progress bar

[بلال زيان]

السلام عليكم و رحمة الله و بركاته
كيف أجعل progress bar يبدأ من اليمين إلى اليسار
و جزاكم الله كل الخير.

[بن دهيبة]

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

ربما تعجبك الفكرة في المثال المرفق

[بلال زيان]

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

[Agmcz]

السلام عليكم
أيضا هذا اجراء يقوم باللازم

PHP كود :

procedure MakeControlRTL(Control: TWinControl);
var
  OldLong: LongWord;
begin
  OldLong := GetWindowLong(Control.Handle, GWL_EXSTYLE);
  Control.BiDiMode := bdLeftToRight;
  SetWindowLong(Control.Handle, GWL_EXSTYLE, OldLong or WS_EX_LAYOUTRTL);
  Control.Repaint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MakeControlRTL(ProgressBar1);
end; 


المصدر

[بلال زيان]

السلام عليكم
جزاكم الله خيرا أخي ghost-dz على هذه المعلومات و جعلها الله في ميزان حسناتكم يوم القيامة
و تفبل الله منا و منكم الصيام و القيام و صالح الأعمال .

[بلال زيان]

السلام عليكم و رحمة الله و بركاته
عندي سؤال آخر إذا سمحتم هل تقس الإحراء ينطبق على المكون sgauge ؟ و جزاكم الله خيرا