|
@@ -203,6 +203,7 @@ procedure TUpFileView.FrameClick(Sender: TObject);
|
|
begin
|
|
begin
|
|
ShowSelected;
|
|
ShowSelected;
|
|
TUpFileManageView(Owner).Selected := Self;
|
|
TUpFileManageView(Owner).Selected := Self;
|
|
|
|
+ TUpFileManageView(Owner).SetFocus; // 这句使其取得焦点以响应滚动事件
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TUpFileView.RefreshStatus(AStatus: TUpFileStatus);
|
|
procedure TUpFileView.RefreshStatus(AStatus: TUpFileStatus);
|
|
@@ -218,7 +219,8 @@ begin
|
|
ufsNormal:
|
|
ufsNormal:
|
|
begin
|
|
begin
|
|
pnlOrder.Visible := False;
|
|
pnlOrder.Visible := False;
|
|
- pnlPlay.Visible := PHPWeb.UserID = Data.UperID;
|
|
|
|
|
|
+// pnlPlay.Visible := PHPWeb.UserID = Data.UperID;
|
|
|
|
+ pnlPlay.Visible := True;
|
|
lblInfo.Visible := True;
|
|
lblInfo.Visible := True;
|
|
lblInfo.Font.Color := clBlack;
|
|
lblInfo.Font.Color := clBlack;
|
|
lblInfo.Caption := Data.UperName;
|
|
lblInfo.Caption := Data.UperName;
|