龙
龙之天涯
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TfrmXzxc.ReadProgress(TabSheet : Integer);
var
i : integer;
begin
PbrPreview := TProgressBar.Create(nil);
PbrPreview.BorderWidth:=0;
PbrPreview.Parent := RzStatusBar1;
PbrPreview.Left := RzFieldStatus2.Left;
PbrPreview.Width := RzFieldStatus2.Width ;
PbrPreview.Height := RzStatusBar1.Height-1;
PbrPreview.Top := 0;
end;
var
i : integer;
begin
PbrPreview := TProgressBar.Create(nil);
PbrPreview.BorderWidth:=0;
PbrPreview.Parent := RzStatusBar1;
PbrPreview.Left := RzFieldStatus2.Left;
PbrPreview.Width := RzFieldStatus2.Width ;
PbrPreview.Height := RzStatusBar1.Height-1;
PbrPreview.Top := 0;
end;