⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 spin.pas

📁 传奇3delphi代码 请自己看吧 包括地图
💻 PAS
📖 第 1 页 / 共 4 页
字号:
|
0045A352   E83D80FDFF             call    00432394
0045A357   50                     push    eax

* Reference to: user32.SendMessageA()
|
0045A358   E80BDFFAFF             call    00408268
0045A35D   83C410                 add     esp, +$10
0045A360   5B                     pop     ebx
0045A361   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_0045A364(Sender : TObject);
begin
(*
0045A364   53                     push    ebx
0045A365   56                     push    esi
0045A366   57                     push    edi
0045A367   8BF0                   mov     esi, eax
0045A369   8BC6                   mov     eax, esi

* Reference to: Controls.Proc_004307E4
|
0045A36B   E87464FDFF             call    004307E4
0045A370   8BC6                   mov     eax, esi

* Reference to : TTimerSpeedButton._PROC_0045A3FC()
|
0045A372   E885000000             call    0045A3FC

* Reference to field TTimerSpeedButton.OFFS_003C
|
0045A377   3B463C                 cmp     eax, [esi+$3C]
0045A37A   7E0B                   jle     0045A387
0045A37C   8BD0                   mov     edx, eax
0045A37E   8BC6                   mov     eax, esi

* Reference to: Controls.Proc_0042BB40
|
0045A380   E8BB17FDFF             call    0042BB40
0045A385   EB71                   jmp     0045A3F8

* Reference to field TTimerSpeedButton.OFFS_0214
|
0045A387   83BE1402000000         cmp     dword ptr [esi+$0214], +$00
0045A38E   7468                   jz      0045A3F8

* Reference to pointer to GlobalVar_0050374C
|
0045A390   A1802B5000             mov     eax, dword ptr [$00502B80]
0045A395   803800                 cmp     byte ptr [eax], $00
0045A398   7431                   jz      0045A3CB

* Reference to field TTimerSpeedButton.OFFS_0138
|
0045A39A   80BE3801000000         cmp     byte ptr [esi+$0138], $00
0045A3A1   7428                   jz      0045A3CB

* Reference to field TTimerSpeedButton.OFFS_0214
|
0045A3A3   8B9614020000           mov     edx, [esi+$0214]
0045A3A9   8B7A38                 mov     edi, [edx+$38]
0045A3AC   57                     push    edi

* Reference to field TTimerSpeedButton.OFFS_003C
|
0045A3AD   8B563C                 mov     edx, [esi+$3C]
0045A3B0   83EA05                 sub     edx, +$05
0045A3B3   52                     push    edx

* Reference to field TTimerSpeedButton.OFFS_0214
|
0045A3B4   8B8614020000           mov     eax, [esi+$0214]

* Reference to field TTimerSpeedButton.OFFS_0038
|
0045A3BA   8B5638                 mov     edx, [esi+$38]
0045A3BD   2BD7                   sub     edx, edi
0045A3BF   83EA05                 sub     edx, +$05
0045A3C2   33C9                   xor     ecx, ecx
0045A3C4   8B18                   mov     ebx, [eax]
0045A3C6   FF537C                 call    dword ptr [ebx+$7C]
0045A3C9   EB26                   jmp     0045A3F1

* Reference to field TTimerSpeedButton.OFFS_0214
|
0045A3CB   8B9614020000           mov     edx, [esi+$0214]
0045A3D1   8B7A38                 mov     edi, [edx+$38]
0045A3D4   57                     push    edi

* Reference to field TTimerSpeedButton.OFFS_003C
|
0045A3D5   8B563C                 mov     edx, [esi+$3C]
0045A3D8   83EA03                 sub     edx, +$03
0045A3DB   52                     push    edx

* Reference to field TTimerSpeedButton.OFFS_0214
|
0045A3DC   8B8614020000           mov     eax, [esi+$0214]

* Reference to field TTimerSpeedButton.OFFS_0038
|
0045A3E2   8B5638                 mov     edx, [esi+$38]
0045A3E5   2BD7                   sub     edx, edi
0045A3E7   B901000000             mov     ecx, $00000001
0045A3EC   8B18                   mov     ebx, [eax]
0045A3EE   FF537C                 call    dword ptr [ebx+$7C]
0045A3F1   8BC6                   mov     eax, esi

* Reference to : TTimerSpeedButton._PROC_0045A2E4()
|
0045A3F3   E8ECFEFFFF             call    0045A2E4
0045A3F8   5F                     pop     edi
0045A3F9   5E                     pop     esi
0045A3FA   5B                     pop     ebx
0045A3FB   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_0045A3FC(Sender : TObject);
begin
(*
0045A3FC   53                     push    ebx
0045A3FD   56                     push    esi
0045A3FE   83C490                 add     esp, -$70
0045A401   8BF0                   mov     esi, eax
0045A403   6A00                   push    $00

* Reference to: user32.GetDC()
|
0045A405   E8F6DBFAFF             call    00408000
0045A40A   8BD8                   mov     ebx, eax
0045A40C   54                     push    esp
0045A40D   53                     push    ebx

* Reference to: gdi32.GetTextMetricsA()
|
0045A40E   E85DD9FAFF             call    00407D70

* Reference to field TTimerSpeedButton.OFFS_0058
|
0045A413   8B4658                 mov     eax, [esi+$58]

* Reference to : TIcon._PROC_00419D74()
|
0045A416   E859F9FBFF             call    00419D74
0045A41B   50                     push    eax
0045A41C   53                     push    ebx

* Reference to: gdi32.SelectObject()
|
0045A41D   E8CED9FAFF             call    00407DF0
0045A422   8BF0                   mov     esi, eax
0045A424   8D442438               lea     eax, [esp+$38]
0045A428   50                     push    eax
0045A429   53                     push    ebx

* Reference to: gdi32.GetTextMetricsA()
|
0045A42A   E841D9FAFF             call    00407D70
0045A42F   56                     push    esi
0045A430   53                     push    ebx

* Reference to: gdi32.SelectObject()
|
0045A431   E8BAD9FAFF             call    00407DF0
0045A436   53                     push    ebx
0045A437   6A00                   push    $00

* Reference to: user32.ReleaseDC()
|
0045A439   E802DEFAFF             call    00408240
0045A43E   8B1C24                 mov     ebx, [esp]
0045A441   8B742438               mov     esi, [esp+$38]
0045A445   3BDE                   cmp     ebx, esi
0045A447   7E02                   jle     0045A44B
0045A449   8BDE                   mov     ebx, esi
0045A44B   6A06                   push    $06

* Reference to: user32.GetSystemMetrics()
|
0045A44D   E886DCFAFF             call    004080D8
0045A452   C1E002                 shl     eax, $02
0045A455   85DB                   test    ebx, ebx
0045A457   7903                   jns     0045A45C
0045A459   83C303                 add     ebx, +$03
0045A45C   C1FB02                 sar     ebx, $02
0045A45F   03DE                   add     ebx, esi
0045A461   03C3                   add     eax, ebx
0045A463   83C002                 add     eax, +$02
0045A466   83C470                 add     esp, +$70
0045A469   5E                     pop     esi
0045A46A   5B                     pop     ebx
0045A46B   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_0045A46C(Sender : TObject);
begin
(*
0045A46C   53                     push    ebx
0045A46D   8BD8                   mov     ebx, eax

* Reference to field TTimerSpeedButton.OFFS_01F6
|
0045A46F   80BBF601000000         cmp     byte ptr [ebx+$01F6], $00
0045A476   7409                   jz      0045A481
0045A478   6A00                   push    $00

* Reference to: user32.MessageBeep()
|
0045A47A   E849DDFAFF             call    004081C8
0045A47F   5B                     pop     ebx
0045A480   C3                     ret

0045A481   8BC3                   mov     eax, ebx

* Reference to : TTimerSpeedButton._PROC_0045A548()
|
0045A483   E8C0000000             call    0045A548
0045A488   8BD0                   mov     edx, eax
0045A48A   039310020000           add     edx, [ebx+$0210]
0045A490   8BC3                   mov     eax, ebx

* Reference to : TTimerSpeedButton._PROC_0045A5D0()
|
0045A492   E839010000             call    0045A5D0
0045A497   5B                     pop     ebx
0045A498   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_0045A49C(Sender : TObject);
begin
(*
0045A49C   53                     push    ebx
0045A49D   8BD8                   mov     ebx, eax

* Reference to field TTimerSpeedButton.OFFS_01F6
|
0045A49F   80BBF601000000         cmp     byte ptr [ebx+$01F6], $00
0045A4A6   7409                   jz      0045A4B1
0045A4A8   6A00                   push    $00

* Reference to: user32.MessageBeep()
|
0045A4AA   E819DDFAFF             call    004081C8
0045A4AF   5B                     pop     ebx
0045A4B0   C3                     ret

0045A4B1   8BC3                   mov     eax, ebx

* Reference to : TTimerSpeedButton._PROC_0045A548()
|
0045A4B3   E890000000             call    0045A548
0045A4B8   8BD0                   mov     edx, eax
0045A4BA   2B9310020000           sub     edx, dword ptr [ebx+$0210]
0045A4C0   8BC3                   mov     eax, ebx

* Reference to : TTimerSpeedButton._PROC_0045A5D0()
|
0045A4C2   E809010000             call    0045A5D0
0045A4C7   5B                     pop     ebx
0045A4C8   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_0045A4CC(Sender : TObject);
begin
(*
0045A4CC   56                     push    esi
0045A4CD   8BF0                   mov     esi, eax

* Reference to field TTimerSpeedButton.OFFS_0218
|
0045A4CF   80BE1802000000         cmp     byte ptr [esi+$0218], $00
0045A4D6   7410                   jz      0045A4E8

* Reference to field TTimerSpeedButton.OFFS_01F6
|
0045A4D8   80BEF601000000         cmp     byte ptr [esi+$01F6], $00
0045A4DF   7507                   jnz     0045A4E8
0045A4E1   8BC6                   mov     eax, esi
0045A4E3   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TTimerSpeedButton.OFFS_10
|
0045A4E5   FF51F0                 call    dword ptr [ecx-$10]
0045A4E8   5E                     pop     esi
0045A4E9   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_0045A4EC(Sender : TObject);
begin
(*
0045A4EC   56                     push    esi
0045A4ED   8BF0                   mov     esi, eax

* Reference to field TTimerSpeedButton.OFFS_0218
|
0045A4EF   80BE1802000000         cmp     byte ptr [esi+$0218], $00
0045A4F6   7410                   jz      0045A508

* Reference to field TTimerSpeedButton.OFFS_01F6
|
0045A4F8   80BEF601000000         cmp     byte ptr [esi+$01F6], $00
0045A4FF   7507                   jnz     0045A508
0045A501   8BC6                   mov     eax, esi
0045A503   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TTimerSpeedButton.OFFS_10
|
0045A505   FF51F0                 call    dword ptr [ecx-$10]
0045A508   5E                     pop     esi
0045A509   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_0045A50C(Sender : TObject);
begin
(*
0045A50C   53                     push    ebx
0045A50D   56                     push    esi
0045A50E   8BD8                   mov     ebx, eax
0045A510   8BC3                   mov     eax, ebx

* Reference to: Controls.Proc_00431860
|
0045A512   E84973FDFF             call    00431860
0045A517   8BC3                   mov     eax, ebx

* Reference to : TTimerSpeedButton._PROC_0045A548()
|
0045A519   E82A000000             call    0045A548
0045A51E   8BD0                   mov     edx, eax
0045A520   8BC3                   mov     eax, ebx

* Reference to : TTimerSpeedButton._PROC_0045A628()
|
0045A522   E801010000             call    0045A628
0045A527   8BF0                   mov     esi, eax
0045A529   8BC3                   mov     eax, ebx

* Reference to : TTimerSpeedButton._PROC_0045A548()
|
0045A52B   E818000000             call    0045A548
0045A530   3BF0                   cmp     esi, eax
0045A532   7410                   jz      0045A544
0045A534   8BC3                   mov     eax, ebx

* Reference to : TTimerSpeedButton._PROC_0045A548()
|
0045A536   E80D000000             call    0045A548
0045A53B   8BD0                   mov     edx, eax
0045A53D   8BC3                   mov     eax, ebx

* Reference to : TTimerSpeedButton._PROC_0045A5D0()
|
0045A53F   E88C000000             call    0045A5D0
0045A544   5E                     pop     esi
0045A545   5B                     pop     ebx
0045A546   C3                     ret

*)
end;

procedure TTimerSpeedButton._PROC_0045A548(Sender : TObject);
begin
(*
0045A548   55                     push    ebp
0045A549   8BEC                   mov     ebp, esp
0045A54B   83C4F8                 add     esp, -$08
0045A54E   53                     push    ebx
0045A54F   56                     push    esi
0045A550   57                     push    edi
0045A551   33D2                   xor     edx, edx
0045A553   8955F8                 mov     [ebp-$08], edx
0045A556   8945FC                 mov     [ebp-$04], eax
0045A559   33C0                   xor     eax, eax
0045A55B   55                     push    ebp

* Possible String Reference to: '槭慂

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -