diff --git a/OrangeUI/OrangeShopping/ProductListFrame.pas b/OrangeUI/OrangeShopping/ProductListFrame.pas index da1fc9d0..d741963a 100644 --- a/OrangeUI/OrangeShopping/ProductListFrame.pas +++ b/OrangeUI/OrangeShopping/ProductListFrame.pas @@ -53,11 +53,11 @@ implementation procedure TFrameProductList.btnLoadNextDataClick(Sender: TObject); begin - //正在加载 + //姝e湪鍔犺浇 - loading if not tmrLoading.Enabled then begin tmrLoading.Enabled:=True; - btnLoadNextData.Caption:='正在载入...'; + btnLoadNextData.Caption:='姝e湪杞藉叆...'; end; end; @@ -66,20 +66,18 @@ constructor TFrameProductList.Create(AOwner: TComponent); inherited; tmrLoadingTimer(Self); - end; procedure TFrameProductList.lbProductListClickItem(Sender: TObject); begin if TSkinItem(Sender).ItemType=sitDefault then begin - //查看商品信息 + //鏌ョ湅鍟嗗搧淇℃伅 - View product information HideFrame(Self); - //显示产品信息界面 - ShowFrame(TFrame(GlobalProductInfoFrame),TFrameProductInfo,frmMain,nil,nil,nil,Application); + //鏄剧ず浜у搧淇℃伅鐣岄潰 - Display product information interface + ShowFrame(TFrame(GlobalProductInfoFrame), TFrameProductInfo, frmMain, Nil, Nil, Nil, Application); GlobalProductInfoFrame.FrameHistroy:=CurrentFrameHistroy; - end; end; @@ -90,8 +88,7 @@ procedure TFrameProductList.tmrLoadingTimer(Sender: TObject); begin Self.tmrLoading.Enabled:=False; btnLoadNextData.Properties.IsPushed:=False; - btnLoadNextData.Caption:='显示下20条'; - + btnLoadNextData.Caption:='鏄剧ず涓20鏉'; // Show the next 20 Self.lbProductList.Properties.Items.BeginUpdate; try @@ -99,10 +96,9 @@ procedure TFrameProductList.tmrLoadingTimer(Sender: TObject); begin AListBoxItem:=Self.lbProductList.Properties.Items.Insert(Self.lbProductList.Properties.Items.Count-1); - AListBoxItem.Caption:='测试数据'+IntToStr(I); - AListBoxItem.Detail:='¥563($90.00)'; + AListBoxItem.Caption:='娴嬭瘯鏁版嵁'+IntToStr(I); // Test Data + AListBoxItem.Detail:='锟563($90.00)'; AListBoxItem.Icon.StaticImageIndex:=I Mod 12; - end; finally Self.lbProductList.Properties.Items.EndUpdate;