📄 zbstockbk.pas
字号:
00649E67 8B86F8020000 mov eax, [esi+$02F8]
* Reference to field TListView.Items : TListItems
|
00649E6D 8B800C020000 mov eax, [eax+$020C]
00649E73 8BD3 mov edx, ebx
* Reference to: comctrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
00649E75 E8F23AE3FF call 0047D96C
00649E7A 33D2 xor edx, edx
* Reference to: comctrls.TListItem.SetData(TListItem;Pointer);
|
00649E7C E8EF35E3FF call 0047D470
00649E81 43 inc ebx
00649E82 4F dec edi
00649E83 75AE jnz 00649E33
00649E85 5F pop edi
00649E86 5E pop esi
00649E87 5B pop ebx
00649E88 C3 ret
*)
end;
procedure TselStockBKfrm.ListView2Change(Sender : TObject);
begin
(*
00649E8C 55 push ebp
00649E8D 8BEC mov ebp, esp
00649E8F 8BD0 mov edx, eax
* Reference to : TselStockBKfrm.ListView2Click()
|
00649E91 E89E040000 call 0064A334
00649E96 5D pop ebp
00649E97 C20400 ret $0004
*)
end;
procedure TselStockBKfrm.ListView3KeyDown(Sender : TObject);
begin
(*
0064A208 55 push ebp
0064A209 8BEC mov ebp, esp
0064A20B 53 push ebx
0064A20C 56 push esi
0064A20D 57 push edi
0064A20E 8BF1 mov esi, ecx
0064A210 8BD8 mov ebx, eax
0064A212 A07CA26400 mov al, byte ptr [$0064A27C]
0064A217 3A4508 cmp al, byte ptr [ebp+$08]
0064A21A 7559 jnz 0064A275
0064A21C 66833E41 cmp word ptr [esi], +$41
0064A220 7553 jnz 0064A275
* Reference to control TselStockBKfrm.ListView3 : TListView
|
0064A222 8B83E4020000 mov eax, [ebx+$02E4]
* Reference to field TListView.Items : TListItems
|
0064A228 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TListItems.GetCount(TListItems):Integer;
|
0064A22E E80937E3FF call 0047D93C
0064A233 85C0 test eax, eax
0064A235 7E3E jle 0064A275
* Reference to control TselStockBKfrm.ListView3 : TListView
|
0064A237 8B83E4020000 mov eax, [ebx+$02E4]
* Reference to field TListView.Items : TListItems
|
0064A23D 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TListItems.GetCount(TListItems):Integer;
|
0064A243 E8F436E3FF call 0047D93C
0064A248 8BF0 mov esi, eax
0064A24A 4E dec esi
0064A24B 85F6 test esi, esi
0064A24D 7C26 jl 0064A275
0064A24F 46 inc esi
0064A250 33FF xor edi, edi
* Reference to control TselStockBKfrm.ListView3 : TListView
|
0064A252 8B83E4020000 mov eax, [ebx+$02E4]
* Reference to field TListView.Items : TListItems
|
0064A258 8B800C020000 mov eax, [eax+$020C]
0064A25E 8BD7 mov edx, edi
* Reference to: comctrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
0064A260 E80737E3FF call 0047D96C
0064A265 B101 mov cl, $01
0064A267 BA03000000 mov edx, $00000003
* Reference to : TSubItems._PROC_0047D504()
|
0064A26C E89332E3FF call 0047D504
0064A271 47 inc edi
0064A272 4E dec esi
0064A273 75DD jnz 0064A252
0064A275 5F pop edi
0064A276 5E pop esi
0064A277 5B pop ebx
0064A278 5D pop ebp
0064A279 C20400 ret $0004
*)
end;
procedure TselStockBKfrm.PageControl1Change(Sender : TObject);
begin
(*
0064A280 53 push ebx
0064A281 56 push esi
0064A282 8BD8 mov ebx, eax
* Reference to control TselStockBKfrm.PageControl1 : TPageControl
|
0064A284 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to: comctrls.TPageControl.GetActivePageIndex(TPageControl):Integer;
|
0064A28A E881ABE2FF call 00474E10
0064A28F 83E801 sub eax, +$01
0064A292 7207 jb 0064A29B
0064A294 7450 jz 0064A2E6
0064A296 E993000000 jmp 0064A32E
* Reference to control TselStockBKfrm.ListView1 : TListView
|
0064A29B 8B83F4020000 mov eax, [ebx+$02F4]
* Reference to field TListView.Items : TListItems
|
0064A2A1 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TListItems.GetCount(TListItems):Integer;
|
0064A2A7 E89036E3FF call 0047D93C
0064A2AC 85C0 test eax, eax
0064A2AE 7E7E jle 0064A32E
* Reference to control TselStockBKfrm.ListView1 : TListView
|
0064A2B0 8B83F4020000 mov eax, [ebx+$02F4]
* Reference to field TListView.Items : TListItems
|
0064A2B6 8B800C020000 mov eax, [eax+$020C]
0064A2BC 33D2 xor edx, edx
* Reference to: comctrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
0064A2BE E8A936E3FF call 0047D96C
0064A2C3 B101 mov cl, $01
0064A2C5 BA03000000 mov edx, $00000003
* Reference to : TSubItems._PROC_0047D504()
|
0064A2CA E83532E3FF call 0047D504
* Reference to control TselStockBKfrm.ListView1 : TListView
|
0064A2CF 8BB3F4020000 mov esi, [ebx+$02F4]
0064A2D5 8BD3 mov edx, ebx
* Reference to field TListView.OFFS_010C
|
0064A2D7 8B860C010000 mov eax, [esi+$010C]
* Possible reference to virtual method TListView.OFFS_0108
|
0064A2DD FF9608010000 call dword ptr [esi+$0108]
0064A2E3 5E pop esi
0064A2E4 5B pop ebx
0064A2E5 C3 ret
* Reference to control StopButton : N.A.
|
0064A2E6 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to field N.A..OFFS_020C
|
0064A2EC 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TTreeNodes.GetCount(TTreeNodes):Integer;
|
0064A2F2 E84536E3FF call 0047D93C
0064A2F7 85C0 test eax, eax
0064A2F9 7E33 jle 0064A32E
* Reference to control StopButton : N.A.
|
0064A2FB 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to field N.A..OFFS_020C
|
0064A301 8B800C020000 mov eax, [eax+$020C]
0064A307 33D2 xor edx, edx
* Reference to: comctrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
0064A309 E85E36E3FF call 0047D96C
0064A30E B101 mov cl, $01
0064A310 BA03000000 mov edx, $00000003
* Reference to : TSubItems._PROC_0047D504()
|
0064A315 E8EA31E3FF call 0047D504
* Reference to control StopButton : N.A.
|
0064A31A 8BB3E0020000 mov esi, [ebx+$02E0]
0064A320 8BD3 mov edx, ebx
* Reference to field N.A..OFFS_010C
|
0064A322 8B860C010000 mov eax, [esi+$010C]
* Possible reference to virtual method TN.A..OFFS_0108
|
0064A328 FF9608010000 call dword ptr [esi+$0108]
0064A32E 5E pop esi
0064A32F 5B pop ebx
0064A330 C3 ret
*)
end;
procedure TselStockBKfrm.ListView2Click(Sender : TObject);
begin
(*
0064A334 55 push ebp
0064A335 8BEC mov ebp, esp
0064A337 83C4F8 add esp, -$08
0064A33A 53 push ebx
0064A33B 56 push esi
0064A33C 57 push edi
0064A33D 33C9 xor ecx, ecx
0064A33F 894DF8 mov [ebp-$08], ecx
0064A342 8BD8 mov ebx, eax
0064A344 33C0 xor eax, eax
0064A346 55 push ebp
* Possible String Reference to: '镺栛⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -