📄 bkshow.pas
字号:
|
0061997C E8ABF5FFFF call 00618F2C
00619981 EB2B jmp 006199AE
00619983 837DF800 cmp dword ptr [ebp-$08], +$00
00619987 7525 jnz 006199AE
00619989 837DFC00 cmp dword ptr [ebp-$04], +$00
0061998D 741F jz 006199AE
0061998F 837DFC08 cmp dword ptr [ebp-$04], +$08
00619993 7419 jz 006199AE
00619995 837DFC01 cmp dword ptr [ebp-$04], +$01
00619999 7413 jz 006199AE
0061999B 8B45FC mov eax, [ebp-$04]
* Reference to field TFrmBKShow.OFFS_0324
|
0061999E 898624030000 mov [esi+$0324], eax
006199A4 8B55FC mov edx, [ebp-$04]
006199A7 8BC6 mov eax, esi
* Reference to : TFrmBKShow.Proc_00619648()
|
006199A9 E89AFCFFFF call 00619648
006199AE 5E pop esi
006199AF 5B pop ebx
006199B0 8BE5 mov esp, ebp
006199B2 5D pop ebp
006199B3 C20C00 ret $000C
*)
end;
procedure TFrmBKShow.FormShow(Sender : TObject);
begin
(*
006199E8 53 push ebx
006199E9 83C4F4 add esp, -$0C
006199EC 8BD8 mov ebx, eax
* Reference to TScreen instance
|
006199EE A11CD57700 mov eax, dword ptr [$0077D51C]
006199F3 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetWidth(TScreen):Integer;
|
006199F5 E8FAD6E3FF call 004570F4
006199FA 89442408 mov [esp+$08], eax
006199FE DB442408 fild dword ptr [esp+$08]
00619A02 D835349A6100 fdiv dword ptr [$00619A34]
00619A08 DDD8 fstp st(0)
* Reference to TScreen instance
|
00619A0A A11CD57700 mov eax, dword ptr [$0077D51C]
00619A0F 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetHeight(TScreen):Integer;
|
00619A11 E8D2D6E3FF call 004570E8
00619A16 89442408 mov [esp+$08], eax
00619A1A DB442408 fild dword ptr [esp+$08]
00619A1E D835389A6100 fdiv dword ptr [$00619A38]
00619A24 DDD8 fstp st(0)
00619A26 8BC3 mov eax, ebx
00619A28 8B10 mov edx, [eax]
* Reference to method TFrmBKShow.Repaint()
|
00619A2A FF5278 call dword ptr [edx+$78]
00619A2D 83C40C add esp, +$0C
00619A30 5B pop ebx
00619A31 C3 ret
*)
end;
procedure TFrmBKShow.BKGridMouseMove(Sender : TObject);
begin
(*
00619A3C 55 push ebp
00619A3D 8BEC mov ebp, esp
00619A3F 83C4F8 add esp, -$08
00619A42 53 push ebx
00619A43 8BD8 mov ebx, eax
00619A45 8D45FC lea eax, [ebp-$04]
00619A48 50 push eax
00619A49 8D45F8 lea eax, [ebp-$08]
00619A4C 50 push eax
00619A4D 8B4D08 mov ecx, [ebp+$08]
00619A50 8B550C mov edx, [ebp+$0C]
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619A53 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: MyGrids.Proc_0059F198
|
00619A59 E83A57F8FF call 0059F198
00619A5E 837DF800 cmp dword ptr [ebp-$08], +$00
00619A62 7511 jnz 00619A75
00619A64 66BAEBFF mov dx, $FFEB
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619A68 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: controls.TControl.SetCursor(TControl;TCursor);
|
00619A6E E8CD01E2FF call 00439C40
00619A73 EB0D jmp 00619A82
00619A75 33D2 xor edx, edx
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619A77 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: controls.TControl.SetCursor(TControl;TCursor);
|
00619A7D E8BE01E2FF call 00439C40
00619A82 5B pop ebx
00619A83 59 pop ecx
00619A84 59 pop ecx
00619A85 5D pop ebp
00619A86 C20800 ret $0008
*)
end;
procedure TFrmBKShow.FormDestroy(Sender : TObject);
begin
(*
00619A8C 53 push ebx
00619A8D 8BD8 mov ebx, eax
* Reference to: Unit_00651A88.Proc_00651F18
|
00619A8F E884840300 call 00651F18
* Reference to field TFrmBKShow.OFFS_02E0
|
00619A94 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: system.TObject.Free(TObject);
|
00619A9A E82D98DEFF call 004032CC
00619A9F 5B pop ebx
00619AA0 C3 ret
*)
end;
procedure TFrmBKShow.FormKeyPress(Sender : TObject);
begin
(*
00619AA4 53 push ebx
00619AA5 56 push esi
00619AA6 83C4F4 add esp, -$0C
00619AA9 8BF1 mov esi, ecx
00619AAB 8BD8 mov ebx, eax
* Reference to TScreen instance
|
00619AAD A11CD57700 mov eax, dword ptr [$0077D51C]
00619AB2 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetWidth(TScreen):Integer;
|
00619AB4 E83BD6E3FF call 004570F4
00619AB9 89442408 mov [esp+$08], eax
00619ABD DB442408 fild dword ptr [esp+$08]
00619AC1 D835549B6100 fdiv dword ptr [$00619B54]
00619AC7 DDD8 fstp st(0)
* Reference to TScreen instance
|
00619AC9 A11CD57700 mov eax, dword ptr [$0077D51C]
00619ACE 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetHeight(TScreen):Integer;
|
00619AD0 E813D6E3FF call 004570E8
00619AD5 89442408 mov [esp+$08], eax
00619AD9 DB442408 fild dword ptr [esp+$08]
00619ADD D835589B6100 fdiv dword ptr [$00619B58]
00619AE3 DDD8 fstp st(0)
00619AE5 803E2F cmp byte ptr [esi], $2F
00619AE8 7405 jz 00619AEF
00619AEA 803E2A cmp byte ptr [esi], $2A
00619AED 755D jnz 00619B4C
* Reference to field TFrmBKShow.OFFS_0324
|
00619AEF 83BB24030000FF cmp dword ptr [ebx+$0324], -$01
00619AF6 750A jnz 00619B02
* Reference to field TFrmBKShow.OFFS_0324
|
00619AF8 C7832403000002000000 mov dword ptr [ebx+$0324], $00000002
* Reference to field TFrmBKShow.OFFS_0324
|
00619B02 83BB2403000000 cmp dword ptr [ebx+$0324], +$00
00619B09 750A jnz 00619B15
* Reference to field TFrmBKShow.OFFS_0324
|
00619B0B C78324030000FFFFFFFF mov dword ptr [ebx+$0324], $FFFFFFFF
* Reference to field TFrmBKShow.OFFS_0324
|
00619B15 8B9324030000 mov edx, [ebx+$0324]
00619B1B 8BC3 mov eax, ebx
* Reference to : TFrmBKShow.Proc_00619648()
|
00619B1D E826FBFFFF call 00619648
* Reference to field TFrmBKShow.OFFS_0324
|
00619B22 8B8324030000 mov eax, [ebx+$0324]
00619B28 83F8FF cmp eax, -$01
00619B2B 750C jnz 00619B39
* Reference to field TFrmBKShow.OFFS_0324
|
00619B2D C7832403000002000000 mov dword ptr [ebx+$0324], $00000002
00619B37 EB13 jmp 00619B4C
00619B39 40 inc eax
00619B3A 2507000080 and eax, $80000007
00619B3F 7905 jns 00619B46
00619B41 48 dec eax
00619B42 83C8F8 or eax, -$08
00619B45 40 inc eax
* Reference to field TFrmBKShow.OFFS_0324
|
00619B46 898324030000 mov [ebx+$0324], eax
00619B4C 83C40C add esp, +$0C
00619B4F 5E pop esi
00619B50 5B pop ebx
00619B51 C3 ret
*)
end;
procedure TFrmBKShow.FormCreate(Sender : TObject);
begin
(*
00619B5C 53 push ebx
00619B5D 56 push esi
00619B5E 8BD8 mov ebx, eax
00619B60 33D2 xor edx, edx
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619B62 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TNewInplaceEdit._PROC_005A18C4()
|
00619B68 E8577DF8FF call 005A18C4
00619B6D BA50FFFF00 mov edx, $00FFFF50
* Reference to: graphics.TFont.SetColor(TFont;TColor);
|
00619B72 E84543E0FF call 0041DEBC
00619B77 BA01000000 mov edx, $00000001
* Reference to control TFrmBKShow.BKGrid : TStringAlignGrid
|
00619B7C 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TNewInplaceEdit._PROC_005A18C4()
|
00619B82 E83D7DF8FF call 005A18C4
00619B87 BAFFFF5000 mov edx, $0050FFFF
* Reference to: graphics.TFont.SetColor(TFont;TColor);
|
00619B8C E82B43E0FF call 0041DEBC
00619B91 33C0 xor eax, eax
* Reference to field TFrmBKShow.OFFS_02E8
|
00619B93 8983E8020000 mov [ebx+$02E8], eax
00619B99 33C0 xor eax, eax
* Reference to field TFrmBKShow.OFFS_02F8
|
00619B9B 8983F8020000 mov [ebx+$02F8], eax
* Reference to field TFrmBKShow.OFFS_0324
|
00619BA1 C78324030000FFFFFFFF mov dword ptr [ebx+$0324], $FFFFFFFF
* Reference to field TFrmBKShow.HelpContext : THelpContext
|
00619BAB C78350010000D5070000 mov dword ptr [ebx+$0150], $000007D5
00619BB5 8BCB mov ecx, ebx
00619BB7 B201 mov dl, $01
* Reference to class TLifeBoard
|
00619BB9 A1D4977500 mov eax, dword ptr [$007597D4]
* Reference to: LifeBoard.Proc_0075AB1C
|
00619BBE E8590F1400 call 0075AB1C
00619BC3 8BF0 mov esi, eax
* Reference to field TFrmBKShow.OFFS_02E0
|
00619BC5 89B3E0020000 mov [ebx+$02E0], esi
00619BCB 8BD3 mov edx, ebx
00619BCD 8BC6 mov eax, esi
00619BCF 8B08 mov ecx, [eax]
* Possible reference to virtual method TLifeBoard.OFFS_60
|
00619BD1 FF5160 call dword ptr [ecx+$60]
00619BD4 B205 mov dl, $05
00619BD6 8BC6 mov eax, esi
* Reference to: controls.TControl.SetAlign(TControl;TAlign);
|
00619BD8 E85FF4E1FF call 0043903C
00619BDD 33D2 xor edx, edx
00619BDF 8BC6 mov eax, esi
* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
00619BE1 E882FDE1FF call 00439968
* Reference to field TFrmBKShow.OFFS_0318 : Byte
|
00619BE6 C6831803000000 mov byte ptr [ebx+$0318], $00
00619BED 33C0 xor eax, eax
* Reference to field TFrmBKShow.OFFS_031C
|
00619BEF 89831C030000 mov [ebx+$031C], eax
00619BF5 33C0 xor eax, eax
* Reference to field TFrmBKShow.OFFS_030C
|
00619BF7 89830C030000 mov [ebx+$030C], eax
* Reference to field TFrmBKShow.OFFS_0311 : Byte
|
00619BFD C6831103000001 mov byte ptr [ebx+$0311], $01
00619C04 6A0A push $0A
* Reference to pointer to GlobalVar_0078CF04
|
00619C06 A1F8CF7700 mov eax, dword ptr [$0077CFF8]
00619C0B 8B00 mov eax, [eax]
* Possible String Reference to: 'AutoRefresh'
|
00619C0D B9609C6100 mov ecx, $00619C60
* Possible String Reference to: 'Setting'
|
00619C12 BA749C6100 mov edx, $00619C74
00619C17 8B30 mov esi, [eax]
* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_08
|
00619C19 FF5608 call dword ptr [esi+$08]
00619C1C 69D0E8030000 imul edx, eax, $000003E8
* Reference to control TFrmBKShow.TimerRfs : TTimer
|
00619C22 8B83D8020000 mov eax, [ebx+$02D8]
* Reference to: extctrls.TTimer.SetInterval(TTimer;Cardinal);
|
00619C28 E8B358E4FF call 0045F4E0
00619C2D B201 mov dl, $01
* Reference to control TFrmBKShow.TimerRfs : TTimer
|
00619C2F 8B83D8020000 mov eax, [ebx+$02D8]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
00619C35 E89658E4FF call 0045F4D0
00619C3A 53 push ebx
* Possible String Reference to: 'U嬱兡豐VW3蓧M貕M靿M饓E⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -