Delphi programming to modify the progressbar color

Delphi programming to modify the progressbar colorThe key code is as follows:

Uses

Commctrl;

Procedure tform1.button1click (Sender: tobject );

Begin

// Set the background color to teal

Progressbar1.brush. Color: = clteal;

// Set bar color to yellow

Sendmessage (progressbar1.handle, pbm_setbarcolor, 0, clyellow );

End;

WINXP style progress bar

Const

{$ Externalsym pbs_marquee}

Pbs_marquee = 08;

 

Procedure tform1.formcreate (Sender: tobject );

Begin

Setwindowlong (progressbar1.handle, gwl_style,

Getwindowlong (progressbar1.handle, gwl_style) or pbs_marquee );

End;

//------------------------------------------------------------------------------

Procedure tform1.button1click (Sender: tobject );

VaR

I: integer;

Begin

For I: = 0 to 30 do

Begin

Sleep (100 );

Progressbar1.stepit;

Application. processmessages;

End;

End;