Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

comments are now understandable for everyone #1

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

comments are now understandable for everyone #1

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
20 changes: 8 additions & 12 deletions OrangeUI/OrangeShopping/ProductListFrame.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -53,11 +53,11 @@ implementation

procedure TFrameProductList.btnLoadNextDataClick(Sender: TObject);
begin
//���ڼ���
//正在加载 - loading
if not tmrLoading.Enabled then
begin
tmrLoading.Enabled:=True;
btnLoadNextData.Caption:='��������...';
btnLoadNextData.Caption:='正在载入...';
end;
end;

Expand All @@ -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;

Expand All @@ -90,19 +88,17 @@ 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
for I := 1 to 20 do
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;
Expand Down