+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : أحتاج طريقة تغيير لون ال Progressbar (/showthread.php?tid=10049)
أحتاج طريقة تغيير لون ال Progressbar - Rever7eR - 13-02-2019
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله تعالى و بركاته
أحتاج custom progressbar , أريدها ان تكون Flat ان امكن
و اريد تغيير اللون , هناك اخضر , اصفر و احمر ! لا اريد استعمال اي منها
قمت بالبحث و وجدت طريقة باستعمال احد دوال الAPI و لم تنجح معي
كود :
uses CommCtrl
ProgressBar1.Brush.Color:= clSilver;
SendMessage (ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlack);أنا اعمل على Rad Studio 10.2
تحياتي
RE: أحتاج طريقة تغيير لون ال Progressbar - fouadhdfouad - 20-03-2019
(13-02-2019, 09:05 PM)Rever7eR كتب : بسم الله الرحمن الرحيمتفضل اخي
السلام عليكم و رحمة الله تعالى و بركاته
أحتاج custom progressbar , أريدها ان تكون Flat ان امكن
و اريد تغيير اللون , هناك اخضر , اصفر و احمر ! لا اريد استعمال اي منها
قمت بالبحث و وجدت طريقة باستعمال احد دوال الAPI و لم تنجح معي
لماذا لم يعمل معي الكود ؟كود :uses CommCtrl ProgressBar1.Brush.Color:= clSilver; SendMessage (ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlack);
أنا اعمل على Rad Studio 10.2
تحياتي
PHP كود :
uses
commctrl ;
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
progressbar1.StepIt;
ProgressBar1.Brush.Color:= clBtnFace; // Set Background colour
SendMessage (ProgressBar1.Handle, PBM_SETBARCOLOR, 0, (clfuchsia)); // Set bar colour
end;
end.
RE: أحتاج طريقة تغيير لون ال Progressbar - mohamed49 - 20-03-2019
كذلك لم تعمل معي delphi rio 10.3
جرب هذا
ProgressBar1.StepIt;
SendMessage(ProgressBar1.Handle, 1040, 2, 0); // red
SendMessage(ProgressBar1.Handle, 1040, 3, 0); //yellow
SendMessage(ProgressBar1.Handle, 1040, 1, 0); //green