أحتاج طريقة تغيير لون ال Progressbar
#1
بسم الله الرحمن الرحيم 
السلام عليكم و رحمة الله تعالى و بركاته


أحتاج custom progressbar , أريدها ان تكون Flat ان امكن 
و اريد تغيير اللون , هناك اخضر , اصفر و احمر ! لا اريد استعمال اي منها 

قمت بالبحث و وجدت طريقة باستعمال احد دوال الAPI و لم تنجح معي 
كود :
uses CommCtrl
ProgressBar1.Brush.Color:= clSilver;
SendMessage (ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlack);
لماذا لم يعمل معي الكود ؟
أنا اعمل على Rad Studio 10.2
تحياتي
الرد
#2
(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(SenderTObject);
begin
  timer1
.Enabled:=true;
end;

procedure TForm1.Timer1Timer(SenderTObject);
begin
  progressbar1
.StepIt;
 
  ProgressBar1.Brush.Color:= clBtnFace// Set Background colour
 
  SendMessage (ProgressBar1.HandlePBM_SETBARCOLOR0, (clfuchsia)); // Set bar colour
end;

end

[-] كل من 1 user says قال شكرا ل fouadhdfouad على المشاركة المفيدة
  • mohamed49
الرد
#3
كذلك لم تعمل معي 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
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف