delphi4arab منتديات دلفي للعرب

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

ربما تعجبك الفكرة في المثال المرفق
جزاكم الله خيرا يا أخي بن ذهيبة و جعله الله في ميزان حسناتكم و تقبل الله منا م منكم الصيام و القيام و صالح الأعمال إن شاء الله .
السلام عليكم
أيضا هذا اجراء يقوم باللازم
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 ؟ و جزاكم الله خيرا