|
not unless if you are using a custom graphic progress. PBProc
check on ImgPBSetPosition procedure
procedure ImgPBSetPosition(var PB :TImgPB; Percent :Extended);
begin
if PB.img1<>0 then begin
NewWidth:=Round(PB.MaxWidth*Percent/100);
if PB.Width<>NewWidth then begin
PB.Width:=NewWidth;
ImgSetPosition(PB.img1,PB.Left,PB.Top,PB.Width,PB. Height);
end;
end;
end;
substitute width with height
|