📄 zbtest.pas
字号:
006DF758 C60300 mov byte ptr [ebx], $00
006DF75B 5B pop ebx
006DF75C C3 ret
*)
end;
procedure TfrmXgTest.BitBtn3Click(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006DF760 E85769D7FF call 004560BC
006DF765 C3 ret
*)
end;
procedure TfrmXgTest.SpeedButton3Click(Sender : TObject);
begin
(*
006DF768 53 push ebx
006DF769 8BD8 mov ebx, eax
* Reference to field TfrmXgTest.OFFS_03A0
|
006DF76B 8B83A0030000 mov eax, [ebx+$03A0]
006DF771 85C0 test eax, eax
006DF773 7405 jz 006DF77A
* Reference to: Classes.Proc_0041B120
|
006DF775 E8A6B9D3FF call 0041B120
006DF77A 33D2 xor edx, edx
* Reference to control TfrmXgTest.RichEdit1 : TRichEdit
|
006DF77C 8B831C030000 mov eax, [ebx+$031C]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006DF782 E8E1A1D5FF call 00439968
006DF787 33D2 xor edx, edx
* Reference to control TfrmXgTest.RltmAlgrid : TStringAlignGrid
|
006DF789 8B8334030000 mov eax, [ebx+$0334]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006DF78F E8D4A1D5FF call 00439968
006DF794 B201 mov dl, $01
* Reference to control TfrmXgTest.Chart1 : TChart
|
006DF796 8B8320030000 mov eax, [ebx+$0320]
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006DF79C E8C7A1D5FF call 00439968
006DF7A1 5B pop ebx
006DF7A2 C3 ret
*)
end;
procedure TfrmXgTest.FormDestroy(Sender : TObject);
begin
(*
006DF7A4 53 push ebx
006DF7A5 8BD8 mov ebx, eax
* Reference to field TfrmXgTest.OFFS_03A0
|
006DF7A7 8B83A0030000 mov eax, [ebx+$03A0]
006DF7AD 85C0 test eax, eax
006DF7AF 7405 jz 006DF7B6
* Reference to: Classes.Proc_0041B120
|
006DF7B1 E86AB9D3FF call 0041B120
* Reference to field TfrmXgTest.OFFS_03A4
|
006DF7B6 8B83A4030000 mov eax, [ebx+$03A4]
006DF7BC 85C0 test eax, eax
006DF7BE 740D jz 006DF7CD
* Reference to: system.TObject.Free(TObject);
|
006DF7C0 E8073BD2FF call 004032CC
006DF7C5 33C0 xor eax, eax
* Reference to field TfrmXgTest.OFFS_03A4
|
006DF7C7 8983A4030000 mov [ebx+$03A4], eax
* Reference to field TfrmXgTest.OFFS_0380 : TList
|
006DF7CD 8B8380030000 mov eax, [ebx+$0380]
* Reference to: system.TObject.Free(TObject);
|
006DF7D3 E8F43AD2FF call 004032CC
* Reference to field TfrmXgTest.OFFS_0390
|
006DF7D8 8D9390030000 lea edx, [ebx+$0390]
006DF7DE A118CB7700 mov eax, dword ptr [$0077CB18]
006DF7E3 8B00 mov eax, [eax]
* Reference to: Unit_0070F7F0.Proc_0071AC18
|
006DF7E5 E82EB40300 call 0071AC18
006DF7EA 5B pop ebx
006DF7EB C3 ret
*)
end;
procedure TfrmXgTest.ListView1CustomDrawSubItem(Sender : TObject);
begin
(*
006DF7EC 55 push ebp
006DF7ED 8BEC mov ebp, esp
006DF7EF 5D pop ebp
006DF7F0 C20C00 ret $000C
*)
end;
procedure TfrmXgTest.PageControl1Change(Sender : TObject);
begin
(*
006DF7F4 53 push ebx
006DF7F5 8BD8 mov ebx, eax
* Reference to field TfrmXgTest.OFFS_03A0
|
006DF7F7 8B83A0030000 mov eax, [ebx+$03A0]
006DF7FD 85C0 test eax, eax
006DF7FF 7405 jz 006DF806
* Reference to: Classes.Proc_0041B120
|
006DF801 E81AB9D3FF call 0041B120
* Reference to control TfrmXgTest.PageControl1 : TPageControl
|
006DF806 8B830C030000 mov eax, [ebx+$030C]
* Reference to: comctrls.TPageControl.GetActivePageIndex(TPageControl):Integer;
|
006DF80C E8FF55D9FF call 00474E10
006DF811 48 dec eax
006DF812 7507 jnz 006DF81B
006DF814 8BC3 mov eax, ebx
* Reference to : TfrmXgTest.Proc_006DE774()
|
006DF816 E859EFFFFF call 006DE774
006DF81B 5B pop ebx
006DF81C C3 ret
*)
end;
procedure TfrmXgTest.Button1Click(Sender : TObject);
begin
(*
006DF820 C3 ret
*)
end;
procedure TfrmXgTest.Button2Click(Sender : TObject);
begin
(*
006DF824 C3 ret
*)
end;
procedure TfrmXgTest.Button3Click(Sender : TObject);
begin
(*
006DF828 C3 ret
*)
end;
procedure TfrmXgTest.Button4Click(Sender : TObject);
begin
(*
006DF82C C3 ret
*)
end;
procedure TfrmXgTest.RltmAlgridMouseDown(Sender : TObject);
begin
(*
006DFA24 55 push ebp
006DFA25 8BEC mov ebp, esp
006DFA27 83C4F8 add esp, -$08
006DFA2A 53 push ebx
006DFA2B 56 push esi
006DFA2C 8BD9 mov ebx, ecx
006DFA2E 8BF0 mov esi, eax
006DFA30 8D45FC lea eax, [ebp-$04]
006DFA33 50 push eax
006DFA34 8D45F8 lea eax, [ebp-$08]
006DFA37 50 push eax
006DFA38 8B4D08 mov ecx, [ebp+$08]
006DFA3B 8B550C mov edx, [ebp+$0C]
* Reference to control TfrmXgTest.RltmAlgrid : TStringAlignGrid
|
006DFA3E 8B8634030000 mov eax, [esi+$0334]
* Reference to: MyGrids.Proc_0059F198
|
006DFA44 E84FF7EBFF call 0059F198
006DFA49 84DB test bl, bl
006DFA4B 0F85B7000000 jnz 006DFB08
006DFA51 837DF800 cmp dword ptr [ebp-$08], +$00
006DFA55 0F85AD000000 jnz 006DFB08
006DFA5B 8B45FC mov eax, [ebp-$04]
006DFA5E 8A840684030000 mov al, byte ptr [esi+eax+$0384]
* Reference to GlobalVar_0078D588
|
006DFA65 A288D57800 mov byte ptr [$0078D588], al
006DFA6A 8B45FC mov eax, [ebp-$04]
006DFA6D 8A840684030000 mov al, byte ptr [esi+eax+$0384]
006DFA74 3401 xor al, $01
006DFA76 8B55FC mov edx, [ebp-$04]
006DFA79 88841684030000 mov [esi+edx+$0384], al
006DFA80 8B45FC mov eax, [ebp-$04]
006DFA83 83F808 cmp eax, +$08
006DFA86 776A jnbe 006DFAF2
006DFA88 FF24858FFA6D00 jmp dword ptr [$6DFA8F+eax*4]
006DFA8F B3FA mov bl, $FA
006DFA91 6D insd
006DFA92 00BAFA6D00C1 add [edx+$C1006DFA], bh
006DFA98 FA cli
006DFA99 6D insd
006DFA9A 00C8 add al, cl
006DFA9C FA cli
006DFA9D 6D insd
006DFA9E 00CF add bh, cl
006DFAA0 FA cli
006DFAA1 6D insd
006DFAA2 00D6 add dh, dl
006DFAA4 FA cli
006DFAA5 6D insd
006DFAA6 00DD add ch, bl
006DFAA8 FA cli
006DFAA9 6D insd
006DFAAA 00E4 add ah, ah
006DFAAC FA cli
006DFAAD 6D insd
006DFAAE 00EB add bl, ch
006DFAB0 FA cli
006DFAB1 6D insd
006DFAB2 00B830F86D00 add [eax+$6DF830], bh
006DFAB8 EB3A jmp 006DFAF4
* Possible String Reference to: 'U嬱j'
|
006DFABA B8C8F86D00 mov eax, $006DF8C8
006DFABF EB33 jmp 006DFAF4
* Possible String Reference to: '⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -