📄 jdshow.pas
字号:
006279DA A188D27700 mov eax, dword ptr [$0077D288]
006279DF 8B00 mov eax, [eax]
* Possible String Reference to: '万'
|
006279E1 BA247B6200 mov edx, $00627B24
* Reference to: system.@LStrCmp;
|
006279E6 E8B5CADDFF call 004044A0
006279EB 754E jnz 00627A3B
* Possible String Reference to: '成交量(万手)'
|
006279ED 68307B6200 push $00627B30
006279F2 33C9 xor ecx, ecx
006279F4 BA09000000 mov edx, $00000009
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
006279F9 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TStringSparseList._PROC_005A0904()
|
006279FF E8008FF7FF call 005A0904
* Possible String Reference to: '金额(亿)'
|
00627A04 68487B6200 push $00627B48
00627A09 33C9 xor ecx, ecx
00627A0B BA0A000000 mov edx, $0000000A
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00627A10 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TStringSparseList._PROC_005A0904()
|
00627A16 E8E98EF7FF call 005A0904
00627A1B B8ACA47700 mov eax, $0077A4AC
* Possible String Reference to: '成交量(万手)'
|
00627A20 BA307B6200 mov edx, $00627B30
* Reference to: system.@LStrAsg;
|
00627A25 E81EC7DDFF call 00404148
00627A2A B8B0A47700 mov eax, $0077A4B0
* Possible String Reference to: '金额(亿)'
|
00627A2F BA487B6200 mov edx, $00627B48
* Reference to: system.@LStrAsg;
|
00627A34 E80FC7DDFF call 00404148
00627A39 EB4C jmp 00627A87
* Possible String Reference to: '成交量(手)'
|
00627A3B 685C7B6200 push $00627B5C
00627A40 33C9 xor ecx, ecx
00627A42 BA09000000 mov edx, $00000009
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00627A47 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TStringSparseList._PROC_005A0904()
|
00627A4D E8B28EF7FF call 005A0904
* Possible String Reference to: '金额(万)'
|
00627A52 68707B6200 push $00627B70
00627A57 33C9 xor ecx, ecx
00627A59 BA0A000000 mov edx, $0000000A
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00627A5E 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TStringSparseList._PROC_005A0904()
|
00627A64 E89B8EF7FF call 005A0904
00627A69 B8ACA47700 mov eax, $0077A4AC
* Possible String Reference to: '成交量(手)'
|
00627A6E BA5C7B6200 mov edx, $00627B5C
* Reference to: system.@LStrAsg;
|
00627A73 E8D0C6DDFF call 00404148
00627A78 B8B0A47700 mov eax, $0077A4B0
* Possible String Reference to: '金额(万)'
|
00627A7D BA707B6200 mov edx, $00627B70
* Reference to: system.@LStrAsg;
|
00627A82 E8C1C6DDFF call 00404148
00627A87 BA04000000 mov edx, $00000004
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
00627A8C 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TNewInplaceEdit._PROC_005A18B4()
|
00627A92 E81D9EF7FF call 005A18B4
00627A97 BAFF505000 mov edx, $005050FF
* Reference to: graphics.TFont.SetColor(TFont;TColor);
|
00627A9C E81B64DFFF call 0041DEBC
00627AA1 C60584A4770001 mov byte ptr [$0077A484], $01
00627AA8 C605C0CD780001 mov byte ptr [$0078CDC0], $01
00627AAF 33C0 xor eax, eax
* Reference to field TFrmJDShow.OFFS_02E0
|
00627AB1 8983E0020000 mov [ebx+$02E0], eax
00627AB7 33C0 xor eax, eax
00627AB9 A37CA47700 mov dword ptr [$0077A47C], eax
00627ABE B201 mov dl, $01
* Reference to class TRTRowIdxList
|
00627AC0 A1A8C24A00 mov eax, dword ptr [$004AC2A8]
* Reference to: Unit_004AC2A8.Proc_004AC304
|
00627AC5 E83A48E8FF call 004AC304
* Reference to GlobalVar_0078CDAC
|
00627ACA A3ACCD7800 mov dword ptr [$0078CDAC], eax
* Reference to pointer to GlobalVar_0078CDD8
|
00627ACF 8B3500CF7700 mov esi, [$0077CF00]
00627AD5 8B36 mov esi, [esi]
00627AD7 4E dec esi
00627AD8 85F6 test esi, esi
00627ADA 7C19 jl 00627AF5
00627ADC 46 inc esi
00627ADD 33DB xor ebx, ebx
00627ADF 66891F mov [edi], bx
00627AE2 895F0C mov [edi+$0C], ebx
00627AE5 8BD7 mov edx, edi
00627AE7 A1ACCD7800 mov eax, dword ptr [$0078CDAC]
* Reference to: Unit_004AC2A8.Proc_004AC384
|
00627AEC E89348E8FF call 004AC384
00627AF1 43 inc ebx
00627AF2 4E dec esi
00627AF3 75EA jnz 00627ADF
00627AF5 33C0 xor eax, eax
00627AF7 5A pop edx
00627AF8 59 pop ecx
00627AF9 59 pop ecx
00627AFA 648910 mov fs:[eax], edx
****** FINALLY
|
00627AFD 68127B6200 push $00627B12
00627B02 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
00627B05 E8EAC5DDFF call 004040F4
00627B0A C3 ret
* Reference to: system.@HandleFinally;
|
00627B0B E91CBFDDFF jmp 00403A2C
00627B10 EBF0 jmp 00627B02
****** END
|
00627B12 5F pop edi
00627B13 5E pop esi
00627B14 5B pop ebx
00627B15 59 pop ecx
00627B16 5D pop ebp
00627B17 C3 ret
*)
end;
procedure TFrmJDShow.WfGridMouseDown(Sender : TObject);
begin
(*
006280E8 55 push ebp
006280E9 8BEC mov ebp, esp
006280EB 83C4F4 add esp, -$0C
006280EE 53 push ebx
006280EF 56 push esi
006280F0 8BD9 mov ebx, ecx
006280F2 8BF0 mov esi, eax
* Reference to control TFrmJDShow.WfGrid : TStringAlignGrid
|
006280F4 8B86D0020000 mov eax, [esi+$02D0]
006280FA 8D55FC lea edx, [ebp-$04]
006280FD 52 push edx
006280FE 8D55F8 lea edx, [ebp-$08]
00628101 52 push edx
00628102 8B4D08 mov ecx, [ebp+$08]
00628105 8B550C mov edx, [ebp+$0C]
* Reference to: MyGrids.Proc_0059F198
|
00628108 E88B70F7FF call 0059F198
0062810D 84DB test bl, bl
0062810F 7526 jnz 00628137
00628111 F6451040 test byte ptr [ebp+$10], $40
00628115 7420 jz 00628137
00628117 837DF800 cmp dword ptr [ebp-$08], +$00
0062811B 7436 jz 00628153
0062811D 66C745F60D00 mov word ptr [ebp-$0A], $000D
00628123 A05C816200 mov al, byte ptr [$0062815C]
00628128 50 push eax
00628129 8D4DF6 lea ecx, [ebp-$0A]
0062812C 8BD6 mov edx, esi
0062812E 8BC6 mov eax, esi
* Reference to : TFrmJDShow.FormKeyDown()
|
00628130 E87BF4FFFF call 006275B0
00628135 EB1C jmp 00628153
00628137 837DF800 cmp dword ptr [ebp-$08], +$00
0062813B 7516 jnz 00628153
0062813D 837DFC00 cmp dword ptr [ebp-$04], +$00
00628141 7410 jz 00628153
00628143 837DFC01 cmp dword ptr [ebp-$04], +$01
00628147 740A jz 00628153
00628149 8B55FC mov edx, [ebp-$04]
0062814C 8BC6 mov eax, esi
* Reference to : TFrmJDShow.Proc_00627E80()
|
0062814E E82DFDFFFF call 00627E80
00628153 5E pop esi
00628154 5B pop ebx
00628155 8BE5 mov esp, ebp
00628157 5D pop ebp
00628158 C20C00 ret $000C
*)
end;
procedure TFrmJDShow.FormClose(Sender : TObject);
begin
(*
00628160 C60102 mov byte ptr [ecx], $02
00628163 C3 ret
*)
end;
procedure TFrmJDShow.FormShow(Sender : TObject);
begin
(*
00628164 53 push ebx
00628165 83C4F4 add esp, -$0C
00628168 8BD8 mov ebx, eax
* Reference to TScreen instance
|
0062816A A11CD57700 mov eax, dword ptr [$0077D51C]
0062816F 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetWidth(TScreen):Integer;
|
00628171 E87EEFE2FF call 004570F4
00628176 89442408 mov [esp+$08], eax
0062817A DB442408 fild dword ptr [esp+$08]
0062817E D8350C826200 fdiv dword ptr [$0062820C]
00628184 D91C24 fstp dword ptr [esp]
00628187 9B wait
* Reference to TScreen instance
|
00628188 A11CD57700 mov eax, dword ptr [$0077D51C]
0062818D 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetHeight(TScreen):Integer;
|
0062818F E854EFE2FF call 004570E8
00628194 89442408 mov [esp+$08], eax
00628198 DB442408 fild dword ptr [esp+$08]
0062819C D83510826200 fdiv dword ptr [$00628210]
006281A2 D95C2404 fstp dword ptr [esp+$04]
006281A6 9B wait
006281A7 D90514826200 fld dword ptr [$00628214]
006281AD D80C24 fmul dword ptr [esp]
* Reference to: system.@TRUNC;
|
006281B0 E84BABDDFF call 00402D00
006281B5 8BD0 mov edx, eax
006281B7 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetLeft(TControl;Integer);
|
006281B9 E88610E1FF call 00439244
006281BE D90518826200 fld dword ptr [$00628218]
006281C4 D84C2404 fmul dword ptr [esp+$04]
* Reference to: system.@TRUNC;
|
006281C8 E833ABDDFF call 00402D00
006281CD 8BD0 mov edx, eax
006281CF 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetTop(TControl;Integer);
|
006281D1 E88E10E1FF call 00439264
006281D6 D9051C826200 fld dword ptr [$0062821C]
006281DC D80C24 fmul dword ptr [esp]
* Reference to: system.@TRUNC;
|
006281DF E81CABDDFF call 00402D00
006281E4 8BD0 mov edx, eax
006281E6 8BC3 mov eax, ebx
* Reference to: controls.TControl.SetWidth(TControl;Integer);
|
006281E8 E89B10E1FF call 00439288
006281ED D90520826200 fld dword ptr [$00628220]
006281F3 D84C2404 fmul dword ptr [esp+$04]
* Reference to: system.@TRUNC;
|
006281F7 E804ABDDFF call 00402D00
006281FC 8BD0 mov edx, eax
006281FE 8BC3 mov eax, ebx
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -