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

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

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

قمت بالبحث و وجدت طريقة باستعمال احد دوال الAPI و لم تنجح معي

كود :
uses CommCtrl
ProgressBar1.Brush.Color:= clSilver;
SendMessage (ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlack);

لماذا لم يعمل معي الكود ؟
أنا اعمل على Rad Studio 10.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(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. 

كذلك لم تعمل معي 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

Rever7eR

fouadhdfouad

mohamed49