+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : progress bar (/showthread.php?tid=5403)
progress bar - بلال زيان - 17-07-2013
السلام عليكم و رحمة الله و بركاته
كيف أجعل progress bar يبدأ من اليمين إلى اليسار
و جزاكم الله كل الخير.
progress bar - بن دهيبة - 21-07-2013
وعليكم السلام ورحمة الله تعالى وبركاته
ربما تعجبك الفكرة في المثال المرفق
progress bar - بلال زيان - 23-07-2013
جزاكم الله خيرا يا أخي بن ذهيبة و جعله الله في ميزان حسناتكم و تقبل الله منا م منكم الصيام و القيام و صالح الأعمال إن شاء الله .
progress bar - Agmcz - 24-07-2013
السلام عليكم
أيضا هذا اجراء يقوم باللازم
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;
المصدر
progress bar - بلال زيان - 26-07-2013
السلام عليكم
جزاكم الله خيرا أخي ghost-dz على هذه المعلومات و جعلها الله في ميزان حسناتكم يوم القيامة
و تفبل الله منا و منكم الصيام و القيام و صالح الأعمال .
progress bar - بلال زيان - 27-07-2013
السلام عليكم و رحمة الله و بركاته
عندي سؤال آخر إذا سمحتم هل تقس الإحراء ينطبق على المكون sgauge ؟ و جزاكم الله خيرا